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1678* 
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1797* 
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1825* 
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1208 
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1287* 
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1301* 
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1314* 
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1316* 
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1359* 

1359 
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1446 

1448* 
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1459 
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1461 
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1473 
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1475 
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1490 
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1698 
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1726* 
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1782 
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2201* 
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2230* 
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152* 
172* 
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235* 
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278* 
301* 
316* 
330* 
345* 
359* 


1964 

1969* 

1982 

1984* 

1996 

1998* 

2011 

2013* 

2025 

2027* 

2040 

2042* 

2054 

2056* 

2068 

2070* 

2083 

2085* 

2097 

2099* 
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2117* 
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2143 
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2201 
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2483* 
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123* 
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172 

177* 
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217* 
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240* 

258 

260* 

278 

280* 

301 

303* 

?16 

318* 

330 

332* 

345 

347* 
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361* 

1969 

1984 

1998 

2013 

2027 

2042 

2056 

2070 

2085 

2099 

2117 

2131 

2146 

2160 

2174 

2189 

2203 

2218 

2232 

2249 

2264 

2278 

2293 

2307 

2322 

2336 

2351 

2365 

2379 

2397 

2411 

2426 

2440 

2454 

2469 

2483 

2498 
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123 
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177 
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217 
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332 
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1986* 
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2044* 
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2087* 
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2220* 

2234* 
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2266* 

2280* 

2295* 
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2353* 

2367* 

2381* 
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2413* 

2428* 

2442* 

2457* 

2471* 

2485* 
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2514* 

111* 
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139* 

159* 

179* 

199* 
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242* 

262* 

285* 

306* 

320* 

334* 

349* 
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1971 
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1974 

1986 

1988* 

1988 

2000 

2002* 
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2015 

2017* 

2017 

2029 

2031* 

2031 

2044 

2046* 

2046 

2058 

2060* 

2060 

2073 

1075M 

2075 

2087 

2089* 

2089 
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2103 
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2121 
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2135 

2148 

2150* 

2150 

2162 

2164* 

2164 

2176 

2179* 

2179 
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2193* 

2193 

2205 

2207* 

2207 
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2222* 

2222 

2234 

2236* 

2236 
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2254* 

2254 

2266 

2268* 

2268 

2280 

2282* 

2282 

2295 

ll97lt 
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2311* 

2311 

2324 

2326* 

2326 

2338 

2340* 

2340 
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2355* 

2355 

2367 

2369* 

2369 

2381 

2386* 

2386 

2399 

2401* 

2401 

2413 

2415* 

2415 

2428 

2430* 

2430 

2442 

l^i^itff 

2444 

2457 

2459* 

2459 

2471 

li,7Ht 

2473 

2485 

1^870 

2487 

2500 

2502* 

2502 

2514 

2516* 

2516 

111 

113* 

113 

125 

127* 

127 

139 

141* 

141 

159 

161* 

161 

179 

181* 

181 

199 

204* 

204 

III 

ll^M 

224 

Ikl 

244* 

244 

Ibl 

267* 

267 

285 

187M 

287 

;06 

308 

:20 

'lift 
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:34 

:36* 

336 
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:5i* 
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365* 
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1976* 

1990* 

2004* 

2019* 

2033* 

2048* 

2062* 

2077* 

2091* 

2108* 

2123* 

2137* 

2152* 

2166* 

2181* 

2195* 

2209* 

2224* 

2238* 

2256* 

2270* 

2285* 

2299* 

2313* 

2328* 

2342* 

2357* 

2371* 

2388* 

2403* 

2417* 

2432* 

2446* 

2461* 

2475* 

2490* 

2504* 
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115* 

129* 
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206* 
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310* 
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339* 

353* 

367* 


1976 

1990 

2004 

2019 

2033 

2048 

2062 

2077 

2091 

2108 

2123 

2137 

2152 

2166 

2181 

2195 

2209 

2224 

2238 

2256 

2270 

2285 

2299 

2313 

2328 
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2371 

2388 

2403 

2417 

2432 

2446 

2461 

2475 

2490 

2504 

2518 

115 
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143 
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206 

226 
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269 
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310 

324 

339 

353 
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1992* 

2007* 

2021* 

2035* 

2050* 

2064* 

2079* 

2093* 
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2139* 
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2272* 
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2359* 
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2463* 

2477* 
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145* 

168* 
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231* 

251* 

271* 

294* 

312* 

326* 

341* 

355* 
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2007 
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2079 
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2463 
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271 

294 
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326 

341 
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1994* 

2009* 

2023* 
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2141* 
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2303* 
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2465* 
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2494* 

2508* 

2522* 

119* 

133* 
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190* 
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233* 
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276* 

296* 

314* 

328* 

343* 

357* 
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2242 
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253 

276 
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455 
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463 
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482* 
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484 
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494 
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513* 
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525 
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527 
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584 
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§U 
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629 
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668/y 
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720 
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778 
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793* 
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§9^ 
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832* 

832 
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876# 
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882* 
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892 

895* 

895 
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907 
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909 
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911 
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919 

921* 

921 

923* 

923 
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925 
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934 
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936 
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938 
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940 
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950 
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965 

967* 
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969 
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981 
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1013* 
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1095* 
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116 
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1126 
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1142* 

1142 

1144* 

1144 

1146* 

1146 

1148* 

1148 

382* 
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396 

411* 

411 

425* 

425 

442* 

442 

457* 

457 

471* 
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486* 

486 

500* 
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515 
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529 

544* 

544 
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619 
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723* 
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824 
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870* 

870 
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884 
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971* 
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445* 

459* 

473* 

488* 
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546* 
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635* 

650* 
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678* 
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707* 

725* 
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797* 
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857* 

872* 
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447* 
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490 
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1510* 

1510 

1512* 

1523* 

1523 

1525* 

1525 

1527* 

1537* 

1537 

1539* 

1539 

1541* 

1554* 

1554 

1557* 

1557 

1559* 

1569* 

1569 

1571* 

1571 

1573* 

1583* 

1583 

1585* 

1585 

1587* 

1598* 

1598 

1600* 

1600 

1602* 

1612* 

1612 

1614* 

1614 

1616* 

1627* 

1627 

1629* 

1629 

1631* 

1641* 

!641 

1643* 

1643 

1645* 

1656* 

1656 

1658* 

1658 

1660* 

1670* 

1670 

1672* 

1672 

1674* 

1684* 

1684 

1686* 

1686 

1691* 

1702* 

1702 

1704* 

1704 

1706* 

1716* 

1716 

1718* 

1718 

1720* 

1751* 

1731 

1733* 

1733 

1735* 

1745* 

1745 

1747* 

1747 

1749* 

1759* 

1759 

1762* 

1762 

1764* 

1774* 

1774 

1776* 

1776 

1778* 

1788* 

1788 

1790* 

1790 

1792* 

1803* 

1803 

1805* 

1805 

1807* 

1817* 

1817 

1819* 

1819 

1821* 

1835* 

1835 

1837* 

1837 

1839* 

1849* 

1849 

1551* 

1851 

1853* 

1863* 

1863 

1  165* 

1865 

1868* 

1878* 

1878 

1180* 

1880 

1882* 

1892* 

1892 

^894* 

1894 

1896* 

1907* 

1907 

1909* 

1909 

1911* 

1921* 

1921 

1923* 

1923 

1925* 

1160 

1175 

1189 

1203 

1218 

1232 

1247 

1261 

1279 

1293 

1307 

1322 

1336 

1351 

1365 

1380 

1394 

1408 

1426 

1440 

1455 

1469 

1484 

1498 

1512 

1527 

1541 

1559 

1573 

1587 

1602 

1616 

1631 

1645 

1660 

1674 

1691 

1706 

1720 

1735 

1749 

1764 

1778 

1792 

1807 

1821 

1839 

1853 

1868 

1882 

1896 

1911 

1925 


1162* 

1177* 

1191* 

1206* 

1220* 

1234* 

1249* 

1263* 

1281* 

1295* 

1309* 

1324* 

1338* 

1353* 

1367* 

1382* 

1396* 

1413* 

1428* 

1442* 

1457* 

1471* 

1486* 

1500* 

1514* 

1529* 

1543* 

1561* 

1575* 

1590* 

1604* 

1618* 

1633* 

1647* 

1662* 

1676* 

1693* 

1708* 

1722* 

1737* 

1751* 

1766* 

1780* 

1795* 

1809* 

1823* 

1841* 

1855* 

1870* 

1884* 

1898* 

1913* 

1927* 


"M 

1164* 

1177 

1179* 

1191 

1193* 

1206 

1208* 

1220 

1222* 

1234 

1256* 

1249 

1251* 

1263 

1265* 

1281 

1283* 

1295 

1297* 

1309 

1312* 

1324 

1326* 

1338 

1340* 

1353 

1355* 

1367 

1369* 

1382 

1384* 

1396 

1398* 

1413 

1415* 

1428 

1430* 

1442 

1444* 

1457 

1459* 

1471 

1473* 

1486 

1488* 

1500 

1502* 

1514 

1517* 

1529 

1531* 

1543 

1545* 

1561 

1563* 

1575 

1577* 

1590 

1592* 

1604 

1606* 

1618 

1620* 

1633 

1635* 

1647 

1649* 

1662 

1664* 

1676 

1678* 

1693 

1696* 

1708 

1710* 

1722 

1724* 

1737 

1739* 

1751 

1753* 

1766 

1768* 

1780 

1782* 

1795 

1797* 

1809 

1811* 

1823 

1825* 

1841 

1843* 

1855 

1857* 

1870 

1872* 

1884 

1886* 

1898 

1901* 

1913 

1915* 

1927 

1929* 

1164 

1179 

1193 

1208 

1222 

1236 

1251 

1265 

1283 

1297 

1312 

1326 

1340 

1355 

1369 

1384 

1398 

1415 

1430 

1444 

1459 

1473 

1488 

1502 

1517 

1531 

1545 

1563 

1577 

1592 

1606 

1620 

1635 

1649 

1664 

1678 

1696 

1710 

1724 

1739 

1753 

1768 

1782 

1797 

1811 

1825 

1843 

1857 

1872 

1886 

1901 

1915 

1929 


1166* 

1166 

1181* 

1181 

1195* 

1195 

1210* 

1210 

1224* 

1224 

1239* 

1239 

1253* 

1253 

1267* 

1267 

1285* 

1285 

1299* 

1299 

1314* 

1314 

1328* 

1328 

1342* 

1342 

1357* 

1357 

1371* 

1371 

1386* 

1386 

1400* 

1400 

1418* 

1418 

1432* 

1432 

1446* 

1446 

1461* 

1461 

1475* 

1475 

1490* 

1490 

1504* 

1504 

1519* 

1519 

1533* 

1533 

1547* 

1547 

1565* 

1565 

1579* 

1579 

1594* 

1594 

1608* 

1608 

1623* 

1623 

1637* 

1637 

1651* 

1651 

1666* 

1666 

1680* 

1680 

1698* 

1698 

1712* 

1712 

1726* 

1726 

1741* 

1741 

1755* 

1755 

1770* 

1770 

1784* 

1784 

1799* 

1799 

1813* 

1813 

1830* 

1830 

1845* 

1845 

1859* 

1859 

1874* 

1874 

1888* 

1888 

1903* 

1903 

1917* 

1917 

1931* 

1931 

1168* 
1183* 
1197* 
1212* 
1226* 
1241* 
1255* 
1269* 
1287* 
1301* 
1316* 
1330* 
1345* 
1359* 
1373* 
1388* 
1402* 
1420* 
1434* 
1448* 
1463* 
1477* 
1492* 
1506* 
1521* 
1535* 
1552* 
1567* 
1581* 
1596* 
1610* 
1625* 
1639* 
1653* 
1668* 
1682* 
1700* 
1714* 
1729* 
1743* 
1757* 
1772* 
1786* 
1801* 
1815* 
1832* 
1847* 
1861* 
1876* 
1890* 
1905* 
1919* 
1934* 


1168 

1183 

1197 

1212 

1226 

1241 

1255 

1269 

1287 

1301 

1316 

1330 

1345 

1359 

1373 

1388 

1402 

1420 

1434 

1448 

1463 

1477 

1492 

1506 

1521 

1535 

1552 

1567 

1581 

1596 

1610 

1625 

1639 

1653 

1668 

1682 

1700 

1714 

1729 

1743 

1757 

1772 

1786 

1801 

1815 

1832 

1847 

1861 

1876 

1890 

1905 

1919 

1934 
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•  LA 


1936# 

1936 

1938* 

1938 

1950* 

1950 

1952* 

1952 

196A# 

1964 

1969* 

1969 

1982# 

1932 

1984* 

1984 

1996# 

1996 

1998* 

1998 

2011* 

2011 

2013* 

2013 

2025* 

2025 

2027* 

202/ 

20A0* 

2040 

2042* 

2042 

2054* 

2054 

2056* 

20'^'- 

2068# 

2068 

2070* 

20/0 

2083* 

2083 

2085* 

2085 

2097* 

2097 

2099* 

2099 

2115* 

2115 

2117* 

2117 

2129* 

2129 

2131* 

2131 

21A3* 

2143 

2146* 

2146 

2158* 

2158 

2160* 

2160 

2172* 

2172 

2174* 

2174 

2187* 

2187 

2189* 

2189 

2201* 

2201 

2203* 

2203 

2216* 

2216 

2218* 

2218 

2230* 

2230 

2232* 

2232 

22A7* 

2247 

2249* 

2249 

2262* 

2262 

2264* 

2264 

2276* 

2276 

2278* 

22/8 

2291* 

2291 

2293* 

2293 

2305* 

2305 

2307* 

2307 

2320* 

2320 

2322* 

2322 

233A* 

2334 

2336* 

2336 

23A8* 

2348 

2351* 

2351 

2363* 

2363 

2365* 

2365 

2377* 

2377 

2379* 

23/9 

2395* 

2395 

2397* 

2397 

2A09* 

?409 

2411* 

2411 

2A2A* 

i424 

2426* 

2426 

2A38* 

2438 

2440* 

2440 

2A52* 

2452 

2454* 

2454 

2A67* 

2467 

2469* 

2469 

2481* 

2481 

2483* 

2483 

2496* 

2496 

2498* 

2498 

2510* 

2510 

2512* 

2512 

159 

168 

177 

186 

285 

303 

306 

308 

330 

332 

334 

336 

359 

361 

363 

36S 

388 

390 

392 

394 

417 

419 

421 

423 

451 

453 

455 

457 

480 

482 

484 

486 

508 

511 

513 

515 

537 

539 

541 

544 

566 

568 

570 

572 

60C 

602 

604 

606 

629 

631 

633 

635 

1940* 

1940 

1954* 

1954 

1971* 

1971 

1986* 

1986 

2000* 

2000 

2015* 

2015 

2029* 

2029 

2044* 

2044 

2058* 

2058 

2073* 

2073 

2087* 

2087 

2101* 

2101 

2119* 

2119 

2133* 

2133 

2148* 

2148 

2162* 

2162 

2176* 

2176 

2191* 

2191 

2205* 

2205 

2220* 

2220 

2234* 

2234 

2252* 

2252 

2266* 

2266 

2280* 

2280 

2295* 

2295 

2309* 

2309 

2324* 

2324 

2338* 

2338 

2353* 

2353 

2367* 

2367 

2381* 

2381 

2399* 

2399 

2413* 

2413 

2428* 

2428 

2442* 

2442 

2457* 

2457 

2471* 

2471 

2485* 

2485 

2500* 

2500 

2514* 

2514 

195 

204 

310 

312 

339 

341 

367 

369 

396 

398 

425 

427 

459 

461 

488 

490 

517 

519 

546 

548 

574 

581 

608 

610 

637 

639 

1942^ 
1956* 
1974* 
1988* 
2002* 
2017* 
2031* 
2046* 
2060* 
2075* 
2089* 
2103* 
2121* 
2135* 
2150* 
2164* 
2179* 
2193* 
2207* 
2222* 
2236* 

zr:4* 

.■268* 

c?32* 

2297* 

2311* 

2326* 

2340* 

2355* 

2369* 

2386* 

2401* 

2415* 

2430* 

2444* 

2459* 

2473* 

2487* 

2502* 

2516* 

213 

314 

343 

372 

400 

429 

463 

492 

521 

550 

584 

612 

641 


1942 

1956 

1974 

1988 

2002 

2017 

2031 

2046 

2060 

2075 

2089 

2103 

2121 

2135 

2150 

2164 

2179 

2193 

2207 

2222 

2236 

2254 

2268 

2282 

2297 

2311 

2326 

2340 

2355 

2369 

2386 

2401 

2415 

2430 

2444 

2459 

2473 

2487 

2502 

2516 

222 

316 

345 

374 

402 

431 

465 

494 

523 

552 

586 

614 

643 


1944* 

1958* 

1976* 

1990* 

2004* 

2019* 

2033* 

2048* 

2062* 

2077* 

2091* 

2108* 

2123* 

2137* 

2152* 

2166* 

2181* 

2195* 

2209* 

2224* 

2238* 

2256* 

2270* 

2285* 

2299* 

2313* 

2328* 

2342* 

2357* 

2371* 

2388* 

2403* 

2417* 

2432* 

2446* 

2461* 

2475* 

2490* 

2504* 

2518* 

231 

318 

347 

376 

405 

433 

467 

496 

525 

554 

588 

617 

645 


1944 

1946* 

1946 

1948* 

1948 

1958 

1960* 

1960 

1962* 

1962 

1976 

1978* 

1978 

1980* 

1980 

1990 

1992* 

1992 

1994* 

1994 

2004 

2007* 

2007 

2009* 

2009 

2019 

2021 

2023* 

2023 

2033 

2035* 

2035 

2037* 

2037 

2048 

2050* 

2050 

2052* 

2052 

2062 

2064* 

2064 

2066* 

2066 

2077 

2079* 

2079 

2081* 

2081 

2091 

2093* 

2093 

2095* 

2095 

2108 

2110* 

2110 

2113* 

2113 

2123 

2125* 

2125 

2127* 

2127 

2137 

2139* 

2139 

2141* 

2141 

2152 

2154* 

2154 

2156* 

2156 

2166 

2168* 

2168 

2170* 

2170 

2181 

2183* 

2183 

2185* 

2185 

2195 

2197* 

2197 

2199* 

2199 

2209 

2212* 

2212 

2214* 

2214 

2224 

2226* 

2226 

2228* 

2228 

2238 

2240* 

2240 

2242* 

2242 

2256 

2258* 

2258 

2260* 

2260 

2270 

linn 

2272 

2274* 

2274 

2285 

m7H 

2287 

2289* 

2289 

2299 

2301* 

2301 

2303* 

2303 

2313 

2315* 

2315 

2318* 

2|1§ 

2328 

2330* 

2330 

2332* 

2332 

2342 

15^AM 

2344 

2346* 

2346 

2357 

2359* 

2359 

2361* 

2361 

2371 

1371M 

2373 

2375* 

2375 

2388 

2391* 

2391 

2393* 

2393 

2403 

2405* 

2405 

2407* 

2407 

2417 

2419* 

2419 

2421* 

2421 

2432 

2434* 

2434 

2436* 

2456 

2446 

liit,%M 

2448 

2450* 

2450 

2461 

l^bitt 

2463 

2465* 

2465 

2475 

H77» 

2477 

2479* 

2479 

2490 

2492* 

2492 

2494* 

2494 

2504 

2506* 
2520* 

2506 

2508* 

2508 

2518 

2520 

2522* 

2522 

240 

249 

258 

267 

276 

320 

322 

324 

326 

328 

349 

351 

353 

355 

357 

378 

380 

382 

384 

386 

407 

409 

411 

413 

415 

435 

442 

445 

447 

449 

469 

471 

473 

475 

478 

498 

500 

502 

504 

506 

527 

529 

531 

533 

535 

556 

558 

560 

562 

564 

590 

592 

594 

596 

598 

619 

621 

625 

627 

647 

650 

652 

654 

656 

SEQ  1255 


658 

687 

720 

749 

778 

807 

836 

870 

899 

928 

956 

985 

1019 

10A8 

1077 

1106 

11A0 

1168 

1197 

1226 

1255 

1289 

1318 

1347 

1375 

KOA 

H38 

U67 

1A96 

1525 

1559 

1587 

1616 

16A5 

167A 

1708 

1737 

1766 

1795 

1823 

1857 

1886 

1915 

1944 

1978 

2007 

2035 

2064 

2093 

2127 

2156 

2185 

2214 


660 

689 

723 

751 

780 

809 

838 

872 

901 

930 

958 

98; 

1021 

1050 

1079 

1108 

1142 

1170 

1199 

1228 

1257 

1291 

1320 

1349 

1378 

1406 

1440 

1469 

1498 

1527 

1561 

1590 

1618 

!647 

1676 

1710 

1739 

1768 

1797 

1825 

1859 

1888 

1917 

1946 

1980 

2009 

2037 

2066 

2095 

2129 

2158 

2187 

2216 


662 

691 

725 

753 

782 

811 

840 

874 

903 

932 

961 

989 

1023 

1052 

1081 

1110 

1144 

1173 

1201 

1230 

1259 

1293 

1322 

1351 

1380 

1408 

1442 

1471 

1500 

1529 

1563 

1592 

1620 

1649 

1678 

1712 

1741 

1770 

1799 

1832 

1861 

1890 

1919 

1948 

1982 

2011 

2040 

2068 

2097 

2131 

2160 

2189 

2218 


664 

693 

727 

756 

784 

813 

842 

876 

905 

934 

963 

991 

1025 

1054 

1083 

1112 

1146 

1175 

1203 

1232 

1261 

1295 

1324 

1353 

1382 

1415 

1444 

1473 

1502 

1531 

1565 

1594 

1623 

1651 

1680 

1714 

1743 

1772 

1801 

1835 

1863 

1892 

1921 

1950 

1984 

2013 

2042 

2070 

2099 

2133 

2162 

2191 

2220 


666 

695 

729 

758 

786 

815 

844 

878 

907 

936 

965 

998 

1027 

1056 

1085 

1114 

1148 

1177 

1206 

1234 

1263 

1297 

1326 

1355 

1384 

1418 

1446 

1475 

1504 

1533 

1567 

1596 

1625 

1653 

1682 

1716 

1745 

1774 

1803 

1837 

1865 

1894 

1923 

1952 

1986 

2015 

2044 

2073 

2101 

2135 

2164 

2193 

2222 


668 

670 

697 

699 

731 

733 

760 

762 

789 

791 

817 

819 

846 

848 

880 

882 

909 

911 

938 

940 

967 

969 

1001 

1003 

1029 

1031 

1058 

1060 

1087 

1089 

1116 

1118 

1150 

1152 

1179 

1181 

1208 

1210 

1236 

1239 

1265 

1267 

1299 

1301 

1328 

1330 

1357 

1359 

1386 

1388 

1420 

1422 

1448 

1451 

1477 

1479 

1506 

1508 

1535 

1537 

1569 

1571 

1598 

1600 

1627 

1629 

1656 

1658 

1684 

1686 

1718 

1720 

1747 

1749 

1776 

1778 

1105 

1807 

1139 

1841 

li6ii 

1870 

U96 

1898 

1925 

1927 

1954 

1956 

1988 

1990 

2017 

2019 

2046 

2048 

2075 

2077 

2103 

2110 

2137 

2139 

2166 

2168 

2195 

2197 

2224 

2226 

672 
701 
735 
764 
793 
822 
850 
884 
913 
942 
971 
1005 
1034 
1062 
1091 
1120 
1154 
1183 
1212 
1241 
1269 
1303 
1332 
1361 
1390 
1424 
1453 
1481 
1510 
1539 
1573 
1602 
1631 
1660 
1693 
1-^2 
1  1 
1,^0 
1809 
1843 
1872 
1901 
1929 
1958 
1992 
2021 
2050 
2079 
2113 
2141 
2170 
2199 
2228 


674 
703 
737 
766 
795 
824 
852 
886 
915 
944 
973 
1007 
1036 
1064 
1093 
1122 
1156 
1185 
1214 
1243 
1276 
1305 
1334 
1363 
1392 
1426 
1455 
1484 
1512 
1541 
1575 
1604 
1633 
1662 
1696 
1724 
1753 
1782 
1811 
1845 
1874 
1903 
1931 
1960 
1994 
2023 
2052 
2081 
2115 
2143 
2172 
2201 
2230 


676 

678 

705 

707 

739 

741 

768 

770 

797 

799 

826 

828 

862 

888 

890 

917 

919 

946 

948 

975 

977 

1009 

1011 

1038 

1040 

1067 

1069 

1095 

1097 

1124 

1126 

1158 

1160 

1187 

1189 

1216 

1218 

1245 

1247 

1279 

1281 

1307 

1309 

1336 

1338 

1365 

1367 

1394 

1596 

1428 

1430 

1457 

1459 

1486 

1488 

1514 

1517 

1543 

1545 

1577 

1579 

1606 

1608 

1635 

1637 

1664 

1666 

1698 

1700 

1726 

1729 

1755 

1757 

1784 

1786 

1813 

1815 

1847 

1849 

1876 

1878 

1905 

1907 

1934 

1936 

1962 

1964 

1996 

1998 

2025 

2027 

2054 

2056 

2083 

2085 

2117 

2119 

2146 

2148 

'174 

2176 

r?03 

^^32 

2234 

680 
709 
743 
772 
801 
830 
864 
892 
921 
950 
979 
1013 
1042 
1071 
1100 
1128 
1162 
1191 
1220 
1249 
1283 
1312 
1340 
1369 
1398 
1432 
1461 
1490 
1519 
1547 
1581 
1610 
1639 
1668 
1702 
1731 
'759 
1788 
1817 
1851 
1880 
1909 
1938 
1971 
2000 
2029 
2058 
2087 
2121 
2150 
2179 
2207 
2236 


683 

711 

745 
774 

^03 
832 
866 
895 
923 
952 
981 
1015 
1044 
1073 
1102 
1130 
1164 
1193 
1222 
1251 
1285 
1314 
1342 
1371 
1400 
1434 
1463 
1492 
1521 
1554 
1583 
1612 
1641 
1670 
1704 
1733 
1762 
1790 
1819 
1853 
1882 
1911 
1940 
1974 
2002 
2031 
2060 
2089 
2123 
2152 
2181 
2209 
2238 


685 
713 
747 
776 
805 
834 
868 
897 
925 
954 
983 
1017 
1046 
1075 
1104 
1137 
1166 
1195 
1224 
1253 
1287 
1316 
1345 
1373 
1402 
1436 
1465 
1494 
1523 
1557 
1585 
1614 
1643 
1672 
1706 
1735 
1764 
1792 
1821 
1855 
1884 
1913 
1942 
1976 
2004 
2033 
2062 
2091 
2125 
2154 
2183 
2212 
2240 
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.LADDR 
.LAND 


.LB 


2242 
2276 
2305 
2334 
2363 
2397 
2426 
2454 
2483 
2512 
103 
303 
695 
1083 
1463 
1851 
2249 
111 
139 
347 
405 
465 
523 
584 
641 
699 
760 
817 
878 
936 
998 
1054 
1112 
1173 
1230 
1291 
1349 
1406 
1467 
1525 
1585 
1643 
1704 
1762 
1819 
1880 
1938 
1998 
c056 
2117 
2174 
2232 
2293 


2249 

2252 

2254 

??78 

2280 

2282 

2307 

2309 

2311 

2336 

2338 

2340 

2365 

2367 

2369 

2399 

2401 

2403 

2428 

2430 

2432 

2457 

2459 

2461 

2485 

2487 

2490 

2514 

2516 

2518 

150 

294 

296 

322 

351 

388 

720 

739 

768 

1112 

1137 

1156 

1500 

1529 

1554 

1880 

1917 

1946 

2268 

2297 

2334 

113 

115 

117 

141 

143 

303 

351 

355 

359 

409 

413 

417 

469 

473 

478 

527 

531 

535 

588 

592 

596 

645 

650 

654 

703 

707 

711 

764 

768 

m 

822 

826 

830 

882 

886 

890 

940 

944 

948 

1001 

1005 

1009 

1058 

1062 

1067 

1116 

1120 

1124 

!177 

1181 

1185 

1234 

1239 

1243 

1295 

1299 

1303 

1353 

1357 

1361 

1415 

1418 

1422 

1471 

1475 

1479 

1529 

1533 

1537 

1590 

1594 

1598 

1647 

1651 

1656 

1708 

1712 

1716 

1766 

1770 

1774 

1823 

1832 

1835 

1884 

1888 

1892 

1942 

1946 

1950 

2002 

2007 

2011 

2060 

2064 

2068 

2121 

2125 

2129 

2179 

2183 

2187 

2236 

2240 

2249 

2297 

2301 

2305 

2256 

2285 

2313 

2342 

2371 

2405 

2434 

2463 

2492 

2520 

301 

417 

805 

1185 

1573 

1971 

2363 

119 

306 

363 

421 

482 

539 

600 

658 

720 

776 

834 

895 

952 

1013 

1071 

1128 

1189 

1247 

1307 

1365 

1426 

1484 

1541 

1602 

1660 

1720 

1778 

1839 

1896 

1954 

2015 

2073 

2133 

2191 

2252 

2309 


2258 

2260 

2262 

2264 

2266 

2268 

2270 

2272 

2274 

2287 

2289 

2291 

2293 

2295 

2297 

2299 

^191 

2303 

2315 

2318 

2320 

2324 

2326 

2|28 

2330 

2332 

2344 

2346 

2348 

2351 

2353 

2355 

2357 

2359 

l\^\ 

2373 

2375 

2377 

2379 

2381 

2388 

2391 

2393 

2395 

2407 

2409 

2411 

2413 

2415 

2417 

2419 

2421 

2424 

2436 

2438 

2440 

2442 

2444 

2446 

2448 

2450 

2452 

2465 

2467 

2469 

2471 

2473 

2475 

2477 

2479 

2481 

2494 

2496 

2498 

2500 

2502 

2504 

2506 

2508 

2510 

442 

461 

490 

527 

556 

581 

600 

^?? 

666 

834 

859 

878 

907 

944 

973 

998 

1017 

1046 

1222 

1251 

1276 

1295 

1324 

1361 

1390 

1415 

1434 

1602 

1639 

1668 

1693 

1712 

1741 

1778 

1807 

1832 

1990 

2019 

2056 

2085 

2110 

2129 

2158 

2195 

2224 

2388 

2407 

2436 

2473 

2502 

121 

123 

125 

127 

129 

131 

133 

135 

137 

310 

314 

318 

322 

326 

330 

334 

339 

343 

372 

376 

380 

384 

388 

392 

396 

400 

425 

429 

433 

442 

445 

449 

453 

457 

461 

486 

490 

494 

498 

502 

506 

511 

515 

519 

544 

548 

552 

556 

560 

564 

568 

572 

5§l 

604 

608 

612 

617 

621 

625 

629 

6|3 

637 

666 

670 

674 

678 

683 

687 

691 

695 

723 

727 

731 

735 

739 

743 

747 

751 

756 

780 

784 

789 

793 

797 

801 

805 

809 

813 

838 

842 

846 

850 

859 

862 

866 

870 

874 

899 

903 

907 

911 

915 

919 

923 

928 

932 

956 

961 

965 

969 

973 

977 

981 

985 

989 

1017 

1021 

1025 

1029 

1034 

1038 

1042 

1046 

1050 

1075 

1079 

1083 

1087 

1091 

1095 

1100 

1104 

1108 

1137 

1140 

1144 

1148 

1152 

1156 

1160 

1164 

1168 

1193 

1197 

1201 

1206 

1210 

1214 

1218 

1222 

1226 

1251 

1255 

1259 

1263 

1267 

1276 

1279 

1283 

1287 

1312 

1320 

1324 

1328 

1332 

1336 

1340 

1345 

1369 

1373 

1378 

1382 

1386 

1390 

1394 

1398 

1402 

1430 

1434 

1438 

1442 

1446 

1451 

1455 

1459 

1463 

1488 

1492 

1496 

1500 

1504 

1508 

1512 

1517 

1521 

1545 

1554 

1557 

1561 

1565 

1569 

1573 

1577 

1581 

1606 

1610 

1614 

1618 

1623 

1627 

1631 

1635 

1639 

1664 

1668 

1672 

1676 

1680 

1684 

1693 

1696 

1700 

1724 

1729 

1733 

1737 

1741 

1745 

1749 

1753 

1757 

1782 

1786 

1790 

1795 

1799 

1803 

1807 

1811 

1815 

1843 

1847 

1851 

1855 

1859 

1863 

1868 

1872 

1876 

1901 

1905 

1909 

1913 

1917 

1921 

1925 

1929 

1934 

1958 

1962 

1971 

1974 

1978 

1982 

1986 

1990 

1994 

2019 

2027 

2031 

2035 

2040 

2044 

2048 

2052 

2077 

2081 

2085 

2089 

2093 

2097 

2101 

2110 

2113 

2137 

2141 

2146 

2150 

2154 

2158 

2162 

2166 

2170 

2195 

2199 

2203 

2207 

2212 

2216 

2220 

2224 

2228 

2260 

2268 

2276 

2280 

2285 

2289 

231: 

2318 

2322 

2326 

2330 

2334 

2338 

2342 

2346 
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2351 

2355 

2A11 

2415 

2469 

2473 

.LBAD     152 

161 

278 

287 

.LCCFZ     150 

159 

276 

285 

.LCENA    150 

159 

276 

285 

.LCJS     301 

308 

361 

365 

419 

423 

480 

484 

537 

541 

598 

602 

656 

660 

713 

718 

774 

778 

832 

836 

892 

897 

950 

954 

1011 

1015 

1069 

1073 

1126 

1130 

1187 

1191 

1245 

1249 

1305 

1309 

1363 

1367 

1424 

1428 

1481 

1486 

1539 

1543 

1600 

1604 

1658 

1662 

1718 

!722 

1776 

1780 

1837 

1841 

1894 

1898 

1952 

1956 

2013 

201? 

2070 

2075 

2131 

2135 

2189 

2193 

2247 

2254 

2307 

2311 

2365 

2369 

2426 

2430 

2483 

2487 

.LCJV     150 

159 

276 

285 

.LCONT     111 

113 

139 

141 

347 

351 

405 

409 

2359 

2419 

2477 

170 

294 

168 

168 

312 

369 

427 

488 

546 

606 

664 

725 

782 

840 

901 

958 

1019 

1077 

1135 

1195 

1253 

1314 

1371 

1432 

1490 

1547 

1608 

1666 

1726 

1784 

1845 

1903 

1960 

2021 

2079 

2139 

2197 

2258 

2315 

2373 

2434 

2492 

168 

115 
143 
355 
413 


2363 

2424 

2481 

179 

296 

177 

177 


2367 

2428 

2485 

188 

186 

186 


2371 

2432 

2490 

197 

195 

195 


2375 

2436 

2494 

206 

204 

204 


2379 

2440 

2498 

215 

213 

213 


316 

320 

324 

328 

332 

374 

378 

382 

386 

390 

431 

435 

440 

447 

451 

492 

496 

500 

504 

508 

550 

554 

558 

562 

566 

610 

614 

619 

623 

62/ 

668 

672 

676 

680 

685 

729 

733 

737 

741 

745 

786 

791 

795 

799 

803 

844 

848 

852 

857 

864 

905 

909 

913 

917 

9^.1 

963 

967 

971 

975 

979 

1023 

1027 

1031 

1036 

1040 

1081 

1085 

1089 

1093 

1097 

1142 

1146 

1150 

1154 

1158 

1199 

1203 

1208 

1212 

1216 

1257 

1261 

1265 

1269 

1274 

1318 

1322 

1326 

1330 

1334 

1375 

1380 

1384 

1388 

1392 

1436 

1440 

1444 

1448 

1453 

1494 

1498 

1502 

1506 

1510 

1552 

1559 

1563 

1567 

1571 

1612 

1616 

1620 

1625 

1629 

1670 

1674 

1678 

1682 

1686 

1731 

1735 

1739 

1743 

1747 

1788 

1792 

1797 

1801 

1805 

1849 

1853 

1857 

1861 

1865 

1907 

1911 

1915 

1919 

1923 

1964 

1969 

1976 

1980 

1984 

2025 

2029 

203:: 

2037 

2042 

2083 

2087 

209 

2095 

2099 

2143 

2148 

2152 

2156 

2160 

2201 

2205 

2209 

2214 

2218 

2262 

2266 

2270 

2274 

2320 

2324 

2328 

2332 

2336 

2377 

2381 

2386 

239/ 

2438 

2442 

2446 

2450 

2454 

2496 

2500 

2504 

2508 

2512 

177 

186 

195 

204 

213 

117 

119 

121 

123 

125 

:06 

310 

:14 

318 

'!59 

:63 

367 

172 

417 

421 

425 

429 

433 

2388 

2444 

2502 

224 

222 

222 

336 

394 

455 

513 

570 

631 

689 

749 

807 

868 

925 

983 

1044 

1102 

1162 

1220 

1281 

1338 

1396 

1457 

1514 

1575 

1633 

1691 

1751 

1809 

1870 

1927 

1988 

2046 

2103 

2164 

2222 

2282 

2340 

2401 

2459 

2516 

222 

127 
322 
380 
442 


2391 

2448 

2506 

233 

231 

231 

341 

398 

459 

517 

574 

635 

693 

753 

811 

872 

930 

987 

1048 

1106 

1166 

1224 

1285 

1342 

1400 

1461 

1519 

1579 

1637 

1698 

1755 

1813 

1874 

1931 

1992 

2050 

2108 

2168 

2226 

2287 

2344 

2405 

2463 

2520 

231 

129 
326 
384 
445 


2395 

2452 

2510 

242 

240 

240 

345 

402 

463 

521 

579 

639 

697 

758 

815 

876 

934 

991 

1052 

1110 

1170 

1228 

1289 

1347 

1404 

1465 

1523 

1583 

1641 

1702 

1759 

1817 

1878 

1936 

1996 

2054 

2115 

2172 

2230 

2291 

2348 

2409 

2467 

240 

131 
330 
388 
449 


2399 

2457 

2514 

251 

249 

249 

349 

407 

467 

525 

586 

643 

701 

762 

819 

880 

938 

996 

1056 

1114 

1175 

1232 

1293 

1351 

1408 

1469 

1527 

1587 

1645 

1706 

1764 

1821 

1882 

1940 

2000 

2058 

2119 

2176 

2234 

2295 

2353 

2413 

2471 

249 

133 
334 
392 
453 


2403 

2461 

2518 

260 

258 

258 

353 

411 

471 

529 

590 

647 

705 

766 

824 

884 

942 

1003 

1060 

1118 

1179 

1236 

1297 

1355 

1413 

1473 

1531 

1592 

1649 

1710 

1768 

1825 

1886 

1944 

2004 

2062 

2123 

2181 

2238 

2299 

2357 

2417 

2475 

258 

135 
339 
396 
457 


2407 
2465 

269 

267 

267 

357 

415 

475 

533 

594 

652 

709 

770 

828 

888 

946 

1007 

1064 

1122 

1183 

1241 

1301 

1359 

1420 

1477 

1535 

1596 

1653 

1714 

1772 

1830 

1890 

1948 

2009 

2066 

2127 

2185 

2242 

2303 

2361 

2421 

2479 

267 

137 
343 
400 
461 
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465 

469 

473 

523 

527 

531 

58A 

588 

592 

6A1 

645 

650 

699 

703 

707 

760 

764 

768 

817 

822 

826 

878 

882 

886 

936 

940 

944 

998 

1001 

1005 

1054 

1058 

1062 

1112 

1116 

1120 

1173 

1177 

1181 

1230 

1234 

1239 

1291 

1295 

1299 

13A9 

1353 

1357 

1A06 

1415 

1418 

1467 

1471 

1475 

1525 

1529 

1533 

1585 

1590 

1594 

1643 

1647 

1651 

1704 

1708 

1712 

1762 

1766 

1770 

1819 

1823 

1832 

1880 

1884 

1888 

193S 

1942 

1946 

1998 

2002 

2007 

2056 

2060 

2064 

2117 

2121 

2125 

2174 

2179 

2183 

2232 

2236 

2240 

2293 

2297 

2301 

2351 

?355 

2359 

2411 

i415 

2419 

2469 

2473 

2477 

LCRTN    145 

154 

163 

271 

280 

289 

LD       111 

113 

115 

139 

141 

143 

240 

249 

258 

:20 

322 

]  24 

:49 

351 

'53 

:78 

380 

:B2 

407 

409 

411 

435 

442 

445 

469 

471 

473 

498 

500 

502 

527 

529 

531 

556 

558 

560 

590 

592 

594 

619 

621 

623 

647 

650 

652 

676 

678 

680 

478 

535 

596 

654 

711 

772 

830 

890 

948 

1009 

1067 

1124 

1185 

1243 

1303 

1361 

1422 

1479 

1537 

1598 

1656 

1716 

1774 

1835 

1892 

1950 

2011 

2068 

2129 

2187 

2249 

2305 

2363 

2424 

2481 

172 

117 
145 
267 
326 
35:, 
384 
413 
447 
475 
504 
533 
562 
596 
625 
654 
683 


482 

486 

539 

544 

600 

604 

658 

662 

7?0 

723 

776 

780 

834 

838 

895 

899 

952 

956 

1013 

1017 

1071 

1075 

1128 

1137 

1189 

1193 

1247 

1251 

1307 

1312 

1365 

1369 

1426 

1430 

1484 

1488 

1541 

1545 

1602 

1606 

1660 

1664 

1720 

1724 

1778 

1782 

1839 

1843 

1896 

1901 

1954 

1958 

2015 

2019 

2073 

2077 

2133 

2137 

2191 

2195 

2252 

2256 

2309 

2313 

2367 

2371 

2428 

2432 

2485 

2490 

181 

190 

119 

121 

150 

159 

276 

285 

328 

J30 

357 

359 

386 

388 

415 

417 

449 

451 

478 

480 

506 

508 

535 

537 

564 

566 

598 

600 

627 

629 

656 

658 

685 

687 

490 

548 

608 

666 

727 

784 

842 

903 

961 

1021 

1079 

1140 

1197 

1255 

1316 

1373 

1434 

1492 

1554 

1610 

1668 

1729 

1786 

1847 

1905 

1962 

2023 

2081 

2141 

2199 

2260 

2318 

2375 

2436 

2494 

199 

123 
168 
303 
332 
361 
390 
419 
453 
482 
511 
539 
568 
602 
631 
660 
689 


494 

552 

612 

670 

731 

789 

846 

907 

965 

1025 

^083 

I  i44 

1201 

1259 

1320 

1378 

1438 

1496 

1557 

1614 

1672 

1733 

1790 

1851 

1909 

1971 

2027 

2085 

2146 

2203 

2264 

2322 

2379 

2440 

2498 

208 

125 
177 
306 
334 
363 
392 
421 
455 
484 
513 
541 
570 
604 
633 
662 
691 


498 

556 

617 

674 

735 

793 

850 

911 

969 

1029 

1087 

1148 

1206 

1263 

1324 

1382 

1442 

1500 

1561 

1618 

1676 

1737 

1795 

1855 

1913 

1974 

2031 

2089 

2150 

2207 

2268 

2326 

2388 

2444 

2502 

217 

127 
186 
308 
336 
365 
394 
423 
457 
486 
515 
544 
572 
606 
635 
664 
693 


502 

560 

621 

678 

739 

797 

859 

915 

973 

1034 

1091 

1152 

1210 

1267 

1328 

1386 

1446 

1504 

1565 

1623 

1680 

1741 

1799 

1859 

1917 

1978 

2035 

2093 

2154 

2212 

2272 

2330 

2391 

2448 

2506 

226 

129 
195 
310 
339 
367 
396 
425 
459 
488 
517 
546 
574 
608 
637 
666 
695 


506 

511 

564 

568 

625 

629 

683 

687 

743 

747 

801 

805 

862 

866 

919 

923 

977 

981 

1038 

1042 

1095 

1100 

1156 

1160 

1214 

1218 

1276 

1279 

1332 

1336 

1390 

1394 

1451 

1455 

1508 

1512 

1569 

1573 

1627 

1631 

1684 

1693 

1745 

1749 

1803 

1807 

1863 

1868 

1921 

1925 

1982 

1986 

2040 

2044 

2097 

2101 

2158 

2162 

2216 

2220 

2276 

2280 

2334 

2338 

2395 

2399 

2452 

2457 

2510 

2514 

235 

244 

131 

133 

204 

213 

312 

314 

341 

343 

369 

372 

398 

400 

427 

429 

461 

463 

490 

492 

519 

521 

548 

550 

581 

584 

610 

612 

639 

641 

668 

670 

697 

699 

515 

572 

633 

691 

751 

809 

870 

928 

985 

1046 

1104 

1164 

1222 

1283 

1340 

1398 

1459 

1517 

1577 

1635 

1696 

1753 

1811 

1872 

1929 

1990 

2048 

2110 

2166 

2224 

2285 

2342 

2403 

2461 

2518 

253 

135 
222 
316 
345 
374 
402 
431 
465 
494 
523 
552 
586 
614 
643 
672 
701 


519 

581 

637 

695 

756 

813 

874 

932 

989 

1050 

1108 

1168 

1226 

1287 

1345 

1402 

1463 

1521 

1581 

1639 

1700 

1757 

1815 

1876 

1934 

1994 

2052 

2113 

2170 

2228 

2289 

2346 

2407 

2465 

262 

137 
231 
318 
347 
376 
405 
433 
467 
496 
525 
554 
588 
617 
645 
674 
703 


SEQ  1259 


705 
739 
768 
797 
826 
859 
888 
917 
946 
975 
1009 
1038 
1067 
1095 
1124 
1158 
1187 
1216 
12A5 
1279 
1307 
1336 
1365 
1394 
1428 
1457 
1486 
1514 
1543 
1577 
1606 
1635 
1664 
1698 
1726 
1755 
1784 
1813 
1847 
1876 
1905 
1934 
1962 
1996 
2025 
2054 
2083 
2117 
2146 
2174 
2203 
2232 
2266 


707 

709 

741 

743 

770 

772 

799 

801 

828 

830 

862 

864 

890 

892 

919 

921 

948 

950 

977 

979 

1011 

1013 

1040 

1042 

1069 

1071 

1097 

1126 

1 128 

1160 

1162 

1189 

1191 

1218 

1220 

1247 

1249 

1281 

1283 

1309 

1312 

1338 

1340 

1367 

1369 

1396 

1398 

1430 

1432 

1459 

1461 

1488 

1490 

1517 

1519 

1545 

1547 

1579 

1581 

1608 

1610 

1637 

1639 

1666 

1668 

'700 

1702 

1729 

1731 

1757 

1759 

1786 

1788 

1815 

1817 

1849 

1851 

1878 

1880 

1907 

1909 

1936 

1938 

1964 

1971 

1998 

2000 

2027 

2029 

2056 

2058 

2085 

2087 

2119 

2121 

2148 

2150 

2176 

2179 

2205 

2207 

2234 

2268 

2270 

711 
745 
774 
803 
832 
866 
895 
923 
952 
981 
1015 
1044 
1073 
1102 
1130 
1164 
1193 
1222 
1251 
1285 
1314 
1342 
1371 
1400 
1434 
1463 
1492 
1521 
1554 
1583 
1612 
1641 
1670 
1704 
1733 
1762 
1790 
1819 
1853 
1882 
1911 
1940 
1974 
2002 
2031 
2060 
2089 
2123 
2152 
2181 
2209 
2238 
2272 


713 
747 
776 
805 
834 
868 
897 
925 
954 
983 
1017 
1046 
1075 
1104 
1137 
1166 
1195 
1224 
1253 
1287 
1316 
1345 
1373 
1402 
1436 
1465 
1494 
1523 
1557 
1585 
1614 
1643 
1672 
1706 
1735 
1764 
1792 
1821 
1855 
1884 
1913 
1942 
1976 
2004 
2033 
2062 
2091 
2125 
2154 
2183 
2212 
2240 
2274 


720 
749 
778 
807 
836 
870 
899 
928 
956 
985 
1019 
1048 
1077 
1106 
1140 
1168 
1197 
1226 
1255 
1289 
1318 
1347 
1375 
1404 
1438 
1467 
1496 
1525 
1559 
1587 
1616 
1645 
1674 
1708 
1737 
1766 
^795 
1823 
1857 
1886 
1915 
1944 
1978 
2007 
2035 
2064 
2093 
2127 
2156 
2185 
2214 
2242 
2276 


723 
751 
780 
809 
838 
872 
901 
930 
958 
987 
1021 
1050 
1079 
1108 
1142 
1170 
1199 
1228 
1257 
1291 
1320 
1349 
1378 
1406 
1440 
1469 
1498 
1527 
1561 
1590 
1618 
1647 
1676 
1710 
1739 
1768 
1797 
1825 
1859 
1888 
1917 
1946 
1980 
2009 
2037 
2066 
2095 
2129 
2158 
2187 
2216 
2249 
2278 


725 

m 

729 

753 

756 

758 

782 

784 

786 

ni 

813 

15 

140 

842 

44 

174 

876 

78 

903 

905 

907 

932 

934 

936 

961 

963 

965 

989 

991 

998 

1023 

1025 

1027 

1052 

1054 

1(56 

1081 

1083 

1(85 

1110 

1112 

ri4 

1144 

1146 

148 

1173 

1175 

1-77 

1201 

1203 

1206 

1230 

1232 

1234 

1259 

1261 

1263 

1293 

1295 

1297 

1322 

1324 

1326 

1351 

1353 

1355 

1380 

1382 

1384 

1408 

1415 

1418 

1442 

1444 

VM 

1471 

1473 

1475 

1500 

1502 

1504 

1529 

1531 

1533 

1563 

1565 

1567 

1592 

1594 

1596 

1620 

1623 

1625 

1649 

1651 

1653 

1678 

1680 

1682 

1712 

1714 

1716 

1741 

1743 

1745 

1770 

1772 

1774 

1799 

1801 

1J03 

1832 

1835 

1  J37 

1861 

1863 

1J65 

1890 

1892 

1  J94 

1919 

1921 

1923 

1948 

1950 

1952 

1982 

1984 

1986 

2011 

2013 

2015 

2040 

2042 

2044 

2068 

2070 

2073 

2097 

2099 

2101 

2131 

2133 

2135 

2160 

2162 

2164 

2189 

2191 

2193 

2218 

2222 

2252 

2254 

2256 

2280 

2282 

2285 

731 

733 

735 

737 

760 

762 

764 

766 

789 

791 

793 

795 

817 

819 

822 

824 

846 

848 

850 

852 

880 

882 

884 

886 

909 

911 

913 

915 

938 

940 

942 

944 

967 

969 

971 

973 

1001 

1003 

1005 

100/ 

1029 

1031 

1034 

1036 

1058 

1060 

1062 

1064 

1087 

1089 

1091 

1093 

1116 

1118 

1120 

1122 

1150 

1152 

1154 

1156 

1179 

1181 

1183 

1185 

1208 

1210 

1212 

1214 

1236 

1239 

1241 

1243 

1265 

1267 

1269 

1276 

1299 

1301 

1303 

1305 

1328 

1330 

1332 

1334 

1357 

1359 

1361 

1363 

1386 

1388 

1390 

1392 

1420 

1422 

1424 

1426 

1448 

1451 

1453 

1455 

1477 

1479 

1481 

1484 

1506 

1508 

1510 

1512 

1535 

1537 

1539 

1541 

1569 

1571 

1573 

1575 

1598 

1600 

1602 

1604 

1627 

1629 

1631 

1633 

1656 

1658 

1660 

1662 

1684 

1686 

1693 

1696 

1718 

1720 

1722 

1724 

1747 

1749 

1751 

1753 

1776 

1778 

1780 

1782 

1805 

1807 

1809 

1811 

1839 

1841 

1843 

1845 

1868 

1870 

1872 

1874 

1896 

1898 

1901 

1903 

1925 

1927 

1929 

1931 

1954 

1956 

1958 

1960 

1988 

1990 

1992 

1994 

2017 

2019 

2021 

2023 

2046 

2048 

2050 

2052 

2075 

2077 

2079 

2081 

2103 

2110 

2113 

2i15 

2137 

2139 

2141 

2143 

2166 

2168 

2170 

2U2 

2195 

2197 

2199 

2201 

2226 

2228 

2230 

2258 

2260 

2262 

2264 

2287 

2289 

2291 

2293 

SEQ  1260 


2295 

2297 

2299 

2324 

2326 

2328 

2353 

2355 

2357 

2381 

2388 

2391 

2A15 

2417 

2419 

2444 

2446 

2448 

2473 

2475 

2477 

2502 

2504 

2506 

LJ       103 

150 

152 

206 

213 

215 

269 

276 

278 

332 

336 

341 

390 

394 

398 

451 

455 

459 

508 

513 

517 

566 

570 

574 

627 

631 

635 

685 

689 

693 

745 

749 

753 

803 

807 

811 

864 

868 

872 

921 

925 

930 

979 

983 

987 

1040 

1044 

1048 

1097 

1102 

1106 

1158 

1162 

1166 

1216 

1220 

1224 

1274 

1281 

1285 

1334 

1338 

1342 

1392 

1396 

1400 

1453 

1457 

1461 

1510 

1514 

1519 

1571 

1575 

1579 

1629 

!633 

1637 

1-86 

1691 

1698 

1747 

1751 

1755 

1805 

1809 

1813 

1865 

1870 

1874 

1923 

1927 

1931 

1984 

19"^ 

1992 

2042 

2046 

2050 

2099 

210i 

2108 

2160 

2164 

2168 

2218 

2221 

2226 

2278 

22B2 

2287 

2336 

2340 

2344 

2397 

2401 

2405 

2454 

2459 

2463 

2512 

2516 

2520 

.LJMAP     103 

152 

161 

269 

278 

287 

.LJZ      105 

.LMGC     111 

113 

115 

2301 

23T0 

2359 

2393 

2421 

2450 

2479 

2508 

159 

222 

285 

345 

402 

463 

521 

579 

639 

697 

758 

815 

876 

934 

991 

1052 

1110 

1170 

1228 

1289 

1347 

1404 

1465 

1523 

1583 

1641 

1702 

175" 

1S-V- 

-S.8 
.936 
1996 
2054 
2115 
2172 
2230 
2291 
2348 
2409 
2467 
2522 
170 
294 

117 


2303 

2332 

2361 

2395 

2424 

2452 

2481 

2510 

161 

224 

287 

349 

407 

467 

525 

586 

643 

701 

762 

819 

880 

938 

996 

1056 

11U 

1175 

1232 

1293 

1351 

1408 

1469 

1527 

1587 

1645 

1706 

1764 

1821 

1882 

1940 

2000 

2058 

2119 

2176 

2234 

2295 

2353 

2413 

2471 

179 
296 

119 


2305 

2334 

2363 

2397 

2426 

2454 

2483 

2512 

168 

231 

294 

353 

411 

471 

529 

590 

647 

705 

766 

824 

884 

942 

1003 

1060 

1118 

1179 

1236 

1297 

1355 

1413 

1473 

1531 

1592 

1649 

1710 

1768 

1825 

1886 

1944 

2004 

2062 

2123 

2181 

2238 

22  ■ 

235/ 

2417 

2'»75 

188 
2^322 

121 


2307 

2309 

2336 

2338 

2365 

2367 

2399 

2401 

2428 

2430 

2457 

2459 

2485 

2487 

2514 

2516 

170 

177 

240 

296 

301 

357 

361 

415 

419 

475 

480 

533 

537 

594 

598 

652 

656 

709 

713 

770 

774 

828 

832 

888 

892 

946 

950 

1007 

1011 

1064 

1069 

1122 

1126 

1183 

1187 

1241 

1245 

1301 

1305 

1359 

1363 

1420 

1424 

1477 

1481 

1535 

1539 

1596 

1600 

1653 

1658 

1714 

1718 

1772 

1776 

1830 

1837 

(890 

1894 

1948 

1952 

2009 

2013 

2066 

2070 

2127 

2131 

2185 

2189 

2242 

2247 

2305 

2307 

236' 

<..'   • 

242^ 

247'> 

■  -J 

107 


n~ 


206 


125 


2311 

2340 

2369 

2403 

2432 

2461 

2490 

2518 

179 

242 

308 

365 

423 

484 

541 

602 

660 

718 

778 

836 

897 

954 

1015 

1073 

1130 

1191 

1249 

1309 

1367 

1428 

1486 

1543 

1604 

1662 

1722 

1780 

1841 

1898 

1956 

2017 

2075 

2135 

2193 

2254 

2311 

2369 

2430 

2487 

215 


127 


2313 

2342 

2371 

2405 

2434 

2463 

2492 

2520 

186 

249 

312 

369 

427 

488 

546 

606 

664 

725 

782 

840 

901 

958 

1019 

1077 

1135 

1195 

1253 

1314 

1371 

1432 

1490 

1547 

1608 

1666 

1726 

1784 

1845 

1903 

1960 

2021 

2079 

2139 

2197 

2258 

2315 

2373 

2434 

2492 

224 


129 


231'? 

2318 

2320 

2322 

2344 

2346 

2348 

2351 

2373 

2375 

2377 

2379 

2407 

2409 

2411 

2413 

^436 

2438 

2440 

2442 

«f465 

2467 

2469 

2471 

2494 

24<>6 

2498 

2500 

188 

1?5 

197 

204 

251 

258 

260 

26/ 

316 

320 

324 

328 

374 

.■;78 

382 

386 

431 

'>55 

440 

447 

492 

♦96 

500 

504 

550 

554 

558 

562 

610 

614 

619 

623 

668 

672 

676 

680 

729 

733 

737 

741 

786 

791 

795 

799 

844 

848 

852 

85/ 

905 

909 

913 

917 

963 

967 

971 

975 

1023 

1027 

1C31 

1036 

1081 

1085 

1089 

1093 

1142 

1146 

1150 

1154 

1199 

1203 

1208 

1212 

1257 

1261 

1265 

1269 

1318 

1322 

1326 

1330 

1375 

1380 

1384 

1388 

1436 

1440 

1444 

1448 

1494 

V98 

1502 

1506 

1552 

;>59 

1563 

1567 

1612 

1616 

1620 

1625 

1670 

1674 

1678 

1682 

1731 

1735 

1739 

1743 

1788 

1792 

1797 

1801 

1849 

1853 

1857 

1861 

1907 

1911 

1915 

1919 

1964 

1969 

1976 

1980 

2025 

2029 

2033 

2037 

2083 

2087 

2091 

2095 

2143 

2148 

2152 

2156 

2201 

2205 

2209 

2214 

2262 

2266 

2270 

2274 

2320 

2324 

2328 

2332 

2377 

2381 

2386 

2393 

2438 

2442 

2446 

2450 

2496 

2500 

2504 

2508 

SEQ  1261 


233 


131 


242 


133 


251 


135 


260 


137 


2A9 


.J 


139 

141 

143 

306 

310 

314 

318 

322 

326 

355 

359 

363 

367 

372 

376 

380 

384 

A09 

413 

417 

421 

425 

429 

433 

445 

449 

473 

478 

482 

486 

490 

494 

498 

502 

506 

531 

535 

539 

544 

548 

552 

556 

560 

564 

596 

600 

604 

608 

612 

617 

621 

625 

629 

654 

711 

658 

662 

666 

670 

674 

678 

683 

687 

723 

727 

731 

735 

739 

743 

747 

751 

776 

780 

784 

789 

793 

797 

801 

805 

809 

834 

838 

842 

846 

850 

862 

866 

870 

874 

903 

907 

911 

915 

919 

923 

928 

932 

956 

961 

965 

969 

973 

977 

981 

985 

989 

1021 

1025 

1029 

1034 

1038 

1042 

1046 

1050 

1054 

1079 

1083 

1087 

1091 

1095 

1100 

1104 

1108 

1112 

11AA 

1148 

1152 

1156 

1160 

1164 

1168 

1173 

1177 

1201 

1206 

1210 

1214 

1218 

1222 

1226 

1230 

1234 

12^9 

1263 

1267 

1279 

1283 

1287 

1291 

1295 

1299 

132A 

1328 

1332 

1336 

1340 

1345 

1349 

1353 

1357 

1382 

1386 

1390 

1394 

1398 

1402 

1406 

1418 

1422 

U46 

1451 

1455 

1459 

1463 

1467 

1471 

1475 

1479 

1504 

1508 

1512 

1517 

1521 

1525 

1529 

1533 

1537 

1569 

1573 

1577 

1581 

1585 

1590 

1594 

1598 

1602 

1627 

1631 

1635 

1639 

1643 

1647 

1651 

1656 

1660 

1684 

1696 

1700 

1704 

1708 

1712 

1716 

1720 

1724 

1749 

1753 

1757 

1762 

1766 

1770 

1774 

1778 

1782 

1807 

1811 

1815 

1819 

1823 

1835 

1839 

1843 

1847 

1872 

1876 

1880 

1884 

1888 

1892 

1896 

1901 

1905 

1929 

1934 

1938 

1942 

1946 

1950 

1954 

1958 

1962 

1994 

1998 

2002 

2007 

2011 

2015 

2019 

2023 

2027 

2052 

2056 

2060 

2064 

2068 

2073 

2077 

2081 

2085 

2117 

2121 

2125 

2129 

2133 

2137 

2141 

2146 

2150 

2174 

2179 

2183 

2187 

2191 

2195 

2199 

2203 

2207 

2232 

2236 

2240 

2252 

2256 

2260 

2264 

2268 

2272 

2297 

i301 

2305 

2309 

2313 

2318 

2322 

2326 

2330 

2355 

2359 

2363 

2367 

2371 

2375 

2379 

2391 

2395 

2419 

2424 

2428 

2432 

2436 

2440 

2444 

2448 

2452 

2477 

2481 

2485 

2490 

2494 

2498 

2502 

2506 

2510 

.LNAND     326 

347 

392 

413 

465 

486 

531 

552 

604 

809 

830 

882 

903 

948 

969 

1021 

1042 

1087 

1299 

1320 

1365 

1386 

1438 

1459 

1504 

1525 

1577 

1782 

1803 

1855 

1876 

1921 

1942 

1994 

2015 

2060 

1212 

2293 

2338 

2359 

2411 

2432 

2477 

2498 

•LOR      111 

113 

115 

117 

119 

121 

123 

125 

127 

1?2 

141 

143 

150 

159 

168 

177 

186 

195 

249 

258 

267 

276 

285 

308 

312 

316 

318 

341 

345 

349 

353 

355 

357 

361 

365 

369 

390 

394 

398 

402 

407 

411 

415 

419 

421 

451 

455 

457 

459 

463 

467 

471 

475 

480 

500 

504 

508 

513 

517 

521 

523 

525 

529 

554 

558 

560 

562 

566 

570 

574 

586 

590 

§1Q 

614 

619 

623 

627 

631 

633 

635 

63" 

% 

k%. 

668 

672 

676 

680 

685 

689 

693 

725 

729 

733 

735 

737 

741 

745 

749 

330 

388 

453 

511 

568 

633 

691 

756 

813 

878 

936 

1001 

1058 

1116 

1181 

1239 

1303 

1361 

1426 

1484 

1541 

1606 

1664 

1729 

1786 

1851 

1909 

1974 

2031 

2089 

2154 

2212 

2276 

2334 

2399 

2457 

2514 

625 

1108 

1598 

2081 

129 
204 
320 
374 
423 
484 
533 
594 
643 
697 
753 


334 


i.2 
637 
695 
760 
817 
882 
940 
1005 
1062 
1120 
1185 
1243 
1307 
1365 
1430 
1488 
1545 
1610 
1668 
1733 
1790 
1855 
1913 
1978 
2035 
2093 
2158 
2216 
2280 
2338 
2403 
2461 
2518 
670 
1160 
1643 
2133 

131 
213 
324 
378 
427 
488 
537 
596 
647 
699 
758 


339 

396 

461 

519 

584 

641 

699 

764 

822 

886 

944 

1009 

1067 

1124 

1189 

1247 

1312 

1369 

1434 

1492 

1557 

1614 

1672 

1737 

1795 

1859 

1917 

1982 

2040 

2097 

2162 

2220 

2285 

2342 

2407 

2465 

691 
1181 
1664 
2154 

133 
222 
328 
382 
431 
492 
541 
598 
652 
701 
762 


343 

400 

465 

523 

588 

645 

703 

768 

826 

890 

948 

1013 

1071 

1128 

1193 

1251 

1316 

1373 

1438 

1496 

1561 

1618 

1676 

1741 

1799 

1863 

1921 

1986 

2044 

2101 

2166 

2224 

2289 

2346 

2411 

2469 

743 
1226 
1716 
2199 

135 
231 
332 
384 
435 
494 
546 
602 
656 
705 
766 


347 

405 

469 

527 

592 

650 

707 

772 

830 

895 

952 

1017 

1075 

1140 

1197 

1255 

1320 

1378 

1442 

1500 

1565 

1623 

1680 

1745 

1803 

1868 

1925 

1990 

2048 

2113 

2170 

22k8 

2293 

2351 

2415 

2473 

764 
1247 
1737 
2220 

137 
240 
336 
386 
447 
496 
550 
606 
660 
709 
770 
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.MSAB 
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.MSDA 


•  MSDQ 


.MSKC 


n 


250 


.LPLUS 


•LRMIN 


.LSOA 


772 
82A 
880 
934 
983 
104A 
1093 
1152 
1203 
1255 
1314 
1363 
1424 
1473 
1527 
1583 
1635 
1686 
1745 
1797 
1853 
1907 
1956 
2017 
2066 
2125 
2176 
2228 
2287 
2336 
2397 
2446 
2500 
306 
789 
1279 
1762 
2252 
314 
797 
1287 
1770 
2260 
150 
276 
353 
396 
455 
511 


614 
664 
713 


774 

778 

782 

786 

791 

828 

832 

836 

838 

840 

884 

888 

892 

897 

901 

938 

940 

942 

946 

950 

987 

991 

1003 

1007 

1011 

1048 

1050 

1052 

1056 

1060 

1097 

1102 

1106 

1110 

1114 

1154 

1158 

1162 

1166 

1170 

1208 

1212 

1216 

1218 

1220 

1257 

1261 

1265 

1269 

1281 

1318 

1322 

1326 

1328 

1330 

1367 

1371 

1375 

1380 

1384 

1428 

1430 

1432 

1436 

1440 

1477 

1481 

1486 

1490 

1494 

1531 

1533 

1535 

1539 

1543 

1587 

1592 

1596 

1600 

1604 

1637 

1641 

1645 

1649 

1653 

1698 

1702 

1706 

1703 

1710 

1747 

1751 

1755 

1759 

1764 

1801 

1805 

1809 

1811 

1813 

1857 

1861 

•i865 

1870 

1874 

1911 

1913 

1915 

1919 

1923 

1960 

1964 

1976 

1980 

1984 

2021 

2023 

2025 

2029 

2033 

2070 

2075 

2079 

2083 

2087 

2127 

2131 

2135 

2139 

2143 

2181 

2185 

2189 

2191 

2193 

2230 

2234 

2238 

2242 

2254 

2291 

2295 

2299 

2301 

2505 

2340 

2344 

2348 

2353 

2357 

2401 

2403 

2405 

2409 

2413 

245C 

2454 

2459 

2463 

2467 

?504 

2506 

2508 

2512 

2516 

367 

372 

433 

445 

506 

850 

862 

923 

928 

989 

1340 

1345 

1406 

1418 

1479 

1823 

1835 

1896 

1901 

1962 

2313 

2318 

2379 

2391 

2^?,{? 

359 

380 

425 

453 

498 

842 

870 

915 

936 

981 

1332 

1353 

1398 

1426 

1471 

1815 

1843 

1888 

1909 

1954 

2305 

2326 

2371 

2399 

2444 

159 

168 

177 

186 

195 

285 

308 

316 

:-)57 

361 

365 

369 

372 

398 

402 

407 

411 

415 

459 

463 

467 

471 

475 

513 

517 

519 

521 

525 

558 

566 

570 

574 

619 

623 

627 

631 

635 

666 

668 

672 

674 

^^ 

720 

725 

729 

733 

n 


795 

844 

905 

954 

1013 

1064 

1116 

1175 

1224 

1285 

1334 

1388 

1444 

1496 

1547 

1606 

1658 

1714 

1768 

1817 

1878 

1927 

1986 

2037 

2089 

2148 

2197 

2258 

2307 

2361 

2417 

2469 

2520 

511 

1001 

1484 

1974 

2457 

519 

1009 

1492 

1982 

2465 

204 

320 

37^ 

419 

480 

527 

581 

639 

680 

741 


799 
848 
909 
958 
1015 
1069 
1118 
1179 
1228 
1289 
1338 
1392 
1448 
1498 
1559 
1608 
1662 
1718 
1772 
1821 
1882 
1931 
1988 
2042 
2091 
2152 
2201 
2262 
2311 
2365 
2421 
2471 

572 

1062 

1545 

2035 

2518 

564 

1054 

1537 

2027 

2510 

213 

324 

378 

423 

484 

529 

586 

643 

685 

745 


801 
852 
911 
963 
1019 
1073 
1122 
1183 
1232 
1291 
1342 
1394 
1453 
1502 
1563 
1612 
1666 
1722 
1774 
1825 
1884 
1936 
1992 
2046 
2095 
2156 
2205 
2264 
2315 
2367 
2426 
2475 

584 
1067 
1557 
2040 

592 
1 075 
1565 
2048 

222 
328 
380 
427 
488 
533 
590 
647 
689 
749 


803 
864 
913 
967 
1023 
1077 
1126 
1187 
1236 
1293 
1347 
1396 
1457 
1506 
1567 
1616 
1670 
1726 
1776 
1837 
1886 
1940 
1996 
2050 
2099 
2160 
2209 
2266 
2320 
2369 
2430 
2479 

645 
1128 
1618 
2101 

637 
1120 
1610 
2093 

231 
332 
382 
431 
492 
535 
594 
650 
693 
753 


807 

811 

868 

872 

917 

921 

971 

975 

1027 

1031 

1079 

1081 

1130 

1142 

1189 

1191 

1241 

1245 

1297 

1301 

1351 

1355 

1400 

1404 

1461 

1465 

1510 

1514 

1569 

1571 

1620 

1625 

1672 

1674 

1731 

1735 

1780 

1784 

1841 

1845 

1890 

1894 

1944 

1948 

2000 

2004 

2052 

2054 

2103 

2115 

2162 

2164 

2214 

2218 

2270 

2274 

2324 

2328 

2373 

2377 

2434 

2438 

2483 

2487 

650 
1140 
1623 
2113 

658 
1148 
1631 
2121 

240 
336 
386 
435 
496 
537 
598 
652 
697 
758 


711 
1201 
1684 
2174 

703 
1193 
1676 
2166 

249 
341 
388 
442 
500 
541 
602 
656 
701 
762 


815 
874 
925 
977 
1036 
1085 
1146 
1195 
1249 
1305 
1357 
1408 
1467 
1519 
1575 
1629 
1678 
1739 
1788 
1847 
1898 
1950 
2009 
2058 
2119 
2168 
2222 
2278 
2330 
2381 
2440 
2492 

723 
1206 
1696 
2179 

731 
1214 
1704 
2187 

258 
345 
390 
447 
504 
546 
606 
658 
705 
766 


819 
876 
930 
979 
1040 
1089 
1150 
1199 
1253 
1309 
1359 
1420 
1469 
1523 
1579 
1633 
1682 
1743 
1792 
1849 
1903 
1952 
2013 
2062 
2123 
2172 
2226 
2282 
2332 
2393 
2442 
2496 

784 
1267 
1757 
2240 

776 
1259 
1749 
2232 

267 
349 
394 
451 
508 
550 
610 
660 
709 
770 
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.LSOB 


,LSOQ 


.LSAB 


.LSAQ 


I 

975 

1036 

1083 

113/ 

1195 

1236 

1297 

1351 

1396 

1457 

1502 

1559 

1616 

1658 

1718 
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1817 

1878 

1923 

1980 

2037 

2079 

2139 

2189 

2238 

2299 

23A2 

2A01 

2457 

2500 

343 

776 

1316 

1749 

2289 

339 

111 

1312 

1745 

2285 

310 

743 

1283 

1716 

2256 

306 

739 

1279 

1712 


778 

782 

819 

824 

880 

934 

936 

979 

983 

1040 

1044 

1085 

1089 

1142 

1146 

1199 

1203 

1241 

1245 

1301 

1305 

1353 

1355 

1400 

1404 

1461 

1465 

1506 

1508 

1563 

1567 

1620 

1623 

1662 

1666 

1722 

1726 

1772 

1776 

1821 

1825 

1882 

1886 

1925 

1927 

1984 

1988 

2040 

2042 

2083 

2087 

2143 

2148 

2193 

2195 

2242 

2249 

2303 

2307 

2344 

2348 

2405 

2409 

?459 

2463 

i504 

2508 

351 

359 

784 

899 

1324 

1332 

1757 

1872 

2297 

2305 

347 

355 

780 

895 

1320 

1328 

1753 

1868 

2293 

2301 

318 

326 

751 

866 

1291 

1299 

1724 

1839 

2264 

2in 

314 

III 

747 

1287 

1295 

1720 

1835 

786 

828 

888 

938 

987 

1048 

1091 

1150 

1206 

1249 

1309 

1359 

1408 

1469 

1510 

1571 

1625 

1670 

1731 

1778 

1832 

1890 

1931 

1992 

2046 

2091 

2152 

2197 

2254 

2311 

2353 

2413 

2465 

2512 

367 

907 

1340 

1880 

2313 

363 

903 

1336 

1876 

2309 

334 

874 

1307 

1847 

2280 

330 

870 

1303 

1843 


789 

832 

892 

942 

991 

1052 

1093 

1154 

1208 

1253 

1314 

1361 

1415 

1473 

1514 

1575 

1629 

1674 

1735 

1780 

1837 

1894 

1936 

1996 

2048 

2095 

2156 

2201 

2258 

2315 

2357 

2417 

2467 

2516 

482 

915 

1455 

1888 

2428 

478 

911 

1451 

1884 

2424 

449 

882 

1422 

1855 

2395 

445 

878 

1418 

1851 


791 

836 

897 

944 

998 

1056 

1097 

1158 

1212 

1257 

1318 

1363 

1420 

1477 

1519 

1579 

1631 

1678 

1739 

1784 

1841 

1898 

1940 

2000 

2050 

2099 

2160 

2203 

2262 

2318 

2361 

2421 

2471 

2520 

490 

923 

1463 

1896 

2436 

486 

919 

1459 

1892 

2432 

457 

890 

1430 

1863 

2403 

453 

886 

1426 

1859 


795 
840 
901 
946 
1003 
1060 
1102 
1162 
1214 
1261 
1322 
1367 
1424 
1481 
1523 
1583 
1633 
1682 
1743 
1786 
1845 
1901 
1944 
2004 
2054 
2103 
2164 
2205 
2266 
2320 
2365 
2426 
2473 

498 
1038 
1471 
2011 
2444 

494 
1034 
1467 
2007 
2440 

465 
1005 
1438 
1978 
2411 

461 
1001 
1434 
1974 


797 
844 
905 
950 
1007 
1064 
1106 
1166 
1216 
1265 
1326 
1369 
1428 
1484 
1527 
1587 
1637 
1686 
1747 
1788 
1849 
1903 
1948 
2009 
2056 
2110 
2168 
2209 
2270 
2324 
2369 
2430 
2475 

506 
1046 
1479 
2019 
2452 

502 
1042 
1475 
2015 
2448 

473 
1013 
1446 
1986 
2419 

469 
1009 
1442 
1982 


799 
848 
909 
952 
1011 
1067 
1110 
1170 
1220 
1269 
1330 
1371 
1432 
1486 
1531 
1592 
1639 
1693 
1751 
1792 
1853 
1907 
1952 
2013 
2058 
2115 
2172 
2214 
2274 
2326 
2373 
2434 
2479 

621 
1054 
1594 
2027 

617 
1050 
1590 
2023 

588 
1021 
1561 
1994 

584 
1017 
1557 
1990 


803 
852 
913 
954 
1015 
1069 
1114 
1175 
1222 
1276 
1334 
1375 
1436 
1490 
1535 
1596 
1641 
1698 
1755 
1797 
1857 
1909 
1956 
2017 
2062 
2119 
2176 
2218 
2278 
2328 
2377 
2438 
2481 

629 
1062 
1602 
2035 

625 
1058 
1598 
2031 

596 
1029 
1569 
2002 

592 
1025 
1565 
1998 


805 

807 

811 

J.9 

864 

868 

917 

921 

925 

958 

963 

967 

1019 

1023 

1027 

1073 

1075 

1077 

1118 

1122 

1126 

1179 

1183 

1187 

1224 

1228 

1230 

1285 

1289 

1338 

1342 

1345 

1380 

1384 

1388 

1440 

1444 

1448 

1492 

1494 

1498 

1539 

1543 

1547 

1600 

1604 

1608 

1645 

1647 

1649 

1702 

1706 

1710 

1759 

1762 

1764 

1801 

1805 

1809 

1861 

1865 

1870 

1911 

1915 

1917 

1960 

1964 

1971 

2021 

2025 

2029 

2064 

2066 

2070 

2123 

2127 

2131 

2179 

2181 

2185 

nil 

2226 

2230 

2287 

2291 

2332 

2334 

2336 

2381 

2388 

2393 

2442 

2446 

2450 

2483 

2487 

2492 

— I 


637 
1177 
1610 
2150 

633 
1173 
1606 
2146 

604 
1144 
1577 
2117 

600 
1140 
1573 
2113 


645 
1185 
1618 
2158 

641 
1181 
1614 
2154 

612 
1152 
1585 
2125 

608 
1143 
1581 
2121 


760 
1193 
1733 
2166 

756 
1189 
1729 
2162 

727 

1160 
1700 
2133 

723 
1156 
1696 
2129 


813 
872 
928 
971 
1031 
1081 
1130 
1191 
1232 
1293 
1347 
1392 
1453 
1500 
1554 
1612 
1653 
1714 
1768 
1813 
1874 
1919 
1976 
2033 
2075 
2135 
2187 
2234 
2295 
2340 
2397 
2454 
2496 

768 
1201 
1741 
2174 

764 
1197 
1737 
2170 

735 
1168 
1708 
2141 

731 
1164 
1704 
2137 
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.LSDO 


.LSDA 


.LSDQ 


.LSKCN 


2252 

2260 

2268 

2276 

11 

113 

115 

l^i 

1?? 

141 
826 

143 
834 

409 
842 

1251 

1259 

1267 

1382 

168A 

1799 

1807 

1815 

222A 

2232 

2240 

2355 

376 

384 

392 

400 

809 

817 

932 

940 

13A9 

1357 

1365 

1373 

1782 

1790 

1905 

1913 

2322 

2330 

2338 

23A6 

405 

413 

421 

429 

838 

846 

961 

969 

1378 

1386 

1394 

1402 

1811 

1819 

1934 

1942 

2351 

2359 

2367 

2375 

111 

113 

115 

117 

141 

143 

306 

'  §1 

3:5 

359 

363 

*  f^ 

413 

417 

421 

'  '73 

478 

482 

486 

531 

535 

539 

544 

^1^ 

600 

604 

608 

658 

662 

666 

723 

727 

731 

776 

780 

7Bi* 

789 

834 

838 

842 

846 

899 

903 

907 

911 

956 

961 

965 

969 

1021 

1025 

1029 

1034 

1079 

1083 

1087 

1091 

1144 

1148 

1152 

1156 

1201 

!206 

1210 

1214 

1259 

1263 

1267 

1279 

1324 

1328 

1332 

1336 

1382 

1386 

1390 

1394 

1446 

1451 

1455 

1459 

1504 

1508 

1512 

1517 

1569 

1573 

1577 

1581 

1627 

1631 

1635 

1639 

1684 

1696 

1700 

1704 

1749 

1753 

1757 

1762 

1807 

1811 

;815 

1819 

1872 

1876 

1880 

1884 

1929 

1934 

1938 

1942 

1994 

1998 

2002 

2007 

2052 

2056 

2060 

2064 

2117 

2121 

2125 

2129 

2174 

2179 

2183 

2187 

2232 

2236 

2240 

2297 

2301 

2309 

2355 

2359 

2363 

2367 

2391 

119 

417 

850 

1390 

1823 

2363 

515 

948 

1488 

1921 

2461 

544 

977 

1517 

1950 

2490 

119 

310 

367 

425 

490 

548 

612 

670 

735 

793 

850 

915 

973 

1038 

1095 

1160 

1218 

1283 

1340 

1398 

1463 

1521 

1585 

1643 

1708 

1766 

1823 

1888 

1946 

2011 

2068 

2133 

2191 

2256 

2313 

2371 


2399 

121 

425 

965 

1398 

1938 

2371 

523 

956 

1496 

1929 

2469 

552 

985 

1525 

1958 

2498 

121 

314 

372 

429 

494 

552 

617 

674 

739 

797 

862 

919 

977 

1042 

1100 

1164 

1222 

1287 

1345 

1402 

1467 

1525 

1590 

1647 

1712 

1770 

1835 

1892 

1950 

2015 

2073 

2137 

2195 

2260 

2318 

2375 


2407 

123 

433 

973 

1406 

1946 

2379 

531 

1071 

1504 

2044 

2477 

560 

1100 

1533 

2073 

2506 

123 

318 

376 

433 

498 

556 

621 

678 

743 

801 

866 

923 

981 

1046 

1104 

1168 

1226 

1291 

1349 

1406 

1471 

1529 

1594 

1651 

1716 

1774 

1839 

1896 

1954 

2019 

2077 

2141 

2199 

2264 

2322 

2379 


2415 

125 

548 

981 

1521 

1954 

2494 

539 

1079 

1512 

2052 

2485 

568 

1108 

1541 

2081 

2514 

125 

322 

380 

445 

502 

560 

625 

683 

747 

805 

870 

928 

985 

1050 

1108 

1173 

1230 

1295 

1353 

1418 

1475 

1533 

1598 

1656 

1720 

1778 

1843 

1901 

1958 

2023 

2081 

2146 

2203 

2268 

2326 

2391 


127 

556 

989 

1529 

1962 

2502 

654 

1087 

1627 

2060 

683 
1116 
1656 
2089 

127 

326 

384 

449 

506 

564 

629 

687 

751 

809 

874 

932 

989 

1054 

1112 

1177 

1234 

1299 

1357 

1422 

1479 

1537 

1602 

1660 

1724 

1782 

1847 

1905 

1962 

2027 

2085 

2150 

2207 

2272 

2330 

2395 


129 
564 
1104 
1537 
2077 
2510 
662 
1095 
1635 
2068 

691 
1124 
1664 
2097 

129 

330 

388 

453 

511 

568 

633 

691 

756 

813 

878 

936 

1001 

1058 

1116 

1181 

1239 

1303 

1361 

1426 

1484 

1541 

1606 

1664 

1729 

1786 

1851 

1909 

1974 

2031 

2089 

2154 

2212 

2276 

2334 

2399 


131 
572 
1112 
1545 
2085 
2518 
670 
1210 
1643 
2183 

699 
1239 
1672 
2212 

131 

334 

392 

457 

515 

572 

637 

695 

760 

817 

882 

940 

1005 

1062 

1120 

1185 

1243 

1307 

1365 

1430 

1488 

1545 

1610 

1668 

1733 

.790 

1855 

1913 

1978 

2035 

2093 

2158 

2216 

2280 

2338 

2403 


133 

687 

1120 

1660 

2093 

678 
1218 
1651 
2191 

707 
1247 
1680 
2220 

133 

339 

396 

461 

519 

584 

641 

699 

764 

822 

886 

944 

1009 

1067 

1124 

1189 

1247 

1312 

1369 

1434 

1492 

1557 

1614 

1672 

1737 

1795 

1859 

1917 

1982 

2040 

2097 

2162 

2220 

2285 

2342 

2407 


135 

695 

1128 

1668 

2101 

793 
1226 
1766 
2199 

822 
1255 
1795 
2228 

135 

343 

400 

465 

523 

588 

645 

703 

768 

826 

890 

948 

1013 

1071 

1128 

1193 

1251 

1316 

1373 

1438 

1496 

1561 

1618 

1676 

1741 

1799 

1863 

1921 

1986 

2044 

2101 

2166 

2224 

2289 

2346 

2411 


137 

703 

1243 

1676 

2216 

801 
1234 
1774 
2207 

830 
1263 
1803 
2236 

137 

347 

405 

469 

527 

592 

650 

707 

772 

830 

895 

952 

1017 

1075 

1140 

1197 

1255 

1320 

1378 

1442 

1500 

1565 

1623 

1680 

1745 

1803 

1868 

1925 

1990 

2048 

2113 

2170 

2228 

2293 

2351 

2415 


SEQ  1265 


n 


.LSMIN 


.LXNOR 


.LXOR 


.MA 


2419 

2424 

2428 

2432 

2A77 

2481 

2485 

2490 

310 

363 

376 

429 

793 

846 

919 

1283 

1336 

1349 

1402 

1766 

1819 

1839 

1892 

2256 

2309 

2322 

2375 

33A 

339 

400 

405 

817 

822 

890 

895 

1307 

1312 

1373 

1378 

1790 

1795 

1863 

1868 

2280 

2285 

2346 

2351 

330 

343 

396 

409 

813 

826 

886 

899 

1303 

1316 

1369 

1382 

1786 

1799 

1859 

1872 

2276 

2289 

2342 

2355 

159 

168 

177 

186 

285 

303 

306 

308 

332 

334 

336 

359 

361 

363 

365 

388 

390 

392 

394 

A17 

419 

421 

423 

451 

453 

455 

457 

480 

482 

484 

486 

508 

511 

513 

515 

537 

539 

541 

544 

566 

568 

570 

5t2 

600 

602 

604 

606 

629 

631 

633 

635 

658 

660 

662 

664 

687 

689 

691 

693 

720 

723 

725 

72^ 

749 

751 

753 

756 

778 

780 

782 

784 

807 

809 

811 

813 

836 

838 

840 

842 

870 

872 

874 

876 

899 

901 

903 

905 

928 

930 

932 

934 

956 

958 

961 

963 

985 

987 

989 

991 

1019 

1021 

1023 

1025 

1048 

1050 

1052 

1054 

1077 

1079 

1081 

1083 

1106 

1108 

1110 

1112 

1140 

1142 

1144 

1146 

1168 

1170 

1173 

1175 

1197 

(199 

1201 

1203 

1226 

1228 

1230 

1232 

1255 

1257 

1259 

1261 

1289 

1291 

1293 

1295 

1318 

1320 

1322 

1324 

2436 

2440 

2494 

2498 

449 

502 

932 

985 

1422 

1475 

1905 

1958 

2395 

2448 

473 

473 

956 

961 

1446 

1451 

1929 

1934 

2419 

2424 

469 

482 

952 

965 

1442 

1455 

1925 

1938 

2415 

2428 

195 

204 

310 

312 

339 

341 

367 

369 

396 

398 

425 

427 

459 

461 

488 

490 

517 

519 

546 

548 

574 

581 

608 

610 

637 

639 

666 

668 

695 

697 

729 

731 

758 

760 

786 

789 

815 

817 

844 

846 

878 

880 

907 

909 

936 

938 

965 

967 

998 

1001 

1027 

1029 

1056 

1058 

1085 

1087 

1114 

1116 

1148 

1150 

1177 

1179 

1206 

1208 

1234 

1236 

1263 

1265 

1297 

1299 

1326 

1328 

2473 

2444 

2448 

2452 

2457 

2461 

2465 

2469 

2502 

2506 

2510 

2514 

2518 

SEQ  1266  i 

515 

568 

588 

641 

654 

707 

727 

780 

1005 

1058 

1071 

1124 

1144 

1197 

1210 

1263 

1488 

1541 

1561 

1614 

1627 

1680 

172Q 

1753 

1978 

2031 

2044 

2097 

2117 

2170 

2183 

2236 

2461 

2514 

539 

544 

612 

617 

678 

683 

751 

756 

1029 

1034 

1095 

1100 

1168 

1173 

1234 

1239 

1512 

1517 

1585 

1590 

1651 

1656 

1724 

1729 

2002 

2007 

2068 

2073 

2141 

2146 

2207 

2212 

2485 

2490 

535 

548 

608 

621 

674 

687 

7W1 

760 

1025 

1038 

1091 

1104 

1164 

1177 

1230 

mi 

1508 

1521 

1581 

1594 

1647 

1660 

1720 

1733 

1998 

2011 

2064 

2077 

2137 

2150 

2203 

2216 

2481 

2494 

213 

222 

231 

240 

249 

258 

267 

276 

314 

316 

318 

320 

322 

324 

326 

328 

343 

345 

347 

349 

351 

353 

355 

357 

372 

374 

376 

378 

380 

382 

384 

386 

400 

402 

405 

407 

409 

411 

413 

415 

429 

431 

433 

435 

442 

445 

447 

449 

463 

465 

467 

469 

471 

473 

475 

478 

492 

494 

496 

498 

500 

502 

504 

506 

521 

523 

525 

527 

529 

531 

533 

535 

550 

552 

554 

556 

558 

560 

562 

564 

584 

586 

588 

590 

592 

594 

596 

598 

612 

614 

617 

619 

621 

623 

625 

627 

641 

643 

645 

647 

650 

652 

654 

656 

670 

672 

674 

676 

678 

680 

683 

685 

699 

701 

703 

705 

707 

709 

711 

713 

733 

735 

737 

739 

741 

743 

745 

747 

762 

764 

766 

768 

770 

772 

77k 

776 

791 

793 

795 

797 

799 

801 

803 

805 

819 

822 

i24 

126 

i28 

830 

834 

848 

850 

152 

59 

i62 

864 

866 

868 

882 

884 

186 

88 

)90 

892 

895 

§2? 

911 

913 

915 

17 

919 

921 

923 

925 

940 

942 

944 

946 

948 

950 

952 

954 

969 

971 

973 

975 

977 

979 

981 

983 

1003 

1005 

1007 

1009 

1011 

1013 

1015 

1017 

1031 

1034 

1036 

1038 

1040 

1042 

1044 

1046 

1060 

1062 

1064 

1067 

1069 

1071 

1073 

1075 

1089 

1091 

1093 

1095 

1097 

1100 

1^9^ 

1104 

1118 

1120 

1122 

1124 

1126 

1128 

1130 

1137 

1152 

1154 

1156 

1158 

1160 

1162 

1164 

1166 

1181 

1183 

1185 

1187 

1189 

1191 

1193 

1195 

1210 

1212 

1214 

1216 

1218 

1220 

1222 

1224 

1239 

1241 

1243 

1245 

1247 

1249 

1251 

1253 

1269 

1276 

1279 

1281 

1283 

1285 

1287 

330 

1303 

1305 

1307 
1336 

1309 
1338 

1312 

1314 

1316 

1332 

1334 

1340 

1342 

1345 

n 


1254 


.MAND 


.MB 


1347 
1375 
1404 
1438 
1467 
1496 
1525 
1559 
1587 
1616 
1645 
1674 
1708 
1737 
1766 
1795 
1823 
1857 
1886 
1915 
1944 
1978 
2007 
2035 
2064 
2093 
2127 
2156 
218!: 
2214 
2242 
2276 
2305 
2334 
2363 
2397 
2426 
2454 
2483 
2512 
303 
695 
1033 
1463 
1851 
2249 
111 
139 
347 
405 
465 
523 
584 


1349 

1351 

1378 

1380 

1406 

1408 

1440 

1442 

1469 

1471 

1498 

1500 

1527 

1529 

1561 

1563 

1590 

1592 

1618 

1620 

1647 

1649 

1676 

1678 

1710 

1712 

1739 

1741 

1768 

1770 

1797 

1799 

1825 

1832 

1859 

1861 

1888 

1890 

1917 

1919 

1946 

1948 

1980 

1982 

2009 

2011 

2037 

2040 

2066 

2068 

2095 

2097 

2129 

2131 

2158 

2160 

2187 

2189 

2216 

2218 

2249 

2252 

2278 

2280 

?307 

2309 

i336 

2338 

2365 

2367 

2399 

2401 

2428 

2430 

2457 

2459 

2485 

2487 

2514 

2516 

322 

351 

720 

739 

1112 

1137 

1500 

1529 

1880 

1917 

2268 

2297 

113 

115 

141 

143 

351 

355 

409 

413 

469 

473 

527 

531 

588 

592 

1353 
1382 
1415 
1444 
1473 
1502 
1531 
1565 
1594 
1623 
1651 
1680 
1714 
1743 
1772 
1801 
1835 
1863 
1892 
1921 
1950 
1984 
2013 
2042 
2070 
2099 
2133 
2162 
2191 
2220 
2254 
2282 
2311 
2340 
2369 
2403 
2432 
2461 
2490 
2518 
388 
768 
1156 
1554 
1946 
2334 
117 
303 
359 
417 
478 
535 
596 


1355 

1384 

1418 

1446 

1475 

1504 

1533 

1567 

1596 

1625 

1653 

1682 

1716 

1745 

1774 

1803 

1837 

1865 

1894 

1923 

1952 

1986 

2015 

2044 

2073 

2101 

2135 

2164 

2193 

2222 

2256 

2285 

2313 

2342 

2371 

2405 

2434 

2463 

2492 

2520 

417 

805 

1185 

1573 

1971 

2363 

119 

306 

363 

421 

482 

539 

600 


1371 

1373 

1357 

1359 

1361 

1363 

1365 

1367 

1369 

1388 

1390 

1392 

1394 

1396 

1398 

1400 

1402 

SEQ  1267 

1420 

1422 

1424 

1426 

1428 

1430 

1432 

1434 

1436 

1448 

1451 

1453 

1455 

1457 

1459 

1^61 

1463 

1465 

1477 

1479 

1481 

1484 

1486 

1488 

1490 

1^?? 

1494 

1506 

1508 

1510 

1512 

1514 

1517 

1519 

1521 

1523 

1535 

1537 

1539 

1541 

1543 

1545 

1547 

1554 

1557 

1569 

1571 

1573 

1575 

1577 

1579 

1581 

1583 

1585 

1598 

1600 

1602 

1604 

1606 

1608 

1610 

1612 

1614 

1627 

1629 

1631 

1633 

1635 

1637 

1639 

1641 

1643 

1656 

1658 

1660 

166? 

1664 

1666 

1668 

1670 

1672 

1684 

1686 

1693 

1696 

1698 

1700 

1702 

1704 

1706 

1718 

1720 

1722 

1724 

1726 

1729 

1731 

1733 

1735 

1747 

1749 

1751 

1753 

1755 

1757 

1759 

1762 

1764 

1776 

1778 

1780 

1782 

1784 

1786 

1788 

1790 

1792 

1805 

1807 

1809 

1811 

1813 

1815 

1817 

1819 

1821 

1839 

1841 

1843 

1845 

1847 

1849 

1851 

1853 

1855 

1868 

1870 

1872 

1874 

1876 

1878 

1880 

1882 

1884 

1896 

1898 

1901 

1903 

1905 

1907 

1909 

1911 

1913 

1925 

1927 

1929 

1931 

1934 

1936 

1938 

1940 

1942 

1954 

1956 

1958 

1960 

1962 

1964 

1971 

1974 

1976 

1988 

1990 

1992 

1994 

1996 

1998 

2000 

19.^^ 

2004 

2017 

2019 

2021 

2023 

2025 

2027 

2029 

2031 

2033 

2046 

2048 

2050 

2052 

2054 

2056 

2058 

2060 

2062 

2075 

2077 

2079 

2081 

2083 

2085 

2087 

2089 

2091 

2103 

2110 

2113 

2115 

2117 

2119 

2121 

2123 

2125 

2137 

2139 

2141 

2143 

2146 

2148 

2150 

2152 

2154 

2166 

2168 

2170 

2172 

2174 

2176 

2179 

2181 

2183 

2195 

2197 

2199 

2201 

2203 

2205 

2207 

2209 

2212 

2224 

2226 

2228 

2230 

2232 

2234 

2236 

2238 

2240 

2258 

2260 

2262 

2264 

2266 

2268 

2270 

2272 

2274 

2287 

2289 

2291 

2293 

2295 

2297 

2299 

2301 

2303 

2315 

2318 

2320 

2322 

2328 

2330 

2332 

2344 

2346 

2348 

2353 

2355 

2357 

2359 

2361 

2373 

2375 

2377 

2379 

2381 

2388 

2391 

2393 

2395 

2407 

2409 

2411 

2413 

2415 

2417 

2419 

2^21 

2424 

2436 

2438 

2440 

2442 

2444 

2446 

2448 

2450 

2452 

2465 

2467 

2469 

2471 

2473 

2475 

2477 

2479 

2481 

2494 

2496 

2498 

2500 

2502 

2504 

2506 

2508 

2510 

442 

461 

490 

527 

556 

581 

600 

629 

666 

834 

859 

878 

907 

944 

973 

998 

1017 

1046 

1222 

1251 

1276 

1295 

1324 

1361 

1390 

1415 

1434 

1602 

1639 

1668 

1693 

1712 

1741 

1778 

1807 

1832 

1990 

2019 

2056 

2085 

2119 

2129 

2158 

2195 

2224 

2388 

2407 

2436 

2473 

2502 

121 

123 

125 

127 

129 

131 

133 

135 

137 

310 

314 

318 

322 

326 

330 

334 

339 

343 

425 

372 

376 

380 

384 

388 

392 

396 

400 

429 

433 

442 

445 

449 

453 

457 

461 

490 

494 

498 

502 

506 

511 

515 

519 

544 

548 

552 

556 

560 

564 

568 

572 

581 

604 

608 

612 

617 

621 

625 

629 

633 

637 

■-"- 1     , — 


1255 


.MBAD 
.MCCFZ 
.MCENA 
.MCJS 


6A1 
699 
760 
817 
878 
936 
998 
105A 
1112 
1173 
1230 
1291 
13A9 
U06 
1467 
1525 
1585 
16A3 
170A 
1762 
1819 
1880 
1938 
1998 
2056 
2117 
2174 
2232 
2293 
2351 
2411 
2469 
152 
278 
150 
276 
150 
276 
301 
361 
419 
480 
537 
598 
656 
713 
774 
832 
892 
950 
1011 
1069 
1126 


645 
703 
764 
822 
882 
940 
1001 
1058 
1116 
1177 
1234 
1295 
1353 
1415 
1471 
1529 
1590 
1647 
1708 
1766 
1823 
1884 
1942 
2002 
2060 
2121 
2179 
2236 
2297 
2355 
2415 
2473 
161 
287 
159 
285 
159 
285 
308 
365 
423 
484 
541 
602 
660 
718 
778 
836 
897 
954 
1015 
1073 
1130 


650 

707 

768 

826 

886 

944 

1005 

1062 

1120 

1181 

1239 

1299 

1357 

1418 

1475 

1533 

1594 

1651 

1712 

1770 

1832 

1888 

1946 

2007 

2064 

2125 

2183 

2240 

2301 

2359 

2419 

2477 

170 

294 

168 

168 

312 
369 
427 
488 
546 
606 
664 
725 
782 
840 
901 
958 
1019 
1077 
1135 


654 

711 

772 

830 

890 

948 

1009 

1067 

1124 

1185 

1243 

1303 

1361 

1422 

1479 

1537 

1598 

1656 

1716 

1774 

1835 

1892 

1950 

2011 

206P 

2129 

2187 

2249 

2305 

2363 

2424 

2481 

179 

296 

177 

177 

316 
374 
431 
492 
550 
610 
668 
729 
786 
844 
905 
963 
1023 
1081 
1142 


658 
720 
776 
834 
895 
952 
1013 
1071 
1128 
1189 
1247 
1307 
1365 
1426 
1484 
1541 
1602 
1660 
1720 
1778 
1839 
1896 
1954 
2015 
2073 
2133 
2191 
2252 
2309 
2367 
2428 
2485 
188 

186 

186 

320 
378 
435 
496 
554 
614 
672 
733 
791 
848 
909 
967 
1027 
1085 
1146 


662 
723 
780 
838 
899 
956 
1017 
1075 
1137 
1193 
1251 
1312 
1369 
1430 
1488 
1545 
1606 
1664 
1724 
1782 
1843 
1901 
1958 
2019 
2077 
2137 
2195 
2256 
2313 
2371 
2432 
2490 
197 

195 

195 

324 
382 
440 
500 
558 
619 
676 
737 
795 
852 
913 
971 
1031 
1089 
1150 


666 

ni 

784 
842 
903 
961 
1021 
1079 
1140 
1197 
1253 
1316 
1373 
1434 
1492 
1554 
1610 
1668 
1729 
1786 
1847 
1905 
1962 
2023 
2081 
2141 
2199 
2260 
2318 
2375 
2436 
2494 
206 

204 

204 

328 
386 
447 
504 
562 
623 
680 
741 
799 
857 
917 
975 
1036 
1093 
1154 


670 
731 
789 
846 
907 
965 
1025 
1083 
1144 
1201 
1259 
1320 
1378 
1438 
1496 
1557 
1614 
1672 
1733 
1790 
1851 
1909 
1971 
2027 
2085 
2146 
2203 
2264 
2322 
2379 
2440 
2498 
215 

213 

213 


674 
735 
793 
850 
911 
969 
1029 
1087 
1148 
1206 
1263 
1324 
1382 
1442 
1500 
1561 
1618 
1676 
1737 
1795 
1855 
1913 
1974 
2031 
2089 
2150 
2207 
2268 
2326 
2388 
2444 
2502 
224 

222 

III 


332 

336 

390 

394 

451 

455 

508 

513 

566 

570 

627 

631 

685 

689 

745 

749 

803 

807 

868 

921 

925 

979 

983 

1040 

1044 

1097 

1102 

1158 

1162 

678 

739 

797 

859 

915 

973 

1034 

1091 

1152 

1210 

i:67 

'I  8 

Jd6 

1446 

1504 

1565 

1623 

1680 

1741 

1799 

1859 

1917 

1978 

2035 

2093 

2154 

2212 

2272 

2330 

2391 

2448 

2506 

233 

231 

231 

341 
398 
459 
517 
574 
635 
693 
753 
811 
872 
930 
987 
1048 
1106 
1166 


683 

687 

743 

747 

801 

805 

862 

866 

919 

923 

977 

981 

1038 

1042 

1095 

1100 

1156 

1160 

1214 

1218 

1276 

1279 

1332 

1336 

1390 

1394 

1451 

1455 

1508 

1512 

1569 

1573 

1627 

1631 

1684 

1693 

1745 

1749 

1803 

1807 

1863 

1868 

1921 

1925 

1982 

1986 

2040 

2044 

2097 

2101 

2158 

2162 

2216 

2220 

2276 

2280 

2334 

2338 

2395 

2399 

2452 

2457 

2510 

2514 

242 

251 

240 

240 

345 
402 
463 
521 
579 
639 
697 
758 
815 
876 
934 
991 
1052 
1110 
1170 


249 

249 

349 
407 
467 
525 
586 
643 
701 
762 
819 
880 
938 
996 
1056 
1114 
1175 


691 
751 
809 
870 
928 
985 
1046 
1104 
1164 
1222 
1283 
1340 
1398 
1459 
1517 
1577 
1635 
1696 
1753 
1811 
1872 
1929 
1990 
2048 
2110 
2166 
2224 
2285 
2342 
2403 
2461 
2518 
260 

258 

258 

353 

411 

471 

529 

590 

647 

705 

766 

824 

884 

942 

1003 

1060 

1118 

1179 


695 
756 
813 
874 
932 
989 
1050 
1108 
1168 
1226 
1287 
1345 
1402 
1463 
1521 
1581 
1639 
1700 
1757 
1815 
1876 
1934 
1994 
2052 
2113 
2170 
2228 
2289 
2346 
2407 
2465 

269 

267 

267 

357 

415 

475 

533 

594 

652 

709 

770 

828 

888 

946 

1007 

1064 

1122 

1183 
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.MCJV 
.MCONT 


1187 
12^5 
1305 
1363 
U24 
1481 
1539 
1600 
1658 
1718 
1776 
1837 
189A 
1952 
2013 
2070 
2131 
2189 
22A7 
2307 
2365 
2426 
2483 
150 
276 
111 
139 
347 
40S 
465 
523 
584 
641 
699 
760 
817 
878 
936 
998 
1054 
1112 
1173 
1230 
1291 
1349 
1406 
1467 
1525 
1585 
1643 
1704 
1762 
1819 


1191 
1249 
1309 
1367 
1428 
1486 
1543 
1604 
1662 
1722 
1780 
1841 
1898 
1956 
2017 
2075 
2135 
2193 
2254 
2311 
2369 
2430 
2487 
159 
285 
113 
141 
351 
409 
469 
'ill 
588 
645 
703 
764 
822 
882 
940 
1001 
1058 
1116 
1177 
1234 
1295 
1353 
1415 
1471 
1529 
1590 
1647 
1708 
1766 
1823 


1195 
1253 
1314 
1371 
1432 
1490 
1547 
1608 
1666 
1726 
1784 
1845 
1903 
1960 
2021 
2079 
2139 
2197 
2258 
2315 
2373 
2434 
2492 
168 

1'5 

143 

355 

413 

473 

531 

592 

650 

707 

768 

826 

886 

944 

1005 

1062 

1120 

1181 

1239 

1299 

1357 

1418 

1475 

1533 

1594 

1651 

1712 

1770 

1832 


1199 
1257 
1318 
1375 
1436 
1494 
1552 
1612 
1670 
1731 
1788 
1849 
1907 
1964 
2025 
2083 
2143 
2201 
2262 
2320 
2377 
2438 
2496 
177 

117 

303 

359 

417 

478 

535 

596 

654 

711 

111 

830 

890 

948 

1009 

1067 

1124 

1185 

1243 

1303 

1361 

1422 

1479 

1537 

1598 

1656 

1716 

1774 

1835 


1203 
1261 
1322 
1380 
1440 
1498 
1559 
1616 
1674 
1735 
1792 
1853 
1911 
1969 
2029 
2087 
2148 
2205 
2266 
2324 
2381 
2442 
2500 
186 

119 

306 

363 

421 

482 

539 

600 

658 

720 

776 

834 

895 

952 

1013 

1071 

1128 

1189 

1247 

1307 

1365 

1426 

1484 

1541 

1602 

1660 

1720 

1778 

1839 


1208 
1265 
1326 
1384 
1444 
1502 
1563 
1620 
1678 
1739 
1797 
1857 
1915 
1976 
2033 
2091 
2152 
2209 
2270 
2328 
2386 
2446 
2504 
195 

121 

310 

367 

425 

486 

544 

604 

662 

723 

780 

838 

899 

956 

1017 

1075 

1137 

1193 

1251 

1312 

1369 

1430 

1488 

1545 

1606 

1664 

1724 

1782 

1843 


1212 
1269 
1330 
1388 
1448 
1506 
1567 
1625 
1682 
1743 
1801 
1861 
1919 
1980 
2037 
2095 
2156 
2214 
2274 
2332 
2393 
2450 
2508 
204 

123 
314 
372 
429 
490 
548 
608 
666 

m 

784 
842 
903 
961 
1021 
1079 
1140 
1197 
1255 
1316 
1373 
1434 
1492 
1554 
1610 
1668 
1729 
1786 
1847 


1216 
1274 
1334 
1392 
1453 
1510 
1571 
1629 
1686 
1747 
1805 
1865 
1923 
1984 
2042 
2099 
2160 
2218 
2278 
2336 
2397 
2454 
2512 
213 

125 

318 

376 

433 

494 

552 

612 

670 

731 

789 

846 

907 

965 

1025 

1083 

1144 

1201 

1259 

1320 

1378 

1438 

1496 

1557 

1614 

1672 

1733 

1790 

1851 


1220 
1281 
1338 
1396 
1457 
1514 
1575 
1633 
1691 
1751 
1809 
1870 
1927 
1988 
2046 
2103 
2164 
2222 
2282 
2340 
2401 
2459 
2516 
III 

127 

322 

380 

442 

498 

556 

617 

674 

735 

793 

850 

911 

969 

1029 

1087 

1148 

1206 

1263 

1324 

1382 

1442 

1500 

1561 

1618 

1676 

1737 

1795 

1^,55 


1224 
1285 
1342 
1400 
1461 
1519 
1579 
1637 
1698 
1755 
1813 
1874 
1931 
1992 
2050 
2108 
2168 
2226 
2287 
2344 
2405 
2463 
2520 
231 

129 

326 

384 

445 

502 

560 

621 

678 

739 

797 

859 

915 

973 

1034 

1091 

1152 

1210 

1267 

1328 

1386 

1446 

1504 

1565 

1623 

1680 

1741 

1799 

1859 


1228 
1289 
1347 
1404 
1465 
1523 
1583 
1641 
1702 
1759 
1817 
1878 
1936 
1996 
2054 
2115 
2172 
2230 
2291 
2348 
2409 
2467 

240 

131 

330 

388 

449 

506 

564 

625 

683 

743 

801 

862 

919 

977 

1038 

1095 

1156 

1214 

1276 

1332 

1390 

1451 

1508 

1569 

1627 

1684 

1745 

1803 

1863 


1232 
1293 
1351 
1408 
1469 
1527 
1587 
1645 
1706 
1764 
1821 
1882 
1940 
2000 
2058 
2119 
2176 
2234 
2295 
2353 
2413 
2471 

249 

133 

334 

392 

453 

511 

568 

629 

687 

747 

805 

866 

923 

981 

1042 

1100 

1160 

1218 

1279 

1336 

1394 

1455 

1512 

1573 

1631 

1693 

1749 

1807 

1868 


1236 
1297 
1355 
1413 
1473 
1531 
1592 
1649 
1710 
1768 
1825 
1886 
1944 
2004 
2062 
2123 
2181 
2238 
2299 
2357 
2417 
2475 

258 

135 

339 

396 

457 

515 

572 

633 

691 

751 

809 

870 

928 

985 

1046 

1104 

1164 

1222 

1283 

1340 

1398 

1459 

1517 

1577 

1635 

1696 

1753 

1811 

1872 


1241 
1301 
1359 
1420 
1477 
1535 
1596 
1653 
1714 
1772 
1830 
1890 
1948 
2009 
2066 
2127 
2185 
2242 
2303 
2361 
2421 
2479 

267 

137 

343 

400 

461 

519 

581 

637 

695 

756 

813 

874 

932 

989 

1050 

1108 

1168 

1226 

1287 

1345 

1402 

1463 

1521 

1581 

1639 

1700 

1757 

1815 

1876 
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1 


.MCRTN 
.MD 


1880 
1938 
1998 
2056 
2117 
21 7A 
2232 
2293 
2351 
2A11 
2469 
145 
271 
111 
139 
240 
320 
349 
378 
407 
435 
469 
498 
527 
556 
590 
619 
647 
676 
705 
739 
768 
797 
826 
859 
888 
917 
946 
975 
1009 
1038 
1067 
1095 
1124 
1158 
1187 
1216 
1245 
1279 
1307 
1336 
1365 
1394 


1884 

1942 

2002 

2060 

2121 

2179 

2236 

2297 

2355 

2415 

2473 

154 

280 

113 

141 

249 

322 

351 

380 

409 

442 

471 

500 

529 

558 

592 

621 

650 

678 

707 

741 

770 

799 

828 

862 

890 

919 

948 

977 

ion 

1040 
1069 
1097 
1126 
1160 
1189 
1218 
1247 
1281 
1309 
1338 
1367 
1396 


1888 
1946 
2007 
2064 
2125 
2183 
2240 
2301 
2359 
2419 
2477 
163 
289 
115 
143 
258 
324 
353 
382 
411 
445 
473 
502 
531 
560 
594 
623 
652 
680 
709 
743 
772 
801 
830 
864 
89? 
921 
950 
979 
1013 
1042 
1071 
1100 
1128 
1162 
1191 
1220 
1249 
1233 
1312 
1340 
1369 
1398 


1892 
1950 
2011 
2068 
2129 
2187 
2249 
2305 
2363 
2424 
2481 
172 

117 

145 

267 

326 

355 

384 

413 

447 

475 

504 

533 

562 

596 

625 

654 

683 

711 

745 

774 

803 

832 

866 

895 

923 

952 

981 

1015 

1044 

1073 

1102 

1130 

1164 

1193 

1222 

1251 

1285 

1314 

1342 

1371 

1400 


1896 
1954 
2015 
2073 
2133 
2191 
2252 
2309 
2367 
2428 
2485 
181 

119 

150 

276 

328 

357 

386 

415 

449 

478 

506 

535 

564 

598 

627 

656 

685 

713 

747 

776 

805 

834 

868 

897 

925 

954 

983 

1017 

1046 

1075 

1104 

1137 

1166 

1195 

1224 

1253 

1287 

1316 

1345 

1373 

1402 


1901 
1958 
2019 
2077 
2137 
2195 
2256 
2313 
2371 
2432 
2490 
190 

121 

159 

285 

330 

359 

388 

417 

451 

480 

508 

537 

566 

600 

629 

658 

687 

720 

749 

778 

807 

836 

870 

899 

928 

956 

985 

1019 

1048 

1077 

1106 

1140 

1168 

1197 

1226 

1255 

1289 

1318 

1347 

1375 

1404 


1905 
1962 
2023 
2081 
2141 
2199 
2260 
2318 
2375 
2436 
2494 
199 

123 

168 

303 

332 

361 

390 

419 

453 

482 

511 

539 

568 

602 

631 

660 

689 

723 

751 

780 

809 

838 

872 

901 

930 

958 

987 

1021 

1050 

1079 

1108 

1142 

1170 

1199 

1228 

1257 

1291 

1320 

1349 

1378 

1406 


1909 
1971 
2027 
2085 
2146 
2203 
2264 
2322 
2379 
2440 
2498 
208 

125 

177 

306 

334 

363 

392 

421 

455 

484 

513 

541 

570 

604 

633 

662 

691 

725 

753 

782 

811 

840 

874 

903 

932 

961 

989 

1023 

1052 

1081 

1110 

1144 

1173 

1201 

1230 

1259 

1293 

1322 

1351 

1380 

1408 


1913 
1974 
2031 
2089 
2150 
2207 
2268 
2326 
2388 
2444 
2502 
217 

127 
186 
308 
336 
365 
394 
423 
457 
486 
515 
544 
572 
606 
635 
664 
693 

ni 

756 

784 

813 

842 

876 

905 

934 

963 

991 

1025 

1054 

1083 

1112 

1146 

1175 

1203 

1232 

1261 

1295 

1324 

1353 

1382 

1415 


1917 
1978 
2035 
2093 
2154 
2212 
2212 
2330 
2391 
2448 
2506 
226 

129 

195 

310 

339 

367 

396 

425 

459 

488 

517 

546 

574 

608 

637 

666 

695 

729 

758 

786 

815 

844 

878 

907 

936 

965 

998 

1027 

1056 

1085 

1114 

1148 

1177 

1206 

1234 

1263 

1297 

1326 

1355 

1384 

1418 


1921 

1925 

1929 

1934 

1982 

1986 

"1990 

1994 

2040 

2044 

2048 

2052 

2097 

2101 

2110 

2113 

2158 

2162 

2166 

2170 

2216 

2220 

2224 

2228 

2276 

2285 

2289 

2334 

2338 

2342 

2346 

2395 

2399 

2403 

2407 

2452 

2457 

2461 

2465 

2510 

2514 

2518 

235 

244 

253 

262 

131 

133 

135 

137 

204 

213 

222 

231 

312 

314 

316 

318 

341 

343 

345 

347 

369 

372 

374 

376 

398 

400 

402 

405 

427 

429 

431 

433 

461 

463 

465 

467 

490 

492 

494 

496 

519 

521 

523 

525 

548 

550 

552 

554 

581 

584 

586 

588 

610 

612 

614 

617 

639 

641 

643 

645 

668 

670 

672 

674 

697 

699 

701 

703 

731 

733 

735 

737 

760 

762 

764 

766 

789 

791 

793 

795 

$17 

819 

822 

824 

)46 

848 

850 

852 

)80 

882 

884 

886 

909 

911 

913 

915 

938 

940 

942 

944 

967 

969 

971 

973 

1001 

1003 

1005 

1007 

1029 

1031 

1034 

1036 

1058 

1060 

1062 

1064 

1087 

1089 

1091 

1093 

1116 

1118 

1120 

1122 

1150 

1152 

1154 

1156 

1179 

1181 

1183 

1185 

1208 

1210 

1212 

1214 

1236 

1239 

1241 

1243 

1265 

1267 

1269 

1276 

1299 

1301 

1303 

1305 

1328 

1330 

1332 

1334 

1357 

1359 

1363 

1386 

1388 

1390 

1392 

1420 

1422 

1424 

1426 
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H28 
U57 
U86 
15U 
15A3 
1577 
1606 
1635 
166A 
1698 
1726 
1755 
1784 
1813 
1847 
1876 
1905 
1934 
1962 
1996 
2025 
2054 
2083 
2117 
2146 
2174 
2^  : 
2t. 
226( 
2295 
2324 
2353 
2381 
2415 
2444 
2473 
2502 
103 
206 
269 
332 
390 
451 
508 
566 
627 
685 
745 
803 
864 
921 
979 
1040 


1430 
1459 
1488 
1517 
1545 
1579 
1608 
1637 
1666 
1700 
1729 
1757 
1786 
1815 
1849 
1878 
1907 
1936 
1964 
1998 
2027 
2056 
2085 
2119 
2148 
2176 
2205 
2234 
2268 
2297 
2326 
2355 
?388 
2417 
2446 
2475 
2504 
150 
213 
276 
336 
394 
455 
513 
570 
631 
689 
749 
807 
868 
925 
983 
1044 


1432 
1461 
1490 
1519 
1547 
1581 
1610 
1639 
1668 
1702 
1731 
1759 
1788 
1817 
1851 
1880 
1909 
1938 
1971 
2000 
2029 
2058 
2087 
2121 
2150 
2179 
2207 
?236 
2270 
2299 
2328 
2357 
2391 
2419 
2448 
2477 
2506 
152 
215 
278 
341 
398 
459 
517 
574 
635 
693 
753 
811 
872 
930 
987 
1048 


1434 

1436 

1463 

1465 

1492 

1494 

1521 

1523 

1554 

1557 

1583 

1585 

1612 

1614 

1641 

1643 

1670 

1672 

1704 

1706 

1733 

1735 

1762 

1764 

1790 

1792 

1819 

1821 

1853 

1855 

1882 

1884 

1911 

1913 

1940 

1942 

1974 

1976 

2002 

2004 

2031 

2033 

2060 

2062 

2089 

2091 

2123 

2125 

2152 

2154 

2181 

2183 

2209 

2212 

2238 

2240 

2272 

2274 

2303 

2330 

2332 

2359 

2361 

2393 

2395 

2421 

2424 

2450 

2452 

2479 

2481 

2508 

2510 

159 

161 

224 

285 

287 

345 

349 

402 

407 

463 

467 

521 

579 

643 

639 

697 

701 

758 

762 

115 

819 

J76 

88 ) 

934 

93 1 

991 

996 

1052 

1056 

1438 

1467 

1496 

1525 

1559 

1587 

1616 

1645 

1674 

1708 

1737 

1766 

1795 

1823 

1857 

1886 

1915 

1944 

1978 

2007 

2035 

2064 

2093 

2127 

2156 

2185 

2214 

2242 

2276 

2305 

2334 

2363 

2397 

2426 

2454 

2483 

2512 

168 

231 

294 

353 

411 

471 

529 

590 

647 

705 

766 

824 

884 

942 

1003 

1060 


1440 

1469 

1498 

1527 

1561 

1590 

1618 

1647 

1676 

1710 

1739 

1768 

1797 

1825 

1859 

1888 

1917 

1946 

1980 

^J09 

2037 

2066 

2095 

2129 

2158 

2187 

2216 

2249 

2278 

2307 

2336 

2365 

2399 

2428 

2457 

2485 

2514 

170 

233 

296 

357 

415 

475 

533 

594 

652 

709 

770 

828 

888 

946 

1007 

1064 


1442 

1471 

1500 

1529 

1563 

1592 

1620 

1649 

1678 

1712 

1741 

1770 

1799 

1832 

1861 

1890 

1919 

1948 

1982 

2011 

2040 

2068 

2097 

2131 

2160 

2189 

2218 

2252 

2280 

2309 

2338 

2367 

2401 

2430 

2459 

2487 

2516 

177 

240 

301 

361 

419 

480 

537 

598 

656 

713 

774 

832 

892 

950 

1011 

1069 


1444 

1446 
1475 

1473 

1502 

1504 

1531 

1533 

1565 

1567 

1594 

1596 

1623 

1625 

1651 

1653 

1680 

1682 

1714 

1716 

1743 

1745 

1772 

1774 

1801 

1803 

1835 

1837 

1863 

1865 

1892 

1894 

1921 

1923 

1950 

1952 

1984 

1986 

2013 

2015 

2042 

2044 

2070 

2073 

2099 

2101 

2133 

2135 

2162 

2164 

2191 

2193 

2220 

2222 

2254 

2256 

2282 

2285 

2311 

2313 

2340 

2342 

2369 

2371 

2403 

2405 

2432 

2434 

2461 

2463 

2490 

2492 

2518 

2520 

179 

186 

249 

308 

312 

365 

369 

423 

427 

484 

488 

541 

546 

602 

606 

660 

664 

718 

725 

778 

782 

836 

840 

897 
954 

901 
958 

1015 

1)19 

1073 

1077 

1448 
1477 
1506 
1535 
1569 
1598 
1627 
1656 
1684 
1718 
1747 
1776 
1805 
1839 
1868 
1896 
1925 
1954 
1988 
2017 
2046 
2075 
2103 
2137 
2166 
2195 
2224 
2258 
2287 
2315 
2344 
2373 
2407 
2436 
2465 
2494 

188 
251 
316 
374 
431 
492 
550 
610 
668 
729 
786 
844 
905 
963 
1023 
1081 


1451 

1479 

1508 

1537 

1571 

1600 

1629 

1658 

1686 

1720 

1749 

1778 

1807 

1841 

1870 

1898 

1927 

1956 

1990 

2019 

2048 

2077 

2110 

2139 

2168 

2197 

2226 

2260 

2289 

2318 

2346 

2375 

2409 

2438 

2467 

2496 

195 
258 
320 
378 
435 
496 
554 
614 
672 
733 
791 
848 
909 
967 
1027 
1085 


1453 

1481 

1510 

1539 

1573 

1602 

1631 

1660 

1693 

1722 

1751 

1780 

1809 

1843 

1872 

1901 
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1958 

1992 

2021 

2050 

2079 

2113 

2141 

2170 

2199 

2228 

2262 

2291 

2320 

2348 

2377 

2411 

2440 

2469 

2498 

197 
260 
324 
382 
440 
500 
558 
619 
676 
737 
795 
852 
913 
971 
1031 
1089 


1455 
1484 
1512 
1541 
1575 
1604 
1633 
1662 
1696 
1724 
1753 
1782 
1811 
1845 
1874 
1903 
1931 
1960 
1994 
2023 
2052 
2081 
2115 
2143 
2172 
2201 
2230 
2264 
2293 
2322 
2351 
2379 
2413 
2442 
2471 
2500 

204 
267 
328 
386 
447 
504 
562 
623 
680 
741 
799 
857 
917 
975 
1036 
1093 
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.MJMAP 

.MJZ 
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1097 

1158 

1216 

127A 

133A 

1392 

U53 

1510 

1571 

1629 

1686 

17A7 

1805 

1865 

1923 

198A 

2042 

2099 

2160 

2218 

2278 

2336 

2397 

2454 

2512 

103 

269 

105 

111 

139 

351 

409 

473 

654 

711 

776 

834 

899 

956 

1021 

1079 

1144 

1201 

1259 

1324 


1102 
1162 
1220 
1281 
1338 
1396 
1457 
1514 
1575 
1633 
1691 
1751 
1809 
1870 
1927 
1988 
2046 
2103 
2164 
2222 
2282 
2340 
2401 
2459 
2516 
152 
278 

113 

141 

355 

413 

478 

535 

600 

658 

723 

780 

838 

903 

961 

1025 

1083 

1148 

1206 

1263 

1328 


1382 

1386 

1446 

1451 

1504 

1508 

1569 

1573 

1627 

1631 

1684 

1696 

1106 
1166 
1224 
1285 
1342 
1400 
1461 
1519 
1579 
1637 
1698 
1755 
1813 
1874 
1931 
1992 
2050 
2108 
2168 
2226 
2287 
2344 
2405 
2463 
2520 
161 
287 

115 

143 

359 

417 

482 

539 

604 

662 

727 

784 

842 

907 

965 

1029 

1087 

1152 

1210 

1267 

1332 

1390 

1455 

1512 

1577 

1635 

1700 


1110 
1170 
1228 
1289 
1347 
1404 
1465 
1523 
1583 
1641 
1702 
1759 
1817 
1878 
1936 
1996 
2054 
2115 
2172 
2230 
2291 
2348 
2409 
2467 
2522 
170 
294 

117 

306 

363 

421 

486 

544 

608 

666 

731 

789 

846 

911 

969 

1034 

1091 

1156 

1214 

1279 

1336 

1394 

1459 

1517 

1581 

1639 

1704 


1114 
1175 
1232 
1293 
1351 
1408 
1469 
1527 
1587 
1645 
1706 
1764 
1821 
1882 
1940 
2000 
2058 
2119 
2176 
2234 
2295 
2153 
2413 
2471 

179 
296 

119 

310 

367 

425 

490 

548 

612 

670 

735 

793 

850 

915 

973 

1038 

1095 

1160 

1218 

1283 

1340 

1398 

1463 

1521 

1585 

1643 

1708 


1118 
1179 
1236 
1297 
1355 
1413 
1473 
1531 
1592 
1649 
1710 
1768 
1825 
1886 
1944 
2004 
2062 
2123 
2181 
2238 
2299 
2357 
2417 
2475 

188 
2522 

121 

314 

372 

429 

494 

552 

617 

67/ 

739 

797 

862 

919 

977 

1042 

1100 

1164 

1222 

1287 

1345 

1402 

1467 

1525 

1590 

1647 

1712 


1122 
1183 
1241 
1301 
1359 
1420 
1477 
1535 
1596 
1653 
1714 
1772 
1830 
1890 
1948 
2009 
2066 
2127 
2185 
2242 
2303 
2361 
2421 
24''9 

197 


123 

318 

3'6 

43: 

498 

556 

621 

678 

743 

801 

866 

923 

981 

1046 

1104 

1168 

1226 

1291 

1349 

1406 

1471 

1529 

1594 

1651 

1716 


1126 
1187 
1245 
1305 
1363 
1424 
1481 
1539 
1600 
1658 
1718 
1776 
1837 
1894 
1952 
2013 
2070 
2131 
2189 
2247 
2307 
2365 
2426 
2483 

206 


125 

322 

380 

445 

502 

560 

625 

683 

747 

805 

870 

928 

985 

1050 

1108 

1173 

1230 

1295 

1353 

1418 

1475 

1533 

1598 

ir 


1130 
1191 
1249 
1309 
1367 
1428 
1486 
1543 
1604 
1662 
1722 
1780 
1841 
1898 
1956 
2017 
2075 
2135 
2193 
2254 
2311 
2369 
2430 
2487 

215 


127 

326 

384 

449 

506 

564 

629 

687 

751 

809 

874 

932 

989 

1054 

1112 

1177 

1234 

1299 

1357 

1422 

1479 

1537 

1602 


1135 

1142 

1146 

1150 

1154 

1195 

1199 

1203 

1208 

1212 

1253 

1257 

1261 

1265 

1269 

1314 

1318 

1322 

1326 

1330 

1371 

1375 

1380 

1384 

1388 

1432 

1436 

1440 

1444 

1448 

1490 

1494 

1498 

1502 

1506 

1547 

1552 

1559 

1563 

1567 

1608 

1612 

1616 

1620 

1625 

1666 

1670 

1674 

1678 

1682 

1726 

1731 

1735 

1739 
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1784 

1788 
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1801 

1845 
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1853 
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1861 
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1907 

1911 

1915 

1919 

1960 

1964 

1969 

1976 

1980 

2021 

2025 

2029 

2033 

2037 

2079 

2083 

2087 

2091 

2095 

2139 

2143 

2148 

2152 

2156 

2197 

2201 

2205 

2209 

2214 

2258 

2266 

2270 

2274 

2315 

2320 

2324 

2328 

^lll 

2373 

2377 

2381 

2386 

2393 

2434 

2438 

2442 

2446 

2450 

2492 

2496 

2500 

2504 

2508 

224 

233 

242 

251 

260 

129 

131 

133 

135 

137 

330 

339 

343 

347 

388 

392 

396 

400 

405 

453 

457 

461 

465 

469 

511 

515 

519 

523 

527 

568 

572 

584 

588 

592 

633 

637 

641 

645 

650 

691 

695 

699 

703 

707 

756 

760 

764 

768 

772 

813 

817 

822 

826 

830 

878 

886 

290 

895 

936 

940 

944 

948 

952 

1001 

1005 

1009 

1013 

1017 

1058 

1062 

1067 

1071 

1075 

1116 

1120 

1124 

1128 

1140 

1181 

1185 

1189 

1193 

1197 

1239 

1243 

1247 

1251 

1255 

1303 

1307 

1312 

1316 

1320 

1361 

1365 

1369 

1373 

1578 

1426 

1430 

1434 

1438 

1442 

1484 

1488 

1492 

1496 

1500 

1541 

1545 

1557 

1561 

1565 

1606 

1610 

1614 

1618 

1623 

im 

l^f 

1672 

1676 

1680 

1737 

1741 

1745 
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.MOR 


1749 
1807 
1872 
1929 
199A 
2052 
2117 
2174 
2232 
2297 
2355 
2419 
2477 
326 
809 
1299 
1782 
2272 
111 


1152 


1753 
1811 
1876 
1934 
1998 
2056 
2121 
2179 
2236 
2301 
2359 
2424 
2481 
347 
830 
1320 
1803 
2293 
113 
141 
258 
345 
394 
455 
504 
558 
614 
664 
725 
774 
828 
884 
938 
987 
1048 
1097 
1154 
1208 
1257 
1318 
1367 
1428 
1477 
1531 
1587 
1637 
1698 
1747 
1801 
1857 
1911 
1960 
2021 


1757 

1815 

1880 

1938 

2002 

2060 

2125 

2183 

2240 

2305 

2363 

2428 

2485 

392 

882 

1365 

1855 

2338 

115 

143 

267 

349 

398 

457 

508 

560 

619 

668 

729 

778 

832 

888 

940 

991 

1050 

1102 

1158 

1212 

1261 

1322 

1371 

1430 

1481 

1533 

1592 

1641 

1702 

1751 

1805 

1861 

1913 

1964 

2023 


1762 

1819 

1884 

1942 

2007 

2064 

2129 

2187 

2252 

2309 

2367 

2432 

2490 

413 

903 

1386 

1876 

2359 

117 

150 

276 

353 

402 

459 

513 

562 

623 

672 

733 

782 

836 

892 

942 

1003 

1052 

1106 

1162 

1216 

1265 

1326 

1375 

1432 

I486 

1J35 

1596 

1645 

1706 

1755 

1809 

1865 

1915 

1976 

2025 


1766 

1823 

1888 

1946 

2011 

2068 

2133 

2191 

2256 

2313 

2371 

2436 

2494 

465 

948 

1438 

1921 

2411 

119 

159 

285 

355 

407 

463 

517 

566 

627 

676 

735 

786 

838 

897 

946 

1007 

1056 

1110 

1166 

1218 

1269 

1328 

1380 

1436 

1490 

1539 

1600 

1649 

1708 

1759 

1811 

1870 

1919 

i?:o 

2029 


1770 

1835 

1892 

1950 

2015 

2073 

2137 

2195 

2260 

2318 

2375 

2440 

2498 

486 

969 

1459 

1942 

2432 

121 

168 

308 

357 

411 

467 

521 

570 

631 

680 

737 

,?1 

840 

901 

950 

1011 

1060 

1114 

1170 

1220 

1281 

1330 

1384 

1440 

1494 

1543 

1604 

1653 

1710 

1764 

1813 

1874 

1923 

1984 

2033 


1774 

1839 

1896 

1954 

2019 

2077 

2141 

2199 

2264 

2322 

2379 

2444 

2502 

531 

1021 

1504 

1994 

2477 

123 

177 

312 

361 

415 

471 

523 

574 

633 

685 

741 

795 

844 

905 

954 

1013 

1064 

1116 

1175 

1224 

1285 

1334 

1388 

1444 

1496 

1547 

1606 

1658 
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1817 

1878 

1927 

1986 

2037 


1778 

1782 

1786 

1790 

1795 

1799 
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1843 

1847 

1851 

1855 

1859 

1863 

1868 

1901 

1905 

1909 

1913 

1917 

1921 

1925 

1958 

1962 

1974 

1978 

1982 

1986 

1990 

2027 

2031 

2035 

2040 

2044 

2048 

2081 

2085 

2089 

2093 

2097 

2101 

2113 

2146 

2150 

2154 

2158 

2162 

2166 

2170 

2207 

2212 

2216 

2220 

2224 

111% 

2268 

2272 

2276 

2280 

2285 

2289 

lit} 

2326 

2330 

2334 

2342 

2346 

2351 

2391 

2395 

2399 

2403 

2407 

2411 

2415 

2448 

2452 

2457 

2461 

2465 
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2^75 

2506 

2510 

2514 

2518 

552 

604 

625 

670 

691 

743 

I'^i 

1042 

1087 

1108 

1160 

1181 

1226 

12^7 

1525 

1577 

1598 

1643 

1664 

1716 

1737 

2015 

2498 

125 

2060 

2081 

2133 

2154 

2199 

2220 

127 

129 

131 

133 

135 
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186 

195 

204 

213 

222 

231 

2<9 

318 

324 

328 

332 

336 

365 

369 

374 

378 

382 

384 

M 

419 

421 

423 

427 

431 

435 

447 

475 

480 

484 

492 

494 

496 

525 

529 

533 

537 

541 

5^6 

550 

586 

590 

594 

596 

598 

602 

606 

635 

639 

643 

647 

652 

656 

660 

689 

693 

697 

699 

701 

705 

709 

745 

749 

753 

758 

762 

766 

770 

799 

801 

803 

807 

811 

815 

819 

848 

852 

864 

868 

872 

874 

876 

909 

911 

913 

917 

921 

925 

930 

958 

963 

967 

971 

975 

977 

979 

1015 

1019 

1023 

1027 

1031 

1036 

1040 

1069 

1073 

1077 

1079 

1081 

1085 

1089 

1118 

1122 

1126 

1130 

1142 

1146 

1150 

1179 

1183 

1187 

1189 

1191 

1195 

1199 

1228 

1232 

1236 

1241 

1245 

1249 

1253 

1289 

1291 

1293 

1297 

1301 

1305 

1309 

1338 

1342 

1347 

1351 

1355 

1357 

1359 

1392 

1394 

1396 

1400 

1404 

1408 

1420 

1448 

1453 

1457 

1461 

1465 

1467 

1469 

1498 

1502 

1506 

1510 

1514 

1519 

1523 

1559 

1563 

1567 

1569 
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1575 

1579 

1608 

1612 

1616 
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1629 

1633 
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1670 

1672 

1674 
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1718 
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1726 

1731 
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1784 
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m 
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2066 
2125 
2176 
2228 
2287 
2336 
2397 
24A. 
2501 
306 
789 
1279 
1762 
2252 
314 
797 
1287 
1770 
2260 
150 
276 
353 
396 
455 
511 
554 
614 
664 
713 
774 
815 
876 
930 
975 
1036 
1083 
1137 
1195 
1236 
1297 
1351 
1396 
1457 
1502 
1559 
1616 
1658 
1718 
1770 
1817 
1878 
1923 
1980 


207Q 

C-.7 

2181 

2230 

2291 

2340 

24Ci 

2450 

2504 

367 

850 

1340 

1823 

2313 

359 

842 

1332 

1815 

2305 

159 

285 

357 

398 

459 

513 

558 

619 

666 

720 

778 

819 

880 

934 

979 

1040 

1085 

1142 

1199 

1241 

1301 

1353 

1400 

1461 

1506 

1563 

1620 

1662 

1722 

1772 

1821 

1882 

1925 

1984 


2075 

2131 

2185 

2234 

2295 

2344 

2403 

2454 

2506 

372 

862 

1345 

1835 

2318 

380 

870 

1353 

1843 

2326 

168 

303 

361 

402 

463 

517 

562 

623 

668 

725 

782 

824 

884 

936 

983 

1044 

1089 

1146 

1203 

1245 

1305 

1355 

1404 

1465 

1508 

1567 

1623 

1666 

1726 

1776 

1825 

1886 

1927 

1988 


2079 

2083 

2087 

2135 

2139 

2143 

2189 

2191 

IW 

2238 

2242 

2254 

2299 

2301 

2303, 

2348 

2353 

2357 

2405 

2409 

2413 

2459 

2463 

2467 

2512 

2516 

433 

445 

506 

923 

928 

989 

1406 

1418 

1479 

1896 

1901 

1962 

2379 

2391 

2452 

425 

453 

498 

915 

936 

981 

1398 

1426 

1471 

1888 

1909 

1954 

2371 

2399 

2444 

177 

186 

195 

308 

316 

365 

369 

372 

407 

411 

415 

467 

471 

475 

51v 

521 

525 

566 

570 

574 

627 

631 

635 

672 

674 

676 

729 

7r 

737 

786 

7,^V 

791 

828 

836 

888 

89l 

897 

938 

942 

944 

987 

991 

998 

1048 

1052 

1056 

1091 

1093 

10^7 

1150 

1154 

1138 

1206 

1208 

1212 

1249 

1253 

1257 

1309 

1314 

131{ 

1359 

1361 

136: 

1408 

1415 

142( 

1469 

1473 

1477 

1510 

1514 

1519 

1571 

1575 

1579 

1625 

1629 

1631 

1670 

1674 

1678 

1731 

1735 

1739 

1778 

1780 

1784 

1132 

1837 

1841 

1)90 

1894 

1898 

1931 

1936 

1940 

1992 

1996 

2000 

2089 

2091 

2095 

2099 

2103 

2115 

2119 

2123 

2148 

2152 

2156 

2160 

2162 

2164 

2168 

2172 

2197 

2201 

2205 

2209 

2214 

2218 

2226 

2258 

2262 

2264 

2266 

2270 

2274 

2278 

2282 

2307 

2311 

2315 

2324 

2328 

2330 

2332 

2361 

2365 

2367 

2369 

2373 

2377 

2381 

2393 

2417 

2421 

2426 

2430 

2434 

2^38 

2440 

2442 

2469 

2520 

511 

2471 

2475 

2479 

2483 

2487 

2492 

2496 

572 

584 

645 

650 

711 

723 

784 

1001 

1062 

1067 

1128 

1140 

1201 

1206 

1267 

1484 

1545 

1557 

1618 

1623 

1684 

1696 

1757 

1974 

2035 

2040 

2101 

2113 

2174 

2179 

2240 

2457 

2518 

519 

564 

592 

637 

658 

703 

731 

776 

1009 

1054 

1075 

1120 

1148 

1193 

1214 

H52 

1492 

1537 

1565 

1610 

1631 

1676 

1704 

1749 

1982 

2027 

2048 

2093 

2121 

2166 

2187 

2232 

2465 

2510 

213 

222 

231 

240 

249 

258 

267 

320 

324 

328 

336 

341 

345 

1^9 

374 

378 

380 

382 

386 

388 

390 

394 

419 

423 

427 

431 

435 

442 

447 

451 

480 

484 

492 

496 

500 

504 

508 

527 

529 

533 

535 

537 

541 

546 

550 

581 

590 

594 

598 

602 

606 

610 

639 

643 

647 

650 

652 

656 

658 

§62 

680 

685 

689 

693 

697 

701 

705 

709 

741 

745 

749 

753 

758 

762 

766 

770 

795 

797 

799 

803 

805 

807 

811 

81^ 

840 

844 

848 

852 

859 

864 

868 

872 

901 

905 

909 

913 

917 

921 

925 

928 

946 

950 

952 

954 

958 

963 

967 

971 

1003 

1007 

1011 

1015 

1019 

1023 

^9,11 

1031 

1060 

1064 

1067 

1069 

1073 

1075 

1077 

1081 

1102 

1106 

1110 

1114 

1118 

1122 

1126 

1130 

1162 

1166 

1170 

1175 

1179 

1183 

1187 

1191 

1214 

1216 

1220 

1222 

1224 

1228 

1230 

1232 

1261 

1269 

1276 

1281 

1285 

1289 

1293 

1322 

1326 

1330 

1334 

1338 

1342 

1345 

1347 

1367 

1369 

371 

1375 

1380 

1384 

1388 

1392 

1424 

1428 

432 

1436 

1440 

1444 

1448 

1453 

1481 

1484 

486 

1490 

1492 

1494 

1498 

1500 

1523 

1527 

531 

1535 

1539 

1543 

1547 

1554 

1583 

1587 

592 

1596 

1600 

1604 

1608 

1612 

1633 

1637 

639 

1641 

1645 

1647 

16^2 

1653 

1682 

1686 

693 

1698 

1702 

1706 

1710 

1714 

1743 

1747 

751 

1755 

1759 

1762 

1764 

1768 

1786 

1788 

1792 

1797 

1801 

1805 

1809 

1813 

1845 

1849 

1853 

1857 

1861 

1865 

18^0 

1874 

1901 

1903 

1907 

1909 

1911 

1915 

1917 

1919 

1944 

1948 

1952 

1956 

1960 

1964 

1971 

1976 

2004 

2009 

2013 

2017 

2021 

2025 

2029 

2033 

SEQ  1274 


262 


2037 

2040 

2042 

2046 

2048 

2050 

2054 

2056 

2058 

2062 

2064 

2066 

2070 

2075 

2079 

2083 

2087 

2091 

2095 

2099 

2103 

2110 

2115 

2119 

2123 

2127 

2131 

2135 

SEQ  1275 

2139 

2143 

2148 

2152 

2156 

2160 

2164 

2168 

2172 

2176 

2179 

2181 

2185 

2187 

2189 

2193 

2195 

2197 

2201 

2203 

2205 

2209 

2214 

2218 

2222 

2226 

2230 

2234 

2238 

2242 

2249 

2254 

2258 

2262 

2266 

2270 

2274 

2278 

2282 

2287 

2291 

2295 

2299 

2303 

2307 

2311 

2315 

2318 

2320 

2324 

2326 

2328 

2112 

2334 

2336 

2340 

23A2 

2344 

2348 

2353 

2357 

2361 

2365 

2369 

2373 

2377 

2381 

2388 

2393 

2397 

2A01 

2405 

2409 

2413 

2417 

2421 

2426 

2430 

2434 

2438 

2i^i^2 

2446 

2450 

2454 

2457 

2459 

2463 

2465 

2467 

2471 

2473 

2475 

2479 

2481 

2483 

2487 

2492 

2496 

2500 

2504 

2508 

2512 

2516 

2520 

.MSOB     3A3 

351 

359 

367 

482 

490 

498 

506 

621 

629 

637 

645 

760 

768 

776 

784 

899 

907 

915 

923 

1038 

1046 

1054 

1062 

1177 

1185 

1193 

1201 

1316 

1324 

1332 

1340 

1455 

1463 

1471 

1479 

1594 

1602 

1610 

1618 

1733 

1741 

17A9 

1757 

1872 

1880 

1888 

1896 

2011 

2019 

2027 

2035 

2150 

2158 

2166 

2174 

2289 

2297 

2305 

2313 

2428 

2436 

2444 

2452 

.MSOQ     339 

347 

355 

363 

478 

486 

494 

502 

617 

625 

633 

641 

756 

764 

772 

780 

895 

903 

911 

919 

1034 

1042 

1050 

1058 

1173 

1181 

1189 

1197 

1312 

1320 

1328 

1336 

1451 

1459 

1467 

1475 

1590 

1598 

1606 

1614 

1729 

1737 

17A5 

1753 

1868 

1876 

1884 

1892 

2007 

2015 

2023 

2031 

2146 

2154 

2162 

2170 

2285 

2293 

2301 

2309 

2424 

2432 

2440 

2448 

.MSAB     310 

318 

326 

334 

449 

457 

465 

473 

588 

596 

604 

612 

727 

735 

743 

751 

866 

874 

882 

890 

1005 

1013 

1021 

1029 

1144 

1152 

1160 

1168 

1283 

1291 

1299 

1307 

1422 

1430 

1438 

1446 

1561 

1569 

1577 

1585 

1700 

1708 

1716 

1724 

1839 

1847 

1855 

1863 

1978 

1986 

1994 

2002 

2117 

2125 

2133 

2141 

2256 

2264 

2272 

2280 

2395 

2405 

2411 

2419 

.MSAQ     306 

314 

322 

330 

445 

453 

461 

469 

584 

592 

600 

608 

723 

731 

739 

747 

862 

870 

878 

886 

1001 

^009 

1017 

1025 

1140 

1148 

1156 

1164 

1279 

1287 

1295 

1303 

1418 

1426 

1434 

1442 

1557 

1565 

1573 

1581 

1696 

1704 

1712 

1720 

1835 

1843 

1851 

1859 

1974 

1982 

1990 

1998 

2113 

2121 

2129 

2137 

2252 

2260 

2268 

2276 

2391 

2399 

2407 

2415 

.MSDO     111 

113 

115 

117 

119 

121 

123 

125 

127 

129 

131 

133 

135 

137 

139 

141 

143 

409 

417 

425 

433 

548 

556 

564 

572 

687 

695 

703 

711 

826 

834 

842 

850 

965 

973 

981 

989 

1104 

1112 

1120 

1128 

1243 

1251 

'259 

1267 

1382 

1390 

1398 

1406 

1521 

1529 

1537 

1545 

1660 

1668 

1676 

1684 

1799 

1807 

1815 

1823 

1938 

1946 

1954 

1962 

2077 

2085 

2093 

2101 

2216 

2224 

2232 

2240 

2355 

2363 

2371 

2379 

2494 

2502 

2510 

2518 

.MSDA     376 

384 

392 

400 

515 

523 

531 

539 

654 

662 

670 

678 

793 

801 

809 

817 

932 

940 

948 

956 

1071 

1079 

1087 

1095 

1210 

1218 

1226 

1234 

1349 

1357 

1365 

1373 

1488 

1496 

1504 

1512 

1627 

1635 

1643 

1651 

1766 

1774 

1782 

1790 

1905 

1913 

1921 

1929 

2044 

2052 

2060 

2068 

2183 

2191 

2199 

2207 

2322 

2330 

2338 

2346 

2461 

2469 

2477 

2485 

•MSDQ     405 

413 

421 

429 

544 

552 

560 

568 

683 

691 

699 

707 

822 

830 

838 

846 

961 

969 

977 

985 

1100 

1108 

1116 

1124 

1239 

1247 

1255 

1263 

1378 

1386 

1394 

1402 

1517 

1525 

1533 

1541 

1656 

1664 

1672 

1680 

1795 

1803 

1811 

1819 

1934 

1942 

1950 

1958 

2073 

2081 

2089 

2097 

2212 

2220 

2228 

2236 

2351 

2359 

2367 

2375 

2490 

2498 

2506 

2514 

.MSKCN    1i1 

113 

115 

117 

119 

121 

123 

125 

127 

129 

131 

133 

135 

■|37 

139 

141 

143 

306 

310 

314 

318 

322 

326 

330 

334 

339 

343 

347 

351 

355 

359 

363 

367 

372 

376 

380 

384 

388 

392 

396 

400 

405 

409 

413 

417 

421 

425 

429 

433 

445 

449 

453 

457 

461 

465 

469 

473 

478 

482 

486 

490 

494 

498 

502 

506 

511 

515 

519 

523 

527 

531 

535 

539 

544 

548 

552 

556 

560 

564 

568 

572 

584 

588 

592 

596 

600 

604 

608 

612 

617 

621 

625 

629 

633 

637 

641 

645 

650 

CALC 


263 


.MSMIN 


.MXNOR 


.MXOR 


.RA 


65A 

658 

711 

723 

776 

780 

83A 

838 

899 

903 

956 

961 

1021 

1025 

1079 

1083 

11A4 

1148 

1201 

1206 

1259 

1263 

132A 

1328 

1382 

1386 

1446 

1451 

1504 

1508 

1569 

1573 

1627 

1631 

1684 

1696 

1749 

1753 

1807 

1811 

1872 

1876 

1929 

1934 

1994 

1998 

2052 

2056 

2117 

2121 

2174 

2179 

2232 

2236 

2297 

2301 

2355 

2359 

2419 

2424 

2477 

2481 

310 

363 

793 

846 

1283 

!336 

1766 

1819 

2256 

2309 

334 

339 

817 

822 

1307 

1312 

1790 

1795 

2280 

2285 

330 

343 

813 

826 

1303 

1316 

1786 

1799 

2289 

ICQ 

168 

hS 

303 

-  I^n 

332 

^M' 

361 

Sh 

390 

4|7 

419 

l$i 

453 

662 

666 

m 

731 

784 

789 

842 

846 

907 

911 

965 

969 

1029 

1034 

1087 

1091 

1152 

1156 

1210 

1214 

1267 

1279 

1332 

1336 

1390 

1394 

1455 

1459 

1512 

1517 

1577 

1581 

1635 

1639 

1700 

1704 

1757 

1762 

1815 

1819 

1880 

1884 

1938 

1942 

2002 

2007 

2060 

2064 

2125 

2129 

2183 

2187 

2240 

2252 

2305 

2309 

2363 

2367 

2428 

2432 

2485 

2490 

376 

429 

866 

919 

1349 

1402 

1839 

1892 

2322 

2375 

400 

405 

890 

895 

1373 

1863 

1868 

2346 

2351 

396 

409 

886 

899 

1369 

1382 

1859 

1872 

2342 

2355 

177 

186 

306 

308 

334 

336 

363 

365 

392 

394 

421 

423 

455 

457 

670 

735 

793 

850 

915 

973 

1038 

1095 

1160 

1218 

1283 

1340 

1398 

1463 

1521 

1585 

1643 

1708 

1766 

1823 

1888 

1946 

2011 

2068 

2133 

2191 

2256 

2313 

2371 

2436 

2494 

449 

932 

1422 

1905 

2395 

473 

956 

1446 

1929 

2419 

469 

952 

1442 

1925 

2^15 

195 

310 

359 

367 

396 

425 

459 


674 

739 

797 

862 

919 

977 

1042 

1100 

1164 

1222 

1287 

1345 

1402 

1467 

1525 

1590 

1647 

1712 

1770 

1835 

1892 

1950 

2015 

2073 

2137 

2195 

2260 

2318 

2375 

2440 

2498 

502 

985 

1475 

1958 

2448 

478 

961 

1451 

1934 

2424 

482 

965 

1455 

1938 

2428 

204 

312 

341 

369 

398 

427 

461 


678 
743 
801 

923 

981 

1046 

1104 

1168 

1226 

1291 

1349 

1406 

1471 

1529 

1594 

1651 

1716 

1774 

1839 

1896 

1954 

2019 

2077 

2141 

2199 

2264 

2322 

2379 

2444 

2502 

515 

1005 

1488 

1978 

2461 

539 

1029 

1512 

2002 

2485 

535 

1025 

1508 

1998 

2481 

213 

314 

343 

372 

400 

429 

463 


683 
747 
805 
870 
928 
985 
1050 
1108 
1173 
1230 
1295 
1353 
1418 
1475 
1533 
1598 
1656 
1720 
1778 
1843 
1901 
1958 
2023 
2081 
2146 
2203 
2268 
2326 
2391 
2448 
2506 
568 
1058 
1541 
2031 
2514 
544 
1034 
1517 
2007 
2490 
548 
1038 
1521 
2011 
2494 

m 

316 
345 
374 
402 
431 
465 


687 
751 
809 
874 
932 
989 
1054 
1112 
1177 
1234 
1299 
1357 
1422 
1479 
1537 
1602 
1660 
1724 
1782 
1847 
1905 
1962 
2027 
2085 
2150 
2207 
2212 
2330 
2395 
2452 
2510 
588 
1071 
1561 
2044 

612 
1095 
1585 
2068 

608 
1091 
1581 
2064 

231 
318 
347 
376 
405 
433 
467 


691 
756 
813 
878 
936 
1001 
1058 
1116 
1181 
1239 
1303 
1361 
1426 
1484 
1541 
1606 
1664 
1729 
1786 
1851 
1909 
1974 
2031 
2089 
2154 
2212 
2276 
2334 
2399 
2457 
2514 
641 
1124 
1614 
2097 

617 
1100 
1590 
2073 

62i 
1104 
1594 
2077 

240 
320 
349 
378 
407 
435 
469 


695 

699 

760 

764 

817 

822 

882 

886 

940 

944 

1005 

1009 

1062 

1067 

1120 

1124 

1185 

1189 

1243 

1247 

1307 

1312 

1365 

1369 

1430 

1434 

1488 

1492 

1545 

1557 

1610 

1614 

1668 

1672 

1733 

1737 

1790 

1795 

1855 

1859 

1913 

1917 

1978 

1982 

2035 

2040 

2093 

2097 

2158 

2162 

2216 

2220 

2280 

2285 

2338 

2342 

2403 

2407 

2461 

2465 

2518 

654 

707 

1144 

1197 

1627 

1680 

2117 

2170 

678 

683 

1168 

1173 

1651 

1656 

2141 

2146 

674 
1164 
1647 
2137 

249 
322 
351 
380 
409 
;4? 
471 


687 
1177 
1660 
2150 

258 
324 
353 
382 
411 
445 
473 


703 
768 
826 
890 
948 
1013 
1071 
1128 
1193 
1251 
1316 
1373 
1438 
1496 
1561 
1618 
1676 
1741 
1799 
1863 
1921 
1986 
2044 
2101 
2166 
2224 
2289 
2346 
2411 
2469 

727 
1210 
1700 
2183 

751 
1234 
1724 
2207 

747 
1230 
1720 
2203 

267 
326 
355 
384 
413 
447 
475 


772 
830 
895 
952 
1017 
1075 
1140 
1197 
1255 
1320 
1378 
1442 
1500 
1565 
1623 
1680 
1745 
1803 
1868 
1925 
1990 
2048 
2113 
2170 
2228 
2293 
2351 
2415 
2473 

780 
1263 
1753 
2236 

756 
1239 
1729 
2212 

760 
1243 
1733 
2216 

276 
328 
357 
386 
415 
449 
478 


SEQ  1276 


C0NCA1 


A80 

508 

537 

566 

600 

629 

658 

687 

720 

749 

778 

807 

836 

870 

899 

928 

956 

985 

1019 

1048 

1077 

1106 

1140 

1168 

1197 

1226 

1255 

1289 

1318 

1347 

1375 

1404 

1438 

1467 

1496 

1525 

1559 

1587 

1616 

1645 

1674 

1708 

1737 

1766 

1795 

1823 

1857 

1886 

1915 

1944 

1978 

2007 

2035 


482 

484 

i^ 

488 

511 

513 

517 

539 

541 

544 

5^6 

568 

570 

572 

57^ 

602 

604 

606 
635 

608 

631 

633 

637 

660 

662 

664 

666 

689 

691 

693 

695 

723 

727 

729 

751 

753 

756 

758 

780 

782 

784 

786 

809 

811 

813 

815 

838 

840 

842 

844 

872 

874 

876 

878 

901 

903 

905 

907 

930 

932 

934 

936 

958 

961 

963 

965 

987 

989 

991 

998 

1021 

1023 

1025 

1027 

1050 

1052 

1054 

1056 

1079 

1081 

1083 

1085 

1108 

1110 

1112 

1114 

1142 

1144 

1146 

1148 

1170 

1173 

1175 

1177 

1199 

1201 

1203 

1206 

1228 

1230 

1232 

1234 

1257 

1259 

1261 

1263 

1291 

1293 

1295 

1297 

1320 

1322 

1324 

1326 

1349 

1351 

1353 

1355 

1378 

1380 

1382 

1384 

1406 

1408 

1415  • 

1418 

1440 

1442 

1444 

1446 

1469 

1471 

1473 

1475 

1498 

1500 

1502 

1504 

1527 

1529 

1531 

1533 

1561 

1563 

1565 

1567 

1590 

1592 

1594 

1596 

1618 

1620 

1623 

1625 

1647 

1649 

1651 

1653 

1676 

1678 

1680 

1682 

1710 

1712 

1714 

1716 

1739 

1741 

1743 

1745 

1768 

1770 

1772 

1774 

1797 

1799 

1801 

1803 

1825 

18i2 

1835 

1837 

1859 

1861 

1863 

1865 

1888 

1890 

1892 

1894 

1917 

1919 

1921 

1923 

1946 

1948 

1950 

1952 

1980 

1982 

1984 

1986 

2009 

2011 

2013 

2015 

2037 

2040 

2042 

2044 

490 

492 

519 

521 

548 

550 

581 

584 

610 

612 

639 

641 

668 

670 

697 

699 

731 

733 

760 

762 

789 

791 

817 

819 

846 

848 

880 

882 

909 

911 

938 

940 

967 

969 

1001 

1003 

1029 

1031 

1058 

1060 

1087 

1089 

1116 

1T18 

1150 

1152 

1179 

1181 

1208 

1210 

1236 

1239 

1265 

1267 

1299 

1328 

1330 

1357 

1359 

1386 

1388 

1420 

1422 

1448 

1451 

1477 

1479 

1506 

1508 

1535 

1537 

1569 

1571 

1598 

1600 

1627 

1629 

1656 

1658 

1684 

1686 

1718 

1720 

1747 

1749 

1776 

1778 

1807 

1839 

1841 

1868 

1870 

1896 

1898 

1925 

1927 

1954 

1956 

1988 

1990 

2017 

2019 

2046 

2048 

494 

496 

525 

552 

554 

586 

588 

614 

617 

643 

645 

672 

674 

701 

703 

735 

73/ 

764 

766 

793 

795 

824 

J50 

852 

)84 

886 

913 

915 

942 

944 

971 

973 

1005 

1007 

1034 

1036 

1062 

1064 

1091 

1093 

1120 

1122 

1154 

1156 

1183 

1185 

1212 

1214 

1241 

1243 

1269 

1276 

1303 

1305 

:332 

1334 

1361 

1363 

1390 

1392 

1424 

1426 

1453 

1455 

1481 

1484 

1510 

1512 

1539 

15.; 

1573 

1575 

1602 

1604 

1631 

1633 

1660 

1662 

1693 

1696 

1722 

1724 

1751 

1753 

1780 

1762 

1809 

1811 

1843 

1845 

1872 

1874 

1901 

1903 

1929 
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1958 

1960 

1992 

1994 

2021 
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2050 

498 

500 

527 

529 

556 

590 

592 

619 

621 

647 

650 

676 

678 

705 

707 

739 

741 

768 

770 

797 

799 

826 

828 

859 

862 

888 

890 

917 

919 

946 

948 

975 

977 

1009 

1011 

1038 

1040 

1067 

1069 

1095 

1097 

1124 

1126 

1158 

1160 

1187 

1189 

1216 

1218 

1245 

1247 

1279 

1281 

1307 

1309 

1336 

1338 

1365 

1367 

1394 

1396 

1428 

1430 

1457 

1459 

1486 

1488 

1514 

1517 

1543 

1545 

1577 

1579 

1606 

1608 

1635 

1637 

1664 

1666 

1698 

1700 

1726 

1729 

1755 

1757 

1784 

1786 

1813 

1815 

1847 

1849 

1876 

1878 

1905 

1907 

1934 

1936 

1962 

1964 

1996 

1998 

2027 

20^4 

2056 

502 

504 

531 

533 

560 

562 

594 

596 

623 

625 

652 

654 

680 

683 

709 

711 

743 

745 

772 

774 

801 

803 

830 

832 

864 

866 

892 

895 

921 

923 

950 

952 

979 

981 

1013 

1015 

1042 

1044 

1071 

1073 

1100 

1102 

1128 

1130 

1162 

1164 

1191 

1193 

1220 

1222 

1249 

1251 

1283 

1285 

1312 

1314 

1340 

1342 

1369 

1371 

1398 

1400 

1432 

1434 

1461 

1463 

1490 

1492 

1519 

1521 

1547 

1554 

1581 

1583 

1610 

1612 

1639 

1641 

1668 

1670 

1702 
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1788 
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1817 
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1940 
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2029 

2031 

2058 

2060 

506 

535 

564 

598 

627 

656 
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713 

747 

776 

805 

834 

868 

897 

925 

954 

983 

1017 

1046 

1075 

1104 

1137 

1166 

1195 

1224 

1253 

1287 

1316 

1345 

1373 

1402 

1436 

1465 

1494 

1523 

1557 

1585 
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1735 
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2093 

2127 

2156 

2185 

2214 

2242 

2276 

2305 

2334 

2363 

2397 

2426 

2454 
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2512 

303 

695 

1083 

1463 

1851 

2249 

111 

139 

347 

405 

465 

699 


998 
1054 
1112 
1173 
1230 
1291 
1349 
1406 
1467 
1525 
1585 
1643 
1704 
1762 
1819 
1880 
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1998 


2066 
2095 
2129 
2158 
2187 
2216 
2249 
2278 
2307 
2336 
2365 
2399 
2428 
2457 
2485 
2514 
322 
720 
1112 
1500 
1880 
2268 
113 
141 
351 
409 
469 
527 
588 
645 
703 
764 
822 
882 
940 
1001 
1058 
1116 
1177 
1234 
1295 
1353 
1415 
1471 
1529 
1590 
1647 
1708 
1766 
1823 
1884 
1942 
2002 


2068 
2097 
2131 
2160 
2189 
2218 
2252 
2280 
2309 
2338 
2367 
2401 
2430 
2459 
2487 
2516 
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739 
1137 
1529 
1917 
2297 
115 
143 
355 
413 
473 
531 
592 
650 
707 
768 
826 
886 
944 
1005 
1062 
1120 
1181 
1239 
1299 
1357 
1418 
1475 
1533 
1594 
1651 
1712 
1770 
1832 
1888 
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2007 


2070 

2099 

2133 

2162 

2191 

2220 

2254 

2282 

2311 

2340 

2369 

2403 

2432 

2461 

2490 

2518 

388 

768 
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1554 
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117 
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830 
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948 
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2413 
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2436 
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2440 
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2520 

417 

442 

461 
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372 
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380 
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425 

429 
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442 

486 

490 
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498 

539 

544 
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552 

556 

600 

604 

608 

612 

61/ 

658 

662 

666 

670 

6<f 

720 

723 

727 

731 

735 

776 

780 

784 

789 

793 

834 

838 

842 

846 

850 

895 

899 

903 

907 

911 

952 

956 

961 

965 

969 

1013 

1017 

1021 

1025 

1029 

1071 

1075 

1079 

1083 

1087 

1128 

1137 

1140 

1144 

1148 

1189 

1193 

1197 

1201 

1206 

1247 

1251 

1255 

1259 

1307 

1312 

1320 

1324 

1365 

1369 

1373 

1378 

1382 

1426 

1430 

1434 

1438 

1442 

1484 

1488 

1492 

1496 
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1541 

1545 
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1557 

1561 
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1606 
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1614 

1618 

1660 

1664 
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16^6 

1720 

1724 

1729 

1733 

1737 

1778 

1782 

1786 
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1839 

1843 

1847 

1851 

1855 

1896 
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1909 

1913 
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2027 

2031 

2083 
2117 
2146 
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2203 
2232 
2266 
2295 
2324 
2353 
2381 
2415 
2444 
2473 
2502 

556 

944 

1324 

1712 

2110 

2502 

129 

326 

384 

445 

502 

560 

621 

678 

739 

797 

859 

915 

973 

1034 

1091 

1152 

1210 

1267 

1328 

1386 

1446 

1504 

1565 

1623 

1680 

1741 

1799 

1859 

1917 

1978 
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2119 
2148 
2176 
2205 
2234 
2268 
2297 
2326 
2355 
2388 
2417 
2446 
2475 
2504 

581 

973 

1361 

1741 

2129 


2087 

2089 

2121 

2123 

2150 

2152 

2179 

2181 

2207 

2209 

2236 

2238 

2270 

2272 

2299 

2301 

2328 

2330 

2357 

2359 

2391 

2393 

2419 

2421 

2448 

2450 

2477 

2479 

2506 

2508 

600 

998 

1390 

1778 

2158 


131 

133 

334 

388 

692 

449 

453 

506 

511 

564 

568 

625 

629 

683 

687 

743 

747 

801 

805 

862 

866 

919 

923 

977 

981 

1038 

1042 

1095 

1100 

1156 

1160 

1214 

1218 

1276 

1279 

1332 

1336 

1390 

1394 

1451 

1455 

1508 

1512 

1569 

1573 

1627 

1631 

1684 

1693 

1745 

1749 

1803 

1807 

1863 

1868 

1921 
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2040 

2044 

629 
1017 
1415 
1807 
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135 

339 

396 

457 
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572 

633 

691 

751 

809 

870 

928 

985 

1046 

1104 

1164 

1222 

1283 

1340 

1398 

1459 

1517 

1577 

1635 

1696 

1753 

1811 

1872 
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1990 

2048 


2091 
2125 
2154 
2183 
2212 
2240 
2274 
2303 
2332 
2361 
2395 
2424 
2452 
2481 
2510 

666 
1046 
1434 
1832 
2224 

137 

343 

400 

461 

519 

581 

637 

695 

756 

813 

874 

932 

989 

1050 

1108 

1168 

1226 

1287 

1345 

1402 

1463 

1521 

1581 

1639 
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1757 
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1424 
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2070 
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2189 
2247 
2307 
2365 
2426 
2483 
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2060 

2121 

2179 

2236 

2297 

2355 

2415 

2473 

161 

287 
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285 
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285 

308 

365 

423 

484 

541 

602 
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718 

778 

836 

897 

954 

1015 

1073 

1130 

1191 

1249 

1309 

1367 

!428 

1486 

1543 

1604 

1662 

1722 

1780 

1841 

1898 
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2135 

2193 

2254 

2311 

2369 

2430 

2487 

159 


2064 

2125 

2183 

2240 

2301 

2359 

2419 

2477 

170 

294 

168 

168 

312 

369 

427 

488 

546 

606 

664 

725 

782 

840 

901 

958 

1019 

1077 

1135 

1195 

1253 

1314 

1371 

1432 

1490 

1547 

1608 

1666 

1726 

1784 

1845 

1903 

1960 

2021 

2079 

2139 

2197 

2258 

2315 

2373 

2434 

2492 

168 


2068 

2129 

2187 

2249 

2305 

2363 

2424 

2481 

179 

296 

177 

177 

316 

374 

431 

492 

550 

610 

668 

729 

786 

844 

905 

963 

1023 

1081 

1142 

1199 

1257 

1318 

1375 

1436 

1494 

1552 

1612 

1670 

1731 

1788 

1849 

1907 

1964 

2025 

2083 

2143 

2201 

2262 

2320 

2377 

2438 

2496 

177 


2073 
2133 
2191 
2252 
2309 
2367 
2428 
2485 
188 

186 

186 

320 

378 

435 

496 

554 

614 

672 

733 

791 

848 

909 

967 

1027 

1085 

1146 

1203 

1261 

1322 

1380 

1440 

1498 

1559 

1616 

1674 

1735 

1792 

1853 

1911 

1969 

2029 

2087 

2148 

2205 

2266 

2324 

2381 

2442 

2500 

186 


2077 
2137 
2195 
2256 
2313 
2371 
2432 
2490 
197 

195 

195 

324 

382 

440 

500 

558 

619 

676 

737 

795 

852 

913 

971 

1031 

1089 

1150 

1208 

1265 

1326 

1384 

1444 

1502 

1563 

1620 

1678 

1739 

1797 

1857 

1915 

1976 

2033 

2091 

2152 

2209 

2270 

2328 

2386 

2446 

2504 

195 


2081 

2085 

2141 

2146 

2199 

2203 

2260 

2264 

2318 

2322 

2375 

2379 

2436 

2440 

2494 

2498 

206 

215 

204 

204 

328 

386 

447 

504 

562 

623 

680 

741 

799 

857 

917 

975 

1036 

1093 

1154 

1212 

1269 

1330 

1388 

1448 

1506 

1567 

1625 

1682 

1743 

1801 

1861 

1919 

1980 

2037 

2095 

2156 

2214 

2274 

2332 

2393 

2450 

2508 

204 


213 

213 

332 

390 

451 

508 

566 

627 

685 

745 

803 

864 

921 

979 

1040 

1097 

1158 

1216 

1274 

1334 

1392 

1453 

1510 

1571 

1629 

1686 

1747 

1805 

1865 

1923 

1984 

2042 

2099 

2160 

2218 

2278 

2336 

2397 

2454 

2512 

213 


2089 
2150 
2207 
2268 
2326 
2388 
2444 
2502 
224 

222 

222 

336 

394 

455 

513 

570 

631 

689 

749 

807 

868 

925 

983 

1044 

1102 

1162 

1220 

1281 

1338 

1396 

1457 

1514 

1575 

1633 

1691 

1751 

1809 

1870 

1927 

1988 

2046 

2103 

2164 

2222 

2282 

2340 

2401 

2459 

2516 

222 


2093 
2154 
2212 
2272 
2330 
2391 
2448 
2506 
233 

231 

231 

341 

398 

459 

517 

574 

635 

693 

753 

811 

872 

930 

987 

1048 

1106 

1166 

1224 

1285 

1342 

1400 

1461 

1519 

1579 

1637 

1698 

1755 

1813 

1874 

1931 

1992 

2050 

2108 

2168 

2226 

2287 

2344 

2405 

2463 

2520 

231 


2097 

2101 

2158 

2162 

2216 

2220 

2276 

2280 

2334 

2338 

2395 

2399 

2452 

2457 

2510 

2514 

242 

251 

240 

240 

345 

402 

463 

521 

579 

639 

697 

758 

815 

876 

934 

991 

1052 

1110 

1170 

1228 

1289 

1347 

1404 

1465 

1523 

1583 

1641 

1702 

1759 

1817 

1878 

1936 

1996 

2054 

2115 

2172 

2230 

2291 

2348 

2409 

2467 

240 


249 

249 

349 

407 

467 

525 

586 

643 

701 

762 

819 

880 

938 

996 

1056 

1114 

1175 

1232 

1293 

1351 

1408 

1469 

1527 

1587 

1645 

1706 

1764 

1821 

1882 

1940 

2000 

2058 

2119 

2176 

2234 

2295 

2353 

2413 

2471 

249 
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2166 
2224 
2285 
2342 
2403 
2461 
2518 
260 

258 

258 

353 

411 

471 

529 

590 

647 

705 

766 

824 

884 

942 

1003 

1060 

1118 
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1413 

1473 
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1768 

1825 
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2123 

2181 

2238 

2299 

2357 
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258 
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2346 
2407 
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269 

267 

267 
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415 

475 
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709 
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888 
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1007 
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2421 
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1976 

1996 

1998 
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2117 

2119 
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2123 

2125 
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629 
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687 

720 

749 

778 

807 

836 

870 

899 

928 

956 

985 

1019 

1048 

1077 

1106 

1140 

1168 
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1226 

1255 
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1375 

1404 
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1525 

1559 

1587 
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1324 

1349 

1351 

1353 
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1817* 

1817 

1819* 

1819 

1821* 

1821 

1823* 

1823 

1825* 

1825 

1830* 

1830 

1832* 

1§?5* 

1835 

1837* 

1837 

1839* 

1839 

18A1* 

18A1 

18A3* 

18A3 

18A5* 

1845 

1847* 

18A9* 

18A9 

1851* 

1851 

1853* 

1853 

1855* 

1855 

1857* 

1857 

1859* 

1859 

1861* 

1863* 

1863 

1865* 

1865 

1868* 

1868 

1870* 

1870 

1872* 

1872 

187A* 

1874 

1876* 

1878* 

1878 

1880* 

1880 

1882* 

1882 

188A* 

188A 

1886* 

1886 

1888* 

1888 

1890* 

1892* 

1892 

189A* 

189A 

1896* 

1896 

1898* 

1898 

1901* 

1901 

1903* 

1903 

1905* 

1907* 

1907 

1909* 

1909 

1911* 

1911 

1913* 

1913 

1915* 

1915 

1917* 

1917 

1919* 

1921* 

1921 

1923* 

1923 

1925* 

1925 

1927* 

1927 

1929* 

1929 

1931* 

1931 

1934* 

1936* 

1936 

1938* 

1938 

19A0* 

19A0 

19A2* 

19A2 

19AA* 

19AA 

19A6* 

1946 

1948* 

1950* 

1950 

1952* 

1952 

195A* 

195A 

1956* 

1956 

1958* 

1958 

1960* 
1978* 

1960 

1962* 

im* 

196A 

1969* 

1969 

1971* 

1971 

197A* 

197A 

1976* 

1976 

1978 

1980* 

1982* 

12§2 

198A* 

198A 

1986* 

1986 

1988* 

1988 

1990* 

1990 

1992* 

1992 

1994* 

1996* 

1996 

1998* 

1998 

2000* 

im 

2002* 
2017* 

2002 

200A* 

200A 

2007* 

2007 

2009* 

2011* 

2011 

2013* 

2013 

2015* 

2017 

2019* 

2019 

2021* 

2021 

9 

2023* 

1255 

1269 

1287 

1301 

1316 

1330 

1345 

1359 

1373 

1388 

1A02 

1A20 

1A34 

1448 

1463 

1477 

1492 

1506 

1521 

1535 

1552 

1567 

1581 

1596 

1610 

1625 

1639 

1653 

1668 

1682 

1700 

1714 

1729 

1743 

1757 

1772 

1786 

1801 

1815 

1832 

1847 

1861 

1876 

1890 

1905 

1919 

1934 

1948 

1962 

1980 

1994 

2009 

2023 


SEQ  1294 


~1 


1282 


nuoRD 


2025# 
20A0* 
205A# 
2068# 
2083# 
2097# 
2115# 
2129# 
2143# 
2158# 
2172* 
2187* 
2201* 
221 6# 
2230* 
2247* 
2262# 
2276* 
2291* 
2305* 
2320* 
2334* 
2348* 
2363* 
2377* 
2395* 
2409* 
2424* 
2438* 
2452* 
2467* 
2481* 
2496* 
2510* 
103 
135 
172 
215 
258 
301 
330 
359 
388 
417 
449 
478 
506 
535 
564 
596 
625 
654 
683 


2025 

2027* 

2040 

2042* 

2054 

2056* 

2068 

2070* 

2083 

20i5* 

2097 

2099* 

2115 

21"  7* 

2129 

21:1* 

2143 

2146* 

2158 

2160* 

2172 

2174* 

2187 

2189* 

2201 

2203* 

2216 

2218* 

2230 

2232* 

2247 

2249* 

2262 

2264* 

2276 

2278* 

2291 

2293* 

2305 

2307* 

2320 

2322* 

2334 

2336* 

2348 

2351* 

2363 

2365* 

2377 

2379* 

2395 

2397* 

2409 

2411* 

2424 

2426* 

2438 

2440* 

2452 

2454* 

2467 

2469* 

2^81 

2483* 

?496 

2498* 

i510 

2512* 

105 

111 

137 

139 

177 

179 

217 

III 

260 

Ibl 

303 

306 

332 

334 

361 

363 

390 

392 

419 

421 

451 

453 

480 

482 

508 

511 

537 

539 

566 

568 

598 

600 

627 

629 

656 

658 

685 

687 

2027 

2029* 

2029 

2031* 

2042 

2044* 

2044 

2046* 

2056 

2058* 

2058 

2060* 

2070 

2073* 

2073 

2075* 

2085 

2087* 

2087 

2089* 

2099 

2101* 

2101 

2103* 

2117 

2119* 

2119 

2121* 

2131 

2133* 

2133 

2135* 

2146 

2148* 

2148 

2150* 

2160 

2162* 

2162 

2164* 

2174 

2176* 

2176 

2179* 

2189 

2191* 

2191 

2193* 

2203 

2205* 

2205 

2207* 

2218 

2220* 

2220 

2222* 

2232 

2234* 

2234 

2236* 

2249 

2252* 

2252 

2254* 

2264 

2266* 

2266 

2268* 

2278 

2280* 

2280 

2282* 

2293 

2295* 

2295 

2297* 

2307 

2309* 

2309 

2311* 

2322 

2324* 

2324 

2326* 

2338* 

2338 

2340* 

2351 

2353 

2355* 

2365 

2367* 

2367 

2369* 

2379 

2381* 

2381 

2386* 

2397 

2399* 

2399 

2401* 

2411 

2413* 

2413 

2415* 

2426 

2428* 

2428 

2430* 

2440 

2442* 

2442 

2444* 

2454 

2457* 

2457 

2459* 

2469 

2471* 

2471 

2473* 

2483 

2485* 

2485 

2487* 

2498 

2500* 

2500 

2502* 

2512 

2514* 

2514 

2516* 

113 

115 

117 

119 

141 

143 

145 

150 

181 

186 

188 

190 

224 

226 

231 

233 

267 

269 

271 

276 

308 

310 

::i2 

314 

339 

:4i 

343 

365 

367 

:69 

372 

394 

:98 

400 

423 

425 

427 

429 

455 

457 

459 

461 

484 

486 

^?? 

490 

513 

515 

519 

541 

544 

546 

548 

570 

572 

574 

579 

602 

604 

^ 

608 

631 

633 

637 

660 

662 

664 

666 

689 

691 

693 

695 

2031 

2033* 

2046 

2048* 

2060 

2062* 

2075 

2077* 

2089 

2091* 

2103 

2108* 

2121 

2123* 

2135 

2137* 

2150 

2152* 

2164 

2166* 

2179 

2181* 

2193 

2195* 

2207 

2209* 

2222 

2224* 

2236 

2238* 

2254 

2256* 

2268 

2270* 

2282 

2285* 

2297 

2299* 

2311 

2313* 

2326 

2328* 

2340 

2342* 

2355 

2357* 

2369 

2371* 

2386 

2388* 

2401 

2403* 

2415 

2417* 

2430 

2432* 

2444 

2446* 

2459 

2461* 

2473 

2475* 

2487 

2490* 

2502 

2504* 

2516 

2518* 

121 

123 

152 

154 

195 

197 

235 

240 

278 

280 

316 

318 

345 

347 

374 

376 

402 

405 

4^1 

433 

463 

465 

492 

494 

521 

523 

550 

552 

581 

584 

610 

612 

639 

641 

668 

670 

697 

699 

2033 

2048 

2062 

2077 

2091 

2108 

2123 

2137 

2152 

2166 

2181 

2195 

2209 

2224 

2238 

2256 

2270 

2285 

2299 

2313 

2328 

2342 

2357 

2371 

2388 

2403 

2417 

2432 

2446 

2461 

2475 

2490 

2504 

2518 

125 

159 

199 

242 

285 

320 

349 

378 

407 

435 

467 

496 

525 

554 

586 

614 

643 

672 

701 


2035* 

2035 

2037* 

2050* 

2050 

2064* 

2064 

2066* 

2079* 

2079 

2081* 

2093* 

2093 

2095* 

2110* 

2110 

2113* 

2125* 

2125 

2127* 

2139* 

2139 

2141* 

2154* 

2154 

2156* 

2168* 

2168 

2170* 

2183* 

2183 

2185* 

2197* 

2197 

2199* 

2212* 

2212 

2214* 

2226* 

2226 

2228* 

2240* 

2240 

2242* 

2258* 

2258 

2260* 

2272* 

nil 

2274* 

2287* 

lis? 

2289* 

2301* 

2301 

2303* 

2315* 

2315 

2318* 

2330* 

2330 

2332* 

2344* 

2344 

2346* 

2359* 

2359 

2361* 

2373* 

2373 

2375* 

2391* 

2391 

2393* 

2405* 

2405 

2407* 

2419* 

2419 

2421* 

2434* 

2434 

2436* 

2448* 

2448 

2450* 

2463* 

2463 

2465* 

2477* 

Wl 

2479* 

2492* 

U9l 

2494* 

2506* 

2506 

2508* 

2520* 

2520 

2522* 

127 

129 

131 

161 

163 

168 

204 

206 

208 

244 

11^9 

251 

287 

289 

294 

322 

326 

351 

353 

355 

380 

382 

384 

409 

411 

413 

440 

i,kl 

445 

469 

i^iy 

473 

498 

500 

502 

527 

529 

531 

556 

558 

560 

588 

590 

592 

617 

619 

621 

645 

647 

674 

676 

678 

703 

705 

707 

2037 

2052 

2066 

2081 

2095 

2113 

2127 

2141 

2156 

2170 

2185 

2199 

2214 

2228 

2242 

2260 

2274 

2289 

2303 

2318 

2332 

2346 

2361 

2375 

2393 

2407 

2421 

2436 

2450 

2465 

2479 

2494 

2508 

2522 

133 

170 

213 

253 

296 

328 

357 

386 

415 

447 

47^ 

562 
594 
623 
652 
680 
709 


SEQ  1295 


■"•1   r 


711 
7A3 
772 
801 
830 
862 
890 
919 
9A8 
977 
1009 
1038 
1067 
1095 
112A 
1156 
1185 
1214 
1243 
1274 
1303 
1332 
1361 
1390 
1422 
1451 
1479 
1508 
1537 
1569 
1598 
1627 
1656 
1684 
1716 
1745 
1774 
1803 
1835 
1863 
1892 
1921 
1950 
1982 
2011 
2040 
2068 
2097 
2129 
2158 
2187 
2216 
2247 


713 
745 
774 
803 
832 
864 
892 
921 
950 
979 
1011 
1040 
1069 
1097 
1126 
1158 
1187 
1216 
1245 
1276 
1305 
1334 
1363 
1392 
1424 
1453 
1481 
1510 
1539 
1571 
1600 
1629 
1658 
'686 
1718 
1747 
1776 
1805 
1837 
1865 
1894 
1923 
1952 
1984 
2013 
2042 
2070 
2099 
2131 
2160 
2189 
2218 
2249 


718 
747 
776 
805 
834 
866 
895 
923 
952 
981 
1013 
1042 
1071 
1100 
1128 
1160 
1189 
1218 
1247 
1279 
1307 
1336 
1365 
1394 
1426 
1455 
1484 
1512 
1541 
1573 
1602 
1631 
1660 
1691 
1720 
1749 
1778 
1807 
1839 
1868 
1896 
1925 
1954 
1986 
2015 
2044 
2073 
2101 
2133 
2162 
2191 
2220 
2252 


720 
749 
778 
807 
836 
868 
897 
925 
954 
983 
1015 
1044 
1073 
1102 
1130 
1162 
1191 
1220 
1249 
1281 
1309 
1338 
1367 
1396 
1428 
1457 
1486 
1514 
1543 
1575 
1604 
1633 
1662 
1693 
1722 
1751 
1780 
1809 
1841 
1870 
1898 
1927 
1956 
1988 
2017 
2046 
2075 
2103 
2135 
2164 
2193 
2222 
22'ii^ 


723 
751 
780 
809 
838 
870 
899 
928 
956 
985 
1017 
1046 
1075 
1104 
1135 
1164 
1193 
1222 
1251 
1283 
1312 
1340 
1369 
1398 
1430 
1459 
1488 
1517 
1545 
1577 
1606 
1635 
1664 
1696 
1724 
1753 
1782 
1811 
1843 
1872 
1901 
1929 
1958 
1990 
2019 
2048 
2077 
2108 
2137 
2166 
2195 
2224 
2256 


725 
753 
782 
811 
840 
872 
901 
930 
958 
987 
1019 
1048 
1077 
1106 
1137 
1166 
1195 
12?4 
\2V. 
1285 
1314 
1342 
1371 
1400 
1432 
1461 
1490 
1519 
1547 
1579 
1608 
1637 
1666 
1698 
1726 
1755 
1784 
1813 
1845 
1874 
1903 
1931 
1960 
1992 
2021 
2050 
2079 
2110 
2139 
2168 
2197 
2226 
2258 


727 
756 
784 
813 
842 
874 
903 
932 
961 
989 
1021 
1050 
1079 
1108 
1140 
1168 
1197 
1226 
1255 
1287 
1316 
1345 
1373 
1402 
1434 
1463 
1492 
1521 
1552 
1581 
1610 
1639 
1668 
1700 
1729 
1757 
1786 
1815 
1847 
1876 
1905 
1934 
1962 
1994 
2023 
2052 
2081 
2113 
2141 
2170 
2199 
2228 
2260 


729 

731 

733 

758 

760 

762 

786 

789 

791 

815 

117 

n9 

844 

)46 

i48 

876 

178 

i80 

905 

907 
936 

909 

934 

938 

963 

965 

967 

991 

996 

998 

1023 

1025 

1027 

1052 

1054 

1056 

1081 

1083 

1085 

1110 

1112 

1114 

1142 

1144 

1146 

1170 

1173 

1175 

1199 

1201 

1203 

1228 

1230 

1232 

1257 

1259 

1261 

1289 

1291 

1293 

1318 

1320 

1322 

1347 

1349 

1375 

1378 

1380 

1404 

1406 

1408 

1436 

1438 

1440 

1465 

1467 

1469 

1494 

1496 

1498 

1523 

1525 

1527 

1554 

1557 

1559 

1583 

1585 

1587 

1612 

1614 

1616 

1641 

1643 

1645 

1670 

1672 

1674 

1702 

1704 

1706 

1731 

1733 

1735 

1759 

1762 

1764 

1788 

1790 

1792 

1817 

1819 

1  21 

1849 

1851 

1  53 

1878 

1880 

1  82 

1907 

1909 

1911 

1936 

1938 

1940 

1964 

1969 

1971 

1996 

1998 

2(00 

2025 

2027 

2(29 

2054 

2(58 

2083 

2085 

2187 

2115 

2117 

2  19 

2143 

2146 

2148 

2172 

2174 

2176 

2201 

\Wi 

2205 

2230 

2234 

2262 

2264 

2266 

735 

737 

739 

764 

766 

768 

793 

795 

797 

822 

824 

826 

850 

852 

857 

882 

884 

886 

911 

913 

915 

940 

942 

944 

969 

971 

973 

1001 

1003 

1005 

1029 

1031 

1034 

1058 

1060 

1062 

1087 

1089 

1091 

1116 

1118 

1120 

1148 

1150 

1152 

1177 

1179 

1181 

1206 

1208 

1210 

1234 

1236 

1239 

1263 

1265 

1267 

1295 

1297 

1299 

1324 

1326 

1328 

1353 

1355 

1357 

1382 

1384 

1386 

1413 

1415 

1418 

1442 

1444 

1446 

1471 

1473 

1475 

1500 

1502 

1504 

1529 

1531 

1533 

1561 

1563 

1565 

1590 

1592 

1594 

1618 

1620 

1623 

1647 

1649 

1651 

1676 

1678 

1680 

1708 

1710 

1712 

1737 

1739 

1741 

1766 

1768 

1770 

1795 

1797 

1799 

1823 

1825 

1830 

1855 

1857 

1859 

1884 

1886 

1888 

1913 

1915 

1917 

1942 

1944 

1946 

1974 

1976 

1978 

2002 

2004 

2007 

2031 

2033 

2035 

2060 

2062 

2064 

2089 

2091 

2093 

2121 

2123 

2125 

2150 

2152 

2154 

2179 

2181 

2183 

2207 

2209 

2212 

2236 

2238 

2240 

2268 

2270 

2272 

741 
770 
799 
828 
859 
888 
917 
946 
975 
1007 
1036 
1064 
1093 
1122 
1154 
1183 
1212 
1241 
1269 
1301 
1330 
1359 
1388 
1420 
1448 
1477 
1506 
1535 
1567 
1596 
1625 
1653 
1682 
1714 
1743 
1772 
1801 
1832 
1861 
1890 
1919 
1948 
1980 
2009 
2037 
2066 
2095 
2127 
2156 
2185 
2214 
2242 
2274 


SEQ  1296 


1284 


2276 

2278 

2280 

2282 

2285 

2305 

2307 

2309 

2311 

2313 

2334 

2336 

2338 

2340 

2342 

2363 

2365 

2367 

2369 

2371 

2395 

2397 

2399 

2401 

2403 

2424 

2426 

2428 

2430 

2432 

2452 

2454 

2457 

2459 

2461 

2481 

2483 

2485 

2487 

2490 

2510 

2512 

2514 

2516 

2518 

RTN 

78 

95 

SCOPER 

89 

2287 

2289 

2291 

2315 

2318 

2320 

2344 

2346 

2348 

2373 

2375 

2377 

2405 

2407 

2409 

2434 

2436 

2438 

2463 

2465 

2467 

2492 

2494 

2496 

2520 

2522 

?293 

2295 

2322 

2324 

2351 

2353 

2379 

2381 

2411 

2413 

2440 

2442 

2469 

2471 

2498 

2500 

2297 

2299 

2326 

2328 

2355 

2357 

2386 

2388 

2415 

2417 

2444 

2446 

2473 

2475 

2502 

2504 

2301 

2303 

2330 

2332 

2359 

2361 

2391 

2393 

2419 

2421 

2448 

2450 

2477 

2479 

2506 

2508 

SEQ  1297 


DFPT 
DFPT 

< 

4 

4 

4 

5 
< 


)  1285 


0FPTA7  MACRO 
DFPTA7  MAC 


X53B(1242)  09:06  1-Jul-85  Page  1    ^„„,  ^    ,„   ,x 
18-Apr-85  10:59       EBUS/MPROC  2901  Tests  (Part  ^) 


SEO  1298 


DFP" 
DFPi 


29  000000' 


TITLE   DFPTA7 

SUBTTL  EBUS/MPROC  2901  Tests  (Part  4) 

SALL 

SEAPCH  DFPTA.MONSYM 

;  INTERN'S 

ENTRY   TSTA33,TSTA3A,TSTA35,TSTA36,TSTA37.TSTA40,TSTA41,TSTAA2 

;  EXTERN's  located  in  DFPTA1.MAC  (Mainline  code..) 

EXTERN  TLOAD, TRACE, TSTSUB.AEXEC.AAPNT,ALEBF,ALFLS.BEXEC,BBPNT 
;  EXTERN's  located  in  DFPTAI.MAC  (Port  Device  Handling  Routines  module) 

EXTERN  IPACLR 
;  EXTERN's  located  in  DFPTAU.MAC  (Utility  Routines  module) 

EXTERN  SCOSy 

•ft******************************************************************* 
;  27   -  Address  for  use  in  DDT 


17: 


;  address  of  00000' 


...I 


r" 


Q  1286 


DFPTA7  MACRO  »53B(1242)  09:06  1-Jul-85  Page  2    ^^^,  ^ 

DFPTA7  MAC     18-Apr-85  10:59        EBUS/MPROC  2901  Tests  (Part  4) 


SEQ  1299 


OFP 
DFP 


41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

82 


000000' 
000001 • 
000002' 
000003' 
00000^ ' 
000005' 
000006' 
000007' 
000010' 
000011 ' 
000012* 


254  00 

42040" 

0001 

003^ 

000^ 

OOOl 

000000 

000000 

000000 


0  00  000013' 
000033 
03412' 
aOOOOO 
000135' 
000277' 
001333' 
002016' 
002244' 

Wrfr 


*  TEST  33  -  Q-Register  Shift 

Descriptior,:  Verify  that  the  Q-register  can  be  shifted  left 
and  right  correctly. 

Procedure:    Clear  Port 

Load  microcode 

Set  RAR  to  0 

Execute  JMAP,C0NT,JMAP  -  load  a  1  into  the  Q-Reg 

and  write  into  EBUF  to  verify  initialization 

worked. 
Read  EBUF  (Contains  contents  of  Reg  Q) 
Verify  data  is  correct  -  0000.. 001 

Set  RAR  to  3 

Execute  JMAP,JMAP  sequence 

Read  EBUF  (Contains  contents  of  Q-Reg) 

Verify  data  is  correct  0000.. 002 

Repeat  the  above  4  steps  34  times  and  verify  the 
bit  is  shifting  left  one  position  each  time. 

Set  RAR  to  5 

Execute  JMAP  -  copy  400000. .0  into  Q-Reg 

Verify  data  is  correct  4000.. 000 

Set  RAR  to  5 

Execute  JMAPJMAP  sequence 

Read  EBUF  (Contains  contents  of  Q-Reg) 

Verify  data  is  correct  2000.. 000 

Repeat  the  above  4  steps  34  times  and  verify  the 
bit  is  shifting  right  one  position  each  time. 

Failure:     — 
^» ***♦♦»*«•*♦♦**»*♦*♦♦♦*♦♦*»♦**•***•***♦*♦**♦****♦*♦***»♦ ************ 


Test  data 

TSTA33:  JRST  TG33  ,  ; 
EByS!ALU!NDMPIZALUl33  ; 
T33M..CASCIZ  *Q-Register  Shift*] 

CEXP  mlast:e23]..o 

TSTA34  ; 

TSTA35  ; 

TSTA36 

TSTA37 

TSTA40 

TSTA41 

-1 


?o  start  test 
est  mask 


failure  test  table 


n 
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SEQ  1300 


DFF 
DFF 


83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 


000013'  201  00  0  00  000000' 
000014'  260  17  0  00  000000* 
01  0 


000015' 
000016' 


201  ..  - 
260  17  0 


000017'  263  17  0 


00  000104' 
00  000000* 
00  000000 


000020'  400  15  0  00  000000 

000021'  260  17  0  00  000000* 

000022'  402  00  0  00  000000* 

000023'  201  06  0  00  000035' 


000024'  260  17  0  00  000000* 

000025'  254  00  0  00  000034' 

000026'  254  00  0  00  000024' 

000027'  474  15  0  00  000000 


00003C'  027  00  0  00  000102' 

000031'  254  00  0  00  000020' 

000032'  254  00  0  00  000034' 

000033'  322  15  0  00  000024' 


000034'  263  17  0  00  000000 


000035' 
000036' 
000037' 
000040' 
000041 ' 
000042' 
000043' 
000044' 


000045' 
000046' 
000047' 
000050' 
000051 • 


100300 
000000 
300000 
400000 
100300 
000000 
500000 
000000 


000002 

000001 

000045' 

000052' 

000000 

000000 

000040' 

000000 


201  00 

202  00 
20\  00 
202  00 
263  17 


00  000001 
00  003671 ' 
00  000003 
00  003672' 
00  000000 


Start  test 


TG33:   MOVE I 
GO 

MOVE  I 
GO 
RTN 

;  Initialization 


17 

TRACE 
1,T33M 
TLOAD 


TL33; 


SETZ 
GO 

SETZM 
MOVE  I 


ERFLG. 
IPACLR 
TSTSUB 
6.TS33 


Loop  on  single  step  table  entries 


TA33; 


GO 

JRST 
JRST 
SETO 


BEXEC 
TX33 
TA33 
ERFLG, 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


;  clear  error  flag 

;  clear  port 

;  initialize  subtest  number 

;  get  sstep  table  address 


;  execute  table  entry 

;  end  of  sstep  table 

;  keep  looping  after  call 

;  error  -  EBUP  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUHPE 


MA33 
TL33 
TX33 
ERFLG. TA33 


;  End  of  test 

TX33:   RTN 

;  Sstep  table,  with  EBUF  data,  as: 

TS33:   ATABLE  (SSSTRT,3,0,2,1) 

ATABLE  (SSCALL,TS33IN) 

TS33L:  ATABLE  (SSCHK,TS33AD) 

ATABLE  (SSSTRT,3,0,0,0) 

ATABLE  (SSJRSTJS33L) 

ATABLE  (SSLAST) 


Special  routines 


TS33IN:  MOVEI 
MOVEM 
MOVEI 
MOVEM 
RTN 


1 

TS33PT# 
3 
TS33ST# 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  return 

(CMD,#Steps, Start  addr.End  Addr.EBUF  data) 

;  do  2  single  steps/check  resflts 

;  initialize  test  parameters 

;  set  up  single  step  parameters 

;  do  3  single  steps/check  results 

;  do  n^xt  address 

;  end  of  table 

;  initialize  data  pattern 

;  initialize  start  address 

;  return 


~1 


DFPTA7 
DFPTA7 

135 
136 
137 
138 
139 
KO 
U1 
K2 
143 
UA 
1A5 
1A6 
1A7 
1A8 
1A9 
150 
151 
152 
153 
15A 
155 
156 
157 
158 
159 
160 
161 
162 
163 
16A 
165 
166 
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000052* 
000053' 
00005A' 
000055' 
000056' 
000057' 
000060' 
000061 ' 

000062' 
000063' 
00006A' 
000065* 
000066' 
000067' 

000070' 
000071 ' 
000072' 
000073' 
00007A ' 
000075* 
000076* 
000077* 
000100* 
000101* 


000102' 
000103' 


200  01 

200  02 
326  01 
306  02 
263  17 
515  01 

201  02 
25A  00 


0  00  003671 ' 
0  00  003672' 
0  00  000062' 
0  00  000011 
0  00  000000 
0  00  AOOOOO 
0  00  000006 
0  00  000070' 


306  02  0  00  000003 
2A2  01  0  00  000001 
306  02  0  00  000003 
25A  00  0  00  000070' 
201  02  0  00  000011 

2A2  01  0  00  mm 


202  01  0 
202  02  0 

200  03  0 
137  02  0 

201  02  0 
137  02  0 

202  03  0 
202  01  0 
350  00  0 
263  17  0 


00  003671 ' 
00  003672' 
06  000000 
00  003A17* 
02  000002 
00  003A20' 
06  000000 
06  000001 
17  000000 
00  000000 


TS33AD:  MOVE 
MOVE 
JUMPN 
CAIN 
RTN 
HRLZI 
MOVE  I 
JRST 

TS33A0:  CAIN 
LSH 
CAIN 
JRST 
MOVEI 
LSH 

TS33A1:  MOVEM 
MOVEM 
MOVE 
DPS 
MOVEI 
DPB 
MOVEM 
MOVEM 
AOS 
RTN 

;  Error  messages 


1,TS33PT 
2,TS33ST 
1.TS33A0 
2.11 

1, AOOOOO 

2,6 

TS33A1 

2.3 

1.1 

2.3 

TS33A1 

2.11 

1.-1 

1.TS33PT# 

2.TS33ST# 

3.(6) 

2.CP0INT  12.3.233 

2. [POINT  12.3.35J 

3.(6) 

1.1(6) 

(P) 


SEQ  1301 


get  data  pattern 

get  start  address 

done?  no  -  continue 

already  on  2nd  set? 

yes  -  return  +1  (done) 

no  -  get  proper  data  pattern 

set  up  new  address 

continue 

left  shifting? 

yes  -  shift  it 

left  shifting? 

yes  -  continue 

set  up  correct  starting  address 

yes  -  shift  it 

save  data  pattern 
save  starting  address 
get  table  entry 
save  initial  address 
get  address+1 
save  final  address 
save  it 

save  data  pattern 
set  up  RTN+2 
return 


iiJOOO  003A21 
000000000000* 


MA33:   MS6!TXN0T!CASCIZ  /Q-Registe-  not  shifted  correctly/] 

LAST! CALL! TXALLIBBPNT         ;  print  sequencer  data 


DFPTA7 
0FPTA7 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 
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SEQ  1302 


000104' 
000105' 
000106' 
000107' 
000110' 
000111' 

000112' 
000113' 
000114' 
000115' 
000116' 
000117' 

000120' 
000121' 
000122' 
000123' 
000124' 
000125' 

000126' 
000127' 
000130' 
000131' 
000132' 
000133' 
000134' 


;  Microcode: 

000100 
200000 
000200 
231000 

010000 
000040 
OOOOOO 
000740 
022004 
005040 

T33M:   MWORD 
MUORD 
nUORD 

000300 
232000 
000400 
236000 
000500 
231000 

000600 
430010 
000700 
430010 
001000 
231000 

001100 
232000 
001200 
234000 
001300 
231000 
77^777 


040000 
400040 
OOOOOO 
000340 
052004 
005040 

070000 
000040 
OOOOOO 
000340 
102004 
005040 

120000 
400040 
OOOOOO 
000340 
132004 
005040 
777777 


<ADDR=0,JMAPJ=1,S0A,AND,D=0>  ;  0 

<C0NT,S0Q, PLUS, CRY, D=0>  ;  1 

<JMAP,J=2,S0Q,OR,D=1,OENA,SELE,MGC=4>  ;  2 

MUORD   <JMAP,J=4,S0Q,OR,D=2,B=l>  ;  3 

MWORD   <C0NT,30Q,0R,D=6>  ;  4 

MWORD   <JMAP,J=5,S0Q,OR,D=l,OENA,SELE,MGC=4>  ;  5 

MWORD   <JMAP,J=7,S0A,OR,A=1,D=0>  ;  6 

MWORD   <CONT,SOA,OR,A=1,D=0>  ;  7 

MWORD   <JMAP.J=10,SOQ,OR,D=1.0ENA,SELE,M6C=4>  ;  10 


MWORD 
MWORD 
MWORD 
-1 


<JMAP,J=12,S0C,OR,D=2,B=1>  ;  11 

<C0NT,S0Q,0R,D=4>  ;  12 

<JMAP,J=13,S0Q.QR.D=1,OENA,SELE,M6C=4>  ;  13 


J 


J 
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SEQ  1303 


198 
199 
]00 
01 
)2 
_)3 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 


000135' 
000136' 
000137' 
000140' 
000141 ' 
000142' 
000143' 
000144' 
000145' 
000146' 


000147' 
000150' 
000151' 
000152* 
000153' 


000154' 
000155' 


*  TEST  34  -  Q-Register  Right/Left  Shift 

Description:  Verify  that  the  Q-register  can  be  shifted  left 
and  right  correctly  at  full  speed. 

Procedure:    Clear  Port 

Load  microcode 

Set  RAR  to  0  .  .    .    „ 

Execute  JMAP,CONT  -  load  a  1  into  the  Q-Reg 

Execute  a  loop  of  35  left  shifts  followed  by 
35  right  shifts,  with  5  left/right  shifts  at 
each  point,  and  verify  that  the  final  data 
in  the  Q-Reg,  read  out  of  the  EBUF  is  00.. 001 

Failure:     — 
f ************ ******************************************************** 


Test  data 


254  00 

420402 

000210' 

003416' 

000000 

000000 

000000 

OuJOOO 

000000 

777777 


0   00  000147' 
000034 
003430' 
000000 
000277' 
001333' 
002016' 
002244' 
002467' 
777777 


10  start  test 


TSTA34:  JRST    T634      ,  •  9      . 

EBUS!ALU!NDMP!ZALU!34  ;  test  mask 
T34M,,[ASCIZ  "Q-Register  Right/Left  Shift*D 
CEXP  MLAST!E233,,0 
TSTA35 


failure  test  table 


201 
260 
201 
260 
263 


400 
260 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


OOOOCO' 
000014* 
000210' 
000016* 
000000 


TSTA36 
TSTA37 
TSTA40 
TSTA41 
-1 

;  Start  test 

TG34:   r^OVEl 
60 

Rl> 
;  Init'*:'.  .'zation 


27 

TRACE 

1,T34M 

TLOAD 


15  0 
17  0 


00  000000 
00  000021* 


TL34: 


StTZ 
60 


ERFL6, 
IPACLR 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 


.-  J 


DFPTA7 
DFPTA7 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

27% 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 
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SEO  1304 


DFPTA7 
DFPTA7 


000156' 
000157' 
000160' 
000161' 
000162' 
000163' 
000164' 
000165' 
000166' 
000167' 
000170' 
000171' 


201  01 
201  02 
201  03 
400  04 
260  17 
255  00 
400  15 
332  00 
474  15 
200  00 
302  00 
474  15 


00  000012 
00  000000 
00  000032 
00  000000 
00  000000* 
00  000000 
00  000000 
00  000000* 
00  000000 
00  000000* 
00  000001 
00  000000 


000172'  027  00  0  00  000176' 
000173'  254  00  0  00  000154' 
000174'  254  00  0  00  000175' 


000175'  263  17  0  00  000000 


000176'  140000  003436' 

000177'  270000  000200' 

000200'  200  01  0  00  000000* 

000201 '  603  01  0  00  000200 

000202'  037  00  0  00  003450' 

000203'  607  01  0  00  000200 

000204'  037  00  0  00  003460' 

000205'  200  00  0  00  000167* 

000206'  037  13  0  00  000000 

000207'  263  17  0  00  000000 


000210'  000000  010000 

000211'  440000  000040 

000212'  000100  000000 

000213'  200000  000740 


000214'  000200  420003 

000215'  001000  000300 

000216'  000300  000000 

000217'  236000  000340 


;  1st  segment  of  test  (Segment  A)  -  Start  up  port  and  wait  till  it  stops 


TA34: 


MOVFI 

MOVE  I 

HOVE  I 

SET2 

60 

JFCL 

SETZ 

SKIPE 

SETO 

MOVE 

CAIE 

SETO 


1,*D10 
2,0 

AEXEC 

ERFLG. 

ALFLS 

ERFLG, 

ALEBF 

1 

ERFLG, 


maximum  delay  before  timeout  (msec) 

error  address 

correct  address 

starting  address 

execute  ALU  type  test 

ignore  error 

clear  error  flag 

started  up  ok? 

no  -  set  error  flag 

get  EBUF  data 

correct? 

no  -  set  error  flag 


;  Handle  error  printouts  and  scope  looping 


print  error  message 
loop  on  error 
altmode  exit 


SCOPER  MA34 
JRST  TL34 
JRST    TX34 

;  End  of  test 

TX34:   RTN 

;  Error  messages 

MA34:   MSG!TXNOT![ASCIZ  /Q-Register  not  shifted  correctly  at  full  speed/] 
LAST! CALL !TXALL!MA34PN 


return 


MA34PN:  MOVE 
TLNE 
TMSGC 
(A) :  > 
TLNN 
TMSGC 
(Actual) 
MOVE 
PNTHU 
RTN 

;  Microcode: 

T34M:   MWORD 

MUORD 

;  Left  shifts 
MWORD 
MUORD 


1,SC0SW 
1,TXTINH 
<E8UF  (C) 


000000  OOOOOl 


;  get  switches 
;  Tul 


jll  printout 


1,TXTINH 
<EBUF  (Correct): 
> 
ALEBF 


;  full  printout 
000000  000001 


<ADDR=0, JMAP,J=1 ,SOA.AND,D=0> 
<C0NT,S0Q, PLUS, CRY, D=0> 

<LDCT,J=42,D=1> 
<C0NT,S0Q,0R,D=6> 


;  0 
;  1 

;  2 
;  3 


-"1 


^"1 
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SEQ  1305 


299 

000220' 

300 

000221 ' 

000222' 

302 

000223' 

303 

000224' 

304 

000225' 

305 

000226' 

306 

000227' 

307 

308 

309 

310 

000230' 

311 

000231 ' 

312 

000232' 

313 

000233' 

3U 

000234' 

315 

000235' 

316 

000236' 

317 

000237' 

318 

000240' 

319 

000241  • 

320 

000242' 

321 

000243' 

322 

323 

324 

325 

000244' 

326 

000245' 

327 

000246' 

328 

000247' 

329 

000250' 

330 

000251 ' 

331 

000252' 

332 

000253' 

333 

000254' 

334 

000255' 

335 

000256' 

336 

000257' 

337 

338 

339 

340 

000260' 

341 

000261 ' 

342 

000262' 

343 

000263' 

344 

000264' 

45 

000265' 

46 

000266' 

3 

47 

000267' 

' 

48 

000270' 

: 

49 

000271 • 

: 

50 

000272' 

I 

51 
53 

000273' 

000274' 

000400 
234000 
000500 
236000 
000600 
234000 
000700 
236000 


001000 
001000 
001100 
234000 
001200 
236000 
001300 
234000 
001400 
236000 
001500 
234000 


001600 
001000 
001700 
236000 
0u:!000 
234000 
002100 
236000 
002200 
234000 
002300 
236000 


002400 
001000 
002500 
234000 
002600 
236000 
002700 
234000 
003000 
236000 
003100 
234000 


000000 
000340 
000000 
000340 
000000 
000340 
030000 
000220 


420000 
000300 
000000 
000340 
000000 
000340 
000000 
000340 
000000 
000340 
110000 
000220 


420000 
000300 
000000 
000340 
000000 
000340 
000000 
000340 
000000 
000340 
170000 
000220 


420000 
000300 
000000 
000340 
000000 
000340 
000000 
000340 
000000 
000340 
250000 
000220 


003200  322004 


4 
5 
6 
7 

10 
11 
12 
13 
14 
15 

16 
17 
20 
21 
22 
23 

24 
25 
26 
27 

30 

31 

MWORD   <JMAP.J=32,S0Q,OR.D=1,OENA.SELE,MGC=4>  ;  32 


MUORD 

<C0NT,S0Q,0R.D=4> 

MWORD 

<C0NT,S0Q,0R,D=6> 

MUORD 

<CONT,S0Q,OR,D=4> 

MUORD 

<RPCT,J=3,S0Q,OR,D=6> 

;  Right 

shifts 

MUORD 

<LDCT,J=42.D=1> 

MUORD 

<C0NT,S0Q.0R,D=4> 

MUORD 

<CONT,S0Q,OR,D=6> 

MUORD 

<C0NT,S0Q,0R,D=4> 

MUORD 

<C0NT,S0Q,0R,D=6> 

MUORD 

<RPCT.J=11,S0Q.0R,D=4> 

;  Left 

shifts 

MUORD 

<LDCT,J=42,D=1> 

MUORD 

<CONT.S0Q,OR,D=6> 

MUORD 

<CONT,S0Q.OR,D=4> 

MUORD 

<C0NT.S0Q,0R,D=6> 

MUORD 

<C0NT.S0Q,0R,D=4> 

MUORD 

<RPCT,J=17,S0Q,OR.D=6> 

;  Right 

•  shifts 

MUORD 

<LDCT,J=42.D=1> 

MUORD 

<C0NT,S0Q,0R.D=4> 

MUORD 

<C0NT.S0Q.0R,D=6> 

MUORD 

<C0NT,S0Q,0R,D=4> 

MUORD 

<C0NT,S0Q.0R.D=6> 

MUORD 

<RPCT.J=25,S0Q,0R.D=4> 

L 


293 
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SEQ  7306 


35A  000275'  231000  005040 
355  000276'  777777  777777 


-1 


n 


DFPTA7 
DFPTA7 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 
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EBUS/MPROC  2901  Tests  (Part  4) 


/(f***«*********  ******************************************************* 
*  TEST  35  -  RAM  Register  Shift 

Description:  Verify   that  the  RAM  registers  can  be  shifted  left 
and  right  correctly. 

Procedure:    Clear  Port 

Load  microcode 

Set  RAR  to  0  .  .    .   « 

Execute  JMAP,CONT,JMAP  -  load  a  1  into  Reg  0 

and  write  into  EBUF  to  verify  initialization 

worked. 
Read  EBUF  (Contains  contents  of  Reg  0) 
Verify  data  is  correct  -  0000.. 001 

Set  RAR  to  3 

Execute  JMAP.JMAP  sequence 

Read  EBUF  (Contains  contents  of  Reg  0) 

Verify  data  is  correct  0000.. 002 

Repeat  the  above  4  steps  34  times  and  verify  the 
bit  is  shifting  left  one  position  each  time. 

Set  RAR  to  5 

Execute  JMAP  -  copy  400000-,0  into  Reg  0 

Verify  data  is  correct  4000.. 000 

Set  RAR  to  5 

Execute  JMAP.JMAP  sequence 

Read  EBUF  (Contains  contents  of  Reg  0) 

Verify  data  is  correct  2000.. 000 

Repeat  the  above  4  steps  34  times  and  verify  the 
bit  is  shifting  right  one  position  each  time. 

Repeat  entire  test  for  each  2901  register  0-17 

Failure:     — 


SEQ  1307 


000277' 
000300' 
000301 • 
000302' 
000303' 
000304' 
000305' 
000306' 
000307' 


254  00 

420402 

000532' 

003416' 

000000 

000000 

000000 


0  00  000310' 
000035 
003473' 
000000 
001333' 
002016' 
002244' 


Test  data 

TSTA35:  JRST    TG35 

EBUS!ALU!NDMP!ZALU!35         - 
T35M.,[ASCIZ  *RAM  Register  Shift*: 
[EXP  MLAST!E23],,0 


;  go  start  test 
;  test  mask 


TSTA36 
TSTA37 
TSTA40 
TSTA41 
-1 


;  failure  test  table 


1295 


0FPTA7 
DFPTA7 

A09 

A10 

All 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

<43 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 


MACRO  X53B(1242)  09:06 
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EBUS/MPROC 


2901  Tests  (Part  4) 


SEQ  1308 


000310' 
000311' 
000312' 
O00313' 


201  00 
260  17 
201  01 
260  17 


000314'  263  17 


00  000000' 
00  000150* 
00  000532' 
00  000152* 
00  000000 


000315'  400  15  0  00  000000 

000316'  260  17  0  00  000155* 

000317'  402  00  0  00  000022* 

000320'  201  06  0  00  000332' 


000321'  260  17  0  00  000024* 

000322'  254  00  0  00  000331' 

000323'  254  00  0  00  000321' 

000324'  474  15  0  00  000000 


00032S'  027  00  0  00  000523' 

000326'  254  00  0  00  000315' 

000327'  254  00  0  00  000331' 

000330'  322  15  0  00  000321' 


000331'  263  17  0  00  000000 


000332' 
000333' 
000334' 
000335' 
000336' 
000337' 


300000 
400000 
100300 
000000 
500000 
000000 


000340' 

000345' 

000000 

000000 

000333' 

000000 


000340'  476  00 
000341'  476  00 


000342' 
000343' 
000344' 


201 

2or 
26: 


00 
00 
17 


00  003674' 
00  003675' 
00  000114 
00  003673' 
00  000000 


;  Start  test 

T635:   MOVE I  27 

60  TRACE 

MOVEI  1,T35M 

GO  TLOAD 
RTN 

;  Initialization 

TL35:   SETZ  ERFL6. 

GO  IPACLR 

SETZM  TSTSUB 

MOVEI  6.TS35 

;  Loop  on  single  step  table  entries 


TA35: 


60 
JRST 
JRST 
SETO 


BEXEC 
TX35 
TA35 
ERFLG, 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  address 


execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  -  tBUP  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


SCOPER  MA35 

JRST  TL35 

JRST  TX35 

JUMPE  ERFL6,TA35 

;  End  of  test 

TX35:   RTN 

;  Sstep  table,  with  EBUF  data,  as 

TS35:   ATABLE  (SSCALL,TS35IN) 

TS35L:  ATABLE  (SSCHK,TS35AD) 

ATABLE  (SSSTRT,3,0,0,0) 

ATABLE  (SSJRST,TS35L) 

ATABLE  (SSLAST) 

;  Special  routines 

TS35IN:  SETQM  TS35R6# 

SETOM  TS35ST# 

MOVEI  *D76 

MOVEM  TS35PA# 
RTN 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  return 

(CMD,#Steps, Start  addr,End  Addr,EBUF  data) 

;  initialize  test  parameters 

;  set  up  single  step  parameters 

;  do  3  single  steps/check  results 

;  do  next  address 

;  end  of  table 


initialize  register  number 

initialize  start  address  pointer 

initialize  pattern  number  pointer 

return 


L.. 


— 1, 
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A59 
460 

000345' 

200  03  0  00  003675' 

TS35AD: 

MOVE 

3.TS35ST 

461 

000346' 

350  02  0  00  003673' 

AOS 

2,TS35PA 

462 

000347' 

200  01  0  02  000405' 

MOVE 

1.TS35T2(2) 

463 

000350' 

312  01  0  00  003477' 

CAME 

U^cU 

464 

000351 ' 

254  00  0  00  000360' 

JRST 

TS35A0 

465 

000352' 

350  01  0  00  003674' 

AOS 

1.TS35RG 

466 

000353' 

303  01  0  00  000017 

CAILE 

1J7 

467 

000354' 

263  17  0  00  000000 

RTN 

468 

000355' 

403  03  0  00  003675' 

SETZB 

3,TS35ST 

469 

000356' 

402  00  0  00  003673' 

SETZM 

TS35PA 

470 
471 
472 

000357' 

254  00  0  00  000364' 

JRST 

TS35A1 

000360' 

312  01  0  00  003500' 

TS35A0: 

CAME 

u^-.u 

473 

000361 ' 

254  00  0  00  000364' 

JRST 

TS35A1 

474 

000362' 

350  03  0  00  003675' 

AOS 

3,TS35ST 

475 

000363' 

350  00  0  00  003673' 

AOS 

TS35PA 

476 

000364' 

200  01  0  06  000000 

TS35A1 : 

MOVE 

h^Hc 

477 

000365' 

200  02  0  00  003674' 

HOVE 

2.TS35RG 

478 

000366' 

242  02  0  00  000006 

LSH 

2.6 

479 

000367' 

270  02  0  03  000401 ' 

ADD 

2,TS35T1(3) 

480 

000370' 

137  02  0  00  003501' 

DPB 

2. [POINT  12.1.233 

481 

000371 ' 

201  02  0  02  000002 

MOVE  I 

2.2(2) 

482 

000372' 

137  02  0  00  003502' 

DPB 

2. [POINT  12.1.35] 

483 

000373' 

202  01  0  06  000000 

MOVEM 

1.(6) 

484 

000374' 

200  02  0  00  003673' 

MOVE 

2.TS35PA 

485 

000375' 

200  01  0  02  000405' 

MOVE 

1.TS35T2(2) 

486 

000376' 

202  01  0  06  000001 

MOVEM 

1.1(6) 

487 

000377' 

350  00  0  17  000000 

AOS 

(P) 

488 
489 
490 
491 
492 

000400' 

263  17  0  00  000000 

RTN 

;  Starting  address  table 

000401 • 

000000  000000 

TS35T1. 

0 

493 

000402' 

000000  000003 

3 

494 

000403' 

000000  000006 

$, 

495 

000404' 

000000  000011 

11 

SEQ  1309 


get  start  address  pointer 

point  to  next  pattern 

get  data  pattern 

done  with  table? 

no  -  proceed 

yes  -  next  register 

done  with  test? 

yes  -  return 

no  -  initialize  start  address  pointer 

initialize  pattern  number  pointer 


ready  for  next  starting  address? 

no  -  continue 

yes  -  increment  address  pointer 

increment  data  pattern  pointer 

get  table  entry 

get  register  number 

multiply  by  100 

get  starting  address 

save  initial  address 

get  address+1 

za\ie  final  address 

save  it 

get  data  pattern 

get  data  pattern 

save  data  pattern 

set  up  RTN+2 

return 


DFPTA7 
DFPTA7 

496 
A97 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
137 
>38 
>39 
540 
541 
42 
543 
544 
545 
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2901  Tests  (Part  4) 


SEQ  1310 


DFI 
DPI 


r^ 


000405' 

000406' 

000407' 

000410' 

000411' 

000412' 

000413' 

000414' 

000415' 

000416' 

000417' 

000420' 

000421 ' 

000422' 

000423' 

000424' 

000425' 

000426' 

000427' 

000430' 

000431 ' 

000432' 

000433' 

000434' 

000435' 

000436' 

000437' 

000440' 

000441 ' 

000442' 

000443' 

000444' 

000445' 

000446' 

000447' 

000450' 

000451 • 

000452' 

000453' 

000454' 

000455' 

000456' 

000457' 

000460' 

000461 ' 

000462' 

000463' 

000464' 

000465* 


000000 
777777 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oocooo 

000000 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

0uJ400 

001000 

002000 

004000 

010000 

02C000 

040000 

100000 

200000 

400000 

000000 

777777 

400000 

777777 

200000 

100000 

040000 

020000 

010000 

004000 

002000 

001000 


000001 

777777 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

002000 

004000 

010000 

020000 

040000 

100000 

200000 

400000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

777777 

000000 

777777 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


:  Data  pattern  table 

TS35T2:  1 
-1 
2 
4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 
200000 
400000 

?"8 

4-,0 

i6,,o 

20,. 0 
40, ,0 
100, ,0 
200,, 0 
400., 0 

ioo6,.o 

2000,, 0 
4000., 0 

10006,, 0 

20000.. 0 
40000., 0 

100006.. 0 

200000.. 0 
400000.. 0 
0 

-1 

400000.. 0 

iooocco 

1Q0Q00..0 
40000.. 6 
20000,. 0 
1Q000..0 

^888"5 
?xx8"2 

1000,,0 


„,J 


1298 


DFPTA7 
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DFPTA7 

MAC 

18-Apr- 

85  10:59 

5A8 

000466' 

000400 

000000 

^2S"S 

5A9 

000467' 

000200 

000000 

?92"S 

550 

000470' 

000100 

000000 

100. .0 

551 

000471 ' 

000040 

000000 

552 

000472' 

000020 

000000 

?5"2 

553 

000473' 

000010 

000000 

p..o 

55A 

000474' 

000004 

000000 

555 

000475' 

000002 

000000 

?"2 

556 

000476' 

000001 

000000 

466000 

557 

000477' 

000000 

400000 

558 

000500' 

000000 

200000 

200000 

559 

000501 ' 

000000 

100000 

100000 

560 

000502' 

000000 

040000 

40000 

561 

000503' 

000000 

020000 

20000 

562 

000504' 

000000 

010000 

10000 

563 

000505' 

000000 

004000 

4000 

564 

000506' 

000000 

002000 

2000 

565 

000507' 

000000 

001000 

1920 

566 

000510' 

000000 

000400 

400 

567 

000511' 

000000 

000200 

200 

568 

000512' 

000000 

000100 

100 

569 

000513' 

000000 

000040 

4 

570 

000514' 

000000 

000020 

571 

000515' 

000000 

000010 

572 

000516' 

000000 

000004 

4 

573 

000517' 

000000 

000002 

? 

574 

000520' 

000000 

000001 

575 

000521 ' 

000000 

000000 

0 

576 

?77 

000522' 

777777 

777776 

-2 

579 
580 

;  Error  messages 

000523' 

240000 

000525' 

MA35:   CALLITXN0T1MA35PN 

581 
582 
583 

000524' 

000000000000* 

LAST! CALL !TXALL!BBPNT 

000525' 

037  00  0  00  003503' 

MA35PN:  TMS6C   <2901  Register  > 

584 

000526' 

200  00  0  00  003674' 

HOVE    TS35RG 

585 

000527' 

037  16  0  00  000003 

PNTOCS 

586 

000530' 

037  00  0  00  003423' 

TMSG   <  not  shifted  correctly> 

587 

000531 • 

263  17  0  00  000000 

RTN 

SEQ  1311 


DFI 
DFI 


print  sequencer  data 


L 


r: 


J  1299 


DFPTA?  MACRO  :55B(1242)  09:06  1' 

jOFPTA?  MAC     18-Apr-85  10:59 

19 

Jo 

591 
592 

593  000532'  000000  010000 

59A  000533*  342000  OOOOAO 

595  00053A'  000100  000000 

596  000535'  302000  000740 

597  000536'  000200  02200A 

598  000537'  A31000  005040 

599  000540'  000300  040000 

600  000541'  330000  000040 

601  000542*  000400  000000 

602  000543'  337000  000340 

603  000544*  000500  052004 

604  000545'  431000  005040 

605  000546'  000600  070000 

606  000547*  232000  000040 

607  000550'  000700  000000 

608  000551'  232000  000340 

609  000552*  001000  102004 

610  000553'  431000  005040 

611  000554*  001100  120000 

612  000555'  330000  000040 

613  000556'  001200  000000 

614  000557'  335000  000340 

615  000560'  001300  132004 

616  000561'  431000  005040 
617 
618 
619 

620  000562'  010001  010000 

621  000563'  342000  400040 

622  000564'  010100  000000 

623  000565'  302000  400740 

624  000566'  010201  022004 

625  000567'  431010  005040 

626  000570'  010301  040000 

627  000571*  330000  400040 

628  000572*  010400  000000 

629  000573*  337000  400340 

630  000574*  010501  052004 

631  000575*  431010  005040 

632  000576'  010601  070000 

633  000577'  232000  400040 

634  000600'  010700  000000 

635  000601*  232000  400340 

636  000602*  011001  102004 

637  000603*  431010  005040 

638  000604*  011101  120000 

639  000605'  330000  400040 

640  000606*  011200  OOOOOC 
6A1  000607*  335000  466340 
642  000610*  011301  132004 
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;  Microcode: 

;      Register  0 

T35M:   HUORD  <ADDR=0. JMAP,J=1 .S08.B=0,AND,D=2>  ;  0 

HWORD  <CONT. SOB, 8=0, PLUS. CRY, D=2>  ;  1 

HWORD  <JMAP,J=2,SOA,A=0,OR,D=1.0ENA,SELE,MGC=4>  ;2 

I1U0RD  <JMAP,J=4,S0B,B=0,0R,D=0>  ;  3 

HUORD  <CONT,S0B.B=0,OR,D=7>  ;  4 

HWORD  <Jf1AP,J=5,S0A,OR.A=0,D=1,OENA,S£LE,MGC=4>  ;  5 

MWORD  <JMAP,J=7.S0Q,B=0,0R,D=2>  ;  6 

MWORD  <CONT,S0Q,B=0,OR,D=2>  ;  7 

MWORD  <JMAP.J=10,S0A,0R,A=0,D=1,0ENA,SELE,M6C=4>  ;  10 

HUORD  <JMAP.J=12,SOB,B=0,OR,D=0>  ;  11 

HWORD  <CONT,S0B,B=0,OR,D=5>  ;  12 

HUORD  <JMAP,J=13,S0A,A=0,OR,D=1,OENA.SELE,M6C=4>  ;  13 

;      Register  1 

MUORD  <ADDR=100,JMAP,J=101.SOB,B=1.AND,D=2>  ;  100 

MUORD  <C0NT, SOB, B=1, PLUS, CRY, D=2>  ;  101 

WUORD  <JMAP,J=102,S0A,A=1,0R,D=1,0ENA.SELE,M6C=4>  ;  102 

MUORD  <JMAP.J=104,S08,B=1.QR,D=0>  ;  103 

MUORD  <C0NT,S0B,B=1.0R,D=7>  ;  104 

MUORD  <JMAP,J=105,S0A,OR.A=1,D=1,OENA,SELE,MGC=4>  ;  105 

MUORD  <JMAP,J=107,S0Q,B=1,OR,D=2>  ;  106 

MUORD  <CONT,S0Q,B=1,OR,D=2>  ;  107 

MUORD  <JMAP,J=110,S0A,OR,A=1,D=1,OENA,SELE,MGC=4>  ;  110 

MUORD  <JMAP,J=112,S0B,B=1,OR.D=0>  ;  HI 

MUORD  <CONT.S0B.B=1.OR,D=5>  ;  112 

MUORD  <JMAP.J=113,S0A.A=1,OR,D=1,OENA.SELE,MGC=4>  ;  113 


SEQ  1312 


Q  1300 
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643 

00061V 

431010 

005040 

644 

645 
646 
647 

000612' 

020002 

010000 

648 

000613' 

342001 

000040 

649 

000614' 

020100 

000000 

650 

000615' 

302001 

000740 

651 

000616' 

020202 

022004 

652 

000617' 

431020 

005040 

653 

000620' 

020302 

040000 

654 

000621 ' 

330001 

000040 

655 

000622' 

020400 

000000 

656 

000623' 

337001 

000340 

657 

000624' 

020502 

052004 

658 

000625' 

431020 

005040 

659 

000626' 

020602 

070000 

660 

000627' 

232001 

000040 

661 

000630' 

020700 

000000 

662 

000631 ' 

232001 

000340 

663 

000632' 

021002 

102004 

664 

000633' 

431020 

005040 

665 

000634' 

021102 

120000 

666 

000635' 

330001 

000040 

667 

000636' 

021200 

000000 

668 

000637' 

335001 

000340 

669 

000640' 

021302 

132004 

670 

000641 ' 

431020 

005040 

671 

672 
673 
674 

000642' 

030003 

010000 

675 

000643' 

342001 

400040 

676 

000644' 

030100 

000000 

677 

000645' 

302001 

400740 

678 

000646' 

030203 

022004 

679 

000647' 

431030 

005040 

680 

000650' 

030303 

040000 

681 

000651 ' 

330001 

400040 

682 

000652' 

030400 

000000 

683 

000653' 

337001 

400340 

684 

000654' 

030503 

052004 

685 

000655' 

431030 

005040 

686 

000656' 

030603 

070000 

687 

000657' 

232001 

400040 

688 

000660' 

030700 

000000 

689 

000661 ' 

232001 

400340 

690 

000662' 

031003 

102004 

691 

000663' 

431030 

005040 

692 

000664' 

031103 

120000 

693 

000665' 

330001 

400040 

694 
695 

000666'  031200 
000667'  335001 

OOOQOO 
4QQ340 
132004 

696 

000670' 

031303 
431030 

697 

000671 ' 

005040 

l-JuL-85  Page  i:-1  _„, 
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SEQ  1313 


Register  2 

MWORD  <ADDR=200,JMAP,J=201 ,S0B,B=2,AND,D=2> 

MWORD  <C0NT, SOB, B=2, PLUS, CRY, D=2> 

MWORD  <JMAP,J=202,S0A,A=2,OR,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=204,S0B,B=2,OR,D=0> 

MWORD  <CONT,S0B,B=2,OR,D=7> 

MWORD  <JMAP,J=205,S0A,OR,A=2,D=1,OENA,SELE,M6C=4> 

MWORD  <JMAP,J=207,S0Q,B=2,OR,D=2> 

MWORD  <CONT,S0Q,B=2,OR,D=2> 

MWORD  <JMAP, J=210,S0A,0R,A=2,D=1 ,0ENA,SELE.MGC=4> 

MWORD  <JMAP,J=212,S0B,B=2,OR.D=0> 

MWORD  <CONT,S0B,B=2,OR,D=5> 

MWORD  <JMAP,J=213,S0A,A=2,OR,D=l ,0ENA,SELE,MGC=4> 

Register  3 

MWORD  <ADDR=300,JMAP,J=301 ,S0B,B=3,AND,D=2> 

MWORD  <C0NT, SOB, B=3, PLUS, CRY, D=2> 

MWORD  <Jf1AP, J=302,S0A,A=3,OR,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=304,S0B,B=3,OR,D=0> 

MWORD  <C0NT,S0B,B=3,0R,D=7> 

MWORD  <JMAP,J=305,S0A,0R,A=3,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <jriAP,J=307,S0Q,B=3,0R,D=2> 

MWORD  <C0NT,S  :,B=3,0R,D=2> 

MWORD  <JMAP.J=310,S0A,OR,A=3,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <J«AP.J=312,S0B,B=3,OR,D=0> 

MWORD  <C0NT,S0B,B=3,0R,D=5> 

MWORD  <JMAP,J=313,S0A,A=3,OR,D=1,OENA.SELE,MGC=4> 


200 
201 
202 
203 
204 
205 
206 
207 
210 
211 
212 
213 

300 
301 
302 
303 
304 
305 
306 
307 
310 
311 
312 
313 
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698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

7U 

715 

716 

717 

718 

719 

720 

721 

722 

723 

Ilk 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 
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EBUS/MPROC  2901  Tests  (Part  4) 


Register  4 


SEQ  1314 


000672' 
000673' 
000674' 
000675' 
000676' 
000677' 
000700' 
000701 ' 
000702' 
000703' 
000704' 
000705' 
000706' 
000707' 
000710' 
00071 1 ' 
000712' 
000713' 
000714' 
000715' 
000716' 
000717' 
000720' 
000721 • 


040004 
342002 
040100 
302002 
040204 
431040 
040304 
330002 
040400 
337002 
040504 
431040 
040604 
232002 
040700 
232002 
041004 
431040 
041104 
330002 
041200 
335002 
041304 
431040 


000722' 
000723' 
000724' 
000725' 
000726' 
000727' 
000730' 
000731 • 
000732' 
000733' 
000734' 
000735' 
000736' 
000737' 
000740' 
000741' 
000742' 
000743' 
000744' 
000745' 
000746' 
000747* 
000750' 
000751' 


03J005 
342002 
050100 
302002 
050205 
431050 
050305 
330002 
050400 
337002 
050505 
431050 
050605 
232002 
050700 
232002 
051005 
431050 
051105 
330002 
051200 
335002 
051305 
431050 


010000 
000040 
000000 
000740 
022004 
005040 
040000 
000040 
000000 
000340 
052004 
005040 
070000 
000040 
000000 
000340 
102004 
005040 
120000 
000040 
000000 
000340 
132004 
005040 


010000 
400040 
000000 
400740 
022004 
005040 
040000 
400040 
000000 
400340 
052004 
005040 
070000 
400040 
000000 
400340 
102004 
005040 
120000 
400040 
000000 
400340 
132004 
005040 


MWORD  <ADDR=400,JMAP,J=401,S0B,B=4,AND.D=2>  ;  400 

MWORD  <C0NT, SOB, B=4, PLUS, CRY, D=2>  ;  401 

MWORD  <JMAP,J=402,S0A,A=4,0R,D=1,0ENA,SELE,MGC=4>  ;  402 

MWORD  <JMAP,J=404,S0B,B=4,0R,D=0>  ;  403 

MWORD  <C0NT,S0B,B=4,0R,D=7>  ;  404 

MWORD  <JMAP,J=405,S0A,OR,A=4,D=1,OENA,SELE,MGC=4>  ;  405 

MWORD  <JMAP,J=407,S0Q,B=4,0R,D=2>  ;  406 

MWORD  <CONT,S0Q,B=4,OR,D:--2>  ;  407 

MWORD  <JMAP,J=410,S0A,OR,A=4,D=1,OENA,SELE,M6C=4>  ;  410 

MWORD  <JMAP,J=412,S0B,B=4,0R,D=0>  ;  411 

MWORD  <CONT.S0B,B=4,OR,D=5>  ;  412 

MWORD  <JMAP,J=413,S0A,A=4,0R,D=1,0ENA,SELE,MGC=4>  ;  413 

Register  5 

MWORD  <ADDR=500,JMAP,J=501,S0B,B=5,AND,D=2>  ;  500 

MWORD  <C0NT, SOB, B=5, PLUS, CRY. D=2>  ;  501 

MWORD  <Jf1AP,J=5O2,S0A,A=5,OR,D=1,OENA,SELE,MGC=4>  ;  502 

MWORD  <JMAP,J=504,S0B,B=5,0R,D=0>  ;  503 

MWORD  <CONT,S0B,B=5,OR,D=7>  ;  504 

MWORD  <JMAP,J=505,S0A,0R,A=5,D=1,0ENA,SELE,MGC=4>  ;  505 

MWORD  <JMAP,J=507,S0Q,B=5,0R,D=2>  ;  506 

MWORD  <CONT,S0Q,B=5,OR,D=2>  ;  507 

MWORD  <JMAP,J=510,S0A,OR,A=5,D=1,OENA,SELE,MGC=4>  ;  510 

MWORD  <JMAP,J=512,SOB,B=5,OR,D=0>  ;  511 

MWORD  <CONT,S08,B=5,OR,D=5>  ;  512 

MWORD  <JMAP,J=513,S0A,A=5,0R,D=1,0ENA,SELE,MGC=4>  ;  513 


138J 
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EBUS/MPROC  2901   Tests   (Part  4) 


SEQ  1315 


753 
754 

755  000752' 

756  000753* 

757  000754' 

758  000755' 

759  000756' 

760  000757' 

761  000760' 

762  000761' 

763  000762' 

764  000763' 

765  000764' 

766  000765' 

767  000766' 

768  000767' 

769  000770' 

770  000771' 

771  000772' 

772  000773' 

773  000774' 

774  000775' 

775  000776* 

776  000777' 

777  001000' 

778  001 OOT 
779 

780 
781 

782  001002' 

783  001003' 

784  001004' 

785  001005* 

786  001006' 

787  001007' 

788  001010' 

789  001011' 

790  001012' 

791  001013' 

792  001014' 

793  001015' 

794  001016' 
79"^  001017' 

796  001020' 

797  001021' 

798  001022' 

799  001023' 

800  001024' 

801  001025' 

802  001026' 

803  001027' 

804  001030' 

805  001031' 
806 

807 


060006 
342003 
060100 
302003 
060206 
431060 
060306 
330003 
060400 
337003 
060506 
431060 
060606 
232003 
060700 
232003 
061006 
431060 
061106 
330003 
061200 
335003 
061306 
431060 


070007 
3^^003 
070100 
302003 
070207 
431070 
070307 
330003 
070400 
337003 
070507 
431070 
070607 
232003 
070700 
232003 
071007 
431070 
071107 
330003 
07(200 
335003 
071307 
431070 


010000 
000040 
000000 
000740 
022004 
005040 
040000 
000040 
000000 
000340 
052004 
005040 
070000 
000040 
000000 
000340 
102004 
005040 
120000 
000040 
000000 
000340 
132004 
005040 


010000 
400040 
000000 
400740 
022004 
005040 
040000 
400040 
000000 
400340 
052004 
005040 
0700C0 
400040 
000000 
400340 
102004 
005040 
120000 
400040 
000000 
400340 
132004 
005040 


Register  6 

MWORD  <ADDR=600,JMAP, J=601 .S0B,B=6,AND,D=2> 

MWORD  <CONT, SOB, B=6, PLUS, CRY, D=2> 

MWORD  <JMAP, J=602,S0A,A=6,OR,D=l ,0ENA,SELE,M6C=4> 

MWORD  <JMAP,J=604,S0B,B=6,OR,D=0> 

MWORD  <C0NT,S0B,B=6,0R,D=7> 

MWORD  <JMAP,J=605,S0A,OR,A=6,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=607,S0Q,B=6,OR,D=2> 

MWORD  <C0NT,S0Q,B=6,0R,D=2> 

MWORD  <JMAP,J=610,S0A,0R,A=6,D=1 .CENA,SELE,MGC=4> 

MWORD  <JMAP,J=612,S0B,B=6,0R,D=0> 

MWORD  <C0NT,S0B.B=6,0R,D=5> 

MWORD  <JMAP,J=613,S0A,A=6,OR,D=1,OENA,SELE,M6C=4> 

Register  7 

MWORD  <ADDR=700,JMAP,J=701 ,S0B,B=7,AND,D=2> 

MWORD  <C0NT, SOB, 3=7, PLUS, CRY, D=2> 

MWORD  <JMAP,J=702,SOA,A=7,OR,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=704.S0B,B=7,OR,D=0> 

MWORD  <CONT,S0B,B=7,OR,D=7> 

MWORD  <JMAP,J=705,S0A,OR  A=7,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=707,SOQ,B=7,On,D=2> 

MWORD  <CONT,S0Q,B=7,OR,D=2> 

MWORD  <JMmP,J^710,S0A,0R,A=7,[)=1  ,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=712,S0B,e=7,0R,D=0> 

MWORD  <CONT,SOB,B=7.0R,D=5> 

MWORD  <JMAP,J=713.S0A,A=7,0R,D=1 ,0ENA,SELE.MGC=4> 

Register  10 


600 
601 
602 
603 
604 
605 
606 
607 
610 
611 
612 
613 

700 
701 
702 
703 
704 
705 
706 
707 
710 
711 
712 
713 
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SEQ  1316 


.1 


808 

809  001032' 

810  001033' 

811  001034' 

812  001035' 

813  001036' 
8K  001037' 

815  001040' 

816  001041' 

817  001042' 

818  001043' 

819  001044' 

820  001045' 

821  001046' 

822  001047' 

823  001050' 

824  001051' 

825  001052' 

826  001053' 

827  001054' 

828  001055' 

829  001056' 

830  001057' 

831  001060' 

832  001061' 
833 

834 
835 

836  001062' 

837  001063* 

838  001064' 

839  001065' 

840  00  066' 

841  001067' 

842  001070' 

843  001071' 

844  001072' 

845  001073' 

846  001074' 

847  001075' 

848  001076' 

849  001077' 

850  001100' 

851  001101' 

852  001102' 

853  001103' 

854  001104' 

855  001105' 

856  001106' 

857  001107' 

858  001110' 

859  001111' 
860 

861 
862 


100010 
342004 
100100 
302004 
100210 
431100 
100310 
330004 
100400 
337004 
100510 
431100 
100610 
232004 
100700 
232004 
101010 
431100 
101110 
33C004 
101200 
335004 
101310 
431100 


110011 
34P004 

ii.noo 

302004 
110211 
431110 
110311 
330004 
110400 
337004 
110511 
431110 
110611 
232004 
110700 
232004 
111011 
431110 
111111 
330004 
111200 
335004 
111311 
431110 


010000 
000040 
000000 
000740 
022004 
005040 
040000 
000040 
000000 
000340 
052004 
005040 
070000 
000040 
000000 
000340 
102004 
005040 
120000 
000040 
000000 
000340 
132004 
005040 


010000 
<,00040 
000000 
400740 
022004 
005040 
040000 
400040 
000000 
400340 
052004 
005040 
070000 
400040 
000000 
400340 
102004 
005040 
120000 
400040 
000000 
400340 
132004 
005040 


MUORD  <ADDR=1000JMAP,J=100:, SOB, 8=10, AND, 0=2>  ;  1000 

MUORD  <CrNT, SOB, B=10, PLUS, CRY, D=2>  ;  1001 

MUORD  <JMAP.J=1OO2,S0A,A=10,OR,D=1,OENA,SELE,MGC=4>  ;  1002 

MUORD  <JMAP,J=1004,S0B,B=10,0R,D=0>  ;  1003 

MUORD  <CONr,S0B,B=10,OR,D=7>  ;  1004 

MUORD  <JMAP,J=1005,S0A,OR,A=10,D=l,OENA,SELE,MGC=4>  ;  1005 

MU0f;D  <JMAP,J=1007,SOQ,B=10,OR,D=2>  ;  1006 

MUORD  <C0NT,S0Q,B=10,0R,D=2>  ;  1007 

MUORD  <JMAP,J=1010,S0A,OR,A=10,D=1,OENA,SELE,M6C=4>  ;  1010 

MUORD  <JMAP,J=1O12,S0B,B=10,OR,D=0>  ;  1011 

MUORD  <C0NT,S0B,B=10,0R,D=5>  ;  1012 

MUORD  <JMAP,J=1013,S0A,A=10,OR,D=1,OENA,SELE,M6C=4>  ;  1013 

Register  11 

MUORD  <ADDR=1100,JMAP,J=n01,SOB,B=11,AND,D=2>  ;  1100 

MUORD  <C0NT, SOB, B=11, PLUS, CRY, D=2>  ;  1101 

MUORD  <JMAP,J=1102,S0A,A=11,0R,D=1,0ENA,SELE,MGC=4>  ;  1102 

■^UORD  <JMAP,J  =  1104,S0B,B=11,OR,D=O>  ;  1103 

MUORD  <C0NT,S0B,B=11,0R,D=7>  ;  1104 

MUORL/  <JMAP,J=1105,S0A,OR,A=11,D=1,OENA,SELE,MGC=4>  ;  1105 

MUORD  <JMAP,J=1107,S0Q,B=11,OR,D=2>  ;  1106 

MUORD  <C0NT,S0Q,B=11,0R,D=2>  ;  1107 

MUORD  <JMAP,J=1110,S0A,OR,A=11,D=1,OENA,SELE,MGC=4>  ;  1110 

MUORD  <JMAPJ=1112,S0B.8=11,OR,D=0>  ;  1111 

MUORD  <C0NT.S0B,B=11,0R.D=5>  ;  1112 

MUORD  <JMAP,J=1113.S0A,A=11,OR,D=1,OENA.SELE,:iGC=4>  ;  1113 

Register  12 


r 


r 


DFPTA7 
DFPTA7 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 
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001112' 
001113' 
001114' 
001115' 
001116' 
001117' 
001120' 
001121' 
001122' 
001123' 
001124' 
001125' 
001126' 
001127' 
001130' 
001131' 
001132' 
001133' 
001134' 
001135' 
001136' 
001137' 
001140' 
001141' 


001142' 
001143' 
001144' 
001145' 
001146' 
001147' 
001150' 
001151' 
001152' 
001153' 
001154' 
001155' 
001156' 
001157' 
001160' 
001161' 
001162' 
001163' 
001164' 
001165' 
001166' 
001167' 
001170' 
001171' 


120012 
342005 
120100 
302005 
120212 
431120 
120312 
330005 
120400 
337005 
120512 
431120 
120612 
232005 
120700 
232005 
121012 
431120 
121112 
330005 
121200 
335005 
121312 
431120 


130013 
342005 
130100 
3uJ005 
130213 
431130 
130313 
330005 
130400 
337005 
130513 
431130 
130613 
232005 
130700 
232005 
131013 
431130 
131113 
330005 
131200 
335005 
131313 
431130 


010000 
000040 
000000 
000740 
022004 
005040 
040000 
000040 
000000 
000340 
052004 
005040 
070000 
000040 
000000 
000340 
102004 
005040 
120000 
000040 
000000 
000340 
132004 
005040 


010000 
400040 
000000 
400740 
022004 
005040 
040000 
400040 
000000 
400340 
052004 
005040 
070000 
400040 
OOOOOC 
400340 
102004 
005040 
120000 
400040 
000000 
400340 
132004 
005040 


001172'  1400  V  010000 


s  (Part  4) 

HUORD  <ADDR=1200,JMAP,J=1201, SOB. 8=12, AND, D=2>  ;  1200 

HUORD  <C0NT, SOB, B=12. PLUS, CRY, D=2>  ;  1201 

MWORD  <Jf1AP,J=1202,S0A,A=12,OR,D=l,OENA,SELE.MGC=4>  ;  1202 

HWORD  <JMAP,J=1204,S0B,B=12,OR,D=0>  ;  1203 

MUORD  <C0NT,S0B,B=12,0R,D=7>  ;  1204 

HUORD  <JMAP,J=1205,S0A,OR,A=12,D=1,OEN  SELE,MGC=4>  ;  1205 

MUORD  <JMAP,J=1207,S0Q,B=12,OR,D=2>  ;  1206 

MWORD  <C0NT,S0Q,B=12,0R,D=2>  ;  1207 

MUORD  <JMAP.J=1210,S0A,OR,A=12.D=1,OENA,SELE.MGC=4>  ;  1210 

MUORD  <JMAP,J=1212,S0B,B=12,OR,D=0>  ;  1211 

MUORD  <C0NT,S0B,B=12,0R,D=5>  ;  1212 

MUORD  <JMAP,J=1213,S0A,A=12,OR,D=1,OENA.SELE,MGC=4>  ;  1213 

Register  13 

MUORD  <ADDR=1300,JMAP,J=1301,S0B,B=13.AND,D=2>  ;  1300 

MUORD  <CONT. SOB, B=13, PLUS, CRY, D=2>  ;  1301 

MUORD  <JMAP,J=1302,S0A,A=13,OR,D=1,OENA,SELE,MGC=4>  ;  1302 

MUORD  <JMAP,J=1304,S08,8=13,0R,D=0>  ;  1303 

MUORD  <C0NT,S0B,B=13,0R,D=7>  ;  1304 

MUORD  <JMAP,J=13O5,S0A,OR,A=13.D=1,OENA,SELE,MGC=4>  ;  1305 

MUORD  <JMAP,J=13O7,S0O,B=13,OR,D=2>  ;  1306 

MUORD  <C0NT,S0Q,B=13,0R,D=2>  ;  1307 

MUORD  <JMAP,J=1310,SOA,OR,A=13,D=1.0ENA,SELE,MGC=4>  ;  1310 

MUORD  <JMAP,J=1312,S0B,B=13,0R,D=0>  ;  1311 

MUORD  <C0NT,S0B,B=13,0R,D=5>  ;  1312 

MUORD  <JMAP,J=1313,S0A,A=13,0R.D=1,0ENA,SELE,MGC=4>  ;  1313 

Register  14 

MUORD  <ADDR=1400,JMAP,J=1401.SOB,B=14,AND.D=2>  ;  1400 


SEQ  1317 
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SEQ  1318 


918 

919 

920 

921 

922 

923 

92A 

925 

926 

927 

928 

929 

930 

931 

932 

933 

93A 

935 

936 

937 

938 

939 

940 

9A1 

9A2 

9A3 

9A4 

9A5 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 


001173' 
001174* 
001175' 
001176' 
001177' 
001200' 
001201' 
001202' 
001203' 
001204' 
001205' 
001206' 
001207' 
001210' 
001211' 
001212' 
001213' 
001214' 
001215' 
001216' 
001217' 
001220' 
001221' 


342006 
140100 
302006 
140214 
431140 
140314 
330006 
140400 
337006 
140514 
431140 
140614 
232006 
140700 
232006 
141014 
431140 
141114 
330006 
141200 
335006 
141314 
431140 


001222' 
001223' 
001224' 
001225' 
001226' 
001227' 
001230' 
001231' 
001232' 
001233' 
001234' 
001235' 
001236' 
001237' 
001240' 
001241' 
001242' 
001243' 
001244' 
001245' 
001246' 
001247' 
001250' 
001251' 


001252' 
001253* 


150015 
342006 
150100 
302006 
OJ215 
431150 
150315 
330006 
150400 
337006 
150515 
431150 
150615 
232006 
1 50700 
232006 
151015 
431150 
151115 
330006 
151200 
335006 
151315 
431150 


160016 
342007 


000040 
000000 
000740 
022004 
005040 
040000 
000040 
000000 
000340 
052004 
005040 
070000 
000040 
000000 
000340 
102004 
005040 
120000 
000040 
000000 
000340 
132004 
005040 


010000 
400040 
000000 
400740 
022004 
005040 
040000 
400040 
000000 
400340 
052004 
005040 
070000 
400040 
000000 
400340 
102004 
005040 
120000 
400040 
000000 
400340 
132004 
005040 


010000 
000040 


MUOrtD  <C0NT, SOB, 8=14, PLUS, CRY, D=2>  ;  1401 

MWORD  <JMAP,J=1402.S0A,A=14,OR,D=l,OENA,SELE,M6C=4>  ;  1402 

MUORD  <JMAP,J=1404,S0B.B=14,OR,D=0>  ;  1403 

MUORD  <C0NT,S0B,B=14,0R,D=7>  ;  1404 

MWORD  <JMAP,J  =  1405,S0A,OR,A=U.D=l.OENA,SELE.MGC=4>  ;  1405 

MWORD  <JMAP,J=1407,S0Q,B=14,0R,D=2>  ;  1406 

MWORD  <CONT,S0Q,B=14,OR,D=2>  ;  1407 

MWORD  <JMAP,J=1410,S0A,OR,A=14,D=1.OENA,SELE,MGC=4>  ;  1410 

MWORD  <JMAP,J=1412,S0B.B=14,0R,D=0>  ;  1411 

MWORD  <CONT,S0B,B=14,OR,D=5>  ;  1412 

MWORD  <JMAP,J=1413,S0A,A=14,0R,D=1,0ENA,SELE,MGC=4>  ;  1413 

Register  15 

MWORD  <ADDR=1500,JMAP,J=1501, SOB, 8=15. AND, D=2>  ;  1500 

MWORD  <C0NT, SOB, B=15. PLUS. CRY, D=2>  ;  1501 

MWORD  <JMAP.J=1502,S0A,A=15,OR,D=1.OENA.SELE.MGC=4>  ;  1502 

MWORD  <JMAP.J=1504,S0B,B=15,0R,D=0>  ;  1503 

MWORD  <CONT.S0B,B=15,OR,D=7>  ;  1504 

MWORD  <JMAP,J=1505,S0A,OR,A=15,D=1,OENA,SELE,M6C=4>  ;  1505 

MWORD  <JMAP.J=1507,S0Q,B=15,OR.D=2>  ;  1506 

MWORD  <CONT.SOQ,B=15.0R,D=2>  ;  1507 

MWORD  <JMAP,J=1510,S0A.0R.A=15,D=1,0ENA,SELE.MGC=4>  ;  1510 

MWORD  <JMAP,J=1512,S0B,B=15,OR.D=0>  ;  1511 

MWORD  <C0NT.S0B.B=15.0R,D=5>  ;  1512 

MWORD  <JMAP.J=1513,S0A.A=15.0R.D=1,0ENA,SELE.MGC=4>  ;  1513 

Register  16 

MWORD  <ADDR=1600.JMAP.J=1601.SOB,B=16.AND,D=2>  ;  1600 


DFPTA 
DFPT^ 

15? 
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SEQ  1319 


973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

98A 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 


001254* 
001255' 
001256' 
001257' 
001260' 
001261' 
001262' 
001263' 
001264' 
001265' 
001266' 
001267' 
001270' 
001271' 
001272' 
001273' 
001274' 
001275' 
001276' 
001277' 
001300' 
001301' 


001302' 
001303' 
001304' 
001305' 
001306' 
001307' 
001310' 
001311' 
001312' 
001313' 
001314' 
001315' 
001316* 
001317' 
001320' 
001321' 
001322' 
001323' 
001324' 
001325' 
001326' 
001327* 
001330' 
001331' 
001332' 


160100 
302007 
160216 
431160 
160316 
330007 
160400 
337007 
160516 
431160 
160616 
232007 
160700 
232007 
161016 
431160 
161116 
330007 
161200 
335007 
161316 
431160 


170017 
342007 
170100 
302007 
170217 
4i'170 
170317 
330007 
170400 
337007 
170517 
431170 
170617 
232007 
170700 
232007 
171017 
431170 
171117 
330007 
171200 
335007 
171317 
431170 

mm 


000000 
000740 
022004 
005040 
040000 
000040 
000000 
000340 
052004 
005040 
070000 
000040 
000000 
000340 
102004 
005040 
120000 
000040 
000000 
000340 
132004 
005040 


010000 
400040 
000000 
400740 
022004 
005040 
040000 
400040 
000000 
400340 
052004 
005040 
070000 
400040 
000000 
400340 
102004 
005040 
120000 
400040 
000000 
400340 
132004 
005040 

mm 


MWORD  <C0NT, SOB, B=16, PLUS, CRY, D=2>  ;  1601 

MUORD  <JMAP,J=1602,S0A,A=16,OR,D=1,OENA,SELE,MGC=4>  ;  1602 

MWORD  <JMAP,J=1604,SOB,B=16,OR,D=0>  ;  1603 

MUORD  <C0NT,S0B,B=16,0R,D=7>  ;  1604 

MWORD  <JMAP,J=1605,S0A,OR,A=16,D=1,OENA,SELE,MGC=4>  ;  1605 

MWORD  <JMAP,J=1607,S0Q,B=16,OR,D=2>  ;  1606 

MUORD  <C0NT,S0Q,B=16,0R,D=2>  ;  1607 

MWORD  <JMAP,J=1610,S0A,0R,A=16,D=1,0ENA,SELE,MGC=4>  ;  1610 

MWORD  <JMAP,J=1612,S08.8=16,0R,D=0>  ;  1611 

MWORD  <C0NT,S0B,B=16,0R,D=5>  ;  1612 

MWORD  <JMAP,J=1613.S0A,A=16,OR,D=1,OENA,SELE,MGC=4>  ;  1613 

Register  17 

MWORD  <ADDR=1700,JMAP,J=1701. SOB. 8=17, AND, D=2>  ;  1700 

MWORD  <CONT, SOB, B=17, PLUS, CRY, D=2>  ;  1701 

MWORD  <JMAP,J=1702,S0A,A=17,0R,D=1,0ENA,SELE.MGC=4>  ;  1702 

MWORD  <JMAP.J=1704,S08,B=17,OR.D=0>  ;  1703 

MWORD  <C0NT,S0B,B=17.0R,D=7>  ;  1704 

MWORD  <JMAP,J=1705,S0A,OR,A=17,D=1,OENA,SELE,MGC=4>  ;  1705 

MWORD  <JMAP,J=1707,S0Q,B=17,OR,D=2>  ;  1706 

MWORD  <C0NT,S0Q,B=17,0R,D=2>  ;  1707 

MWORD  <JMAP,J=1710,S0A,OR,A=17.D=1,OENA,SELE,MGC=4>  ;  1710 

MWORD  <JMAP,J=1712,S08.B=17,OR,D=0>  ;  1711 

MWORD  <CONT.S0B,B=17.OR,D=5>  ;  1712 

MWORD  <JMAP,J=1713.S0A,A=17,OR.D=1.OENA,SELE,MGC=4>  ;  1713 
-1 


307 


DFPTA7 
DFPTA7 

1023 

102A 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

103A 

1035 

1036 

1037 

1038 

1039 

10A0 

1041 

10A2 

10A3 

104A 

10A5 

10A6 

10A7 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 
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SEQ  1320 


*  TEST  36  -  RAM  Data  Movement  Test 


Description: 
Procedure: 


001333' 
001334' 
001335' 
001336' 
001337' 
001340' 
001341' 
001342' 


001343' 
001344' 
001345' 
001346' 
001347' 


001350' 
001351' 


254  00 

420402 

001407' 

003416' 

000000 

oooooo 

GuJOOO 


0  00  001343' 
000036 
003507' 
OOOOOO 
002016' 
002244' 
002467' 
777777 


201 
260 
201 
260 
263 


400 
260 


00 
17 
01 
17 
17 


Verify  that  data  can  be  successfully  moved  from 
RAM  location  to  RAM  location  at  full  speed. 

Clear  Port 
Load  microcode 

Set  RAR  to  0 

Execute  JMAP  -  load  data  pattern  into  Reg  0 

Execute  a  sequence  of  instructions  that  moves 

the  data  from  register  to  register  while 

clearing  other  registers. 

When  done,  read  the  EBUF  and  verify  that  the 
data  is  correct  (516000.. 001234). 

Failure:     — 

/jf******************************************************************** 

Test  data 

TSTA36:  JRST    T636  ;  go  start,  test 

EBUS!ALU!NDMP!ZALU!36         ;  test  mask 

T36M.,CASCI2  *RAM  Data  Movement  Test*J 
CEXP  MLAST!E23:,,0 


15  0 
17  0 


00 
00 
00 
00 
00 


00 
00 


OOOOOO' 
000311* 
001407' 
000313* 
OOOOOO 


OOOOOO 
000316* 


TSTA37 
TSTA40 
TSTA41 
-1 

;  Start  test 

TG36:   MOVEI  17 

GO  TRACE 

MOVEI  1.T36M 

GO  TLOAD 
RTN 

;  Initialization 


failure  test  table 


TL36: 


SETZ 
GO 


ERFLG, 
IPACLR 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 


. ..  > 
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SEQ  1321  i 


DFI 
DPI 


1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1CS2 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 


001352'  201  01  0  00  000012 

001353'  201  02  0  00  000000 

001354'  201  03  0  00  000032 

001355'  400  04  0  00  000000 

001356'  260  17  0  00  000162* 

001357'  255  00  0  00  000000 

001360'  400  15  0  00  000000 

001361'  332  00  0  00  000165* 

001362'  474  15  0  00  000000 

001363'  200  00  0  00  000205* 

001364'  404  00  0  00  003514' 

001365'  312  00  0  00  003515' 

001366'  474  15  0  00  000000 


001367'  027  00  0  00  001373' 
001370'  254  00  0  00  001350' 
001371'  254  00  0  00  001372' 


001372'  263  17  0  00  000000 


001373'  1 40000 
001374'  2/JOOO 


003516' 
001375' 


001375'  200  01  0  00  000200* 

001376'  603  01  0  00  000200 

001377'  037  00  0  00  003450' 

001400'  607  01  0  00  000200 


001401' 
001402' 
001403' 
001404* 
001405* 
001406* 


037  00 

0  00  003460' 

200  00  0  00  001363* 

037  13 

0  00  000000 

607  01 

0  00  000200 

037  00  0  00  003531 ' 

263  17  0  00  000000 

1st  segment  of  test  (Segment  A)  -  Start  up  port  and  wait  tUL  it  stops 


TA36:   MOVEI  1,*D10 

MOVEI  2,0 

MOVEI  3,32 

SETZ  4, 

60  AEXEC 
JFCL 

SETZ  ERFL6, 

SKIPE  ALFLS 

SETO  ERFLG, 

MOVE  ALEBF 

AND  [777400,, 1777] 

CAME  [516000,, 1234] 

SETO  ERFL6, 


maximum  delay  before  timeout  (msec) 

error  address 

correct  address 

starting  address 

execute  ALU  type  test 

ignore  error 

clear  error  flag 

started  up  ok? 

no  -  set  error  flag 

get  EBUF  data 

mask  out  indeterminate  bits 

correct? 

no  -  set  error  flag 


;  Handle  error  printouts  and  scope  looping 

SCOPER  MA36 
JRST  TL36 
JRST    TX36 

;  End  of  test 

TX36:   RTN 

;  Error  messages 

MA36:   MSG!TXNOT![ASCIZ  /2901  RAM  data  got  destroyed  somehow  (result  in  EBUF)/] 
LAST! CALL ITXALLIMA36PN 


print  error  message 
loop  on  error 
altmode  exit 


return 


MA36PN:  MOVE 
TLNE 
TMS6C 
(A):   > 
TLNN 
TMS6C 
(Actual) 
MOVE 
PNTHW 
TLNN 
TMSGC 
RTN 


1,SC0SW 
1,TXTINH 
<EBUF  (C) 


000000  OOOOOl 


;  get  switches 
;  full  printout? 


1,TXTINH 
<EBUF  (Correct): 
> 
ALEBF 


;  full  printout? 
000000  000001 


1,TXTINH  ;  full  printout? 

<(Middle  16  bits  indeterminate)> 


L 


r 


r 


DFPTA7 
DFPTA7 

1112 

1113 

11U 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 
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001407' 

001410' 

001411' 

001412' 

001413' 

001414' 

001415' 

001416' 

001417' 

001420' 

001421' 

001422' 

001423' 

001424' 

001425' 

001426* 

001427' 

001430' 

001431' 

001432' 

001433' 

001434' 

001435' 

001436' 

001437" 

001440' 

001441' 

001442' 

001443' 

001444' 

001445' 

001446' 

001447' 

001450' 

001451' 

001452' 

001453' 

001454' 

001455' 

001456' 

001457' 

001460' 

001461' 

001462' 

001463' 

001464' 

001465' 

001466' 

001467' 

001470' 

001471' 

001472' 


000000 

732000 

000100 

442000 

000200 

402000 

000300 

442001 

000400 

402011 

000500 

442001 

000600 

402021 

000700 

442002 

001000 

402032 

001100 

442002 

001200 

402042 

001300 

442003 

001400 

402053 

001500 

4mJ003 

001600 

402063 

001700 

442004 

002000 

402074 

002100 

442004 

002200 

402104 

002300 

442005 

002400 

402115 

002500 

442005 

002600 

402125 

002700 

442006 

003000 

402136 

003100 

442006 


011234 

240040 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 
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;  Microcode: 
T36M:  MUORD 
NUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


Tests  (Part  4) 

<ADDR=0, JMAP,J=1 ,SD0,OR,D=2.SKCN,MGC=1234>  ; 

<C0NT,S0A,AND,D=2.B=1>  ;  1 

<CONT,S0A,PLUS,D=2,A=0.B=1>  ;  2 

<C0NT.S0A.AND,D=2,8=2>  ;  3 

<CONT,S0A,PLUS.D=2.A=1.B=2>  ;  4 

<C0NT,S0A,AND,D=2.8=3>  ;  5 

<C0NT,S0A,PLUS.D=2,A=2,B=3>  ;  6 

<C0NT,S0A,AND,D=2.B=4>  ;  7 

<C0NT.S0A.PLUS.D=2.A=3,B=4>  ;  10 

<CONT,S0A,AND,D=2,B=5>  ;  11 

<CONT,S0A.PLUS,D=2,A=4.B=5>  ;  12 

<CONT.S0A.AND.D=2.B=6>  ;  13 

<C0NT,S0A,PLUS.D=2,A=5,B=6>  ;  14 

<C0NT.S0A.AND,D=2.B=7>  ;  15 

<C0NT,S0A,PLUS,D=2.A=6,B=7>  ;  16 

<CONT.S0A,AND,D=2,B=10>  ;  17 

<C0NT.S0A,PLUS.D=2,A=7.B=10>  ;  20 

<C0NT.S0A,AND,D=2,B=11>  ;  21 

<C0NT,S0A,PLUS.D=2,A=10.8=11>  ;  22 

<C0NT,S0A.AND.D=2.B=12>  ;  23 

<C0NT,S0A.PLUS,D=2,A=11,6=12>  ;  24 

<C0NT,S0A,AND.D=2,B=13>  ;  25 

<C0NT,S0A.PLUS.D=2.A=12,B=13>  ;  26 

<C0NT.S0A.AND,D=2,8=14>  ;  27 

<C0NT,S0A,PLUS,D=2,A=13,B=14>  ;  30 

<CONT.SOA.AND.D=2.B=15>  ;  31 


SEO  1322 


DFP 
DFP 


L 


DFPTA7 
DFPTA7 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117A 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

118A 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120A 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12U 

1215 

1216 

1217 

1218 

1219 

1220 

1221 
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001473' 
001474' 
001475' 
001476' 
001477' 
001500' 
001 50T 
001502' 
001503' 
001504' 
001505' 
001506' 
001507' 
001510' 

001511' 

001512' 

001513' 

001514' 

001515' 

001516' 

001517" 

001520' 

001521' 

001522' 

001523' 

001524' 

001525' 

001526' 

001527' 

001530' 

001531' 

001532' 

001533' 

001 534 ' 

001535' 

001536' 

001537' 

001540' 

001541' 

001542' 

001543' 

001544' 

001545' 

001546' 

001547' 

001550' 

001551' 

001552' 

001553' 

001554' 

001355' 

001556' 

001557' 

001560* 


003200 
402146 
003300 
442007 
003400 
4C2157 
003500 
442007 
003600 
402167 
003700 
442000 
004000 
402170 

004100 

442000 

004200 

432000 

004300 

442001 

004400 

432011 

004500 

442001 

004600 

432021 

004700 

442002 

005000 

4iJ032 

005100 

442002 

005200 

432042 

005300 

442003 

005400 

432053 

005500 

442003 

005600 

432063 

005700 

442004 

006000 

432074 

006100 

442004 

006200 

432104 

006300 

442005 

0Q640Q 

43211 


I 


000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

QOOQOO 

000340 

000000 

000340 


nWORD 

nuoRD 

nUORD 

nuoRD 

MUORD 
nUORD 
MUORD 

nUORD 
nUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


Tests  (Part  4) 

<CONT, SOA, PLUS, D=2,A=14. 8=1 5> 

<C0NT,S0A,AND.D=2.B='(6> 

<C0NT,S0A,PLUS,D=2,A=15,8=16> 

<C0NT,S0A,AND,D=2,8=17> 

<C0NT,S0A,PLUS,D=2,A=16,B=17> 

<C0NT,S0A,AND,D=2.B=0> 

<CONT,S0A,PLUS,D=2,A=17,8=0> 

<C0NT,S0A,AND.D=P,8=1> 

<C0NT,S0A,0R,D=2,A=0,B=1> 

<C0NT,S0A,AND,D=2,B=2> 

<C0NT.S0A,0R,D=2,A=1,B=2> 

<C0NT,S0A,AND.D=2.B=3> 

<C0NT,S0A,0R,D=2,A=2,B=3> 

<C0NT.S0A.AND,D=2,B=4> 

<C0NT,S0A.0R,D=2,A=3.B=4> 

<C0NT,S0A,AND.D=2,B=5> 

<CONT,S0A.OR,D=2,A=4,B=5> 

<C0NT.S0A,AND,D=2.B=6> 

<CONT.S0A,OR,D=2.A=5,B=6> 

<C0NT,S0A,AND.D=2,B=7> 

<CONT,S0A.OR,D=2,A=6,B=7> 

<C0NT,S0A,AND,D=2,B=10> 

<C0NT.S0A,OR.D=2.A=7,B=10> 

<CONT.S0A,AND,D=2.e=11> 

<CONT,S0A.OR,D=2.A=10.B=11> 

<C0NT,S0A.AND.D=2.B=12> 

<C0NT,S0A,OR.D=2.A=11.B=12> 


SEO  1323 


32 
33 
34 
35 
36 
37 
40 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

57 

60 

61 

62 

63 

64 


r' 


r 
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1222 

1223 

122A 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

123A 

1235 

1236 

1237 

1238 

1239 

12A0 

1241 

12A2 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

126/> 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 


001561' 
001562* 
001563* 
001564' 
001565' 
001566' 
001567' 
001570' 
001571' 
001572' 
001573' 
001574' 
001575' 
001576' 
001577' 
001600' 
001601' 
001602' 
001603' 
001604' 
001605' 
001606' 
001607* 
001610' 

001611* 
001612* 
001613' 
001614' 
001615' 
001616' 
001617* 
001620' 
001621' 
001622' 
001623' 
001624* 
001625* 
001626* 
001627* 
001630* 
001631* 
001632' 
001633' 
001634* 
001635* 
001636' 
001637* 
001640* 
001641* 
001642* 
001643* 
001644* 
001645' 
001646' 


006500 
442005 
006600 
432125 
00670C 
442006 
007000 
432136 
007100 
442006 
007200 
432146 
007300 
442007 
007400 
432157 
007500 
442007 
007600 
432167 
007700 
442000 
010000 
432170 

010100 

442000 

010200 

462000 

010300 

4«4:I001 

010400 

462011 

010500 

442001 

010600 

462021 

010700 

442002 

011000 

462032 

011100 

442002 

011200 

462042 

011300 

442003 

011400 

462053 

011500 

442003 

011600 

462063 

011700 

442004 


000000 
400340 
OOOoOO 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 

000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
OOOQOO 
400340 
QOOOOO 
000340 
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MUORD  <CONT,SOA,AND.D=2.B=13> 

MUORD  <CONT,SOA,OR,D=2.A=12.B=13> 

MUORD  <C0NT.S0A.AND,D=2.B=14> 

HWORD  <C0NT,S0A,0R,D=2.A=13.B=14> 

MUORD  <CONT.S0A.AND.D=2.B^15> 

MUORD  <C0NT,S0A.0R.D=2,A=14.8=15> 

MUORD  <C0NT,S0A,AND.D=2,B=16> 

MUORD  <C0NT,S0A.0R,D=2.A=15,B=16> 

MUORD  <C0NT,S0A,AND.D=2,B=17> 

MUORD  <C0NT,S0A,0R,D=2.A=16.B=17> 

MUORD  <C0NT,S0A.AND.D=2.B=0> 

MUORD  <C0NT.S0A,0R.D=2,A=17,B=0> 

MUORD  <C0NT,S0A,AND,D=2.B=1> 

MUORD  <CONT.S0A,XOR,D=2.A=0.B=l> 

MUORD  <C0NT,S0A,AND,D=2,B=2> 

MUORD  <CONT,S0A.XOR,D=2.A=1,B-2> 

MUORD  <C0NT.S0A,AND,D=2,B=3> 

MUORD  <C0NT.S0A.X0R.D=2.A=2.B=3> 

MUORD  <CONT,S0A.AND.D=2,B=4> 

MUORD  <C0NT,S0A.X0R.D=2.A=3,B=4> 

MUORD  <C0NT.S0A,AND.D=2,B=5> 

MUORD  <C0NT,S0A,XOR,D=2.A=4,B=5> 

MUORD  <C0NT.S0A,AND.P=2,B=6> 

MUORD  <CONT,S0A,XOR,D=2,A=5,B=6> 

MUORD  <CCNf.S0A.AND.D=2,B=7> 

MUORD  <C0NT.S0A.X0R,D=2.A=6,B=7> 

MUORD  <C0NT,S0A.AND,D=2,B=10> 


SEQ  1324 


DF 
DF 


65 
66 
67 
70 
71 
72 
71 
74 
75 
76 
77 
100 

101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
115 
116 
117 


L 
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1277 

1278 

1279 

1280 

1281 

1282 

1283 

128A 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

129A 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1502 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

131A 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 


0016A7' 
001650' 
001651' 
001652' 
001653' 
001 65A' 
001655' 
001656' 
001657' 
001660' 
001661' 
001662' 
001663' 
001 66A' 
001665' 
001666' 
001667' 
001670' 
001671' 
001672' 
001673' 
001674' 
001675' 
001676' 
001677' 
001 70C' 
001701' 
001702' 
001703' 
001704' 
001705' 
001706' 
001707' 
001710' 

001711' 
001712' 
001713' 
001714' 
001715' 
001716* 
001717' 
001720' 
001721' 
001722' 
001723' 
001 724 ' 
001725' 
001726' 
001727' 
001730' 
001731' 
001732' 
001733' 
001734' 


012000 

462074 

012100 

442004 

012200 

462104 

012300 

442005 

012400 

462115 

012500 

442005 

012600 

462125 

012700 

442006 

013000 

462136 

013100 

442006 

013200 

462146 

013300 

442007 

013400 

462157 

013500 

442007 

013600 

46P167 

Gi<700 

442000 

014000 

462170 

014100 
442000 
014200 
452000 
014300 
442001 
014400 
452011 
014500 
442001 
014600 
452021 
014700 
442002 
015000 
452032 
015100 
442002 
015200 
452042 


000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 

000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
000340 
OQOQOO 
400340 
000000 
400340 
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HUORD 

MUORD 

MUORC 

MUORD 

nuoRD 

MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 

MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


Tests  (Part  4) 

<CnNT,SOA,XOR,D= 

<CONT,SOA.AND,D= 

<CONT.S0A.XOR,D= 

<CONT,SOA,AND.D= 

<CONT.SOA,XOR.D= 

<CONT,S0A.AND.D= 

<CONT,SOA,XOR,D= 

<CONT,S0A,AND.D: 

<CONT.S0A.XOR.D= 

<CONT.SOA.AND,D= 

<CONT.S0A,XOR,D: 

<CONT,S0A,AND.D: 

<CONT,S0A.X0R.D= 

<C0NT.S0A,AND.D= 

<CONT.SOA,XOR.D: 

<CONT.SOA,AND,D: 

<CONT.SOA,XOR,D- 


SEO  1325 


2.A=7.B=10> 

2,B=11> 

2,A=10.B=11> 

2,B=12> 

2.A=11,B=12> 

2,8=13> 

2.A=12.B=13> 

2,B=14> 

:2,A=13,B=14> 

2,B=15> 

:2,A=14.B=15> 

^2,B=16> 

^2,A=15,B=16> 

:2.B=17> 

:2.A=16,B=17> 

:2.B=0> 

:2.A=17.8=0> 


<CONT,S0A,AND.D=2.B=1> 

<CONT,SOA.NAND.D=2.A=0,B=1> 

<C0NT.S0A.AND.D=2,B=2> 

<C0NT,S0A.NAND.D=2.A=1,B=2> 

<C0NT,S0A,AND.D=2,B=3> 

<CONT,SOA,NAND.D=2.A=2,B=3> 

<CONT.S0A,AND,D=2.B=4> 

<CONT,S0A.NAND,D=2.A=3.B=4> 

<CONT.SOA,AND.D=2.B=5> 

<C0NT.S0A.NAND.D=2.A=4,B=5> 


120 

121 

122 

123 

124 

125 

126 

127 

130 

131 

132 

133 

134 

135 

136 

137 

140 

141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
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1332 

1333 

133A 

1335 

1336 

1337 

1338 

1339 

13A0 

13A1 

13A2 

1343 

13AA 

13A5 

13A6 

13A7 

1348 

1349 

1350 

1351 

.352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

'379 

1380 

1381 


001735' 

001736' 

001737' 

001740' 

001741' 

001742' 

001743' 

001744' 

001745' 

001746' 

001747' 

001750' 

001751' 

001752' 

001753' 

001754' 

001755' 

001756' 

001757' 

001760' 

001761' 

001762' 

001763' 

001764' 

001765' 

001766' 

001767' 

001770' 

001771' 

001772' 

001773' 

001774' 

001775' 

001776' 

001777' 

002000' 

002001 • 

002002' 

002003' 

002004' 

002005' 

002006' 

002007' 

002010' 

002011* 
002012' 
002013' 
002014' 
002015' 


015300 

442003 

015400 

452053 

015500 

442003 

015600 

452063 

015700 

442004 

016000 

452074 

016100 

442004 

016200 

452104 

016300 

442005 

016400 

452115 

016500 

442005 

016600 

452125 

016700 

442006 

017000 

452136 

017100 

442006 

0  i /200 

452146 

017300 

442007 

017400 

452157 

017500 

442007 

017600 

452167 

017700 

442000 

020000 

452170 

020102 
430000 
020202 
000000 
777777 


000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

000340 

022004 
005040 
020000 
000040 
777777 
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MUORD 

HWORD 

MUORD 

nUORD 

MUORD 

nUORD 

MUORD 

nUORD 

nUORD 

nUORD 

MUORD 

NUORD 

NUORD 

NUORD 

NUORD 

NUORD 

NUORD 

NUORD 

NUORD 

NUORD 

NUORD 

NUORD 


Tests  (Part  4) 

<C0NT.S0A,AND,D=2,B=6> 

<CONT.SOA,NAND,D=2.A=5,B=6> 

<C0NT,S0A,AND,D=2,B=7> 

<C0NT.S0A,NAND,D=2,A=6,B=7> 

<C0NT,S0A.AND,D=2,B=10> 

<CONT,SOA.NAND,D--:2,A=7,B=10> 

<C0NT,S0A,AND.D=2,B=11> 

<C0NT,S0A,NAND,D=2,A=10,8=11> 

<CONT.S0A,AND,D=2.B=12> 

<CONT,S0A,NAND,D=2,A=11,B=12> 

<C0NT,S0A,AND,D=2,B=13> 

<CONT,S0A,NAND,D=2,A=12,B=13> 

<C0NT,S0A,AND,D=2.B=14> 

<C0NT,S0A,NAND,D=2.A=13,B=14> 

<CONT,SOA,AND,D=2,B=15> 

<C0NT,S0A,NAND,D=2,A=14,8=15> 

<C0NT.S0A,AND,D=2,B=16> 

<C0NT,S0A,NAND,D=2,A=15,8=16> 

<C0NT,S0A,AND.D-2,B=17> 

<C0NT,S0A,NAND,D=2.A=1 6,8=1 7> 

<CONT,S0A,AND,D=2.B=0> 

<C0NT , SOA  ,NAND , D=2 , A=1 7,B=0> 


SEQ  1326 


NUORD   <JNAP,J=202,S0A,A=0.OR.OENA.SELE.NGC=4> 

NUORD   <JNAP.J=202> 

-1 


153 
154 
155 
156 
157 
160 
161 
162 
163 
164 
165 
166 
167 
170 
171 
172 
173 
174 
175 
176 
177 
200 

201 
202 
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1382 

1383 

•  /|fi^*«:****t«r****i^********«*********t****«r***«r**********t  ***•*•*••**•••* 

1384 

;*  TEST  37  -  RAM/Q-Register 

Data 

Movement  Test 

1385 

1386 

;  Description:  Verify  that 
;            from  RAM  lo 

data 

can  be  successfully  moved  to  and 

1387 
1388 

cation  and  Q-Register  at  full  speed. 

1389 

•  Procedure:    Clear  Port 

1390 
1391 
1392 

Load  mi  croc 

ode 

I            Set  RAR  to 

0 

1393 

',                            Execute  JMAP  -  load  data  pattern  into  Reg  0 

139A 

;            Execute  a  sequence  of  instructions  that  moves 

1395 

;             the  data 

from 

-egister  to  register  while 

1396 
1397 
1398 

;             clearing 

other 

registers. 

When  done. 

read  1 

the  EBUF  and  verify  that  the 

1399 
KOO 
KOI 

data  is  correct  (516000, ,001234)'. 

Failure:     — 

1402 

/y*****«**4r***ilr***r*««r***«*«**************4t**4r*t|r********«**t*****4***** 

1403 

1404 

Test  data 

1405 

1406 

002016' 

254  00  0  00  002025'     1 

rSTA37:  JRST    TG37 

;  go  start  test 
:  test  mask 

1407 

002017' 

420402  000037 

EBUS!ALU!NDMP!ZALU! 

37 

1408 

002020' 

002071'  003540' 

T37M,,[ASCIZ  *RAM/Q 

-Register  Data  Movement  Test*J 

1409 

002021 • 

003416'  000000 

CEXP  MLAST!E23],,0 

1410 

002022' 

000000  002244' 

TSTA40 

;  failure  test  table 

1411 

002023' 

000000  002467' 

TSTA41 

1412 

002024' 

7?  nn   mm 

-1 

1413 

1414 

Start  test 

1415 

1416 

002025' 

201  00  0  00  000000'     1 

r637:   MOVEI   V 

;  get  address  of  module  start 
;  handle  trace  output 

1417 

002026' 

260  17  0  00  001344* 

GO      TRACE 

1418 

002027' 

201  01  0  00  002071' 

MOVEI   1,T37M 

;  set  up  microcode  address 

1419 

002030' 

260  17  0  00  001346* 

GO     TLOAD 

;  load/verify  it 

1420 
1421 
1422 

002031 ' 

263  17  0  00  000000 

RTN 

;  failed  -  exit  test 

•  Initialization 

1423 

1424 

002032' 

400  15  0  00  000000     1 

rL37:   SETZ    ERFLG, 

;  clear  error  flag 

1425 

002033' 

260  17  0  00  001351* 

GO      IPACLR 

;  clear  port 

SEQ  1327 


it^i^'\i'\\     r\r\.t\£        1^  i..i_oc    r>..»»     ifl 


15 
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SEQ  1328 


1A26 

K27 

1428 

U29 

1A30 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 


002034* 
002035' 
002036' 
002037' 
002040' 
002041 ' 
002042' 
002043' 
002044' 
002045' 
002046' 
002047' 
002050' 


201  01 
201  02 
201  03 
400  04 
260  17 
255  00 
400  15 
332  00 
474  15 
200  00 
404  00 
312  00 
474  15 


0  00  000012 
0  00  000000 
0  00  000032 
0  00  000000 
0  00  001356* 
0  00  000000 
0  00  000000 
0  00  001361* 
0  00  000000 
0  00  001402* 
0  00  003514' 
0  00  003515' 
0  00  000000 


002051'  027  00  0  00  002055' 
002052'  254  00  0  00  002032' 
002053'  254  00  0  00  002054' 


002054'  263  17  0  00  000000 


002055'  140000 
002056'  2rJ000 


003547' 
002057' 


002057'  200  01  0  00  001375* 

002060'  603  01  0  00  000200 

002061'  037  00  0  00  003450' 

002062'  607  01  0  00  000200 


002063' 
002064- 
002065' 
002066' 
002067' 
002070' 


037 
200 
037 
607 
037 
263 


00 
00 
13 
01 
00 
17 


00  003460' 
00  002045* 
00  000000 
00  000200 
00  003531 ' 
00  000000 


;  1st  segment  of  test  (Segment  A) 
TA37: 


MOVE  I 

MOVE  I 

MOVE  I 

SETZ 

GO 

JFCL 

SETZ 

SKIPE 

SETO 

MOVE 

AND 

CAME 

SETO 


1,*D10 
2,0 

V' 

AEXEC 

ERFLG, 

ALFLS 

ERFLG, 

ALEBF 

C777400,,1777J 

C516000,, 12343 

ERFLG, 


Start  up  port  and  wait  till  it  stops 

maximum  delay  before  timeout  (msec) 

error  address 

correct  address 

starting  address 

execute  ALU  type  test 

ignore  error 

clear  error  flag 

started  up  ok? 

no  -  set  error  flag 

get  EBUF  data 

mask  out  indeterminate  bits 

correct? 

no  -  set  error  flag 


;  Handle  error  printouts  and  scope  looping 

SCOPER  MA37 
JRST  TL37 
JRST    TX37 

;  End  of  test 

TX37:   RTN 

;  Error  messages 

MA37: 


print  error  message 
loop  on  error 
altmode  exit 


return 


MSG!TXNOT!CASCIZ  *2901  RAM/Q-Register  data  got  destroyed  somehow  (result  in  EBUF)*] 
LAST! CALL !TXALL!MA37PN 


MA37PN:  MOVE 
TLNE 
TMSGC 
(A) :   > 
TLNN 
TMSGC 
(Actual) 
MOVE 
PNTHU 
TLNN 
TMSGC 
RTN 


1,SC0SW 
1,TXTINH 
<E8UF  (C) 


000000  OOOOOl 


;  get  switches 
;  full  printout? 


UTXTINH 

<EBUF  (Correct) 

> 
ALEBF 


;  full  printout? 
000000  000001 


I.TXTINH  ;  full  printout? 

<(Middle  16  bits  indeterminate)? 


.KM.    *<r--V**.««^J'%\    A/N    n  J 


or  r\ in 
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U70 

H71 

U72 

U73 

147A 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 


002071 ' 

002072' 

002073' 

002074' 

002075' 

002076' 

002077' 

002100' 

002101' 

002102' 

002103' 

002104' 

002105' 

002106' 

002107' 

002110' 

002111' 

002112' 

002113' 

002114' 

002115' 

002116' 

002117' 

002120' 

002121' 

002122' 

002123' 

002124' 

002125' 

002126' 

002127' 

002130' 

002131' 

002132' 

002133' 

002134' 

002135' 

002136' 

002137' 

002140' 

002141' 

002142' 

002143' 

002144' 

002145- 

002146' 

002147' 

002150' 

002151' 

002152' 

002153' 

002154' 


000000 

732000 

000100 

001000 

000200 

444000 

000300 

400000 

000400 

202000 

000500 

444001 

000600 

430010 

000700 

232001 

001000 

444001 

001100 

460020 

001200 

262001 

001300 

444002 

001400 

450030 

001500 

2:)i002 

001600 

444002 

001700 

400040 

002000 

202002 

002100 

444003 

002200 

430050 

002300 

232003 

002400 

444003 

002500 

460060 

002600 

262003 

002700 

444004 

r03000 

'50070 
0C3100 

252004 


011234 

240040 

100000 

000300 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

000340 
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Tests  (Part  4) 

;  Microcode: 

T37M:   MUORD 

<ADDR=0, JMAP,J=1 ,SD0,OR,D=2.SKCN.MGC=1234>  ; 

MUORD 

<LDCT,J=10,D=1>                     ; 

1 

MUORD 

<CONT,S0A,AND,D=4,B=1>               ; 

2 

MWORD 

<CONT,SOA,PLUS.D=0,A=0>              ; 

3 

MUORD 

<C0NT,S0Q,PLUS.D=2.B=1> 

4 

hWORD 

<C0NT,S0A,AND.D=4,B=2> 

5 

MUORD 

<CONT,S0A,OR,D=0,A=1> 

6 

MUORD 

<C0NT,S0Q,0R,D=2,B=2> 

7 

MUORD 

<CONT,S0A.AND,D=4,B=3> 

10 

MUORD 

<CONT,S0A,XOR.D=0,A=2> 

•  11 

MUORD 

<CONT,S0Q,XOR.D=2.B=3> 

■  12 

MUORD 

<CONT,S0A,AND,D=4,B=4> 

•  13 

MUORD 

<CONT,SOA,NAND,D=0.A=3> 

;  14 

MUORD 

<CONT,S0Q,NAND,D=2.B=4> 

;  15 

MUORD 

<C0NT,S0A,AND,D=4,B=5> 

;  16 

MUORD 

<CONT,S0A,PLUS,D=0.A=4> 

;  17 

MUORD 

<C0NT,S0Q.PLUS.D=2,B=5> 

;  20 

MUORD 

<CONT.S0A,AND.D=4.B=6> 

;  21 

MUORD 

<CONT.S0A,OR,D=0.A=5> 

;  22 

MUORD 

<CONT,S0Q,OR,D=2.8=6> 

:   23 

MUORD 

<CONT.S0A.AND.D=4.B=7> 

;  24 

MUORD 

<CONT,S0A,XOR.D=0.A=6> 

;  25 

MWORD 

<CONT,S0Q,XOR,D=2.8=7> 

;  26 

MUORD 

<CONT,S0A.AND,D=4,B=1O> 

;  27 

MUORD 

<CONT.S0A,NAND,D=0.A=7> 

;  30 

MUORD 

<C0NT.S0Q.NAND.D=2.B=10> 

;  31 

L. 


SEQ  1329 
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1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

153A 

1535 

1536 

1537 

1538 

1539 

1540 

15A1 

15A2 

15A3 

15AA 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 


002155* 

002156* 

002157' 

002160' 

002161' 

002162' 

002163' 

002164' 

002165' 

002166' 

002167' 

002170' 

002171' 

002172' 

002173' 

002174' 

002175' 

002176' 

002177' 

002200' 

002201 ' 

002202' 

002203' 

002204' 

002205' 

002206' 

002207' 

002210' 

002211' 

002212' 

002213' 

002214' 

002215' 

002216' 

002217' 

002220' 

002221 ' 

002222' 

002223' 

002224' 

002225' 

002226' 

002227' 

002230' 

002231 • 

002232' 

002233' 

002234' 

002235' 

002236' 


003200 

444004 

003300 

400100 

003400 

202004 

003500 

444005 

003600 

430110 

003700 

232005 

004000 

444005 

004100 

460120 

004200 

262005 

004300 

444006 

004400 

450130 

004500 

252006 

004600 

444006 

004700 

400140 

005000 

202006 

Gu-100 

444007 

005200 

430150 

005300 

232007 

005400 

444007 

005500 

460160 

005600 

262007 

005700 

444000 

006000 

450170 

006100 

252170 

006200 

001000 


002237'  006300 

002240'  430000 

002241'  006400 

002242'  000000 


000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

000340 

000000 

000340 

020000 

000220 

642004 
005040 
640000 
000040 
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MWORD 

NUORD 

MUORD 

MUORD 

MWORD 

NUORD 

nWORD 

nuoRD 
nuoRD 

nUORD 

nuoRD 

MUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 


Tests  (Part  4) 

<CONT,S0A,AND,D=4,B=n> 

<CONT,S0A,PLUS,D=0,A=1O> 

<CONT,S0Q,PLUS,D=2,B=11> 

<CONT,S0A,AND.D=4,B=12> 

<CONT,S0A.OR.D=0,A=11> 

<CONT.S0a.OR,D=2,B=12> 

<C0NT,S0A,AND,D=4,B=13> 

<CONT,S0A.XOR,D=0.A=12> 

<CONT.S0Q,XOR.D=2,B=13> 

<CONT,S0A.AND,D=4,B= 

<CONT.S0A,NANt.,D=0.A=13> 

<CONT.S0Q,NAND.D=2,B=14> 

<CONT,S0A.AND,D=4,B=15> 

<CONT.S0A,PLUS,D=0,A=14> 

<CONT,S0Q.PLUS,D=2,B=15> 

<CONT.S0A.AND,D=4.B=1^> 

<CONT,S0A,OR,D=0,A=15> 

<C0NT.S0Q.0R,D=2,B=16> 

<CONT,S0A,AND,D=4.B=17> 

<CONT.S0A,XOR.D=0,A=16> 

<CONT,S0Q,XOR,D=2.B=17> 

<CONT.S0A,AND.D=4.B=0> 

<CONT,S0A,NAND.D-^0,A=17> 

<C0NT.S0Q,NAND,D=2,A=17.B^-0> 

<RPCT,J=2.D=1> 


SEQ  1330 


NUORD   <JNAP.J=64,S0A,A=0.OR.OENA.SELE,N6C^4> 
NUORD   <JNAPJ=64> 


32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 
61 
62 

;  63 
;  64 


518 
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SEQ  1331 


1580  002243'  777777  777777 


-1 
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SEQ  1332 


1581 

1582 

1583 

158A 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

159A 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

160A 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

162A 

1625 

1626 


0022A4' 
002245* 
002246' 
002247' 
002250' 
002251' 


254  00 

420402 

002314' 

Gu<416' 

000000 

mm 


0  00  002252' 
000040 
003564' 
000000 
002467' 

mm 


002252' 
002253' 
002254' 
002255' 
002256' 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
CO 
00 
00 
00 


000000' 
002026* 
002314' 
002030* 
000000 


#*•♦»******♦************♦******************************************** 
*  TEST  40  -  RAM  Data  Movement/Shifting  Test 

Description;  Verify  that  data  can  be  successfully  moved  to  and 
from  various  RAM  locations  at  full  speed  while 
shifting  left  and  right. 

Procedure:    Clear  Port 

Load  microcode 

Set  RAR  to  0  .       « 

Execute  JMAP  -  load  data  pattern  into  Reg  0 
Execute  a  sequence  of  instructions  that  moves 

the  data  from  register  to  register  while. 

clearing  other  registers  and  while  shifting 

left  and  right. 

When  done,  read  the  EBUF  and  verify  that  the 
data  is  correct  (516000,. 000000),  which  is 
516000,, 001234  left  shifted  26  bits. 

Failure:     — 

/jf******************************************************************** 

Test  data 

TSTA40:  JRST    TG40  ;  go  start  test 

EBUS!ALU!NDMP!ZALU!40  ;  test  mask  ^ 
T40M,,[ASCI2  *RAM  Data  Movement/Shifting  Test*] 
CEXP  MLAST!E23],,0 
TSTA41 
-1 

;  Start  test 

T640:   MOVEI  V 

GO  TRACE 

MOVEI  1,T40M 

GO  TLOAD 
RTN 


failure  test  table 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


Initialization 


002257'  400  15  0  00  000000 
002260'  260  17  0  00  002033* 


TL40: 


SETZ 
GO 


ERFLG, 
IPACLR 


clear  error  flag 
clear  port 


._J 


DFPTA7 
DFPTA7 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

163A 

1635 

1636 

1637 

1638 

1639 

16A0 

16A1 

16A2 

16A3 

16AA 

16A5 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 
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SEQ  1333 


002261 • 
002262" 
002263' 
002264' 
002265' 
002266' 
002267' 
002270' 
002271 • 
002272' 
002273' 
002274' 
002275' 


201  01 
201  02 
201  03 
400  04 
260  17 
255  00 
400  15 
332  00 
474  15 
200  00 
404  00 
312  00 
474  15 


0  00  000012 
0  00  000000 
0  00  000032 
0  00  000000 
0  00  002040* 
0  00  000000 
0  00  000000 
0  00  002043* 
0  00  000000 
0  00  002064* 
0  00  003514' 
0  00  003573' 
0  00  000000 


002276'  027  00  0  00  002302' 
002277'  254  00  0  00  002257' 
002300'  254  00  0  00  002301' 


002301'  263  17  0  00  000000 


002302'  140000 
002303'  2i'J000 


003574' 
002304' 


002304'  200  01  0  00  002057* 
002305'  603  01  0  00  000200 

002306'  037  00  0  00  003605' 
002307'  607  01  0  00  000200 

002310'  037  00  0  00  003615' 
002311'  200  00  0  00  002272* 
002312'  037  13  0  00  000000 
002313'  263  17  0  00  000000 


;  1st  segment  of  test  (Segment  A)  -  Start  up  port  and  wait  till  it  stops 
TA40: 


MOVEI  1,*D10 

MOVEI  2,0 

MOVEI  3,32 

SETZ  4, 

60  AEXEC 

JFCL 

SETZ  ERFLG, 

SKIPE  ALFLS 

SETO  ERFLG, 

MOVE  ALEBF 

AND  C777400,,1777J 

CAME  C516000,,0] 

SETO  ERFLG, 


maximum  delay  before  timeout  (msec) 

error  address 

correct  address 

starting  address 

execute  ALU  type  test 

ignore  error 

clear  error  flag 

started  up  ok? 

no  -  set  error  flag 

get  EBUF  data 

mask  out  indeterminate  bits 

correct? 

no  -  set  error  flag 


;  Handle  error  printouts  and  scope  looping 

SCOPER  MA40 
JRST  TL40 
JRST    TX40 


print  error  message 
loop  on  error 
altmode  exit 


;  End  of  test 

TX40:   RTN  ;  return 

;  Error   messages 

MA40:   MSG!TXNOT!CASCIZ  *2901  RAM  Register  data  got  destroyed  someh  w*] 
LAST! CALL !TXALL!MA40PN 


MA40PN:  MOVE 
TLNE 
TMS6C 
(A) :   > 
TLNN 
TMSGC 
(Actual) 
MOVE 
PNTHW 
RTN 


1,SC0SW 
1,TXTINH 
<EBUF  (C) 


516000  000006 


;  get  switches 
:  Tul 


ill  printout? 


1,TXTINH 

<EBUF  (Correct) 

ALEBF 


;  full  printout? 
516000  000000 


L 


_._.] 


DFPTA7 
DFPTA7 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 
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002314' 

002315* 

002316' 

002317' 

002320' 

002321 ' 

002322' 

002323' 

002324' 

002325' 

002326' 

002327' 

002330' 

002331 ' 

002332' 

002333' 

002334' 

002335' 

002336' 

002337' 

002340' 

002341 ' 

002342' 

002343' 

002344' 

002345' 

002346' 

002347' 

002350' 

002351' 

002352' 

002353' 

002354' 

002355' 

002356' 

002357' 

002360' 

002361 ' 

002362' 

002363' 

002364 ' 

002365' 

002366' 

002367' 

002370' 

002371 • 

002372' 

002373' 

002374' 

002375' 

002376' 

002377' 


000000 

732000 

000100 

001000 

000200 

444000 

000300 

307000 

000400 

405000 

000500 

444001 

000600 

337000 

000700 

435001 

001000 

444001 

001100 

367001 

001200 

465001 

001300 

444002 

001400 

357001 

001500 

43.-;002 

001600 

444002 

001700 

307002 

002000 

405002 

002100 

444003 

002200 

337002 

002300 

435003 

002400 

444003 

002500 

367003 

002600 

465003 

002700 

444004 

003000 

357003 

003100 

455004 


011234 

240040 

310000 

000300 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

OOOOCO 

400340 

000000 

000340 

000000 

400340 

000000 

000340 


;  Microcode: 
T40M:  MUORD 
MUORD 
MWORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


Tests  (Part  4) 

<ADDR=0, JMAP,J=1 ,SD0,0R,D=2,SKCN.M6C=1234>  ; 

<LDCT,J=31,D=1>  ;  1 

<CONT,S0A,AND,D=4,B=1>  ;  2 

<C0NT, SOB. PLUS, D=7,B=0>  ;  3 

<CONT,S0A,PLUS.D=5,A=0,B=1>  ;  4 

<CONT.S0A,AND.D=4,B=2>  ;  5 

<CONT,S0B.OR.D=7,B=1>  ;  6 

<CONT,S0A,OR,D=5,B=2>  ;  7 

<CONT.S0A,AND,D=4,B=3>  ;  10 

<C0NT,S0B,X0R.D=7,8=2>  ;  11 

<CONT,S0A,XOR,D=5,B=3>  ;  12 

<CONT,S0A,AND.D=4,B=4>  ;  13 

<CONT.S0B,NAND,D=7,B=3>  ;  14 

<CONT.S0A,NAND,D=5,B=4>  ;  15 

<CONT,S0A,AND,D=4.B=5>  ;  16 

<C0NT, SOB, PLUS. D=7,B=4>  ;  17 

<CONT,SOA,PLUS,D=5.B=5>  ;  20 

<CONT,S0A,AND,D=4,B=6>  ;  21 

<CONT,S0B,OR,D=7,B=5>  ;  22 

<CONT.S0A.OR,D=5.B=6>  ;  23 

<CONT,S0A.AND.D-4,B=7>  ;  24 

<CONT,S0B,XOR.D=7.B=6>  ;  25 

<CONT,S0A,XOR.D=5.B=7>  ;  26 

<CONT,S0A,AND,D=4,B=10>  ;  V 

<CONT.S0B,NAND,D=7,B=7>  ;  30 

<CONT,S0A,NAND.D=5,B=10>  ;  31 


SEQ  1334 


OFF 
OFF 


r 


r" 


DFPTA7 
DFPTA7 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 
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002400' 

002401 ' 

002402' 

002403' 

002404' 

002405' 

002406' 

002407' 

002410' 

002411' 

002412' 

002413' 

002414' 

002415' 

002416' 

002417' 

002420' 

002421 ' 

002422' 

002423' 

002424' 

002425' 

002426' 

002427' 

002430' 

002431 ' 

002432' 

002433' 

002434' 

002435' 

002436' 

002437' 

002440' 

002441 ' 

002442' 

002443' 

002444' 

002445' 

002446' 

002447' 

002450' 

002451' 

002452' 

002453' 

002454' 

002455' 

002456' 

002457' 

002460' 

002461 ' 


003200 

444004 

003300 

307004 

003400 

405004 

003500 

444005 

003600 

337004 

003700 

435005 

004000 

444005 

004100 

367005 

004200 

465005 

004300 

444006 

004400 

357005 

004500 

455006 

004600 

444006 

004700 

307006 

005000 

405006 

Ou.^100 

444007 

005200 

337006 

005300 

435007 

005400 

444007 

005500 

367007 

005600 

465007 

005700 

444000 

006000 

357007 

006100 

455170 

006200 

337000 


000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

0C0340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

020000 

000220 


002462'  006300  642004 

002463'  430000  005040 

002464'  006400  640000 

002465'  000000  000040 
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nuORD 

nwoRD 

NUORC 

nwoRD 
nuoRD 

nUORD 
NUORD 
MUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
NUORD 
nUORD 
NUORD 
NUORD 

NUORD 
NUORD 


Tests  (Part  4) 

<C0NT,S0A.AND,D=4.B=n>  ;  32 

<CONT. SOB, PLUS. D=7.B=10>  ;  33 

<C0NT.S0A.PLUS,D=5.8=11>  ;  34 

<CONT,S0A.AND,D=4,B=12>  ;  35 

<CONT.S0B.OR.D=7,B=ll>  ;  36 

<C0NT.S0A,0R.D=5,B=12>  ;  37 

<C0NT,S0A,AND.D=4,B=13>  ;  40 

<C0NT.S0B,X0R,D=7.B=12>  ;  41 

<C0NT.S0A.X0R,D=5,B=13>  ;  42 

<C0NT.S0A.AND.D=4,B=14>  ;  43 

<CONT,S0B,NAND,D=7.B=13>  ;  44 

<C0NT,S0A,NAND,D=5-,B=14>  ;  45 

<CONT.S0A,AND,D=4.B=15>  ;  46 

<CONT, SOB, PLUS, D=7,B=14>  ;  47 

<CONT.SOA,PLUS,D=5,B=15>  ;  50 

<C0NT,S0A,AND,D=4,B=16>  ;  51 

<C0NT,S0&,0R,D=7,B=15>  ;  52 

<C0NT,S0A,0R,D=5,B=16>  ;  53 

<C0NT,S0A.AND.D=4,B=17>  ;  54 

<C0NT.S0B,X0R.D=7,B=16>  ;  55 

<CONT.S0A.XOR,D=5,B=17>  ;  56 

<C0NT.S0A,AND,D=4.B=0>  ;  57 

<C0NT.S0B,NAND.D=7,B=17>  ;  60 

<C0NT,S0A,NAND.D=5,A=17,B=0>  ;  61 

<RPCT,J=2,S0B,0R,B=0,D=7>  ;  62 

<JNAP,J=64,S0A,A=0.OR,OENA,StLE,MGC-4>  ;  63 

<JNAP.J=64>  ;  64 


SEQ  1335 


1323 
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SEO  1336 


1779  002A66'  777177     777777 


-1 


I  1324 
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SEQ  1337 


1780 

1781 

1782 

1783 

178; 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

180A 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

18U 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 


002467' 
002470' 
002471 ' 
002472' 
002473' 


002474' 
002475' 
002476' 
002477' 
002500' 


254  00  0  00  002474' 
420402  000041 
00P536'  003630' 
Gu<416'  000000 

infn    mill 


201  00  0  00  000000' 
260  17  0  00  002253* 
00  002536* 


01  0 

17  0  00  002255* 
263  17  0  00  000000 


201 
260 


*  TEST  41  -  RA/1/Q-Reg  Data  Movement/Shifting  Test 

Descnptior.:  V«'-ify  fhat  data  can  be  successfully  moved  to  and 
frcm  RAM  locatfcn  anri  Q-Register  at  full  speed 
while  shifting  left  and  right. 

Procedure:    Clear  Port 

Load  microcode 

Set  RAR  to  0 

Execute  JNAP  -  load  data  pattern  into  Reg  0 

Execute  a  sequence  of  instructions  that  moves 

th?*  data  from  register  to  register  while. 

clearing  other  registers  and  while  shifting 

left  and  right. 

When  done,  read  the  EBUF  and  verify  that  the 
data  is  correct  ( 51 6000., 000000) ,  whuh  is 
51 6000.. 001 234  left  shifted  26  bus. 

Failure:     — 

/!>»*♦*****»♦*»********♦♦*♦**••**♦♦*♦*»***♦■****************♦****♦****♦♦ 

:  Test  data 

TSTA41:  JRST    TG41  ;  go  start  te'^t 

EBUSIALU:NDMP1ZALU!41         ;  test  mask 
T41.«1,.CASCIZ  *RAH/Q-Reg  Data  Movement/Shifting  Test*] 
CEXP  MLASTIE233..0 
-1 

;  Start  test 

TG41:   MOVEl 
GO 

MOVE  J 
60 
RTN 


11 

TRACE 
1.T41M 
TLOAP 


failure  test  table 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


Initialization 


002501*  400  15  0  00  000000 
002502'  260  17  0  00  002260* 


TL41 


SETZ 
GO 


ERFlG. 
IPACLR 


clear  error  flag 
clear  port 


DFPTA7 
DFPTA7 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

183A 

1835 

1836 

1837 

1838 

1859 

18A0 

18A1 

18A2 

18A3 

18A4 

18A5 

18A6 

18A7 

18A8 

18A9 

1850 

1851 

1852 

1853 

185A 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

186A 

1865 

1866 
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SEQ  1338 


002503' 
00250A* 
002505' 
002506' 
002507' 
002510' 
002511' 
002512' 
002513' 
0025U' 
002515' 
002516' 
002517' 


201  01 
201  02 
201  03 
400  04 
260  17 
255  00 
400  15 
332  00 


474  15  0 
200  00  0 
404  00  0 
312  00 


474  15  0 


00  000012 
00  000000 
00  000032 
00  000000 
00  002265* 
00  000000 
00  000000 
00  002270* 
00  000000 
00  002311* 
00  003514' 
00  003573' 
00  000000 


002520'  027  00  0  00  002524' 
002521 •  254  00  0  00  002501 ' 
002522'  254  00  0  00  002523' 


00252!'  263  17  0  00  000000 


002524'  160000 
002525'  2rJ000 


003640' 
002526' 


002526'  200  01  0  00  002304* 

002527'  603  01  0  00  000200 

002530'  037  00  0  00  003605' 

002531 •  607  01  0  00  000200 

002532'  037  00  0  00  003615* 

002533'  200  00  0  00  002514* 

002534'  037  13  0  00  000000 

002535'  263  17  0  00  000000 


;  1st  segment  of  test  (Segment  A)  -  Start  up  port  and  wait  till  ft  stops 
TA41; 


MOVE  I  1.*D10 

MOVEI  2.0 

MOVE  I  3,32 

SET2  4. 

GO  AEXEC 

JFCL 

SETZ  ERFLG, 

SKJPE  ALFLS 

SETO  ERFLG. 

MOVE  ALEBF 

AND  C777400.,1777] 

CAME  [516000.. 0] 

SETO  ERFLG. 


maximum  delay  before  timeout  (msec) 

error  address 

correct  address 

starting  address 

execute  ALU  type  test 

ignore  error 

clear  error  flag 

started  up  ok? 

no  -  set  error  flag 

get  EBUF  data 

mask  out  indeterminate  bits 

correct? 

no  -  set  error  flag 


;  Handle  error  printouts  and  scope  looping 


SCOPER  MA41 
JRST  TL41 
JRST    TX41 

;  End  of  test 

TX41 :   RTN 

;  Error  messages 

MA41: 


print  error  message 
loop  on  error 
altmode  exit 


return 


MSGITXALLICASCIZ  *2901  RAM/Q-Register  data  got  destroyed  somehow*] 
LASr!CALLITXALLlMA41PN 


MA41PN:  MOVE 
TLNE 
TMSGC 
(A) :   > 
TLNN 
TMSGC 
(Actual) 
MOVE 
PNTHU 
RTN 


1.SC0SW  ;  get  switches 

I.TXTINH  ;  full  printout? 

<^8UF  (C):  516000  000000 


1.TXTINH 

<E8UF  (Correct): 
> 
ALEBF 


;  full  printout? 
516000  000000 


L. 


Q  1326 


DFPTA7 
DFPTA7 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

187A 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

188A 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

189A 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

190A 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

19U 

1915 

1916 

1917 

1918 

1919 

1920 

1921 


MACRO  X53B(1242)  09:06  l-Jul-85  Page  25   ^^^^ 
MAC     18-Apr-85  10:59        EBUS/MPROC  2901 


002536* 

002537' 

0025A0' 

0025A1 ' 

002542' 

0025A3' 

00254A' 

002545' 

0025A6' 

0025A7' 

002550' 

002551' 

002552' 

002553' 

002554' 

002555' 

002556' 

002557' 

002560' 

002561 • 

002562' 

002563' 

002564' 

002565' 

002566' 

002567' 

002570' 

002571 ' 

002572' 

002573' 

002574' 

002575' 

002576' 

002577' 

002600' 

002601 ' 

002602' 

002603' 

002604' 

002605' 

002606' 

002607' 

002610' 

002611' 

002612' 

002613' 

002614' 

002615' 

002616' 

002617' 

002620' 

002621 • 


000000 

732000 

000100 

001000 

000200 

444000 

000300 

406000 

000400 

205000 

000500 

444001 

000600 

436010 

000700 

235001 

001000 

444001 

001100 

466020 

001200 

265001 

001300 

444002 

001400 

456030 

001500 

23.-;  002 

001600 

444002 

001700 

406040 

002000 

205002 

002100 

444003 

002200 

436050 

002300 

235003 

002400 

444003 

002500 

466060 

002600 

265003 

002700 

444004 

003000 

456070 

003100 

255004 


011234 

240040 

310000 

000300 

000000 

400340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

4003  -^ 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

000340 

000000 

400340 

000000 

400340 

000000 

400340 

000000 

000340 

OOOQOO 

400340 

OOOQOO 

000340 


;  Microcode: 
T41M:  MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


Tests  (Part  4) 

<ADDR=0,JMAPJ=1.SD0,OR.D=2,SKCN,MGC=1234>  ;  0 

<LDCT.J=31,D=1>  ;  1 

<C0NT,S0A.AND,D=4,B=1>  ;  2 

<CONT,SOA.PLUS,D=6.A=0,B=1>  ;  3 

<C0NT,S0Q,PLUS,D=5,B=1>  ;  4 

<C0NT.S0A,AND.D=4,B=2>  ;  5 

<C0NT,S0A.OR,D=6.A=1,B=1>  ;  6 

<C0NT,S0Q,0R,D=5,B=2>  ;  7 

<CONT,S0A,AND,D=4.B=3>  ;  10 

<C0NT,S0A,X0R,D=6,A=2,B=1>  ;  11 

<CONT,S0Q,XOR,D=5,B=3>  ;  12 

<C0NT,S0A,AND,D=4,B=4>  ;  13 

<C0NT,S0A.NAND,D=6,A=3,B=1>  ;  14 

<C0NT,S0Q.NAND,D=5,B=4>  ;  15 

<C0NT,S0A,AND,D=4,B=5>  ;  16 

<CONT.S0A.PLUS,D=6,A=4,8=1>  ;  17 

<CONT,SOQ,PLUS,D=5,B=5>  ;  20 

<CONT,S0A.AND,D=4,B=6>  ;  21 

<C0NT,S0A.0R,D=6,A=5,B=1>  ;  22 

<C0NT.S0Q.0R,D=5.B=6>  ;  23 

<C0NT,S0A,AND,D=4,B=7>  ;  24 

<C0NT,S0A,X0R,D=6.A=6,B=1>  ;  25 

<C0NT,S0Q,X0R,D=5,8=7>  ;  26 

<C0NT,S0A,AND.D=4,B=10>  ;  27 

<C0NT.S0A.NAND.D=6,A=7,B=1>  ;  30 

<CONT,SOQ.NAND,D^-5.B=10-  ;  31 


SEQ  1339 


DFPTA7 
DFPTA7 

1922 
1923 
192A 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
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002622* 
002623' 
002624' 
002625' 
002626' 
002627' 
002630' 
002631 ' 
002632' 
002633' 
002634' 
002635' 
002636' 
002637' 
002640' 
002641 ' 
002642' 
002643' 
002644' 
002645' 
002646' 
002647' 
002650' 
002651 ' 
002652' 
002653' 
002654' 
002655' 
002656' 
002657' 
002660' 
002661 ' 
002662' 
002663' 
002664' 
002665 ' 
002666' 
002667' 
002670' 
002671 ' 
002672' 
002673' 
002674 ' 
002675' 
002676' 
002677' 
002700' 
002701 ' 
002702' 
002703' 


003200 
444004 
003300 
406100 
003400 
205004 
003500 
444005 
003600 
436110 
003700 
235005 
004000 
444005 
004100 
466120 
004200 
265005 
004300 
444006 
004400 
456130 
004500 
255006 
004600 
444006 
004700 
406140 
005000 
205006 
Ou.-^IOO 
444007 
005200 
436150 
005300 
235007 
005400 
444007 
005500 
466160 
005600 
265007 
005700 
444000 
006000 
456170 
006100 
255170 
006200 
337000 


000000 
400340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
400340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
400340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
400340 
000000 
000340 
000000 
400340 
000000 
000340 
000000 
400340 
000000 
400340 
000000 
400340 
000000 
400340 
000000 
400340 
000000 
400340 
020000 
000220 


00270^*'  006300  632004 
002705'  431000  005040 
002706'   777777     777777 
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MUORD 

MUORD 

MWORD 

MUORD 

MWORD 

MWORD 

MWORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 


Tests  (Part  4) 

<C0NT,S0A,AND,D=4,B=11> 

<CONT,S0A,PLUS.D=6,A=10,8=1> 

<C0NT,S0Q,PLUS,D=5,B=11> 

<C0NT,S0A,AND,D=4,B=12> 

<C0NT.S0A,0R,D=6,A=11,B=1> 

<CONT,S0Q,OR.D=5,B=12> 

<C0NT,S0A,AND,D=4,B=13> 

<C0NT,S0A,X0R,D=6,A=12,B=1> 

<CONT,SOQ,XOR,D=5,B=13> 

<CONT,S0A,AND,D=4,B=14> 

<C0NT,S0A,NAND.D=6,A=13.B=1> 

<CONT,S0Q,NAND,D=5,B=14> 

<CONT,S0A,AND,D=4,B=15> 

<CONT,S0A,PLUS,D=6,A=14.8=1> 

<C0NT,S0Q,PLUS,D=5.B=15> 

<C0NT,S0A.AND.D=4,B=16> 

<C0NT,S0A,0R.D=6,A=15,8=1> 

<C0NT,S0Q,0R,D=5,B=16> 

<CONT,S0A,AND,D=4,B=17> 

<CONT,S0A,XOR,D=6,A=16,B=1> 

<CONT,S0Q,XOR,D=5,B=17> 

<CONT,S0A,AND,D=4,B=1> 

<CONT.S0A,NAND,D=6,A=1 7,8=1 > 

<CONT,S0Q,NAND,D=5,A=17,8=1> 

<RPCT,J=2,S0B,OR,B=0,D=7> 


SEQ  1340 


32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 
61 
62 


MUORD   <JMAP,J=6j,S0A.A=0.OR,D=1,OENA.SELE,MGC=4>  ;  63 
-1 


r»tDTA7       MAron    VC^PMO/.OX     nO-HA       l.lnl.Rt;    Pano    P^ 


DFPTA7 
DFPTA7 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

199A 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

200A 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 
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SEQ  1341 


002707'  254  00  0  00  002714' 

002710'  420402  000042 

002711'  002737'  003652' 

002712'  003416'  000000 

002713'  111717     mill 


002714'  201  00  0  00  000000* 

002715'  260  17  0  00  002475* 

002716'  201  01  0  00  002737' 

002717'  260  17  0  00  002477* 

002720'  263  17  0  00  000000 


00<i721'  400  15  0  00  000000 
002722'  260  17  0  00  002502* 


/jf********************  ***************************  ********************* 
*  TEST  42  -  2901  Register  /  Constant  Mux  Test 

Description:  Verify  the  AND  function  of  the  2901  .registers, 
anding  them  with  data  on  the  direct  inputs  (the 
Constant  MUX). 

Procedure:    Clear  Port 

Load  microcode 

Write  O's  to  register  x 

Write  I's  to  register  y  ^  ,    . 

And  a  constant  of  I's  with  register  y  and  place  in 

register  x.  .     ,     . 

Verity  that  register  x  now  contains  all  zero's. 

Repeat  with  various  register  combinations. 

Failure:     — 
#**♦**************************************♦************************** 

Test  data 


TSTA42:  JRST    TG42       ^  -  r      . 

EBUS!ALU!NDMP!ZALU!42         ;  !est  mask 

T42M,.[ASCI2  *2901  Register  /  Constant  Mux  Test*] 
CEXP  MLAST!E23],,0 


;  go  start  test 
;  test 


-1 

;  Start  test 

TG42:   MOVE I 
GO 

MOVE  I 
GO 
RTN 

11 

TRACE 
1,T42M 
TLOAD 

;  Initialization 

TL42:   SETZ 
GO 

ERFLG, 
IPACLR 

failure  test  table 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 


RrriT«-»        UArn/i     VC7Q/1Ty">\     f\C\ .  t\i. 


1-  I,. I  -QC     D:>na     07 


L 


i 


DFPTA7 
DFPTA7 

2018 

2019 

2020 

2021 

2022 

2023 

202A 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

203A 

2035 

2036 

2037 

2038 

2039 

20A0 

20A1 

2042 

2043 

20AA 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 
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SEQ  1342 


002723'  201  01 

002724'  201  02 

002725'  201  03 

002726'  201  04 

002727'  260  17 

002730'  474  15 


0  00  000012 
0  00  005000 
0  00  004000 
0  00  000001 
0  00  002507* 
0  00  000000 


002731'  027  00  0  00  002735' 
002732'  254  00  0  00  002721' 
002733'  254  00  0  00  002734' 


002734'  263  17  0  00  000000 


002735'  160000  003661' 
002736'  000000000000* 


002737'  000001 

002740'  000000 

002741'  oomoo 

002742'  4«4_J010 


002743' 
002744' 
002745' 
002746' 
002747' 
002750' 
002751 ' 
002752' 
002753' 
002754' 

002755' 
002756' 
002757' 
002760' 
002761' 
002762' 
002763' 
002764' 


010001 
>42000 
010100 
472000 
010200 
543000 
010301 
430410 
010450 
000000 

010500 
472001 
010600 
543001 
010701 
430420 
011050 
000000 


002765'  011100 
002766'  472001 
002767'  011200 


000000 
000040 
000000 
400000 

01.000 
000040 
000000 
400340 
001777 
640340 
050000 
020060 
000000 
000040 

000000 
000340 
001777 
240340 
110000 
020060 
000000 
000040 

000000 
400340 
001777 


;  1st  segment  of  test  (Segment  A)  -  Start  up  port  and  wait  tiU  it  stops 


TA42; 


MOVE  I 
MOVE  I 
MOVE  I 
MOVE  I 
GO 
SETO 


1,*P10 

2,5000 

3,4000 

4,1 

AEXEl 

ERFLG, 


maximum  delay  before  timeout  (msec) 

error  address 

correct  address 

starting  address 

execute  ALU  type  test 

error  occurred 


;  Handle  error  printouts  and  scope  looping 

SCOPER  MA42 
JRST  TL42 
JRST    TX42 


print  error  message 
loop  on  error 
altmode  exit 


;  End  of  test 

TX42:   RTN  ;  return 

;  Error  message  -  Microcode  did  not  stop  in  the  right  place 

MA42:   MSGITXALLICASCIZ  *2901  function  using  Constant  MUX  failed*] 
LAST  1  CALL ITXALLiAAPNT 


;  Microcode: 
T42M:   MWORD 
MUORD 

MWORD 
MWORD 
MWORD 
MWORD 
MWORD 

MWORD 
MWORD 
MWORD 
MWORD 


<ADDR=0,JMAP,J=100> 
<JZ.S0A.AND,A=1,B=1,D=2> 

<ADDR=i00,JMAP,J=101,S0A.AND,A=0,B^0,D=2> 

<CONT.S0A,XNOR,A=0,B=1 ,D=2> 

<C0NT,MGC=1 777, SKCN,SDA, AND, A--0,B=1,D=3> 

<CJP,J=105,S0A,OR,'=1,CENA,CCFZ> 

<JMAP,J=5000> 

<CONT.S0A,XNOR,A=0,B=2,D=2> 
<C0NT,MGC=1 777,  SlffN,SDA, AND. A=0,B=2,D=3> 
<CJP,J=111,o0A,0R,A=2,CENA,CCFZ> 
<JMAP,J  =  ':000> 


MWORD       <CONT,S0A,XNOR,A=0,B=3,D=2> 

MWORD   <C0NT.M6C=1 777, SKCN.SDA. AND, A=0,B=3,D=3> 


0 
1 

100 
101 
102 
103 
104 

105 
106 
107 
110 

;  111 
;  112 


I  *^  \  A^  A 1 


or  r\ '^"»  n 


I 


! 

! DFPTA7 
|DFPTA7 

2073 

207A 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

208A 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

209A 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

21 OA 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

21K 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 


r" 
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002770" 
002771 ' 
002772* 
002773' 
00277A' 

002775' 
002776' 
002777' 
003000' 
003001 ' 
003002' 
003003' 
00300A' 

003005' 
003006* 
003007' 
003010' 
00301 1 ' 
003012' 
003013' 
003014' 

003015' 
003016' 
003017* 
003020' 
003021 ' 
003022' 
003023' 
003024* 

003025* 
003026* 
003027' 
003030' 
003031 ' 
003032' 
003033' 
003034' 

003035* 
003036* 
003037* 
003040* 
003041' 
003042* 
003043* 
003044 • 


543001 
011301 
430430 
011450 
000000 

011500 
472002 
011600 
543002 
011701 
430440 
012050 
000000 

012100 
472002 
012200 
543002 
012301 
43C450 
012450 
000000 

012500 
472003 
012600 
543003 
012701 
430460 
Oi<050 
000000 

013100 
472003 
013200 
543003 
013301 
430470 
013450 
000000 

013500 
472004 
013600 
543004 
013701 
430500 
014050 
000000 


003045'  014100 

003046'  472004 

003047*  014200 

003050'  543004 


640340 
150000 
020060 
000000 
000040 

000000 
000340 
001777 
240340 
210000 
020060 
000000 
000040 

000000 
400340 
001777 
640340 
250000 
020060 
000000 
000040 

000000 
000340 
001777 
240340 
310000 
020060 
000000 
000040 

000000 
400340 
001777 
640340 
350000 
020060 
000000 
000040 

000000 
000340 
001777 
240340 
410000 
020060 
000000 
000040 

000000 
400340 
001777 
640340 
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nuORD 
MUORD 

nwoRD 

MUORD 
MUORD 
NUORD 

MUORD 
nUORD 
MUORD 

nuoRD 

nuoRD 
nuoRD 

MUORD 
MUORD 

nUORD 

nuoRD 

MUORD 
MWUPD 

nUORD 
MUORD 
MUORD 
MUORD 

MUORD 
MUORD 


Tests  (Part  4) 

<CJP,J=115.S0A,OR.A=3,CENA,CCFZ> 
<JMAP,J=5000> 

<CONT.S0A,XNOR,A=0,B=4,D=2> 

<C0NT,MGC=1 777. SKCN.SDA, AND, A=0, 8=4. D=3> 

<CJP.J=121,S0A.0R.A=4.C£NA.CCFZ> 

<JMAP.J=5000> 

<CONT.S0A.XNOR.A=0,B=5.D=2> 
<CONT.MGC=1777.SKCN,SDA,AND.A=0.B=5.D=3> 
<CJP.J=125.S0A.0R.A=5.CENA.CCFZ> 
<JMAP,J=5000> 

<C0NT.S0A.XN0R.A=0,B=6.D=2> 

<C0NT.MGC=1 777, SKCN.SDA. AND. A=0.B=6.D=3> 

<CJP.J=131.S0A,OR,A=6,CENA,CCFZ> 

<JMAP,J=5000> 

<CONT,S0A,XNOR,A=0,B=7.D=2> 

<C0NT,MGC=1 777. SKCN,SDA, AND, A=0, 8=7, D=3> 

<CJP,J=135.S0A.0R.A=7.CENA.CCFZ> 

<JMAP,J=5000> 

<CONT,S0A,XNOR,A=0,B=10,D=2> 

<C0NT,MGC=1 777, SKCN.SDA, AND, A=0.B=10,D=3> 

<CJP,J=141,S0A,OR.A=10.CENA.CCFZ> 

<JMAP,J=5000> 

<CONT,S0A.XNOR.A=0.B=11,D=2> 
<C0NT,MGC=1777. SKCN.SDA. AND. A=0.B=11,D=3> 


SEO  1343 


113 
114 

115 
116 
117 
120 

121 
122 
123 
124 

125 
126 
127 
130 

131 
132 
133 

134 

135 
136 
137 
140 

;  141 
;  142 


'X  -^   '^ 


L,._ 


r 


DFPTA7 
0FPTA7 

2128 

2129 

2130 

2131 

2132 

2133 

21 3A 

2135 

2136 

2137 

2138 

2139 

2U0 

2141 

2142 

2143 

2V»4 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 
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SEO  1344 


003051'  014301 

003052'  430510 

003053'  014450 

003054'  000000 


003055' 
003056' 
003057' 
003060' 
003061 ' 
003062' 
003063' 
003064' 

003065' 
003066' 
003067' 
003070' 
003071 ' 
003072' 
003073' 
003074' 

003075' 
003076' 
003077' 
003100' 
003101' 
003102' 
003103' 
003104' 

003105' 
003106' 
003107' 
003110' 
003111' 
003112' 
003113' 
003114' 

003115' 
003116' 
003117' 
003120' 
003121' 
003122' 
003123' 
003124' 


014500 
472005 
014600 
543005 
014701 
430520 
015050 
000000 

015100 
472005 
015200 
543005 
015301 
430530 
015450 
000000 

015500 
472006 
015600 
543006 
015701 
430540 
016050 
OuJOOO 

016100 
472006 
016200 
543006 
016301 
430550 
016450 
000000 

016500 
472007 
016600 
543007 
016701 
430560 
017050 
000000 


003125'  017100 

003126'  472007 

003127'  017200 

003130'  543007 

003131'  017301 


450000 
020060 
000000 
000040 

000000 
000340 
001777 
240340 
510000 
020060 
000000 
000040 

000000 
400340 
001777 
640340 
550000 
020060 
000000 
000040 

000000 
000340 
001777 
240340 
610000 
020060 
000000 
000040 

000000 
400340 
001777 
640340 
650000 
020060 
000000 
000040 

000000 
000340 
001777 
240340 
710000 
020060 
000000 
000040 

000000 
400340 
001777 
640340 
750000 


(1U0RD  <CJP.J=145.S0A.OR,A=ll,CENA.CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT,SOA,XNOR,A=0,B=12,D=2> 

liUORD  <C0NT.MGC=1 777. SKCN.SDA, AND. A=0.B=12.D=3> 

MWORD  <CJP,J=151.S0A.0R.A=12,CENA.CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT.S0A,XNOR.A=0.B=13.D=2> 

MWORD  <C0NT.MGC=1 777. SKCN.SDA. AND. A=0.B=1 3. D=3> 

MWORD  <CJP.J=155,S0A.OR.A=13.CENA,CCFZ> 

MWORD  <JMAP.J=5000> 

MWORD  <CONT.S0A.XNOR,A=0,B=14,D-2> 

MWORD  <C0NT.MGC=1 777. SKCN.SDA. AND, A=0,B=14.D=3> 

MWORD  <CJP,J=161 .S0A,0R.A=14.CENA.CCFZ> 

MWORD  <JMAP.J=5000> 

MWORD  <CONT,S0A,XNOR.A=0.B=15,D=2> 

MWORD  <C0NT.MGC=1 777. SKCN.SDA.AND.A=0,B=1 5, D=3> 

MWORD  <CJP.J=165,S0A.0R,A=15.CENA.CCFZ> 

MWORD  <JMAP.J=5000> 

MWORD  <CONT,S0A.XNOR.A=0.B=16.D=2> 

MWORD  <C0NT,MGC=1 777. SKCN.SDA, AND. A=0.B=16.D=3> 

MWORD  <CJP.J=171 .S0A.0R.A=16.CENA,CCFZ> 

MWORD  <JMAP.J=5000> 

MWORD  <CONT.S0A.XNOR.A=0.B=17.D=2> 

MWORD  <C0NT.MGC=1777,SKCN,SDA,AND,A-0,B=17,D=3> 

MWORD  <CJP.J=175,S0A.0R,A=17.CENA,CCFZ> 


143 
144 

145 
146 
147 
150 

151 
152 
153 
154 

155 
156 
157 
160 

161 
162 
163 
164 

165 
166 
167 
170 

171 
172 
173 


SGA 
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2183 

21 8A 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

21 9A 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

220A 

2205 

2206 

2207 

2206 

2209 

2210 

2211 

2212 

2213 

221A 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2122 

2221 

2221^ 

2225 

222b 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 


003132'  A30570 
003133"  017450 
003134'  000000 


003135* 
003136' 
003137' 
003140' 
003141' 
003142* 
003143' 
003144' 

003145* 
003146* 
003147* 
003150* 
003151' 
003152' 
003153* 
003154* 
003155* 
003156* 

003157* 
003160* 
003161* 
003162* 
003163* 
003164* 
003165* 
003166* 
003167* 
003170' 

003171* 
003172* 
003173' 
003174* 
003175' 
003176' 
003177* 
003200' 
003201 ' 
003202' 

003203' 
003204' 
003205* 
003206* 
003207' 
003210' 
003211' 
003212' 
003213* 


017500 
472000 
017600 
543170 
017703 
430400 
020050 
COOOOO 

030000 
4421o7 
030100 
472162 
C30200 
543162 
030303 
430440 
030450 
000000 

030500 
442156 
030600 
472152 
030700 
543152 
OyOOl 
430440 
031150 
000000 

031200 
442146 
031300 
472142 
031400 
543142 
031503 
430440 
031650 
000000 

031700 
442135 
032000 
472132 
032100 
543132 
032203 
430440 
032350 


020060 
000000 
000040 

000000 
000340 
001777 
240340 
000000 
020060 
000000 
000040 

000000 
000340 
000000 
000340 
001777 
240340 
050000 
020060 
000000 
000040 

000000 
400340 
000000 
000340 
001777 
240340 
120000 
020060 
000000 
000040 

000000 
000340 
000000 
000340 
001777 
240340 
170000 
020060 
000000 
000040 

000000 
400340 
000000 
000340 
001777 
240340 
240000 
020060 
000000 
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MUORD       <J/1AP,J=5000> 


r 


SEQ  1345 


MWORD  <CONT,S0A.XNOR,A=0,B=0.D=2> 

MWORD  <C0NT,MGC=1 777, SKCN.SDA, AND. A=1 7, 8=0, D=3> 

HWORD  <CJP,J=300,SOA,OR,A=0,CENA.CCFZ> 

MWORD  <JMAP,J=5000> 

MUORD  <ADDR=30O,CONT,S0A,AND,D=2.A=16,B=16> 

MWORD  <CONT,S0A,XNOR,A=16,B=4,D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA, AND, A=16,B=4,D=3> 

MWORD  <CJP,J=305,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT,S0A,AND,A=15,B=15,D=2> 

MWORD  <CONT,S0A,XNOR,A=15.B=4,D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA, AND, A=1 5, B=4,D=3> 

MWORD  <CJP,J=312,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT,S0A,AND,A=14,B=14.D=2> 

MWORD  <CONT,S0A,XNOR,A=14,B=4,D=2> 

MWORD  <C0NT,MGC=1777,SKCN,SDA,AND,A=14,B=4.D=3> 

MWORD  <CJP,J=317,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT,S0A,AND,A=13.B=13,D=2> 

MWORD  <CONT,S0A,XNOR,A=13,B=4,D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA, AND, A=1 3. B=4,D=3> 

MWORD  <CJP.J=324,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 


174 

175 
176 
177 
200 

300 
301 
302 
303 
304 

305 
306 
307 
310 
311 

312 
313 
314 
315 
316 

317 
320 
321 
322 
323 


.J 


1333 
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EBUS/MPROC  2901  Tests  (Part  4) 


SEQ  13A6 


2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 


003214'  000000  000040 


003215' 
003216' 
003217' 
003220' 
003221 ' 
003222' 
003223' 
003224' 
003225' 
003226' 

003227' 
003230' 
003231 ' 
003232' 
003233' 
003234" 
003235' 
003236' 
003237' 
003240' 

003241' 
003242' 
003243' 
003244' 
003245' 
003246' 
003247' 
003250' 
003251 • 
003252' 

003253' 
003254' 
003255' 
003256' 
003257' 
003260' 
003261  • 
003262' 
003263' 
003264' 

003265' 
003266' 
003267' 
003270' 
003271 • 
003272' 
003273' 
003274' 
003275' 


032400 
442125 
032500 
472122 
032600 
543122 
032703 
430440 
033050 
000000 

033100 
442114 
033200 
472112 
033300 
543112 
033403 
43C440 
033550 
000000 

033600 
442104 
033700 
472102 
034000 
543102 

03:103 

430440 
034250 
000000 


034300 
442073 
034400 
472072 
034500 
543072 
034603 
430440 
034750 
000000 

035000 
442063 
035100 
472062 
035200 
543062 
035303 
430440 
035450 


000000 
000340 
000000 
000340 
001777 
240340 
310000 
020060 
000000 
000040 

000000 
400340 
000000 
000340 
001777 
240340 
360000 
020060 
000000 
000040 

000000 
000340 
000000 
000340 
001777 
240340 
430000 
020060 
000000 
000040 

000000 
400340 
000000 
000340 
001777 
240340 
500000 
020060 
000000 
000040 

000000 
000340 
000000 
000340 
001777 
240340 
550000 
020060 
000000 


MWORD  <CONT.30A, AND, A=12, 8=12. D=2> 

MWORD  <CONT,S0A,XNOR,A=12,B=4,D=2> 

MUORD  <C0NT.MGC=1 777, SKCN,SDA,AND,A=12, 8=4, D=3> 

MUORD  <CJP,J=331 ,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <Jf1AP,J=5000> 

MWORD  <C0NT,S0A,AND,A=11,8=11,D=2> 

MWORD  <CONT.S0A,XNOR,A=11,8=4,D=2> 

MWORD  <C0NT,MGC=1777,SKCN,SDA,AND,A=11,8=4,D=3> 

MWORD  <CJP,J=336,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <jriAP,J=5000> 

MWORD  <CONT,S0A,AND,A=10,8=10,D=2> 

MWORD  <CONT,S0A,XNOR,A=10,B=4,D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA,AND,A=10, 8=4, D=3> 

MWORD  <CJP,J=343,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT,S0A.AND,A=7,B=7,D=2> 

MWORD  <CONT,S0A,XN0R,A=7,8=4,D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA, AND. A=7, 6=4, D=3> 

MWORD  <CJP,J=350,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <C0NT,S0A,AND,A=6.B=6.D=2> 

MWORD  <CONT.S0A.XNOR,A=6,8=4,D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA,AND,A=6, 8=4. D=3> 

MWORD  <CJP,J=355,S0A,0R.A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 


324 
325 
326 
327 
330 

331 
332 
333 
334 
335 

336 
337 

340 
341 
342 

343 
344 
345 
346 
347 

350 
351 
352 
353 
354 
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EBUS/MPROC  2901  Tests  (Part  4) 


SEQ  1347 


2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 


003276"  000000  000040 


003277' 
003300' 
003301 ' 
003302' 
003303' 
003304' 
003305' 
003306' 
003307' 
003310' 

003311' 
003312* 
003313' 
003314' 
003315' 
003316' 
003317' 
003320' 
003321 • 
003322' 

003323' 
003324' 
003325' 
003326' 
003327' 
003330' 
003331 ' 
003332* 
003333' 
003334' 

003335' 
003336* 
003337' 
003340' 
003341 • 
003342' 
003343' 
003344' 
003345' 
003346' 

003347' 
003350* 
003351 ' 
003352' 
003353' 
003354' 
003355* 
003356* 
003357' 


035500 
442052 
035600 
472052 
035700 
543052 
036003 
430440 
036150 
000000 

036200 
442031 
036300 
472032 
036400 
543032 
036503 
430440 
036650 
000000 

036700 
442021 
037000 
472022 
037100 
543022 
0:>'203 
430440 
037350 
000000 

037400 
442010 
037500 
472012 
037600 
543012 
037704 
430440 
040050 
000000 

040100 
442167 
040200 
472162 
040300 
543162 
040404 
430450 
040550 


000000 
400340 
000000 
000340 
001777 
240340 
620000 
020060 
000000 
000040 

000000 
400340 
000000 
000340 
001777 
240340 
670000 
020060 
000000 
000040 

000000 
000340 
000000 
000340 
001777 
240340 
740000 
020060 
000000 
000040 

000000 
400340 
000000 
000340 
001777 
240340 
010000 
020060 
000000 
000040 

000000 
000340 
000000 
400340 
001777 
640340 
060000 
020060 
JOOOOO 


MWORD  <C0NT.S0A,AND,A=5,B=5,D=2> 

MUORD  <CONT,S0A,XNOR.A=5,B=4.D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA,AND,A=5, 8=4, D=3> 

MWORD  <CJP,J=362,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <C0NT.S0A.AND,A=3,B=3,D=2> 

MWORD  <C0NT . SOA , XNOR , A=3 ,8=4 , D=2> 

MWORD  <C0NT,MGC=1777,SKCN,SDA,AND,A=3.8=4,D=3> 

MWORD  <CJP,J=367,S0A.0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT,S0A,AND,A=2,B=2,D=2> 

MWORD  <C0NT, SOA, XNOR. A=2, 8=4, D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA, AND, A=2, 8=4, D=3> 

MWORD  <CJP,J=374,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT.S0A,AND,A=1,B=1,D=2> 

MWORD  <CONT, SOA, XNOR, A=1, 8=4, D=2> 

MWORD  <CONT, MGC=1 777, SKCN,SDA,AND,A=1, 8=4, D=3> 

MWORD  <CJP,J=401 ,S0A,0R,A=4,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT,S0A,AND,A=16,8=16,D=2> 

MWORD  <C0NT, SOA, XNOR, A=16, 8=5, D=2> 

MWORD  <C0NT,MGC=1 777, SKCN,SDA, AND, A=16,B=5.D=3> 

MWORD  <CJP,J=406,S0A,0R,A=5,CENA.CCFZ> 

MWORD  <JMAP,J=5000> 


355 
356 
357 

i60 
361 

362 
363 
364 
365 
366 

367 
370 
371 
372 
373 

374 
375 
376 
377 
400 

401 
402 
403 
404 
405 


L 
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EBUS/MPROC  2901   Tests   (Part  4) 


SEQ  1348 


25A8 
23A9 
2350 
2351 
2352 
2353 
235A 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
NO  ERRORS 


003360'  000000  000040 


003361 ' 
003362" 
003363' 
003364' 
003365' 
003366' 
003367' 
003370' 
003371 ' 
003372' 

003373' 
003374' 
003375' 
003376' 
003377' 
003400' 
003401 ' 
003402' 
003403' 
003404 ' 


003405' 
003406' 


003407' 
003410' 
003411* 


040600 
442167 
040700 
472163 
041000 
543163 
041104 
430460 
041250 
000000 

041300 
442167 
041400 
472163 
041500 
543163 
041640 
430470 
041750 
000000 


400040 
000000 


500050 
000000 


000000 
000340 
000000 
000340 
001777 
240340 
130000 
020060 
000000 
000040 

OCOOOO 
000340 
000000 
400340 
001777 
640340 
000000 
020060 
000000 
000040 


000000 
000041 


000000 
000041 

nnn 


DETECTED 


PROGRAM  BREAK  IS  003676 
CPU  TIME  USED  04:47.686 

175P  CORE  USED 


HWORD  <C0NT,S0A,AND,A=16,B=16,D=2> 

liWORD  <CONT.S0A,XNOR,A=16,B=6,D=2> 

HWORD  <C0NT,MGC=1 777, SKCN,SDA,AND,A=16,B=6,D=3> 

MWORD  <CJP,J=413,S0A,OR,A=6,CENA,CCFZ> 

MWORD  <JMAP,J=5000> 

MWORD  <CONT,S0A,AND,A=16.B=16,D=2> 

MWORD  <C0NT,S0A.XN0R,A=16.B=7.D=2> 

MWORD  <C0NT,MGC=1777.SKCN.SDA.AND,A=16.B=7,D=3> 

MWORD  <CJP.J=4000.S0A.OR,A=7.CENA.CCFZ> 

MWORD  <JMAP.J=5000> 

Correct  address 

MWORD  <ADDR=4000,JMAP,J=4000.BAD> 

Error  address 

MWORD  <ADDR=5000,JMAP,J-5000.BAD> 

-1 


406 
407 
410 
411 
412 

413 
414 
415 
416 
417 

;  4000 


*   ;  5000 


X\ 


;  End  of  2901  Tests  (Part  4) 
XLIST 


r" 


V" 


DFPTA7 
DFPTA7 

AAPNT 
AEXEC 
ALEBF 
ALFLS 
ALU 
BBPNT 
BEXEC 
CALL 
E23 
EBUS 
ERFLG 
GO 

IPACLR 
LAST 
HA33 
HA3A 
HA34PN 
l«IA35 
HA35PN 
:NA36 
NA36PN 
HA37 
HA37PN 

'maao 

HAAOPN 

I^AI 
iHA41PN 
inA42 
'WLAST 

HSG 

iP 

.  PWTHW 
i  PNTHSG 
I  PNTOCS 

RTN 

!  SCOPE R 
!  SCOSW 
:  SSCALL 

SSCHK 

SSJRST 
1  SSLAST 
I  SSSTRT 

T33« 

i  ^l^« 
IT35« 
T36H 
'  T37« 
TACK 
K1« 
TA2« 

rA35 

TA36 


MACRO  X53B(1242)  09:06 

1-Jul-85  Page 
SYMBOL 

5-1 

MAC 

18-Apr-85  10:59 

TABLE 

000000  ext 

TA37 

002034' 

TX40 

002727'  ext 

TA40 

002261 ' 

TX41 

002533'  ext 

TA41 

0( c503' 

TX42 

002512'  ext 

TA42 

000013' 

TXALL   060000 

020000 

000000  spd 

TG33 

TXNOT   040000 

000000  ext 

TG34 

000147' 

TXTINH 

000321'  ext 

TG35 

000310' 

2^     «««.«■, 

200000 

000000  spd 

TG36 

001343' 

ZALU    000002 

000027  spd 

TG37 

002025 ' 

$ARG2 

400000 

000000  spd 

TG40 

002252' 

SB 

00001 5 

TG41 

002474' 

iCKR 

260740 

000000 

TG42 

002714' 

SGARG 

002722'  ext 

TL33 

00002C ' 

XADDR 

010000 

000000  spd 

TL34 

000154' 

XML     500050 

000102' 

TL35 

000315' 

XMR 

000176' 

TL36 

001350' 

•LA     ,„„,«„ 

000200' 

TL37 

002032' 

.LADDR  000100 

000523' 

TL40 

002257' 

.LAND 

000525' 

TL41 

002501 ' 

.LB 

001373' 

TL42 

002721 ' 

.LBAD 

001375' 

TLOAD 

002717' 

ext 

.LCCF2 

002055' 

TRACE 

00?>15' 

ext 

.LCENA 

002057' 

TS33 

000035' 

.LCJP 

002302' 

TS33A0 

000062' 

.LCONT 

002304' 

TS33A1 

000070' 

.LCRY 

002524' 

TS33AD 

59^952' 

.LD 

002526' 

TS33IN 

000045' 

.LJ 

002735' 

TS33L 

000040' 

.LJMAP 

400000 

000000  spd 

TS33PT 

991671 : 

.LJZ 

100000 

000000  spd 

TS33ST 

003672' 

.LLDCT 

000400 

Gu.'OOO  spd 

TS35 

991^^' 

.LMGC 

000017 

TS35A0 

99|60 

.LNAND 

037540 

000000 

TS35A1 

00364' 

.LOENA 

037000 

000000 

TS35AD 

)00345' 

.LOR 

037700 

000003 

TS35IN 

000340' 

.LPLUS 

263740 

000000 

TS35L 

9Q333; 

.LRPCT 

027000 

000000 

TS35PA 

9|673 

•'-SOA 

002526'  ext 

TS35R6 

03674' 
036'5' 

.Lsoe 

000003  spd 

TS35ST 

.LSOO 

000004  spd 

TS35T1 

mvr 

.LSDO 

000005  spd 

TS35T2 

.LSDA 

000000  spd 

TSTA33 

m' 

ent 

.LSELE 

000001  spd 

TSTA34 

ent 

•LSKCN 

000104' 

TSTA35 

00277' 
01333' 

ent 

.LXNOR 

000210' 

TSTA36 

ent 

.LXOR 

000532' 

TSTA37 

9?Q16: 

ent 

.MA 

001407' 
002071 ' 

TSTA40 

02244' 

ent 

.MAND 

TSTA41 

02467' 
02707' 

ent 

.MB 

002314' 
002536' 

TSTA42 

ent 

.MBAD 

TSTSUB 

00317' 

ext 

.MCCFZ 

002737' 

TX33 

Wh\ 

.MCENA 

000024' 
000156' 

TX34 

00175' 
90|5r 

.MCJP 

TX35 

.MCONT 

000321' 

TX36 
TX37 

01372' 
002054' 

.MCRY 

001352' 

.MD 

SEQ  1349 


002301 ' 
002523' 
002734' 

000000  spd 

000000  spd 

000200  spd 
000000' 

000000  spd 
000001 
000044 
424144 
000000 

005001  spd 

000000  spd 

000041  spd 

000000  spd 

OCOOOO  spd 

000000  spd 

000000  spd 

000000  spd 

000000  spd 

000000  spd 

000000  spd 

000000  spd 

000000  spd 

000000  spd 

010000  spd 

000000  spd 

000000  spa 

000000  spd 

000001  spd 
000000  spd 
002000  spd 
000000  spd 
000000  spd 
QOOOOO  spd 
000000  spd 
000000  spd 
000000  spd 
QOOOOO  spd 
000000  spd 
QOOOOO  spd 
000000  spd 
000000  spd 

000000  spd 
000017  spd 
000007  spd 
000017  spd 

000001  spd 
000037  spd 
000001  spd 
Q00017  spd 
000017  sod 
Q00001  spd 
000007  spd 


.MJ 

007777 

.MJMAP 

000017 

.MJZ 

000017 

.MLDCT 

000017 

.MMGC 

001777 

.MNAMD 

000007 

.MOENA 

000001 

.MOR 

000007 

.MPLUS 

000007 

.HRPCT 

000017 

.MSOA 

000007 

.MS06 

000007 

.MSOQ 

000007 

.MSDO 

000007 

.MSDA 

000007 

.MSELE 

000007 

.HSKCN 

0OC037 

.MXNOR 

000007 

.MXOR 

000007 

.RA 

000010 

000000 

.RAND 

040000 

000000 

.RB 

400000 

.RBAD 

000001 

.RCCFZ 

020000 

.RCENA 

000400 

000000 

,i<CJP 

000060 

.RCONT 

000340 

.RCRY 

000400 

.RD 

001000 

000000 

•  RJ 

000000 

.RJM.AP 

000040 

.RJZ 

000000 

.RLDCT 

000300 

.RMGC 

000000 

.RNAND 

050000 

000000 

.ROENA 

000000 

.ROR 

030000 

000000 

.RPLUS 

000000 

.RRPCT 

000220 

.RSOA 

400000 

000000 

.RSOB 

50000C 

000000 

.RSOQ 

200000 

000000 

.RSDO 

700000 

000000 

.RSDA 

500000 

000000 

.RSELE 

005000 

.RSKCN 

240000 

.RXNOR 

070000 

000000 

.RXOR 

060000 

000000 

spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
?;pd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
sod 
sjad 
sod 
spd 
spd 
spd 
spd 
sod 
spd 
sod 


AAPNT 
AEXEC 
ALEBF 
ALFLS 
ALU 
BBPNT 
BEXEC 
CALL 
E23 
lEBUS 
lERFLG 

IPACLR 
LAST 
MA33 
HA5A 
; MA3APN 
HA35 
HA35PN 
nA36 
HA36PN 
HA37 
MA37PN 
MAAO 
HA40PN 
HAAI 
HAA1PN 
nA42 
HLAST 
HSG 
INDnP 

P 

scosu 

1 SSCALL 
SSCHK 
SSJRST 
SSLAST 
SSSTRT 
T33M 
T3AM 
T35M 
T36W 
T37M 
T40« 
T41M 
T42W 
TA33 
TA34 
TA35 
TA36 
TA37 
TA40 
TA41 


K# 
U# 
K# 
1A# 
73 
U# 
1A# 
166 
75 
73 
9A 
1A2A 
18* 
166 
108 
262 
273 
A3A 
580 
1087 
1098 
1AA5 
1A56 
16A6 
1657 
18AA 
1855 
2030 
75 
165 
73 
160 
lin 
121 
122 
125 
126 
119 
7A 
223 
A02 
10A9 
1A08 
1610 
1809 
2002 
101# 
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1283* 

1283 

1285* 

1285 

1287* 

1287 

1289* 

1289 

1291* 

1291 

1293* 

1293 

1295* 

1295 

1297* 

1297 

1299* 

'299 

1301* 

1301 

1303* 

1303 

1305* 

1305 

1307* 

1307 

1309* 

1309 

1312* 

1312 

1314* 

1314 

1316* 

1316 

1318* 

1318 

1320* 

1320 

1322* 

1322 

1324* 

1324 

1326* 

1326 

1328* 

1328 

1330* 

1330 

1332* 

1332 

1334* 

1334 

1336* 

1336 

1338 

1340* 

1340 

1342* 

1342 

1344* 

1344 

1346* 

1346 

1348* 

1348 

1350* 

1350 

1352* 

1352 

1354* 

1354 

1356* 

1356 

1358* 

1358 

1360* 

1360 

1362* 

1362 

1364* 

1364 

1366* 

1366 

1368* 

1368 

1370* 

1370 

1372* 

^372 

1374* 

1374 

1377* 

1377 

1379* 

1379 

1473* 

1473 

1475* 

1475 

1477* 

1477 

1479* 

1479 

1481* 

1481 

1483* 

1483 

1485* 

1485 

1487* 

1487 

1489* 

1489 

1491* 

1491 

1493* 

1493 

1495* 

1495 

1497* 

1497 

1499* 

1499 

1501* 

1501 

1503* 

1503 

1505* 

1505 

1507* 

1507 

1509* 

1509 

1511* 

1511 

1513* 

151^ 

1515* 

1515 

1517* 

1517 

1519* 

1519 

1521* 

1521 

1523* 

1523 

1525* 

1525 

1527* 

1527 

1529* 

1529 

1531* 

1531 

1533* 

1533 

1535* 

1535 

1537* 

1537 

1539* 

1539 

1541* 

1541 

1543* 

1543 

1545* 

1545 

1547* 

1547 

1549* 

1549 

1551* 

1551 

1553* 

1553 

1555* 

1555 

1557* 

1557 

1559* 

1559 

1561* 

1561 

1563* 

1563 

1565* 

1565 

i567* 

1567 

1569* 

1569 

1571* 

15'- 

1573* 

1573 

1576* 

1576 

1578* 

1578 

1672* 

1672 

1674* 

1674 

1676* 

1676 

1678* 

1  6 

1680* 

1680 

1682* 

1682 

1684* 

1684 

1686* 

1686 

1688* 

1688 

1690* 

1690 

1692* 

■     2 

1694* 

1694 

1696* 

1696 

1698* 

1698 

1700* 

1700 

1702* 

1702 

1704* 

1704 

1706* 

i;'U6 

1708* 

1708 

1710* 

1710 

1712* 

WJ 

1714* 

1714 

1716* 

1716 

1718* 

1718 

1720* 

1720 

1722* 

1722 

1724* 

1724 

1726* 

1726 

1728* 

1728 

1730* 

1730 

1732* 

1732 

1734* 

1734 

1736* 

1736 

1738* 

1738 

1740* 

1740 

1742* 

1742 

1744* 

1744 

1746* 

1746 

1748* 

1748 

1750* 

1750 

1752* 

1752 

1754* 

1754 

1756* 

1756 

1758* 

1758 

1760* 

1760 

1762* 

1762 

1764* 

1764 

SEQ  1356 
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L_ 


1344 


SGARG 


1766* 

1766 

1872# 

1872 

1886« 

1886 

1900* 

1900 

19K# 

1914 

1928* 

1928 

1942* 

1942 

1956# 

1956 

1970# 

1970 

2056# 

2056 

2072# 

2072 

2088# 

2088 

2103# 

2103 

2119* 

2119 

2135* 

2135 

2151# 

2151 

2166# 

2166 

2182* 

2182 

2198* 

2198 

2213* 

213 

2229# 

229 

22A4# 

2244 

2259* 

2259 

2275* 

2275 

2290# 

2290 

2306* 

2306 

2321* 

2321 

2336* 

2336 

2352* 

2352 

2367# 

2367 

170* 

170 

186« 

186 

295# 

295 

31 2# 

312 

329# 

329 

3A6# 

346 

599# 

599 

61 3# 

613 

630# 

630 

647# 

647 

661* 

661 

678# 

678 

692* 

692 

709* 

709 

723* 

721 

740* 

740 

757* 

757 

771* 

771 

788* 

788 

802* 

802 

819* 

819 

836* 

836 

850* 

8*^0 

1768* 
1874* 
1888* 
1902* 
1916* 
1930* 
1944* 
1958* 
1973* 
2058* 
2074* 
2090* 
2106* 
2121* 
2137* 
2153* 
216?* 
2184* 
2200* 
2215* 
2231* 
2246* 
2262* 
2277H 
2292* 
2308* 
2323* 
2339* 
2354* 
2369* 
172* 
188* 
297* 
314* 
331* 
348* 
601* 
615* 
632* 
649* 
663* 
680* 
694* 
711* 
728* 
742* 
759* 
773* 
790* 
804* 
821* 
838* 
852* 


1768 
1874 
1888 
1902 
1916 
1930 
1944 
1958 
1973 
2058 
2074 
2090 
2106 
2121 
2137 
2153 
2169 
2184 
2200 
2215 
2231 
2246 
2262 
2277 
2292 
2308 
2323 
2339 
2354 
2369 
172 
188 
297 
314 
331 
348 
601 
615 
632 
649 
663 
680 
694 
711 
728 
742 
759 
773 
790 
804 
821 
838 
852 


1770* 

1876* 

1890* 

1904* 

1918* 

1932* 

1946* 

1960* 

2045* 

2061* 

2076* 

2092* 

2108* 

2124* 

2139* 

2155* 

2171* 

2187* 

2202* 

2218* 

2233* 

2248* 

2264* 

2279* 

2295* 

2310* 

2325* 

2341* 

2356* 

2374* 

174* 

191* 

299* 

316* 

333* 

350* 

603* 

620* 

634* 

651* 

665* 

682* 

696* 

713* 

730* 

744* 

761* 

775* 

792* 

809* 

823* 

840* 

854* 


1770 

1772* 

1876 

1178* 

1890 

1)92* 

1904 

1906* 
1920* 

1918 

1932 

934* 

1946 

948* 

1960 

962* 

2045 

2047* 

2061 

2063* 

2076 

2079* 

2092 

2094* 

2108 

2110* 

2124 

2126* 

2139 

2142* 

2155 

2157* 

2171 

2173* 

2187 

2189* 

2202 

2204* 

2218 

2220* 

2233 

2235* 

2248 

2251* 

2264 

2266* 

2279 

2281* 

2295 

2297* 

2310 

2312* 

2325 

2328* 

2341 

2:43* 

2356 

2:58* 

2374 

2:79* 

174 

77n 

191 

93* 

299 

:01* 

316 

:18* 

333 

335* 

350 

353* 

603 

605* 

620 

622* 

634 

636* 

651 

65:* 

665 

667* 

682 

684* 

696 

701* 

713 

715* 

730 

732* 

744 

746* 

761 

763* 

775 

777» 

792 

79Uft 

811* 

823 

825* 

840 

842* 

854 

856* 

1772 

1775* 

1775 

1777* 

1777 

1870* 

1870 

1878 

1880* 

1880 

1882* 

1882 

1884* 

1884 

1892 

1894* 

1894 

1896* 

1896 

1898* 

1898 

1906 

1908* 

1908 

1910* 

1910 

1912* 

1912 

1920 

1922* 

1922 

1924* 

1924 

^926* 

1926 

1934 

1936* 

1936 

1938* 

1938 

1940* 

1940 

1948 

1950* 

1950 

1952* 

1952 

1954* 

1954 

1962 

1964* 

1964 

1966* 

1966 

1968* 

1968 

2047 

2050* 

2050 

2052* 

2052 

2054* 

2054 

2063 

2065* 

2065 

2067* 

2067 

2070* 

2070 

2079 

2081* 

2081 

2083* 

2083 

2085* 

2085 

2094 

2097* 

2097 

2099* 

2099 

2101* 

2101 

2110 

2112* 

2112 

2115* 

2115 

2117* 

2117 

2126 

2128* 

2128 

2130* 

2130 

2133* 

2133 

2142 

2144* 

2144 

2146* 

2146 

2148* 

2148 

2157 

2160* 

2160 

2162* 

2162 

2164* 

2164 

2173 

2175* 

2175 

2178* 

2178 

2180* 

2180 

2189 

2191* 

2191 

2193* 

2193 

2196* 

2196 

2204 

2207* 

2207 

2209* 

2209 

221]* 

2211 

2220 

222211 

2222 

2224* 

2224 

2226* 

2226 

2235 

22Z7M 

2237 

2240* 

2240 

2242* 

2242 

2251 

2253* 

2253 

2255* 

2255 

2257* 

2257 

2266 

2268* 

2268 

2270* 

2270 

2273* 

2273 

2281 

22Bi*M 

2284 

2286* 

2286 

2288* 

2288 

2297 

2299* 

2299 

2301* 

2301 

2303* 

2303 

2312 

2314* 

2314 

2317* 

2317 

2319* 

2319 

2328 

2330* 

2330 

2332* 

2332 

2334* 

2334 

2343 

2345* 

2345 

2347* 

2347 

2350* 

2350 

2358 

2379 

177 

2361* 

2361 

2363* 

2363 

2365* 

2365 

179* 

179 

181* 

181 

184* 

184 

193 

195* 

195 

288* 

288 

290* 

290 

301 

303* 

303 

305* 

305 

310* 

310 

318 

320* 

325* 

325 

327* 

327 

340* 

340 

342* 

342 

344* 

344 

353 

593* 

593 

595* 

595 

597* 

597 

605 

607* 

607 

609* 

609 

611* 

611 

622 

624* 

624 

626* 

626 

628* 

628 

636 

638* 

638 

640* 

640 

642* 

642 

653 

655* 

655 

657* 

657 

659* 

659 

667 

669* 

669 

674* 

674 

676* 

676 

684 

686* 

686 

688* 

688 

690* 

690 

701 

703* 

703 

705* 

705 

707* 

707 

715 

717* 

717 

719* 

719 

721* 

721 

732 

734* 

734 

736* 

736 

738* 

738 

746 

748* 

748 

750* 

750 

755* 

755 

763 

765* 

765 

767* 

767 

769* 

?69 

777 

782* 

782 

784* 

784 

786* 

786 

794 

796* 

796 

798* 

798 

$00* 

800 

111 

113* 

113 

$15* 

815 

$17* 

817 

25 

127* 

127 

129* 

829 

J31* 

831 

42 

i44* 

i44 

J46* 

846 

$48* 

848 

856 

858* 

858 

863* 

863 

865* 

865 
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.LSI 
.LSI 


.LSI 


.LS 
.LX 
.LX 
.MA 


.m 


Q-70M 


070 


867* 

867 

869* 

881* 

881 

883* 

898* 

898 

900* 

912* 

912 

917* 

929* 

929 

931* 

9A6* 

946 

948* 

960* 

960 

t%i 

977* 

977 

991* 

991 

993* 

1008* 

1008 

1010* 

1115* 

1115 

1117* 

1129* 

1129 

1131* 

1143* 

1143 

1145* 

1157* 

1157 

1159* 

1171* 

1171 

1173* 

1186* 

1186 

1188* 

1200* 

1200 

1202* 

121A* 

1214 

1216* 

1228* 

1228 

1230* 

12A2* 

1242 

1244* 

1257* 

1257 

1259* 

1271* 

1271 

1273* 

1285* 

1285 

1287* 

1299* 

1299 

1301* 

1314* 

1314 

1316* 

1328* 

1328 

1330* 

1342* 

1342 

1344* 

1356* 

1356 

1358* 

1370* 

1370 

1372* 

1477* 

1477 

1479* 

1491* 

1491 

1493* 

1505* 

1505 

1507* 

1519* 

1519 

1521* 

1533* 

'533 

1535* 

15<«7* 

1547 

1549* 

1561* 

1561 

1563* 

1576* 

1576 

1578* 

1682* 

1682 

1684* 

1696* 

1696 

1698* 

1710* 

1710 

1712* 

1724* 

1724 

1726* 

1738* 

1738 

1740* 

1752* 

1752 

1754* 

1766* 

1766 

1768* 

1872* 

1872 

1874* 

1886* 

1886 

1888* 

1900* 

1900 

1902* 

1914* 

1914 

1916* 

1928* 

1928 

1930* 

1942* 

1942 

1944* 

1956* 

1956 

1958* 

1970* 

1970 

1973* 

2056* 

2056 

2058* 

869 

883 

900 

917 

931 

948 

962 

979 

993 

1010 

1117 

1131 

1145 

1159 

1173 

1188 

1202 

1216 

1230 

1244 

1259 

1273 

1287 

1301 

1316 

1330 

1344 

1358 

1372 

1479 

1493 

1507 

1521 

1535 

1549 

1563 

1578 

1684 

1698 

1712 

1726 

1740 

1754 

1768 

1874 

1888 

1902 

1916 

1930 

1944 

1958 

1973 

2058 


871* 

885* 

902* 

919* 

933* 

950* 

964* 

981* 

998* 

1012* 

1119* 

1133* 

1147* 

1161* 

1175* 

1190* 

1204* 

1218* 

1232* 

1247* 

1261* 

1275* 

1289* 

1303* 

1318* 

1332* 

1346* 

1360* 

1374* 

1481* 

1495* 

1509* 

1523* 

1537* 

1551* 

1565* 

1672* 

1686* 

1700* 

1714* 

1728* 

1742* 

1756* 

1770* 

1876* 

1890* 

1904* 

1918* 

1932* 

1946* 

1960* 

2045* 

2061* 


871 
885 
902 
919 
933 
950 
964 
981 
998 
1012 
1119 
1133 
1147 
1161 
1175 
1190 
1204 
1218 
1232 
1247 
1261 
1275 
1289 
1303 
1318 
1332 
1346 
1360 
1374 
1481 
1495 
1509 
1523 
1537 
1551 
1565 
1672 
1686 
1700 
1714 
1728 
1742 
1756 
1770 
1876 
1890 
1904 
1918 
1932 
1946 
1960 
2045 
2061 


873* 
890* 
904* 
921* 
935* 
952* 
966* 
983* 
1000* 
1014* 
1121* 
1135* 
1149* 
1163* 
1177* 
1192* 
1206* 
1220* 
1234* 
1249* 
1263* 
1277* 
1291* 
1305* 
1320* 
1334* 
1348* 
1362* 
1377* 
1483* 
1497* 
1511* 
1525* 
1539* 
1553* 
1567* 
1674* 
1688* 
1702* 
1716* 
1730* 
1744* 
1758* 
1772* 
1878* 
1892* 
1906* 
1920* 
1934* 
1948* 
1962* 
2047* 
2063* 


873 

875* 

890 

892* 

904 

906* 
923* 

921 

935 

937* 

952 

954* 

966 

971* 

983 

985* 

1000 

1002* 

1014 

1016* 

1121 

1123* 

1135 

1137* 

1149 

1151* 

1163 

1165* 

1177 

1179* 

1192 

1194* 

1206 

1208* 

1220 

1222* 

1234 

1236* 

1249 

1251* 

1263 

1265* 

1277 

1279* 

1291 

1293* 

1305 

1307* 

1320 

1322* 

1334 

1336* 

1348 

1350* 

1362 

1364* 

1377 

1379* 

1483 

1485* 

1497 

1499* 

1511 

1513* 

1525 

1527* 

1539 

1541* 

1553 

1555* 

1567 

1569* 

1674 

1676* 

1688 

1690* 

1702 

1704* 

1716 

1718* 

1730 

1732* 

1744 

1746* 

1758 

1760* 

1772 

1775* 

1878 

1880* 

1892 

1894* 

1906 

1908* 

1920 

1922* 

1934 

1936* 

1948 

1950* 

1962 

1964* 

2047 

2050* 

2063 

2065* 

875 
892 
906 
923 
937 
954 
971 
985 
1002 
1016 
1123 
1137 
1151 
1165 
1179 
1194 
1208 
1222 
1236 
1251 
1265 
1279 
1293 
1307 
1322 
1336 
1350 
1364 
1379 
1485 
1499 
1513 
1527 
1541 
1555 
1569 
1676 
1690 
1704 
1718 
1732 
1746 
1760 
1775 
1880 
1894 
1908 
1922 
1936 
1950 
1964 
2050 
2065 


877* 
894* 
908* 
925* 
939* 
956* 
973* 
987* 
1004* 
1018* 
1125* 
1139* 
1153* 
1167* 
1182* 
1196* 
1210* 
1224* 
1238* 
1253* 
1267* 
1281* 
1295* 
1309* 
1324* 
1338* 
1352* 
1366* 
1473* 
1487* 
1501* 
1515* 
1529* 
1543* 
1557* 
1571* 
1678* 
1692* 
1706* 
1720* 
1734* 
1748* 
1762* 
1777* 
1882* 
1896* 
1910* 
1924* 
1938* 
1952* 
1966* 
2052* 
2067* 


877 

879* 

879 

894 

J  96* 

896 

908 

910* 

910 

925 

927* 

927 

939 

944* 

944 

956 

958* 

958 

973 

975* 

975 

987 

989* 

989 

1004 

1C06* 

1006 

1018 

1120* 

1020 

1125 

127* 

112/ 

1139 

1  41* 

1141 

1153 

155* 

1155 

1167 

1  69* 

1169 

1182 

1184* 

1184 

1196 

1198* 

1198 

1210 

1212* 

1212 

1224 

1226* 

1226 

1238 

1240* 

1240 

1253 

1255* 

1255 

1267 

1269* 

1269 

1281 

1283* 

1283 

1295 

1297* 

1297 

1309 

1312* 

1312 

1324 

1326* 

1326 

1338 

1340* 

1340 

1352 

1354* 

1354 

1366 

1368* 

1368 

1473 

1475* 

1475 

1487 

1489* 

1489 

1501 

1503* 

1503 

1515 

1517* 

1517 

1529 

1531* 

1531 

1543 

1545* 

1545 

1557 

1559* 

1559 

1571 

1573* 

1573 

1678 

1680* 

1680 

1692 

1694* 

1694 

1706 

1708* 

1708 

1720 

1722* 

1722 

1734 

1736* 

1736 

1748 

1750* 

1750 

1762 

1764* 

1764 

1777 

1870* 

1870 

1882 

1884* 

1884 

1896 

1898* 

1898 

1910 

1912* 

1912 

1924 

1926* 

1926 

1938 

1940* 

1940 

1952 

1954* 

1954 

1966 

1968* 

1968 

2052 

2054* 

2054 

2067 

2070* 

2070 

SEQ  1358 


1  13A6 


XADDR 


2072# 

2072 

2074* 

2074 

2088# 

2088 

2090* 

2090 

2103# 

2103 

2106* 

2106 

2119# 

2119 

2121* 

2121 

2135# 

2135 

2137* 

2137 

2151* 

2151 

2153* 

2153 

2166* 

2166 

2169* 

2169 

2182* 

2182 

2184* 

2184 

2198* 

2198 

2200* 

2200 

221 3# 

2213 

2215* 

2215 

2229# 

2229 

2231* 

2231 

224A# 

2244 

2246* 

2246 

2259* 

2259 

2262* 

2262 

2275* 

2275 

2277* 

2277 

2290* 

2290 

2292* 

2292 
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2352* 

2352 

2354* 

2367* 

2367 

2369* 

184 

186 

597 

678 

684 

690 

771 

777 

786 

867 

873 

879 

960 

966 

975 

1135 

1139 

1143 

1192 

1196 

1200 

1249 

1253 

1257 

1305 

1309 

1314 

1362 

1366 

1370 

1493 
1507 
1521 
1535 
1549 
1563 
1578 
1684 
1698 
1712 
1726 
1740 
1754 
1768 
1874 
1888 
1902 
1916 
1930 
1944 
1958 
1973 
2058 
2074 
2090 
2106 
2121 
2137 
2153 
2169 
2184 
2200 
2215 
2231 
2246 
2262 
2277 
2292 
2308 
2323 
2339 
2354 
2369 
603 
696 
792 
885 
981 
1147 
1204 
1261 
1318 
1374 


1495* 
1509* 
1523* 
1537* 
1551* 
1565* 
1672* 
1686* 
1700* 
1714* 
1728* 
1742* 
1756* 
1770* 
1876* 
1890* 
1904* 
1918* 
1932* 
1946* 
1960* 
2045* 
2061* 
2076* 
2092* 
2108* 
2124* 
2139* 
2155* 
2171* 
2187* 
2202* 
2218* 
2233* 
2248* 
2264* 
2279* 
2295* 
2310* 
2325* 
2341* 
2356* 
2374* 
609 
705 
798 
894 
987 
1151 
1208 
1265 
1322 
1377 


1495 
1509 
1523 
1537 
1551 
1565 
1672 
1686 
1700 
1714 
1728 
1742 
1756 
1770 
1876 
1890 
1904 
1918 
1932 
1946 
1960 
2045 
2061 
2076 
2092 
2108 
2124 
2139 
2155 
2171 
2187 
2202 
2218 
2233 
2248 
2264 
2279 
2295 
2310 
2325 
2341 
2356 
2374 
615 
711 
804 
900 
993 
1155 
1212 
1269 
1326 
1479 


1497* 

1497 

1511* 

1511 

1525* 

1525 

1539* 

1539 

1553* 

1553 

1567* 

1567 

1674* 

1674 

1688* 

1688 

1702* 

1702 

1716* 

1716 

1730* 

1730 

1744* 

1744 

1758* 

1758 

1772* 

1772 

1878* 

1878 

1892* 

1892 

1906* 

1906 

1920* 

1920 

1934* 

1934 

1948* 

1948 

1962* 

1962 

2047* 

2047 

m 

2063 

2079 

209i*M 

2094 

2110* 

2110 

2126* 

2126 

2142* 

2142 

2157* 

2157 

2173* 

2173 

2189* 

2189 

2204* 

2204 

2220* 

2220 

2235* 

2235 

2251* 

2251 

2266* 

2266 

2281* 

2281 

2297* 

2297 

23^2* 

2312 

2328* 

2328 

2343* 

2343 

2358* 

2358 

2379* 

2379 

624 

630 

717 

723 

813 

819 

906 

912 

1002 

1008 

1159 

116: 

1216 

122( 

1273 

1277 

1330 

1334 

1485 

1491 

1499* 
1513* 
1527* 
1541* 
1555* 
1569* 
1676* 
1690* 
1704* 
1718* 
1732* 
1746* 
1760* 
1775* 
1880* 
1894* 
1908* 
1922* 
1936* 
1950* 
1964* 
2050* 
2065* 
2081* 
2097* 
2112* 
2128* 
2144* 
2160* 
2175* 
2191* 
2207* 
2222M 
22Z7» 
2253* 
2268* 
2284* 
2299* 
2314* 
2330* 
2345* 
2361* 

636 

732 

825 

921 

1014 

1167 

1224 

1281 

1338 

1497 


1499 

1513 

1527 

1541 

1555 

1569 

1676 

1690 

1704 

1718 

1732 

1746 

1760 

1775 

1880 

1894 

1908 

1922 

1936 

1950 

1964 

2050 

2065 

2081 

2097 

2112 

2128 

2144 

2160 

2175 

2191 

2207 

2222 

2237 

2253 

2268 

2284 

2299 

2314 

2330 

2345 

2361 

642 

738 

831 

927 

1020 

1171 

1228 

1285 

1342 

1503 


1501* 
1515* 
1529* 
1543* 
1557* 
1571* 
1678* 
1692* 
1706* 
1720* 
1734* 
1748* 
1762* 
1777* 
1882* 
1896* 
1910* 
1924* 
1938* 
1952* 
1966* 
2052* 
2067* 
2083* 
2099* 
2115* 
2130* 
2146* 
2162* 
2178* 
2193* 
2209* 
2224* 
2240* 
2255* 
2270* 
2286* 
2301* 
2317* 
2332* 
2347* 
2363* 

651 

744 

840 

933 

1119 

1175 

1232 

1289 

1346 

1509 


1501 

1515 

1529 

1543 

1557 

1571 

1678 

1692 

1706 

1720 

1734 

1748 

1762 

1777 

1882 

1896 

1910 

1924 

1938 

1952 

1966 

2052 

2067 

2083 

2099 

2115 

2130 

2146 

2162 

2178 

2193 

2209 

2224 

2240 

2255 

2270 

2286 

2301 

2317 

2332 

2347 

2363 

657 

750 

846 

939 

1123 

1179 

1236 

1293 

1350 

1515 


1503* 
1517* 
1531* 
1545* 
1559* 
1573* 
1680* 
1694* 
1708* 
1722* 
1736* 
1750* 
1764* 
1870* 
1884* 
1898* 
1912* 
1926* 
1940* 
1954* 
1968* 
2054* 
2070* 
2085* 
2101* 
2117* 
2133* 
2148* 
2164* 
2180* 
2196* 
2211* 
2226* 
2242* 
2257* 
2273* 
2288* 
2303* 
2319* 
2334* 
2350* 
2365* 

663 

759 
852 
948 
1127 
1184 
1240 
1297 
1354 
1521 


1503 

1517 

1531 

1545 

1559 

1573 

1680 

1694 

1708 

1722 

1736 

1750 

1764 

1870 

1884 

1898 

1912 

1926 

1940 

1954 

1968 

2054 

2070 

2085 

2101 

2117 

2133 

2148 

2164 

2180 

2196 

2211 

2226 

2242 

2257 

2273 

2288 

2303 

2319 

2334 

2350 

2365 

669 

765 

858 

954 

1131 

1188 

1244 

1301 

1358 

1527 


SEO  1364 


r* 


SEQ  1352 


.LADDR 
.LAND 


.LB 


1533 
1888 
1968 
2081 
2124 
21 64 
2207 
2244 
2284 
2321 
2361 
170 
917 
170 
917 
1157 
1214 
1271 
1328 
1489 
1676 
1760 
1946 
2126 
2229 
2306 
177 
632 
680 
728 
773 
821 
869 
917 
962 
1010 
1137 
1165 
1194 
1222 
1251 
1279 
1307 
1336 
1364 
1501 
1543 
1684 
1712 
1740 
1768 
1896 
1924 


1539 
1894 
1973 
2083 
2126 
2169 
2209 
2246 
2286 
2323 
2363 
288 
944 
288 
944 
1161 
1218 
1275 
1332 
1495 
1682 
1766 
1952 
2135 
2233 
2310 
191 
634 
682 
730 
775 
823 
871 
919 
964 
1012 
1139 
1167 
1196 
1224 
1253 
1281 
1309 
1338 
1366 
1505 
1547 
1686 
1714 
1742 
1770 
1898 
1926 


1545 
1900 
2047 
2088 
2128 
2171 
2211 
2251 
2288 
2328 
2365 
593 
971 
593 
971 
1165 
1222 
1279 
1336 
1501 
1688 
1874 
1958 
2144 
2240 
2317 
593 
638 
686 
734 
782 
827 
875 
923 
971 
1016 
1141 
1169 
1198 
1226 
1255 
1283 
1312 
1340 
1368 
1507 
1549 
1688 
1716 
1744 
1772 
1900 
1928 


1551 

1906 

2050 

2090 

2133 

2173 

2213 

2253 

2290 

2330 

2367 

620 

998 

620 

998 

1169 

1226 

1283 

1340 

1507 

1694 

1880 

1964 

2153 

2244 

2321 

595 

640 

688 

736 

784 

829 

877 

925 

973 

1018 

1143 

1171 

1200 

1228 

1257 

1285 

1314 

1342 

1370 

1511 

1553 

1690 

1718 

1746 

1874 

1902 

1930 


1557 

1563 

1569 

1571 

1576 

1680 

1770 

1912 

1918 

1924 

1930 

1936 

1942 

1948 

2052 

2054 

2056 

2061 

2063 

2065 

2070 

2092 

2097 

2099 

2101 

2106 

2108 

2110 

2135 

2137 

2  42 

2144 

2146 

2151 

Ul^ 

2178 

2180 

2182 

2187 

2189 

2191 

2196 

H?? 

2222 

2224 

2229 

Im 

2255 

2262 

2264 

2266 

2268 

2273 

2295 

2297 

2299 

2301 

2306 

2308 

2310 

2332 

2334 

2339 

2341 

2343 

2345 

2350 

647 

674 

701 

728 

755 

IH 

809 

1115 

1473 

1672 

1870 

2045 

2Q5Q 

2196 

647 

674 

701 

728 

755 

782 

809 

1117 

1121 

1125 

1129 

1133 

1137 

1141 

1173 

1177 

1182 

1186 

1190 

1194 

]!?§ 

1230 

1234 

1238 

1242 

1247 

1251 

1255 

1287 

1291 

1295 

1299 

1303 

1307 

1312 

1344 

1348 

1352 

1356 

1360 

1364 

1368 

1513 

1519 

1525 

1531 

1537 

1543 

1549 

1700 

1706 

1712 

1718 

1724 

1730 

1736 

1886 

1892 

1898 

1904 

1910 

1916 

1922 

2047 

2050 

2054 

2063 

2072 

2081 

?92S 

2162 

2171 

2180 

2189 

2196 

2200 

2207 

2251 

2255 

2266 

2273 

2277 

2284 

2328 

2332 

2339 

2343 

2350 

2354 

2361 

599 

601 

605 

607 

611 

613 

620 

647 

649 

653 

655 

659 

661 

665 

692 

694 

701 

703 

707 

709 

713 

740 

742 

746 

748 

755 

757 

761 

788 

790 

794 

796 

800 

802 

809 

836 

838 

842 

844 

848 

850 

854 

881 

883 

890 

892 

896 

898 

902 

929 

931 

935 

944 

946 

950 

977 

979 

983 

985 

989 

991 

998 

1117 

1119 

1121 

1123 

1125 

1127 

1129 

1145 

1147 

1149 

1151 

1153 

1155 

1157 

1173 

1175 

1177 

1179 

1182 

1184 

1186 

1202 

1204 

1206 

1208 

1212 

1214 

1230 

1232 

1234 

1236 

1238 

1240 

1242 

1259 

1261 

1263 

1265 

1267 

1269 

1271 

1287 

1289 

1291 

1293 

1295 

1297 

1299 

V316 

1318 

1320 

1322 

1324 

1326 

1328 

1344 

1346 

1348 

1350 

1352 

1354 

1356 

1372 

1374 

1477 

1481 

1483 

1487 

1489 

1513 

1517 

1519 

1523 

1525 

1529 

1531 

1555 

1559 

1561 

1565 

1567 

1571 

1676 

1692 

1694 

1696 

1698 
1726 

1700 

1^02 

1704 

1720 

1722 

1724 

1728 

1730 

^m 

1748 

1750 

1752 

1754 

1756 

1758 

1760 

1876 

1878 

1880 

1882 

1884 

1886 

1886 

1904 

1906 

1908 
1936 

1910 

1912 

1914 

1916 

1932 

1934 

1938 

1940 

1942 

1944 

1775 

1876 

1882 

1954 

1960 

1966 

2072 

2074 

2079 

2115 

2117 

2119 

2155 

2160 

2162 

2198 

2200 

2202 

2235 

2240 

m^ 

2275 

2277 

2279 

2312 

2317 

2319 

2352 

2354 

2356 

836 

863 

890 

2374 

2379 

836 

863 

890 

1145 

1149 

1153 

1202 

1206 

1210 

1259 

1263 

1267 

1316 

1320 

1324 

1372 

1477 

1483 

1555 

1561 

1567 

1742 

1748 

1754 

1928 

1934 

1940 

k'099 

2108 

2117 

2211 

2218 

2222 

2288 

2295 

2299 

2365 

622 

626 

628 

667 

674 

676 

715 

719 

721 

763 

767 

769 

811 

815 

817 

856 

863 

865 

904 

908 

910 

952 

956 

958 

1000 

1004 

1006 

1131 

1133 

1135 

1159 

1161 

1163 

1188 

1190 

1192 

1216 

1218 

1220 

1244 

1247 

1249 

1273 

1275 

1277 

1301 

1303 

1305 

1330 

1332 

1334 

1358 

1360 

1362 

1493 

1495 

1499 

1535 

1537 

1541 

1678 

1680 

1682 

1706 

1708 

1710 

1734 

1736 

1738 

1762 

1764 

1766 

1890 

1892 

1894 

1918 

1920 

1922 

1946 

1948 

1950 

SEQ  1365 


353 


.LBAD 
,LCCFZ 


.LCENA 

,LCJP 

.LCONT 


.LCRY 
.LD 


1952 
2061 
21 2A 
2187 
22A0 
2288 
2341 
2374 
2056 
2182 
2334 
2056 
2182 
2334 
2056 
2182 
2334 
172 
329 
640 
736 
829 
925 
1018 
1143 
1171 
1200 
1228 
1257 
1285 
1314 
1342 
1370 
1499 
1527 
1555 
1686 
1714 
1742 
1770 
1900 
1928 
1956 
2081 
2144 
2207 
2255 
2308 
2361 
172 
919 
170 
295 


1954 
2063 
2126 
2^89 
2242 
2295 
2343 
2379 
2065 
2191 
2345 
2065 
2191 
2345 
2065 
2191 
2345 
179 
331 
649 
742 
838 
931 
1117 
1145 
1173 
1202 
1230 
1259 
1287 
1316 
1344 
1372 
'501 
1529 
1557 
1688 
1716 
1744 
1874 
1902 
1930 
1958 
2088 
2151 
2209 
2262 
2310 
2363 
290 
946 
172 
297 


1956 
2070 
2133 
2196 
2244 
2297 
2350 

2074 

2202 

2356 

2074 

2202 

2356 

2074 

2202 

2356 

186 

333 

655 

748 

844 

937 

1119 

1147 

1175 

1204 

1232 

1261 

1289 

1318 

1346 

1374 

1503 

1531 

1559 

1690 

1718 

1746 

1876 

1 904 

1932 

1960 

2090 

2153 

2211 

2264 

2317 

2365 

595 

973 

174 

299 


1958 
2072 
2135 
2198 
2251 
2299 
2352 

2083 
2213 
2367 
2083 
2213 
2367 
2083 
2213 
2367 
193 
342 
661 
757 
850 
946 
1121 
1149 
1177 
1206 
1234 
1263 
1291 
1320 
1348 
1477 
1505 
1533 
1561 
1692 
1720 
1748 
1878 
1906 
1934 
1962 
2097 
2160 
2218 
2266 
2319 

622 

1000 

177 

301 


1960 
2079 
2142 
2200 
2253 
2306 
2354 

2092 
2224 

2092 
2224 

2092 
2224 

290 
344 
667 
763 
856 
952 
1123 
1151 
1179 
1208 
1236 
1265 
1293 
1322 
1350 
1479 
1507 
1535 
1563 
1694 
1722 
1750 
1880 
1908 
1936 
1964 
2099 
2162 
2220 
2273 
2321 

649 

179 
303 


1962 
2081 
2144 
2207 
2255 
2308 
2361 

2101 
2235 

2101 
2235 

2101 
2235 

297 
346 
676 
769 
865 
958 
1125 
1153 
1182 
1210 
1238 
1267 
1295 
1324 
1352 
1481 
1509 
1537 
1565 
1696 
1724 
1752 
1882 
1910 
1938 
1966 
2106 
2169 
2222 
2275 
2328 

676 

181 
305 


1964 
2088 
2151 
2209 
2262 
2310 
2363 

2110 
2246 

2110 
2246 

2110 
2246 

299 
348 
682 
775 
871 
964 
1127 
1155 
1184 
1212 
1?40 
1269 
1297 
1326 
1354 
1483 
1511 
1539 
1567 
1698 
1726 
1754 
1884 
1912 
1940 
1968 
2108 
2171 
2229 
2277 
2330 

703 

184 
310 


1966 
2090 
2153 
2211 
2264 
2317 
2365 

2119 
2257 

2119 
2257 

2119 
2257 

301 
595 
688 
784 
877 
973 
1129 
1157 
1186 
1214 
1242 
1271 
1299 
1328 
1356 
1485 
1513 
1541 
1569 
1700 
1728 
1756 
1886 
1914 
1942 
2052 
2115 
2178 
2231 
2284 
2332 

730 

186 
312 


1968 
2097 
2160 
2218 
2266 
2319 


2128 
2268 

2128 
2268 

2128 
2268 

303 
601 
694 
790 
883 
979 
1131 
1159 
1188 
1216 
1244 
1273 
1301 
1330 
1358 
1487 
1515 
1543 
1571 
1702 
1730 
1758 
1888 
1916 
1944 
2054 
2117 
2180 
2233 
2286 
2339 

757 

188 
314 


1970 
2099 
2162 
2220 
2273 
2321 


2137 
2279 

2137 
2279 

2137 
2279 

312 
607 
703 
796 
892 
985 
1133 
1161 
1190 
1218 
1247 
1275 
1303 
1332 
1360 
1489 
1517 
1545 
1676 
1704 
1732 
1760 
1890 
1918 
1946 
2061 
2124 
2187 
2240 
2288 
2341 

784 

191 
316 


2047 

2050 

2052 

2054 

2106 

2108 

2115 

2117 

2169 

2171 

2178 

2180 

2222 

2229 

2231 

2233 

2275 

2277 

2284 

2286 

2328 

2330 

2332 

2339 

2146 

2155 

2164 

2173 

2290 

2301 

2312 

2323 

2146 

2155 

2164 

2173 

2290 

2301 

2312 

2323 

2146 

2155 

2164 

2173 

2290 

2301 

2312 

2323 

314 

316 

318 

327 

613 

622 

628 

634 

709 

715 

721 

730 

802 

811 

817 

823 

898 

904 

910 

919 

991 

1000 

1006 

1012 

1135 

1137 

1139 

1141 

1163 

1165 

1167 

1169 

1192 

1194 

1196 

1198 

1220 

1222 

1224 

1226 

1249 

1251 

1253 

1255 

1277 

1279 

1281 

1283 

1305 

1307 

1309 

1312 

1334 

1336 

1338 

1340 

1362 

1364 

1366 

1368 

1491 

1493 

1495 

1497 

1519 

VJ?A 

1523 

1525 

1547 

1549 

1551 

1553 

1678 

1680 

1682 

1684 

1706 

1708 

1710 

1712 

1734 

1736 

1738 

1740 

1762 

1764 

1766 

1768 

1892 

1894 

1896 

1898 

1920 

1922 

1924 

1926 

1948 

1950 

1952 

1954 

2063 

2070 

2072 

2079 

2126 

2133 

2135 

2142 

2189 

2196 

2198 

2200 

2242 

2244 

2251 

2253 

2295 

2297 

2299 

2306 

2343 

2350 

2352 

2354 

811 

838 

865 

892 

193 

195 

288 
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1517 
1902 


SEQ  1369 


lono 


1Q1/. 


iQon 


1QDA 


IOTP 


1QT« 


1944 


1950 


1956 


1962 


1968 


L 


1357 


1908 

1914 

1920 

LSDO     1115 

1473 

1672 

LSDA    205A 

2063 

2072 

2180 

2189 

2200 

2332 

2343 

2354 

LSELE     174 

181 

188 

657 

663 

669 

750 

759 

765 

846 

852 

858 

939 

948 

954 

1576 

1775 

1973 

LSKCN    1115 

1473 

1672 

2144 

2153 

2162 

2288 

2299 

2310 

LXNOR    2052 

2061 

2070 

2178 

2187 

2198 

2330 

2341 

2352 

LXOR     1249 

1253 

1257 

1305 

1309 

1491 

1738 

1740 

1762 

MA       184 

186 

597 

678 

684 

690 

771 

777 

786 

867 

873 

879 

960 

966 

975 

1135 

1139 

1143 

1192 

1196 

1200 

1249 

1253 

1257 

130S 

1309 

1314 

1362 

1366 

1370 

1533 

1539 

1545 

1888 

1894 

1900 

1968 

1973 

2047 

2081 

J083 

2088 

2124 

2126 

2128 

2164 

2169 

2171 

2207 

2209 

2211 

2244 

2246 

2251 

2284 

2286 

2288 

2321 

2323 

2328 

2361 

2363 

2365 

.MAND     170 

288 

593 

917 

944 

971 

1157 

1161 

1165 

1214 

1218 

1222 

1271 

1275 

1279 

1328 

1332 

1336 

1489 

1495 

1501 

1676 

1682 

1688 

1760 

1766 

1874 

1946 

1952 

1958 

2126 

2135 

2144 

2229 

2233 

2240 

1926 

1870 

2081 

2211 

2365 

195 

678 

771 

867 

961) 

1870 

2171 

2321 

2079 

2209 

2363 

1261 

1493 

1764 

603 

696 

792 

885 

981 

1147 

1204 

1261 

1318 

1374 

1551 

1906 

2050 

2090 

2133 

2173 

2213 

2253 

2290 

2330 

2367 

620 

998 

1169 

1226 

1283 

1340 

1507 

1694 

1880 

1964 

2153 

2244 


1932 

2090 
2222 

353 
684 
777 
873 
966 

2054 
2180 
2332 
2088 
2220 

1265 

1515 

1888 

609 

705 

798 

894 

987 

1151 

1208 

1265 

1322 

1377 

1557 

1912 

2052 

2092 

2135 

2178 

2218 

2255 

2295 

2332 

647 
1117 
1173 
1230 
1287 
1344 
1513 
1700 
1886 
2047 
2162 
2251 


1938 

2099 
2233 

597 
690 
786 
879 
975 

2063 
2189 
2343 
2097 
2231 

1269 

1517 

1890 

615 

711 

804 

900 

993 

1155 

1212 

1"69 

•326 

1479 

,563 

1V1S 

2054 

2097 

2137 

2180 

2220 

2257 

2297 

2334 

674 
1121 
1177 
1234 
1291 
1348 
1519 
1706 
1892 
2050 
2171 
2255 


1944 

2108 
2244 


603 

96 

92 

885 

981 


% 


2072 
2200 
2354 
2106 
2242 

1273 
1539 
1912 
624 
717 
813 
906 
1002 
1159 
1216 
1273 
1330 
1485 
1569 
1924 
2056 
2099 
2142 
2182 
2222 
2262 
2299 
2339 

701 
1125 
1182 
1238 
1295 
1352 
1525 
1712 
1898 
2054 
2180 
2262 


1950 

2117 
2255 

609 
705 
798 
894 
987 

2081 
2211 
2365 
2115 
2253 

1277 
1541 
1914 
630 
723 
819 
912 
1008 
1163 
1220 
1277 
1334 
1491 
1571 
1930 
2061 
2101 
2144 
2187 
2224 
2264 
2301 
2341 

728 
1129 
1186 
1242 
1299 
1356 
1531 
1718 
1904 
2063 
2189 
2266 


1956        1962        1968 


r 


2126 
2266 

615 
711 
804 
900 
993 

2090 
2222 

2124 
2264 

1281 
1563 
1936 
636 
732 
825 
921 
1014 
1167 
1224 
1281 
1338 
1497 
1576 
1936 
2063 
2106 
2146 
2189 
2229 
2266 
2306 
2343 

755 
1133 
1190 
1247 
1303 
1360 
1537 
1724 
1910 
2072 
2196 
2273 


2135 
2277 

62^ 
7^7 
813 
906 
1002 

2099 
2233 

2133 
2275 

1285 
1565 
1938 
642 
738 
831 
927 
1020 
1171 
1228 
1285 
1342 
1503 
1680 
1942 
2065 
2108 
2151 
2191 
2231 
2268 
2308 
2345 

782 
1137 
1194 
1251 
1307 
1364 
1543 
1730 
1916 
2081 
2200 
2277 


2144 
2288 

630 
723 
819 
912 
1008 

2108 
2244 

2142 
2286 

1289 
1690 
1960 
651 
744 
840 
933 
1119 
1175 
1232 
1289 
1346 
1509 
1770 
1948 
2070 
2110 
2153 
2196 
2233 
2273 
2310 
2350 

809 
1141 
1198 
1255 
1312 
1368 
1549 
1736 
1922 
2090 
2207 
2284 


2153 
2299 

636 
732 
825 
921 
1014 

2117 
2255 

2151 
2297 

1293 
1692 
1962 
657 
750 
846 
939 
1123 
1179 
1236 
1293 
1350 
1515 
1775 
1954 
2072 
2115 
2155 
2198 
2235 
2275 
2312 
2352 

836 
1145 
1202 
1259 
1316 
1372 
1555 
1742 
1928 
2099 
2211 
2288 


2162 
2310 

642 
738 
831 
927 
1020 

2126 
2266 

2160 
2308 

1297 
1714 

663 
759 
852 
948 
1127 
1184 
1240 
1297 
1354 
1521 
1876 
1960 
2074 
2117 
2160 
2200 
2240 
2277 
2317 
2354 

863 
1149 
1206 
1263 
1320 
1477 
1561 
1748 
1934 
2108 
2218 
2295 


2171 
2321 

651 
744 
840 
933 
1377 

2135 
2277 

2169 
2319 

1301 
1716 

669 
765 
858 
954 
1131 
1188 
1244 
1301 
1358 
1527 
1882 
1966 
2079 
2119 
2162 
2202 
2242 
2279 
2319 
2356 

890 
1153 
1210 
1267 
1324 
1483 
1567 
1754 
1940 
2117 
2222 
2299 


SEQ  1370 


FIEl 


•>7no  17TT  1770  "it/.X  OTCn  OXtiL  OXfA  OXk'{ 


L_. 


1358 


.MB 


.MBAD 
.MCCFZ 


•MCENA 

.MCJP 

.MCONT 


2306 

177 

632 

680 

728 

773 

821 

869 

917 

962 

1010 

1137 

1165 

119A 

1222 

1251 

1279 

1307 

1336 

136A 

1501 

15A3 

168A 

1712 

17A0 

1768 

1896 

1924 

1952 

2061 

2124 

2187 

2240 

2288 

2341 

2374 

2056 

2182 

2334 

2056 

2182 

2334 

2056 

2182 

2334 

172 

329 

640 

736 

829 

925 

1018 

1143 


2310 

191 

634 

682 

730 

775 

823 

871 

919 

964 

1012 

1139 

1167 

1196 

1224 

1253 

1281 

1309 

1338 

1366 

1505 

1547 

1686 

1714 

1742 

1770 

1898 

1926 

1954 

2063 

2126 

2189 

2242 

1295 

2343 

2379 

2065 

2191 

2345 

2065 

2191 

2345 

2065 

2191 

2345 

179 

331 

649 

742 

838 

931 

1117 

1145 


2317 

593 

638 

686 

734 

782 

827 

875 

923 

971 

1016 

1141 

1169 

1198 

1226 

1255 

1283 

1312 

1340 

1368 

1507 

1549 

1688 

1716 

1744 

1772 

1900 

1928 

1956 

2070 

2133 

2196 

2244 

2297 

2350 

2074 

2202 

2356 

2074 

2202 

2356 

2074 

2202 

2356 

186 

333 

655 

748 

844 

937 

1119 

1147 


2321 

595 

640 

688 

736 

784 

829 

877 

925 

973 

1018 

1143 

1171 

1200 

1228 

1257 

1285 

1314 

1342 

1370 

1511 

1553 

1690 

1718 

1746 

1874 

1902 

1930 

1958 

2072 

2135 

2198 

2251 

2299 

2352 

2083 

2213 

2367 

2083 

2213 

2367 

2083 

2213 

2367 

193 

342 

661 

757 

850 

946 

1121 

1149 


2328 

599 

647 

692 

740 

788 

836 

881 

929 

977 

1117 

1145 

1173 

1202 

1230 

1259 

1287 

1316 

1344 

1372 

1513 

1555 

1692 

1720 

1748 

1876 

1904 

1932 

1960 

2079 

2142 

2200 

2253 

2306 

2354 

2092 
2224 

2092 
2224 

2092 
2224 

290 
344 
667 
763 
856 
952 
1123 
1151 


2332 

601 

649 

694 

742 

790 

838 

883 

931 

979 

1119 

1147 

1175 

1204 

1232 

1261 

1289 

1318 

1346 

1374 

1517 

1559 

1694 

1722 

1750 

1878 

1906 

1934 

1962 

2081 

2144 

2207 

2255 

2308 

2361 

2101 
2235 

2101 
2235 

2101 
2235 

297 
346 
676 
769 
865 
958 
1125 
1153 


2339 

605 

653 

701 

746 

794 

842 

890 

935 

983 

1121 

1149 

1177 

1206 

1234 

1263 

1291 

1320 

1348 

1477 

1519 

1561 

1696 

1724 

1752 

1880 

1908 

1936 

1964 

2088 

2151 

2209 

2262 

2310 

2363 

2110 
2246 

2110 
2246 

2110 
2246 

299 
348 
682 
775 
871 
964 
1127 
1155 


2343 

607 

655 

703 

748 

796 

844 

892 

937 

985 

1123 

1151 

1179 

1208 

1236 

1265 

1293 

1322 

1350 

1481 

1523 

1565 

1698 

1726 

1754 

1882 

1910 

1938 

1966 

2090 

2153 

2211 

2264 

2317 

2365 

2119 
2257 

2119 
2257 

2119 
2257 

301 
595 
688 
784 
877 
973 
1129 
1157 


2350 

611 

659 

707 

755 

800 

848 

896 

944 

989 

1125 

1153 

1182 

1210 

1238 

1267 

1295 

1324 

1352 

1483 

1525 

1567 

1700 

1728 

1756 

1884 

1912 

1940 

1968 

2097 

2160 

2218 

2266 

2319 


2128 
2268 

2128 
2268 

2128 
2268 

303 
601 
694 
790 
883 
979 
1131 
1159 


2354 

613 

661 

709 

757 

802 

850 

898 

946 

991 

1127 

1155 

1184 

1212 

1240 

1269 

1297 

1326 

1354 

1487 

1529 

1571 

1702 

1730 

1758 

1886 

1914 

1942 

1970 

2099 

2162 

2220 

2273 

2321 


2137 
2279 

2137 
2279 

2137 
2279 

312 
607 
703 
796 
892 
985 
1133 
1161 


2361 

620 

665 

713 

761 

809 

854 

902 

950 

998 

1129 

1157 

1186 

1214 

1242 

1271 

1299 

1328 

1356 

1489 

1531 

1676 

1704 

1732 

1760 

1888 

1916 

1944 

2047 

2106 

2169 

2222 

2275 

2328 


2146 
2290 

2146 
2290 

2146 
2290 

314 
613 
709 
802 
898 
991 
1135 
1163 


2365 

622 

667 

715 

763 

811 

856 

904 

952 

1000 

1131 

1159 

1188 

1216 

1244 

1273 

1301 

1330 

1358 

1493 

1535 

1678 

1706 

1734 

1762 

1890 

1918 

1946 

2050 

2108 

2171 

2229 

2277 

2330 


2155 
2301 

2155 
2301 

2155 
2301 

316 

622 

715 

811 

904 

1000 

1137 

1165 


626 

674 

719 

767 

815 

863 

908 

956 

1004 

1133 

1161 

1190 

1218 

1247 

1275 

1303 

1332 

1360 

1495 

1537 

1680 

1708 

1736 

1764 

1892 

1920 

1948 

2052 

2115 

2178 

2231 

2284 

2332 


2164 
2312 

2164 
2312 

2164 
2312 

318 

628 

721 

817 

910 

1006 

1139 

1167 


628 

676 

721 

769 

817 

865 

910 

958 

1006 

1135 

1163 

1192 

1220 

1249 

1277 

1305 

1334 

1362 

1499 

1541 

1682 

1710 

1738 

1766 

1894 

1922 

1950 

2054 

2117 

2180 

2233 

2286 

2339 


2173 
2323 

2173 
2323 

2173 
2323 

327 

634 

730 

823 

919 

1012 

1141 

1169 


SEQ  1371 


»  M  nn 


HOP 


3  1359 


1171 

1173 

1200 

1202 

1228 

1230 

1257 

1259 

1285 

1287 

1314 

1316 

1342 

1344 

1370 

1372 

1499 

1501 

1527 

1529 

1555 

1557 

1686 

1688 

1714 

1716 

1742 

1744 

1770 

1874 

1900 

1902 

1928 

1930 

1956 

1958 

2081 

2088 

2144 

2151 

2207 

2209 

2255 

2262 

2308 

2310 

2361 

2363 

.MCRY 

172 

290 

919 

946 

.MD 

170 

172 

295 

297 

329 

331 

599 

601 

630 

632 

661 

663 

692 

694 

723 

728 

757 

759 

788 

790 

819 

821 

850 

852 

881 

883 

912 

917 

946 

948 

977 

979 

1008 

1010 

1129 

1131 

1157 

1159 

1186 

1188 

1214 

1216 

1242 

1244 

1271 

1273 

1299 

1301 

1328 

1330 

1356 

1358 

1481 

1483 

1175 
1204 
1232 
1261 
1289 
1318 
1346 
1374 
1503 
1531 
1559 
1690 
1718 
1746 
1876 
1904 
1932 
1960 
2090 
2153 
2211 
2264 
2317 
2365 
595 
973 
174 
299 
333 
603 
634 
665 
696 
730 
761 
792 
823 
854 
885 
919 
950 
981 
1012 
1133 
1161 
1190 
1218 
1247 
1275 
1303 
1332 
1360 
1485 


1177 

1206 

1234 

1263 

1291 

1320 

1348 

1477 

1505 

1533 

1561 

1692 

1720 

1748 

1878 

1906 

1934 

1962 

2097 

2160 

2218 

2266 

2319 

622 

1000 

177 

301 

335 

605 

636 

667 

701 

732 

763 

794 

825 

856 

890 

921 

952 

983 

1014 

1135 

1163 

1192 

1220 

1249 

1277 

1305 

1334 

1362 

1487 


1179 
1208 
1236 
1265 
1293 
1322 
1350 
1479 
1507 
1535 
1563 
1694 
1722 
1750 
1880 
1908 
1936 
1964 
2099 
2162 
2220 
2273 
2321 

649 

179 

303 

340 

607 

638 

669 

703 

734 

765 

796 

827 

858 

892 

923 

954 

985 

1016 

1137 

1165 

1194 

1222 

1251 

1279 

1307 

1336 

1364 

1489 


1182 
1210 
1238 
1267 
1295 
1324 
1352 
1481 
1509 
1537 
1565 
1696 
1724 
1752 
1882 
1910 
1938 
1966 
2106 
2169 
2222 
2275 
2328 

676 

181 

305 

342 

609 

640 

674 

705 

736 

767 

798 

829 

863 

894 

925 

956 

987 

1018 

1139 

1167 

1196 

1224 

1253 

1281 

1309 

1338 

1366 

1491 


1184 
1212 
1240 
1269 
1297 
1326 
1354 
1483 
1511 
1539 
1567 
1698 
1726 
1754 
1884 
1912 
1940 
1968 
2108 
2171 
2229 

im 

2330 

703 

184 

310 

344 

611 

642 

676 

707 

738 

769 

800 

831 

865 

896 

927 

958 

989 

1020 

1141 

1169 

1198 

1226 

1255 

1283 

1312 

1340 

1368 

1493 


1186 
1214 
1242 
1271 
1299 
1328 
1356 
1485 
1513 
1541 
1569 
1700 
1728 
1756 
1886 
1914 
1942 
2052 
2115 
2178 
2231 
2284 
2332 

730 

186 

312 

346 

613 

647 

678 

709 

740 

771 

802 

836 

867 

898 

929 

960 

991 

1115 

1143 

1171 

1200 

1228 

1257 

1285 

1314 

1342 

1370 

1495 


1196 

1188 

1190 

1192 

1194 

1198 

1216 

1218 

1220 

1222 

1224 

1226 

1244 

1247 

1249 

1251 

1253 

1255 

1273 

1275 

1277 

1279 

1281 

1283 

1301 

1303 

1305 

1307 

1309 

1312 

1330 

1332 

1334 

1336 

1338 

1340 

1358 

1360 

1362 

1364 

1366 

1368 

1487 

1489 

1491 

1493 

1495 

1497 

1515 

1517 

1519 

1521 

1523 

1525 

1543 

1545 

1547 

1549 

1551 

1553 

1571 

1676 

1678 

1680 

1682 

1684 

1702 

1704 

1706 

1708 

1710 

1712 

1730 

1732 

1734 

1736 

1738 

1740 

1758 

1760 

1762 

1764 

1766 

1768 

1888 

1890 

1892 

1894 

1896 

1898 

1916 

1918 

1920 

1922 

1924 

1926 

1944 

1946 

1948 

1950 

1952 

1954 

2054 

2061 

2063 

2070 

2072 

2079 

2117 

2124 

2126 

2133 

2135 

2142 

2180 

2187 

2189 

2196 

2198 

2200 

2233 

2240 

2242 

2244 

2251 

2253 

2286 

2288 

2295 

2297 

2299 

2306 

2339 

2341 

2343 

2350 

2352 

2354 

757 

784 

811 

838 

865 

892 

188 

191 

193 

195 

288 

290 

314 

316 

318 

320 

325 

327 

348 

350 

353 

593 

595 

597 

615 

620 

622 

624 

626 

628 

649 

651 

653 

655 

657 

659 

680 

682 

684 

686 

688 

690 

711 

713 

715 

717 

719 

721 

742 

744 

746 

748 

750 

755 

773 

775 

777 

782 

784 

786 

804 

109 

811 

813 

815 

817 

838 

140 

842 

844 

846 

848 

869 

J71 

873 

875 

877 

879 

900 

902 

904 

906 

908 

910 

931 

933 

935 

937 

939 

944 

962 

964 

966 

971 

973 

975 

993 

998 

1000 

1002 

1004 

1006 

1117 

1119 

1121 

1123 

1125 

1127 

1145 

1147 

1149 

1151 

1153 

1155 

1173 

1175 

1177 

1179 

1182 

1184 

1202 

1204 

1206 

1208 

1210 

1212 

1230 

1232 

1234 

1236 

1238 

1240 

1259 

1261 

1263 

1265 

1267 

1269 

1287 

1289 

1291 

1293 

1295 

1297 

1316 

1318 

1320 

1322 

1324 

1326 

1344 

1346 

1348 

1350 

1352 

1354 

1372 

1374 

1473 

1475 

1477 

1479 

1497 

1499 

1501 

1503 

1505 

1507 

SEQ  1372 


1C71 


1C77 


ic7«; 


L„ 


Q  1360 


.MJ 


.MJMAP 


1509 

1537 

1565 

1690 

1718 

17A6 

1870 

1898 

1926 

195A 

2061 

21 24 

2187 

22A0 

2288 

2341 

170 

335 

626 

674 

719 

767 

815 

863 

908 

956 

1004 

1672 

2067 

2130 

2193 

2270 

2347 

170 

605 


.MJZ 

.MLDCT 

.MMGC 


1511 
1539 
1567 
1692 
1720 
1748 
1872 
1900 
1928 
1956 
2063 
2126 
2189 
2242 
2295 
2343 
174 
340 
630 
678 
723 
771 
819 
867 
912 
960 
1008 
1674 
2074 
2137 
2202 
2279 
^356 
174 
609 
657 
705 
^50 
798 
846 
894 
939 
987 
1473 
2094 
2226 
2374 

310 
181 
663 
759 
852 


1513 
1541 
1569 
1694 
1722 
1750 
1874 
1902 
1930 
1958 
2070 
2133 
2196 
2244 
2297 
2350 
177 
350 
632 
680 
728 
773 
821 
869 
917 
962 
1010 
1772 
2076 
2139 
2204 
2281 
2358 
177 
611 
659 
707 
755 
800 
848 
896 
944 
989 
1576 
2103 
2237 
2379 

325 
188 
669 
765 
858 


1515 
1543 
1571 
1696 
1724 
1752 
1876 
1904 
1932 
1960 
2072 
2135 
2198 
2251 
2299 
2352 
181 
353 
636 
684 
732 
111 
825 
873 
921 
966 
1014 
1775 
2083 
2146 
2213 
2290 
2367 
181 
615 
663 
711 
759 
804 
852 
900 
948 
993 
1578 
2112 
2248 


340 
195 
678 
771 
867 


1517 

1519 

1521 

1545 

1547 

1549 

1573 

1672 

1674 

1698 

1700 

1702 

1726 

1728 

1730 

1754 

1756 

1758 

1878 

1880 

1882 

1906 

1908 

1910 

1934 

1936 

1938 

1962 

1964 

1966 

2079 

2081 

2088 

2142 

2144 

2151 

2200 

2201 

2209 

2253 

2255 

2262 

2306 

2308 

2310 

2354 

2361 

2363 

184 

188 

191 

593 

597 

599 

638 

642 

647 

686 

690 

692 

734 

738 

740 

782 

786 

788 

831 

836 

875 

879 

881 

923 

927 

929 

971 

975 

977 

1016 

1020 

1115 

1777 

1870 

1872 

2085 

2092 

2094 

2148 

2155 

2157 

2215 

2224 

2226 

2292 

2301 

2303 

2369 

2374 

2379 

184 

188 

191 

620 

624 

626 

665 

669 

674 

713 

717 

719 

761 

765 

767 

809 

813 

815 

854 

858 

863 

902 

906 

908 

950 

954 

956 

998 

1002 

1004 

1672 

1775 

1777 

2121 

2130 

2139 

2259 

2270 

2281 

1475 

1674 

1872 

353 

597 

603 

684 

690 

696 

VI 

786 

792 

873 

879 

885 

1523 

1551 

1676 

1704 

1732 

1760 

1884 

1912 

1940 

1968 

2090 

2153 

2211 

2264 

2317 

2365 

195 

603 

651 

696 

744 

792 

840 

885 

933 

981 

1377 

1970 

2101 

2164 

2235 

2312 

195 

630 

678 

723 

771 

819 

867 

912 

960 

1008 

1870 

2148 

2292 


609 
705 
798 
894 


1525 
1553 
1678 
1706 
1734 
1762 
1886 
1914 
1942 
1970 
2097 
2160 
2218 
2266 
2319 

288 

605 

653 

701 

746 

794 

842 

890 

935 

983 

1379 

1973 

2103 

2166 

2237 

2314 

288 

632 

680 

728 

773 

821 

869 

917 

962 

1010 

1973 

2157 

2303 


615 
711 
804 
900 


1527 
1555 
1680 
1708 
1736 
1764 
1888 
1916 
1944 
1973 
2099 
2162 
2220 
2273 
2321 

295 

609 

657 

705 

750 

798 

846 

894 

939 

987 

1473 

2045 

2110 

2173 

2246 

2323 

353 

636 

684 

732 

111 

825 

873 

921 

966 

1014 

2045 

2166 

2314 


624 
717 
813 
906 


1529 
1557 
1682 
1710 
1738 
1766 
1890 
1918 
1946 
2047 
2106 
2169 
2222 
2275 
2328 

305 

611 

659 

707 

755 

800 

848 

896 

944 

989 

1475 

2050 

2112 

2175 

2248 

2325 

593 

638 

686 

734 

782 

827 

875 

923 

971 

1016 

2050 

2175 

2325 


630 
723 
819 
912 


1531 
1559 
1684 
1712 
1740 
1768 
1892 
1920 
1948 
2050 
2108 
2171 
2229 
2211 
2330 

310 

615 

663 

711 

759 

804 

852 

900 

948 

993 

1573 

2056 

2119 

2182 

2257 

2334 

597 

642 

690 

738 

786 

831 

879 

927 

975 

1020 

2058 

2184 

2336 


636 
732 
825 
921 


1533 
1561 
1686 
1714 
1742 
1770 
1894 
1922 
1950 
2052 
2115 
2178 
2231 
2284 
2332 

320 

620 

665 

713 

761 

809 

854 

902 

950 

998 

1576 

2058 

2121 

2184 

2259 

2336 

599 

647 

692 

740 

788 

836 

881 

929 

977 

1115 

2067 

2193 

2347 


642 
738 
831 
927 


1535 
1563 
1688 
1716 
1744 
1772 
1896 
1924 
1952 
2054 
2117 
2180 
2233 
2286 
2339 

325 

624 

669 

717 

765 

813 

858 

906 

954 

1002 

1578 

2065 

2128 

2191 

2268 

2345 

603 

651 

696 

744 

792 

840 

885 

933 

981 

1377 

2076 

2204 

2358 


651 
744 
840 
933 


SEQ  1373 


r 


r 


EQ  1361 


.MNAND 
.MOENA 


.MOR 


.WPLUS 


.HRPCT 
.MSOA 


773 
815 
850 

i 

962 

100A 

1200 

U8: 

1732 

1956 

2155 

2301 

172 

919 

1159 

1678 

1948 

305 

170 

663 

759 

852 

948 

1121 

1U9 

1177 

1206 

123A 

1263 

1291 

1320 

1348 


948 
1473 
2126 
2266 
1318 
1374 
1746 
181 
663 
759 
852 
948 
1775 
177 
312 
350 
628 
663 
705 
740 
775 
817 
852 
894 
929 
964 
1006 
1204 
1487 
1734 
1970 
2164 
?312 
290 
946 
1163 
1680 
1950 
320 
184 
669 
765 
858 
954 
1123 
1151 
1179 
1208 
1236 
1265 
1293 
1322 
1350 


954 

1576 

2135 

2277 

1322 

1497 

1768 

188 

669 

765 

858 

954 

1973 

179 

314 

353 

630 

665 

707 

742 

ni 

819 

854 

896 

931 

966 

1008 

1208 

1509 

1756 

1973 

2173 

2323 

595 

973 

1167 

1702 

335 

186 

678 

771 

867 

960 

1125 

1153 

1182 

1210 

1238 

1267 

1295 

1324 

1352 


960 

1672 

2144 

2288 

1326 

1499 

1770 

195 

678 

771 

867 

960 

181 

316 

597 

632 

667 

709 

744 

786 

821 

856 

898 

933 

975 

1010 

1212 

1511 

1758 

2056 

2182 

2334 

622 

1000 

1171 

1704 

350 
288 
684 

m 

873 
966 
1127 
1155 
1184 
1212 
1240 
1269 
1297 
1326 
1354 


966 
1775 
2153 
2299 
1330 
1521 
1894 
353 
684 

ni 

873 
966 

184 

318 

599 

634 

669 

711 

746 

788 

823 

858 

900 

935 

977 

1012 

1216 

1533 

1772 

2065 

2191 

2345 

649 

1119 

1175 

1726 

1573 

597 

690 

786 

879 

975 

1129 

1157 

1186 

1214 

1242 

1271 

1299 

1328 

1356 


975 

1870 

2162 

2310 

1334 

1523 

1896 

597 

690 

786 

879 

975 

186 

320 

601 

636 

678 

713 

748 

790 

825 

867 

902 

937 

979 

1014 

1220 

1535 

1775 

2074 

2202 

2356 

676 

1123 

1179 

1728 

1772 

603 

696 

792 

885 

981 

1131 

1159 

1188 

1216 

1244 

1273 

1301 

1330 

1358 


981 

1973 

2171 

2321 

1338 

1545 

1918 

603 

696 

792 

885 

981 

188 

327 

603 

638 

680 

715 

750 

792 

827 

869 

904 

939 

981 

1016 

1224 

1557 

1870 

2083 

2213 

2367 

703 

1127 

1479 

1750 

1970 

609 

705 

798 

894 

987 

1133 

1161 

1190 

1218 

1247 

1275 

1303 

1332 

1360 


987 

2054 

2180 

2332 

1342 

1547 

1920 

609 

705 

798 

894 

987 

191 

329 

605 

640 

682 

717 

759 

794 

829 

871 

906 

948 

983 

1018 

1228 

1559 

1882 

2092 

2224 

730 
1131 
1481 
1752 


615 

711 

804 

900 

993 

1135 

1163 

1192 

1220 

1249 

1277 

1305 

1334 

1362 


993 

1002 

2063 

2072 

2189 

2200 

2343 

2354 

1346 

1350 

1569 

1571 

1942 

1944 

615 

624 

711 

717 

804 

813 

900 

906 

993 

1002 

193 

195 

331 

333 

607 

609 

642 

651 

684 

686 

719 

721 

761 

763 

796 

798 

831 

840 

873 

875 

908 

910 

950 

952 

985 

987 

1020 

1115 

1232 

1236 

1576 

1672 

1884 

1906 

2101 

2110 

2235 

2246 

757 
1135 
1503 
1876 


624 

717 

813 

906 

1002 

1137 

1165 

1194 

1222 

1251 

1279 

1307 

1336 

1364 


784 
1139 
1505 
1878 


630 

723 

819 

912 

1008 

1139 

1167 

1196 

1224 

1253 

1281 

1309 

1338 

1366 


1008 

1014 

2081 

2090 

2211 

2212 

1354 

1358 

1696 

1698 

1966 

1968 

630 

636 

723 

732 

819 

825 

912 

921 

1008 

1014 

297 

299 

335 

342 

611 

613 

653 

655 

688 

690 

723 

732 

765 

767 

800 

802 

842 

844 

877 

879 

912 

921 

954 

956 

989 

991 

1184 

1188 

1240 

1244 

1684 

1686 

1908 

1930 

2119 

2128 

2257 

2268 

811 

838 

1143 

1147 

1527 

1529 

1900 

1902 

636 

642 

732 

738 

825 

831 

921 

927 

1014 

1020 

1141 

1143 

1169 

1171 

1198 

1200 

1226 

1228 

1255 

1257 

1283 

1285 

1M4 

1:40 

1:42 

1363 

1370 

1020 
2099 
2233 

1362 
1720 

642 
738 
831 
927 
1020 

301 

344 

615 

657 

692 

734 

769 

804 

846 

881 

923 

958 

993 

1192 

1377 

1708 

1932 

2137 

2279 

865 
1151 
1551 
1924 


651 

744 

840 

933 

1117 

1145 

1173 

1202 

1230 

1259 

1287 

1316 

1344 

1372 


1115 
2108 
2244 

1366 
1722 

651 
744 
840 
933 
1377 

303 

346 

624 

659 

694 

736 

771 

813 

848 

883 

925 

960 

1002 

1196 

1473 

1710 

1954 

2146 

2290 

892 
1155 
1553 
1926 


657 

750 

846 

939 

1119 

1147 

1175 

1204 

1232 

1261 

1289 

1318 

1346 

1374 


SEQ  1374 


r 


r 


EQ  1362 


.MSOB 


.MSOQ 


.MSDO 
.MSDA 


.MSELE 


.MSKCN 
.MXNOR 
.MXOR 
.RA 


1377 
1515 
1557 
1700 
1742 
1882 
192A 
1966 
2097 
2160 
2218 
2268 
2319 
593 
653 
719 
782 
8A2 
908 
971 
1690 
1772 
172 
305 
3A8 
742 
931 
1523 
1908 
1115 
205A 
2180 
2332 
174 
657 
750 
846 
939 
1576 
1115 
2144 
2288 
2052 
2178 
2330 
1249 
1305 
1738 
184 
678 
771 
867 
960 


1477 
1519 
1561 
1704 
1746 
1886 
1928 
1973 

2io; 

2164 

2220 

2273 

2323 

595 

655 

721 

784 

844 

910 

973 

1696 

1970 

174 

312 

350 

767 

956 

1529 

1914 

1473 

2063 

2189 

^343 

181 

663 

759 

852 

948 

1775 

1473 

2153 

2299 

2061 

2187 

2341 

1253 

1309 

1740 

186 

684 

m 

873 
966 


1479 

1521 

1563 

1706 

1748 

1888 

1930 

2047 

2106 

2169 

2224 

2275 

2328 

599 

665 

728 

788 

854 

917 

977 

1702 

177 

314 

353 

769 

958 

1535 

1920 

1672 

2072 

2200 

2354 

188 

669 

765 

858 

954 

1973 

1672 

2162 

2310 

2070 

2198 

2352 

1257 

1491 

1762 

597 

690 

786 

879 

975 


1483 

1525 

1567 

1710 

1752 

1892 

1934 

2050 

2110 

2173 

2229 

2279 

2330 

601 

667 

730 

790 

856 

919 

979 

1708 

179 

316 

605 

794 

983 

1541 

1926 

1870 

2081 

2211 

2365 

195 

678 

771 

867 

960 

1870 

2171 

2321 

2079 

2209 

2363 

1261 

1493 

1764 

603 

696 

792 

885 

981 


1485 

1527 

1569 

1712 

1754 

1894 

1936 

2052 

2115 

2178 

2231 

2284 

2334 

611 

674 

734 

800 

863 

923 

989 

1714 

181 
318 
607 
796 
985 
1547 
1932 

2090 
2222 

353 
684 

m 

873 
966 

2054 
2180 
2332 
2088 
2220 

1265 
1515 
1888 
609 
705 
798 
894 
987 


1489 

1531 

1576 

1716 

1758 

1898 

1940 

2056 

2119 

2182 

2235 

2286 

2339 

613 

676 

736 

802 

865 

925 

991 

1720 

188 

320 

632 

821 

1010 

1553 

1938 

2099 
2233 

597 
690 
786 
879 
975 

2063 
2189 
2343 
2097 
2231 

1269 
1517 
1890 
615 
711 
804 
900 
993 


1491 

1533 

1676 

1718 

1760 

1900 

1942 

2061 

2124 

2187 

2240 

2290 

2341 

620 

680 

746 

809 

869 

935 

998 

1726 

191 

327 

634 

823 

1012 

1559 

1944 

2108 
2244 

603 
696 
792 
885 
981 

2072 
2200 
2354 
2106 
2242 

1273 

1539 

1912 

624 

717 

813 

906 

1002 


1495 

1537 

1680 

1722 

1764 

1904 

1946 

2065 

2128 

2191 

2242 

2295 

2345 

622 

682 

748 

811 

871 

937 

1000 

1732 

193 

329 

659 

848 

1481 

1565 

1950 

2117 
2255 

609 
705 
798 
894 
987 

2081 
2211 
2365 
2115 
2253 

1277 

1541 

1914 

61. 

723 

819 

912 

1008 


1497 

1539 

1682 

1724 

1766 

1906 

1948 

2070 

2133 

2196 

2246 

2297 

2350 

626 

692 

755 

815 

881 

944 

1004 

1738 

195 

331 

661 

850 

1487 

1571 

1956 

2126 
2266 

615 
711 
804 
900 
993 

2090 
2222 

2124 
2264 

1281 

1563 

1936 

636 

732 

825 

921 

1014 


1501 

1543 

1686 

1728 

1770 

1910 

1952 

2074 

2137 

2198 

2251 

2301 

2352 

628 

694 

757 

817 

883 

946 

1006 

1744 

290 
333 

686 

875 

1493 

1878 

1962 

2135 
2211 

b2i* 
717 
813 
906 
1002 

2099 
2233 

2133 
2275 

1285 

1565 

1938 

642 

738 

831 

927 

1020 


1503 

1545 

1688 

1730 

1775 

1912 

1954 

2079 

2142 

2202 

2253 

2306 

2356 

638 

701 

761 

827 

890 

950 

1016 

1750 

297 

335 

688 

877 

1499 

1884 

1968 

2144 
2288 

630 
723 
819 
912 
1008 

2108 
2244 

2142 
2286 

1289 

1690 

1960 

651 

744 

840 

933 

1119 


1507 

1549 

1692 

1734 

1874 

1916 

1958 

2083 

2146 

2207 

2257 

2308 

2361 

640 

703 

763 

829 

892 

952 

1018 

1756 

299 
342 
713 
902 
1505 
1890 


2153 
2299 

636 
732 
825 
921 
1014 

2117 
2255 

2151 
2297 

1293 

1692 

1962 

657 

750 

846 

939 

1123 


1509 

1551 

1694 

1736 

1876 

1918 

1960 

2088 

2151 

2209 

2262 

2312 

2363 

647 

707 

773 

836 

896 

962 

.678 

1762 

301 
344 
715 
904 
1511 
1896 


2162 
2310 

642 
738 
831 
927 
1020 

2126 
2266 

2160 
2308 

1297 
1714 

663 
759 
852 
948 
1127 


1513 

1555 

1698 

1740 

1880 

1922 

1964 

2092 

2155 

2213 

2264 

2317 

2367 

649 

709 

775 

838 

898 

964 

1684 

1768 

303 
346 
740 
929 
1517 
1902 


2171 
2321 

651 
744 
840 
933 
1377 

2135 
2277 

2169 
2319 

1301 
1716 

669 
765 
858 
954 

1131 


SEQ  1375 


)EQ  1363 


.RAND 


.RB 


1135 
1192 
1249 
1305 
1362 
1533 
1888 
1968 
2081 
2124 
21 64 
2207 
2244 
2284 
2321 
2361 
170 
917 
1157 
1214 
1271 
1328 
1489 
1676 
1760 
1946 
2126 
2229 
2306 
177 
632 
680 
728 
773 
821 
869 
917 
962 
1010 
1137 
1165 
1194 
1222 
1251 
1279 
1307 
1336 
1364 
1501 
1543 
1684 
1712 
1740 


1139 

1143 

1196 

1200 

1253 

1257 

1309 

1314 

1366 

1370 

1539 

1545 

1894 

1900 

1973 

2047 

2083 

2088 

2126 

2128 

2169 

2171 

2209 

2211 

2246 

2251 

2286 

2288 

2323 

2328 

2363 

2365 

288 

593 

944 

971 

1161 

1165 

1218 

1222 

1275 

1279 

1332 

1336 

1495 

1501 

1682 

1688 

1766 

1874 

1952 

1958 

2135 

2144 

2233 

2240 

2310 

2317 

191 

593 

634 

638 

682 

686 

730 

734 

775 

782 

823 

827 

87' 

875 

919 

923 

964 

971 

1012 
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1139 

1141 

1167 

1169 

1196 

1198 

1224 

1226 

1253 

1255 

1281 

1283 

1309 

1312 

1338 

1340 

1366 

1368 

1505 

1507 

1547 

1549 

1686 

1688 

1714 

1716 

1742 

1744 

1147 
1204 
1261 
1318 
1374 
1551 
1906 
20^0 
2090 
2^33 
2173 
2213 
2253 
2290 
2330 
2367 
620 
998 
1169 
1226 
1283 
1340 
1507 
1694 
1880 
1964 
2153 
2244 
2321 
595 
640 
688 
736 
784 
829 
877 
925 
973 
1018 
1U3 
1i71 
1200 
1228 
1257 
1285 
1314 
1342 
1370 
1511 
1553 
1690 
1718 
1746 


1151 
1208 
1265 
1322 
1377 
1557 
1912 
2052 
2092 
2135 
2178 
2218 
2255 
2295 
2332 

647 

1117 

1173 

1230 

1287 

1344 

1513 

1700 

1886 

2047 

2162 

2251 

2328 

599 

647 

692 
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788 

836 

881 

929 

977 

1117 

1145 

1173 

1202 

1230 

1259 

1287 

1316 

1344 

1372 

1513 

1555 

1692 

1720 
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1155 
1212 
1269 
1326 
1479 
1563 
1918 
2054 
2097 
2137 
2180 
2220 
2257 
2297 
2334 

674 

1121 

1177 

1234 

1291 

1348 

1519 

1706 

1892 

2050 

2171 

2255 

2332 

601 

649 

694 

742 

790 

838 

883 

931 

979 

1119 

1147 

1175 

1204 

1232 

1261 

1289 

1318 

1346 

1374 

1517 

1559 

1694 

1722 

1750 
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1273 
1330 
1485 
1569 
1924 
2056 
2099 
2142 
2182 
2222 
2262 
2299 
2339 

701 

1125 

1182 

1238 

1295 

1352 

1525 

1712 

1898 

2054 

2180 

2262 

2339 

605 
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701 

746 

794 

842 

890 
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983 

1121 

1149 

1177 

1206 

1234 

1263 
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1320 

1348 

1477 

1519 

1561 
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1163 
1220 
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1334 
1491 
1571 
1930 
2061 
2101 
2144 
2187 
2224 
2264 
2301 
2341 

728 

1129 

1186 

1242 

1299 

1356 

1531 

1718 
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2063 

2189 

2266 

2343 
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703 

748 

796 

844 

892 

937 
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1123 
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1481 
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1698 
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1754 
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1224 
1281 
1338 
1497 
1576 
1936 
2063 
2106 
2146 
2189 
2229 
2266 
2306 
2343 

755 

1133 

1190 

1247 

1303 

1360 

1537 

1724 

1910 

2072 

2196 

2273 

2350 

611 

659 

707 

755 
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848 

896 

944 

989 

1125 
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1352 

1483 

1525 
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1756 


1171 
1228 
1285 
1342 
1503 
1680 
1942 
2065 
2108 
2151 
2191 
2231 
2268 
2308 
2345 

782 

1137 

1194 

1251 

1307 
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1543 

1730 
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2271 
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661 

709 

757 

802 

850 

898 

946 

991 
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1155 

1184 

1212 

1240 

1269 

1297 

1326 

1354 

1487 
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1702 

1730 
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1232 
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1346 
1509 
1770 
1948 
2070 
2110 
2153 
2196 
2233 
2273 
2310 
2350 

809 

1141 

1198 

1255 

1312 

1368 

1549 

1736 

1922 

2090 

2207 

2284 

2361 

620 

665 

713 

761 

809 

854 

902 

950 

998 

1129 

1157 

1186 

1214 

1242 

1271 

1299 

1328 

1356 

1489 

1531 

1676 

1704 

1732 

1760 


1179 
1236 
1293 
1350 
1515 
1775 
1954 
2072 
2115 
2155 
2198 
2235 
2275 
2312 
2352 

836 

1145 

1202 

1259 

1316 

1372 

1555 

1742 

1928 

2099 

2211 

2288 

2365 

622 

667 

715 

763 

811 

856 

904 

952 
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1131 

1159 

1188 

1216 

1244 

1273 

1301 

1330 

1358 

1493 

1535 

1678 

1706 

1734 

1762 


1184 
1240 
1297 
1354 
1521 
1876 
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2074 
2117 
2160 
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2240 
2217 
2317 
2354 

863 
1149 
1206 
1263 
1320 
1477 
1561 
1748 
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2108 
2218 
2295 
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674 

719 

767 

815 

863 

908 
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1004 

1133 

1161 

1190 

1218 

1247 

1275 

1303 

1332 

1360 

1495 

1537 

1680 
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1736 
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1358 
1527 
1882 
1966 
2079 
2119 
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2202 
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2356 

890 
1153 
1210 
1267 
1324 
1483 
1567 
1754 
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2117 
2222 
2299 
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676 

721 

769 

817 

865 

910 

958 
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1135 

1163 

1192 

1220 

1249 

1277 
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2063 
2126 
2189 
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2295 
2343 
2379 
2065 
2191 
2345 
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2345 
2065 
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2345 
179 
331 
649 
742 
838 
931 
1117 
1145 
1173 
1202 
1230 
1259 
1287 
'316 
1344 
1372 
1501 
1529 
1557 
1688 
1716 
1744 
1874 
1902 
1930 
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2088 
2151 
2209 
2262 
2310 
2363 
290 


1772 
1900 
1928 
1956 
2070 
2133 
2196 
2244 
2297 
2350 

2074 

2202 

2356 

2074 

2202 

2356 

2074 

2202 

2356 

186 

333 
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748 

844 

937 

1119 

1147 

1175 

1204 

1232 

1261 

1289 

1318 

1346 

1374 
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1531 

1559 
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1718 

1746 

1876 
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2211 

2264 

2317 
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1876 
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2079 

2081 

2135 

2142 

2144 

2198 
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220/ 

2251 

2255 

2299 

2306 

2308 

2352 

2354 

2361 

2083 

2092 

2101 

2213 

2224 

2235 

2367 
2083 
2213 
2367 
2083 
2213 
2367 
193 
342 
661 
757 
850 
946 
1121 
1149 
1177 
1206 
1234 
1263 
1291 
1320 
1348 
1477 
1505 
1533 
1561 
1692 
1720 
1748 
1878 
1906 
1934 
1962 
2097 
2160 
2218 
2266 
2319 

622 


2092 
2224 

2092 
2224 

290 
344 
667 
763 
856 
952 
1123 
1151 
1179 
1208 
1236 
1265 
1293 
1322 
1350 
1479 
1507 
1535 
1563 
1694 
1722 
1750 
1880 
1908 
1936 
1964 
2099 
2162 
2220 
2273 
2321 

649 


2101 
2235 

2101 
2235 

297 
346 
676 
769 
865 
958 
1125 
1153 
1182 
1210 
1238 
1267 
1295 
1324 
1352 
1481 
1509 
1537 
1565 
1696 
1724 
1752 
1882 
1910 
1938 
1966 
2106 
2169 
2222 
2275 
2328 

676 


1880 
1908 
1936 
1964 
2088 
2151 
2209 
2262 
2310 
2363 

2110 
2246 

2110 
2246 

2110 
2246 

299 
348 
682 
775 
871 
964 
1127 
1155 
1184 
1212 
1240 
1269 
1297 
1326 
1354 
1483 
1511 
1539 
1567 
1698 
1726 
1754 
1884 
1912 
1940 
1968 
2108 
2171 
2229 
2277 
2330 

703 


1882 
1910 
1938 
1966 


2211 
2264 
2317 
2365 

2119 
2257 

2119 
2257 

2119 
2257 

301 
595 
688 
784 
877 
973 
1129 
1157 
1186 
1214 
1242 
1271 
1299 
1328 
1356 
1485 
1513 
1541 
1569 
1700 
1728 
1756 
1886 
1914 
1942 
2052 
2115 
2178 
2231 
2284 
2332 

730 


1884 
1912 
1940 
1968 
2097 
2160 
2218 
2266 
2319 


2128 
2268 

2128 
2268 

2128 
2268 

303 
601 
694 
790 
883 
979 
1131 
1159 
1188 
1216 
1244 
1273 
1301 
1330 
1358 
1487 
1515 
1543 
1571 
1702 
1730 
1758 
1888 
1916 
1944 
2054 
2117 
2180 
2233 
2286 
2339 

757 


1886 
1914 
1942 
1970 
2099 
2162 
2220 
2273 
2321 


2137 
2279 

2137 
2279 

2137 
2279 

312 
607 
703 
796 
892 
985 
1133 
1161 
1190 
1218 
1247 
1275 
1303 
1332 
1360 
1489 
1517 
1545 
1676 
1704 
1732 
1760 
1890 
1918 
1946 
2061 
2124 
2187 
2240 
2288 
2341 

784 


1888 
1916 
1944 
2047 
2106 
2169 
2222 
2275 
2328 


2146 
2290 

2146 
2290 

2146 
2290 

314 
613 
709 
802 
898 
991 
1135 
1163 
1192 
1220 
1249 
1277 
1305 
1334 
1362 
1491 
1519 
1547 
1678 
1706 
1734 
1762 
1892 
1920 
1948 
2063 
2126 
2189 
2242 
2295 
2343 

811 


1890 
1918 
1946 
2050 
2108 
2171 
2229 
2277 
2330 


2155 
2301 

2155 
2301 

2155 
2301 

316 
622 
715 
811 
904 
1000 
1137 
1165 
1194 
1222 
1251 
1279 
1307 
1336 
1364 
1493 
1521 
1549 
1680 
1708 
1736 
1764 
1894 
1922 
1950 
2070 
2133 
2196 
2244 
2297 
2350 

838 


1892 
1920 
1948 
2052 
2115 
2178 
2231 
2284 
2332 


2164 
2312 

2164 
2312 

2164 
2312 

318 
628 
721 
817 
910 
1006 
1139 
1167 
1196 
1224 
1253 
1281 
1309 
1338 
1366 
1495 
1523 
1551 
1682 
1710 
1738 
1766 
1896 
1924 
1952 
2072 
2135 
2198 
2251 
2299 
2352 

865 


1894 
1922 
1950 
2054 
2117 
2180 
2233 
2286 
2339 


2173 
2323 

2173 
2323 

2173 
2323 

327 
634 
730 
823 
919 
1012 
1141 
1169 
1198 
1226 
1255 
1283 
1312 
1340 
1368 
1497 
1525 
1553 
1684 
1712 
1740 
1768 
1898 
1926 
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2079 
2 1 42 
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2306 
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295 

329 
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661 
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792 
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1720 
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1928 

1930 

1956 

1958 

2063 

2070 

2126 

2133 

2189 
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2343 
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773 

819 

821 

867 
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W^ 
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763 

794 

825 

856 

890 

921 

952 
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1135 

1163 

1192 
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1334 
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1487 
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1876 

1904 

1932 

1960 

2072 
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2352 
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m 

734 
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796 

827 
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954 
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1165 

1194 
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1307 
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1364 

1489 
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2079 

2142 
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2253 

2306 
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638 
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923 
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310 

342 

344 

609 

611 

640 
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674 

676 

705 

707 

736 

738 

767 

769 

798 

800 

829 

831 

863 

865 

894 

896 

925 

927 
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987 
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642 

647 

690 
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788 

131 
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J79 

881 

927 

929 
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312 

346 

613 

647 

678 

709 

740 

771 

802 

836 

867 

898 

929 

960 

991 

1115 

1143 

1171 
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1257 

1285 
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775 
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813 
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879 

900 
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935 

937 

939 
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9(54 

966 

971 

973 

975 

993 

998 

1000 

1002 

1004 

1006 

1117 

1119 

1121 

1123 

1125 

1127 

1145 

1147 

1149 

1151 
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1155 
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1175 

1177 

1179 

1182 

1184 
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1204 

1206 

1208 

1210 

1212 

1230 

1232 
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1236 

1238 

1240 

1259 

1261 
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1267 
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1475 

1477 

1479 

1497 

1499 
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1507 

1525 

1527 

1529 

1531 

1533 

1535 

1553 

1555 

1557 

1559 

1561 

1563 

1678 

1680 

1682 

1684 

1686 

1688 

1706 
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1712 

1714 

1716 
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1970 
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2106 

2108 

2115 

2117 

2160 

2162 

2169 
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2178 

2180 
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2220 

2222 

2229 

2231 

2233 

2266 

2273 

2275 

2277 

2284 

2286 

2319 
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2328 

2330 

2332 

2339 

288 

295 
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310 

320 

325 

605 

609 

611 

615 

620 

624 

653 

657 

659 

663 

665 

669 

701 

705 

707 

711 

713 

717 

746 

750 

755 

759 

761 

765 

794 

798 

800 

804 

809 

813 

842 

846 
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890 

894 
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948 

950 
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2246 

2277 

2308 

2339 

2369 

188 

314 

348 

615 


449 

450 

191 

193 

195 

288 

290 

316 

318 

320 

325 

327 

350 

353 

593 

595 

597 

620 

624 

626 

628 

651 

65j 

655 

657 

659 

^?§ 

^i 

^?^ 

688 

719 

690 
721 

744 

Vr^ 

748 

750 

755 

775 

782 

784 

786 

809 

811 

813 

815 

817 

840 

842 

844 

846 

848 

871 

873 

875 

877 

879 

902 

904 

906 

908 

910 

933 

935 

937 

939 

944 

964 

966 

971 

973 

975 

998 

1000 

1002 

1004 

1006 

1119 

1121 

1123 

1125 

1127 

1147 

1149 

1151 

1153 

1155 

1175 

1177 

1179 

1182 

1184 

1204 

1206 

1208 

^210 

1212 

1232 

1234 

1236 

1238 

1240 

1261 

1263 

1265 

1267 

1^69 

1289 

1291 

1293 

1295 

1297 

1318 

1320 

1322 

1324 

1326 

1346 

1348 

1350 

1352 

1354 

1374 

1377 

1379 

1473 

1475 

1495 

1497 

1499 

1501 

1503 

1523 

1525 

1527 

1529 

1531 

1551 

1553 

1555 

1557 

1559 

1672 

1674 

1676 

1678 

1680 

1700 

1702 

1704 

1706 

1708 

1728 

1730 

1732 

1734 

1736 

1756 

1758 

1760 

1762 

1764 

1876 

1878 

^380 

1882 

1884 

1904 

1906 

1908 

1910 

1912 

1932 

1934 

1936 

1938 

1940 

1960 

1962 

1964 

1966 

1968 

2061 

2063 

2065 

2067 

2070 

2092 

2094 

2097 

2099 

2101 

2124 

2126 

2128 

2130 

2133 

2155 

2157 

2160 

2162 

2164 

2187 

2189 

2191 

2193 

2196 

2218 

2220 

2222 

2224 

2226 

2248 

2251 

2253 

2255 

2257 

2279 

2281 

2284 

2286 

2288 

2310 

2312 

2314 

2317 

2i19 

2341 

2343 

2345 

2347 

2350 

2374 

2379 

191 

193 

195 

288 

290 

316 

318 

320 

325 

327 

350 

353 

593 

595 

597 

620 

622 

624 

626 

628 

SEQ  1382 


DFP1 
DFP1 


630 


632 


634 


636 


638 


640 


642 


647 


649 


651 


653 


655 


657 


659 


rcn  1ZQ7 


I 


1370 


FIELD 


630 

632 

661 

663 

692 

69A 

723 

728 

757 

759 

788 

790 

819 

821 

850 

852 

881 

883 

912 

917 

9Ao 

948 

977 

979 

100 

1010 

112S 

Mil 

1157 

1159 

1186 

1188 

12U 

1216 

12A2 

1244 

1271 

1273 

1299 

1301 

1328 

1330 

1356 

1358 

1477 

1479 

1505 

1507 

1533 

1535 

1561 

1563 

1682 

1684 

1710 

1712 

1738 

1740 

1766 

1768 

1886 

1888 

19K 

1916 

19A2 

1944 

1970 

'973 

2072 

2074 

2103 

2106 

2135 

2137 

2166 

2169 

2198 

2200 

2229 

2231 

2259 

2262 

2290 

2292 

2321 

2323 

2352 

2354 

170 

172 

295 

297 

329 

331 

599 

601 

630 

632 

661 

663 

692 

694 

723 

728 

757 

759 

634 
665 
696 
730 
761 
792 
823 
854 

885 
019 

950 

981 

1012 

1133 

1161 

1190 

1218 

1247 

1275 

1303 

1332 

1360 

1481 

1509 

1537 

1565 

1686 

1714 

1742 

1770 

1890 

1918 

1946 

2045 

2076 

2108 

2139 

2171 

2202 

2233 

2264 

2295 

2325 

2356 

174 

299 

333 

603 

634 

665 

696 

730 

761 


636 

667 

701 

732 

763 

794 

825 

856 

890 

921 

952 

983 

1014 

1135 

1163 

1192 

1220 

1249 

1277 

1305 

1334 

1362 

1483 

1511 

1539 

1567 

1688 

1716 

1744 

1772 

1892 

1920 

1948 

2047 

2079 

2110 

2142 

2173 

2204 

2235 

2266 

2297 

2328 

2358 

177 

301 

335 

605 

636 

667 

701 

732 

763 


638 

669 

703 

734 

765 

796 

827 

858 

892 

923 

954 

985 

1016 

1137 

1165 

1194 

12:^1 

1279 

1307 

1336 

1364 

1485 

1513 

1541 

1569 

1690 

1718 

1746 

1775 

1894 

1922 

1950 

2050 

2081 

2112 

2144 

2175 

2207 

2237 

2268 

2299 

2330 

2361 

179 

303 

340 

607 

638 

669 

703 

734 

765 


640 
674 
705 
736 

798 

829 

863 

894 

925 

956 

987 

1018 

1139 

1167 

1196 

1224 

1253 

1281 

1309 

1338 

1366 

1487 

1515 

1543 

1571 

1692 

1720 

1748 

1777 

1896 

1924 

1952 

2052 

2083 

2115 

2146 

2178 

2209 

2240 

2270 

2301 

2332 

2363 

181 

305 

342 

609 

640 

674 

705 

736 

767 


642 
676 
707 
738 
769 
800 

865 
896 
927 
958 
989 
1020 
1141 
1169 
1198 
1226 
1255 
1283 
1312 
1340 
1368 
1489 
1517 
1545 
1573 
1694 
1722 
1750 
1870 
1898 
1926 
1954 
2054 
2085 
2117 
2148 
2180 
2211 
2242 
2273 
2303 
2334 
2365 
184 
310 
344 

611 
642 

676 
707 
738 
769 


~ 

647 

649 

651 

678 
709 

680 

682 

711 

713 

740 

742 
77Z 

744 

771 

775 

804 

809 

838 

840 

869 

871 

898 

900 

902 

929 

931 

933 

960 

962 

964 

991 

993 

998 

1115 

1117 

1119 

1143 

1145 

1147 

1171 

1173 

1175 

1200 

1202 

1204 

1228 

1230 

1232 

1257 

1259 

1261 

1285 

1287 

1289 

1314 

1316 

1318 

1342 

1344 

1346 

1370 

1372 

1374 

1491 

1493 

1495 

1519 

1521 

1523 

1547 

1549 

1551 

1576 

1578 

1672 

1696 

1698 

1700 

1724 

1726 

1728 

1752 

1754 

1756 

1872 

1874 

1876 

1900 

1902 

1904 

1928 

1930 

1932 

1956 

1958 

1960 

2056 

2058 

2061 

2088 

2090 

2092 

2119 

2121 

2124 

2151 

2153 

2155 

2182 

2184 

2187 

2213 

2215 

2218 

2244 

2246 

2248 

2275 

2277 

2279 

2306 

2308 

2310 

2336 

2339 

2341 

2367 

2369 

2374 

186 

188 

191 

312 

314 

316 

348 

350 

613 

615 

620 

647 

649 

651 

678 

680 

682 

709 

711 

713 

740 

7/^2 

744 

771 

773 

775 

653 

655 

657 

659 

^?^ 

??? 

688 
719 

690 
721 

746 

748 

750 

755 

777 

782 

784 

786 
'1? 

111 

)13 

815 

i42 

144 

fi^ 

148 

173 

175 

179 

904 

l§? 

908 

910 

935 

939 

944 

966 

971 

973 

975 

1000 

1002 

1004 

1006 

1121 

1123 

1125 

1127 

1149 

1151 

1153 

1155 

1177 

1179 

1182 

1184 

1206 

1208 

1210 

1212 

1234 

1236 

1238 

1240 

1263 

1265 

1267 

1269 

1291 

1293 

1295 

1297 

1320 

1322 

1324 

1326 

1348 

1350 

1352 

1354 

1377 

1379 

1473 

1475 

1497 

1499 

1501 

1503 

1525 

1527 

1529 

1531 

1553 

1555 

1557 

1559 

1674 

1676 

1678 

1680 

1702 

1704 

1706 

1708 

1730 

1732 

1734 

1736 

1758 

1760 

1762 

1764 

1878 

1880 

1882 

1884 

1906 

1908 

1910 

1912 

1934 

1936 

1938 

1940 

1962 

1964 

1966 

1968 

2063 

2065 

2067 

2070 

2094 

2097 

2099 

2101 

2126 

2128 

2130 

2133 

2157 

2160 

2162 

2164 

2189 

2191 

2193 

2196 

2220 

2224 

2226 

2251 

2253 

2255 

2257 

2281 

2284 

2286 

2288 

2312 

2314 

2317 

2319 

2343 

2345 

2347 

2350 

2379 

193 

195 

288 

290 

318 

320 

325 

327 

353 

593 

595 

597 

624 

626 

628 

653 

655 

657 

659 

684 

686 

688 

690 

715 

717 

719 

721 

746 

748 

750 

755 

777 

782 

784 

786 

SEO  1383 


L 


7flfi    700    705    70^    7QA    798    800    802    804    809    811    813    815    817 


I 


I  1371 


GO 
MFLD 


788 
819 
850 
881 
912 
946 
977 

1008 

1129 

1157 

1186 

1214 

1242 

1271 

1299 

1328 

1356 

1477 

1505 

1533 

1561 

1682 

1710 

1738 

1/66 

1886 

1914 

1942 

1970 

2072 

2103 

2135 

2166 

2198 

2229 

2259 

2290 

2321 

2352 
87 

1067 

2009 
170# 
186^ 
295* 
31 2# 
329# 
346# 
599# 
61 3# 
630# 
647# 
661* 


790 
821 
852 
883 
917 
948 
979 
1010 
1131 
1159 
1188 
1216 
1244 
1273 
1301 
1330 
1358 
1479 
1507 
1535 
1563 
1684 
1712 
1740 
1768 
1888 
1916 
1944 
1973 
2074 
2106 
2137 
2169 
2200 
2231 
2262 
2292 
2323 
2354 
89 
1075 
2011 
170 
186 
295 
312 
329 
346 
599 
613 
630 
647 
661 


792 
823 
854 
885 
919 
950 
981 

1012 

1133 

1161 

1190 

1218 

1247 

1275 

1303 

1332 

1360 

1481 

1509 

1537 

1565 

1686 

1714 

1742 

1770 

1890 

1918 

1946 

2045 

2076 

2108 

2139 

2171 

2202 

2233 

2264 

2295 

2325 

2356 
95 

1417 

2017 
172* 
188* 
297* 
314* 
331* 
348* 
601* 
615* 
632* 
649* 
663* 


794 
825 
856 
890 
921 
952 
983 
1014 
1135 
1163 
1192 
1220 
1249 
1277 
1305 
1334 
1362 
1483 
1511 
1539 
1567 
1688 
1716 
1744 
1772 
1892 
1920 
1948 
2047 
2079 
2110 
2142 
2173 
2204 
2235 
2266 
2297 
2328 
2358 
101 
1419 
2025 
172 
188 
297 
314 
331 
348 
601 
615 
632 
649 
663 


796 

827 

858 

892 

923 

954 

985 
1016 
1137 
1165 
1194 
1222 
1251 
1279 
1307 
1336 
1364 
1485 
1513 
1541 
1569 
1690 
1718 
1746 
1775 
1894 
1922 
1950 
2050 
2081 
2112 
2144 
2175 
2207 
2237 
2268 
2299 
2330 
2361 

235 
1425 

174* 
191* 
299* 
316* 
333* 
350* 
603* 
620* 
634* 
651* 
665* 


798 
829 
863 
894 
925 
956 
987 
101? 
1139 
1167 
1196 
1224 
1253 
1281 
1309 
1338 
1366 
1487 
1515 
1543 
1571 
1692 
1720 
1748 
1777 
1896 
1924 
1952 
2052 
2083 
2115 
2146 
2178 
2209 
2240 
2270 
2301 
2332 
2363 
237 
1433 

174 
191 
299 
316 
333 
350 
603 
620 
634 
651 
665 


800 

831 

865 

896 

927 

958 

989 
1020 
1141 
1169 
1198 
1226 
1255 
1283 
1312 
1340 
1368 
1489 
1517 
1545 
1573 
1694 
1722 
1750 
1870 
1898 
1926 
1954 
2054 
2085 
2117 
2148 
2180 
2211 
2242 
2273 
2303 
2334 
2365 

243 
1618 

177* 
193* 
301* 
318* 
335* 
353* 
605* 
622* 
636* 
653* 
667* 


802 
836 
867 
898 
929 
960 
991 
1115 
1143 
1171 
1200 
1228 
1257 
1285 
1314 
1342 
1370 
1491 
1519 
1547 
1576 
1696 
1724 
1752 
1872 
1900 
1928 
1956 
2056 
2088 
2119 
2151 
2182 
2213 
2244 
2275 
2306 
2336 
2367 
251 
1620 

177 
193 
301 
318 
335 
353 
605 
622 
636 
653 
667 


804 

809 

811 

813 

815 

817 

838 

840 

842 

844 

§^^ 

848 

869 

871 

873 

875 

877 

879 

900 

902 

904 

906 

908 

910 

931 

933 

935 

937 

939 

944 

962 

964 

966 

971 

973 

975 

993 

998 

1000 

1002 

1004 

Wk 

1117 

1119 

1121 

1125 

1127 

1145 

1147 

1149 

1151 

1153 

1155 

1173 

1175 

1177 

1179 

1182 

1184 

1202 

1204 

1206 

1208 

1210 

1212 

1230 

1232 

1234 

1236 

1238 

1240 

1259 

1261 

1263 

1265 

1267 

1269 

1287 

1289 

1291 

1293 

1295 

1297 

1316 

1318 

1320 

1322 

1324 

1326 

1344 

1346 

1348 

1350 

1352 

1354 

1372 

1374 

1377 

1379 

1473 

1475 

1493 

1495 

1497 

1499 

1501 

1503 

1521 

1523 

1525 

1527 

1529 

1531 

1549 

1551 

1553 

1555 

1557 

1559 

1578 

1672 

1674 

1676 

1678 

1680 

1698 

1700 

1702 

1704 

1706 

1708 

1726 

1728 

1730 

1732 

1^34 

1736 

1754 

1756 

1758 

1760 

1762 

1764 

1874 

1876 

1878 

1880 

1882 

1884 

1902 

1904 

1906 

1908 

1910 

1912 

1930 

1932 

1934 

1936 

1938 

1940 

1958 

1960 

1962 

1964 

1966 

1968 

2058 

2061 

2063 

2065 

2067 

2070 

2090 

2092 

2094 

2097 

2099 

2101 

2121 

2124 

2126 

2128 

2130 

2133 

2153 

2155 

2157 

2160 

2162 

2164 

2184 

2187 

2189 

2191 

2193 

2196 

2215 

2218 

2220 

2222 

2224 

2226 

2246 

2248 

2251 

2253 

2255 

2257 

im 

2279 

2281 

2284 

2286 

2288 

2308 

2310 

2312 

2314 

2317 

2319 

2339 

2341 

2343 

2345 

2347 

2350 

2369 

2374 

2379 

413 

415 

421 

427 

1059 

1061 

1626 

1634 

1816 

1818 

1824 

1832 

179* 

179 

181* 

181 

184* 

184 

195* 

195 

288* 

288 

290* 

290 

303* 

303 

305* 

305 

310* 

310 

320* 

320 

325* 

325 

327* 

527 

340* 

340 

342* 

342 

344* 

544 

593* 

593 

595* 

595 

597* 

597 

607* 

607 

609* 

609 

611* 

611 

624* 

624 

626* 

626 

628* 

628 

638* 

638 

640* 

640 

642* 

642 

655* 

655 

657* 

657 

659* 

659 

669* 

669 

674* 

674 

676* 

676 

r 


SEQ  1384 


._J 


£Q0 


Lai.M 


AQ/. 


AflAir 


AAA 


kMU 


ARR 


MOIt 


690 


0  1372 


678# 

692# 

709# 

723# 

7A0# 

757# 

771  # 

788# 

802# 

81 9# 

836# 

850# 

867# 

88U 

898# 

91 2# 

929* 

9A6# 

960* 

077# 

991* 

1008# 

1115* 

1129# 

1U3# 

1157# 

1171* 

1186* 

1200* 

12U* 

1228* 

12A2* 

1257* 

1271* 

1285* 

1299* 

1314* 

1328* 

1342* 

1356* 

1370* 

1477* 

1491* 

1505* 

1519* 

1533* 

1547* 

1561* 

1576* 

1682* 

1696* 

1710* 

1724* 


678 

692 

709 

723 

740 

757 

771 

788 

802 

819 

836 

850 

867 

881 

898 

912 

929 

946 

960 

977 

991 

1008 

1115 

1129 

1143 

1157 

1171 

1186 

1200 

1214 

1228 

1242 

1257 

!271 

1285 

1299 

1314 

1328 

1342 

1356 

1370 

1477 

1491 

1505 

1519 

1533 

1547 

1561 

1576 

1682 

1696 

1710 

1724 


680* 

680 

694* 

694 

711* 

711 

728* 

728 

742* 

742 

759* 

759 

773* 

773 

790* 

790 

804* 

804 

821* 

821 

838* 

838 

852* 

852 

869* 

869 

883* 

883 

900* 

900 

917* 

917 

931* 

931 

948* 

948 

962* 

962 

979* 

979 

993* 

993 

1010* 

1010 

1117* 

1117 

1131* 

1131 

1145* 

1145 

1159* 

1159 

1173* 

1173 

1188* 

1188 

1202* 

1202 

1216* 

1216 

1230* 

1230 

1244* 

1244 

1259* 

1259 

1273* 

1273 

1287* 

1287 

1301* 

1301 

1316* 

1316 

1330* 

1330 

1344* 

1344 

1358* 

1358 

1372* 

1372 

1479* 

1479 

1493* 

1493 

1507* 

1507 

1521* 

1521 

1535* 

1535 

1549* 

1549 

1563* 

1563 

1578* 

1578 

1684* 

1684 

1698* 

1698 

1712* 

1712 

1726* 

1726 

682* 

696* 

713* 

730* 

744* 

761* 

775* 

792* 

809* 

823* 

840* 

854* 

871* 

885* 

902* 

919* 

933* 

950* 

964* 

981* 

998* 

1012* 

1119* 

1133* 

1147* 

1161* 

1175* 

1190* 

1204* 

1215* 

':^32* 

1247* 

1261* 

1275* 

1289* 

1303* 

1318* 

1332* 

1346* 

1360* 

1374* 

1481* 

1495* 

1509* 

1523* 

1537* 

1551* 

1565* 

1672* 

1686* 

1700* 

1714* 

1728* 


682 

684* 

684 

696 

701* 

701 

713 

715* 

715 

730 

732* 

712 

744 

746* 
763* 

7^6 

761 

763 

775 

777lt 

77/ 

792 

794* 

794 

809 

811* 

811 

823 

825* 

825 

840 

842* 

842 

854 

856* 

856 

871 

873* 

873 

885 

890* 

890 

902 

904* 

904 

919 

921* 

921 

933 

935* 

935 

950 

952* 

952 

964 

%6ft 

966 

981 

983* 

983 

998 

1000* 

1000 

1012 

1014* 

1014 

1119 

1121* 

1121 

1133 

1135* 

1135 

1147 

1149* 

1149 

1161 

1163* 

1163 

1V5 

1177* 

1177 

1190 

1192* 

1192 

1204 

1206* 

1206 

1218 

1220* 

1220 

1232 

1234* 

1234 

1247 

1249* 

1249 

1261 

1263* 

1263 

1275 

MllH 

1277 

1289 

1291* 

1291 

1303 

1305* 

1305 

1318 

1320* 

1320 

1332 

1334* 

1334 

1346 

1348* 

1348 

1360 

1362* 

1562 

1374 

1377* 

1377 

1481 

1483* 

1483 

1495 

1497* 

1497 

1509 

1511* 

1511 

1523 

1525* 

1525 

1537 

1539* 

1539 

1551 

1553* 

1553 

1565 

1567* 

1567 

1672 

y  titbit 

1674 

1686 

1688* 

1688 

1700 

1702* 

1702 

1714 

1716* 

1716 

1728 

1730* 

1730 

686* 

703* 

717* 

734* 

748* 

765* 

782* 

796* 

813* 

827* 

844* 

858* 

875* 

892* 

906* 

923* 

937* 

954* 

971* 

985* 

1002* 

1016* 

1123* 

1137* 

1151* 

1165* 

1179* 

1194* 

1208* 

1222* 

1236* 

1251* 

1265* 

1279* 

1293* 

1307* 

1322* 

1336* 

1350* 

1364* 

1379* 

1485* 

1499* 

1513* 

1527* 

1541* 

1555* 

1569* 

1676* 

1690* 

1704* 

1718* 

1732* 


686 

703 

717 

734 

748 

765 

782 

796 

813 

827 

844 

858 

875 

892 

906 

923 

937 

954 

971 

985 

1002 

1016 

1123 

1137 

1151 

1165 

1179 

1194 

1208 

1222 

1236 

1251 

1265 

1279 

1293 

1307 

1322 

1336 

1350 

1364 

1379 

1485 

1499 

1513 

1527 

1541 

1:55 

1569 

1676 

1690 

1704 

1718 

1732 


688* 

705* 

719* 

736* 

750* 

767* 

784* 

798* 

815* 

829* 

846* 

863* 

877* 

894* 

908* 

925* 

939* 

956* 

973* 

987* 

1004* 

1018* 

1125* 

1139* 

1153* 

1167* 

1182* 

1196* 

1210* 

1224* 

1238* 

1253* 

1267* 

1281* 

1295* 

1309* 

1324* 

1338* 

1352* 

1366* 

1473* 

1487* 

1501* 

1515* 

1529* 

1543* 

1557* 

1571* 

1678* 

1692* 

1706* 

1720* 

1734* 


688 

705 

719 

736 

750 

767 

784 

798 

815 

829 

846 

863 

877 

894 

908 

925 

939 

956 

973 

987 

1004 

1018 

1125 

1139 

1153 

1167 

1182 

1196 

1210 

1224 

1238 

1253 

1267 

1281 

1295 

1309 

1324 

1338 

1352 

1366 

1473 

1487 

1501 

1515 

1529 

1543 

1557 

1571 

1678 

1692 

1706 

1720 

1734 


690* 

690 

707* 

707 

721* 

72^ 

738* 

738 

755* 

755 

769* 

769 

786* 

786 

800* 

800 

817* 

817 

831* 

831 

848* 

848 

865* 

865 

879* 

879 

896* 

896 

910* 

910 

927* 

927 

944* 

944 

958* 

958 

975* 

975 

989* 

989 

1006* 

1006 

1020* 

1020 

1127* 

1127 

1141* 

1141 

1155* 

1155 

1169* 

1169 

1184* 

1184 

1198* 

1198 

1212* 

1212 

1226* 

1226 

1240* 

1240 

1255* 

1255 

1269* 

1269 

1283* 

1283 

1297* 

1297 

1312* 

1312 

1326* 

1326 

1340* 

1340 

1354* 

1354 

1368* 

1368 

1475* 

1475 

1489* 

1489 

1503* 

1503 

1517* 

1517 

1531* 

1531 

1545* 

1545 

1559* 

1559 

1573* 

1573 

1680* 

1680 

1694* 

1694 

1708* 

1708 

1722* 

1722 

1736* 

1736 

r 


SEQ  1385 


DFP 
DFP 


i7/.n 


17/.  5* 


^7L■3 


MLLM 


yiLL 


MLhtt       MLh         1748*   1748    1750*   1750 


DFC 


L 


Q  1373 


nuORD 


1738# 
1752# 
1766# 
1872# 
1886# 
1900# 
19U# 
1928# 
19A2# 
1956# 
1970# 
2056# 
2072# 
2088# 
2103# 
2119# 
2135# 
2151# 
2166* 
2182* 
2198# 
221 3# 
2229# 
224A# 
2259* 
2275* 
2290* 
2306* 
2321* 
2336* 
2352* 
2367* 
170 
295 
329 
599 
630 
661 
692 
723 
757 
788 
819 
850 
881 
912 
9A6 
977 
1008 
1129 
1157 
1186 
12U 


1738 

1740* 

1752 

1754* 

1766 

1768* 

1872 

1874* 

1886 

1888* 

1900 

1902* 

19U 

1916* 

1928 

1930* 

19A2 

1944* 

1956 

1958* 

1970 

1973* 

2056 

2058* 

2072 

2074* 

2088 

2090* 

2103 

2106* 

2119 

2121* 

2135 

2137* 

2151 

2153* 

2166 

2169* 

2182 

2184* 

2198 

2200* 

2213 

2215* 

2229 

2231* 

224A 

2246* 

2259 

2262* 

2275 

2277* 

2290 

2292* 

2306 

2308* 

2321 

2323* 

2336 

2339* 

2352 

2354* 

2367 

2369* 

172 

174 

297 

299 

331 

333 

601 

603 

632 

634 

663 

665 

69A 

696 

728 

730 

759 

761 

790 

792 

821 

823 

852 

854 

883 

885 

917 

919 

948 

950 

979 

981 

1010 

1012 

1131 

1133 

1159 

1161 

1188 

1190 

1216 

1218 

1740 

1742* 

1742 

1744* 

1754 

1756* 

1756 

1758* 

1768 

1770* 

1770 

1772* 

1874 

1876* 

1876 

1878* 

1888 

1890* 

1890 

1892* 

1902 

1904* 

1904 

1906* 

1916 

1918* 

1918 

1920* 

1930 

1932* 

1932 

1934* 

1944 

1946* 

1946 

1948* 

1958 

1960* 

1960 

1962* 

1973 

2045* 

2045 

2047* 

2058 

2061* 

2061 

2063* 

2074 

2076* 

2076 

2079* 

2090 

2092* 

2092 

2094* 

2106 

2108* 

2108 

2110* 

2121 

2124* 

2124 

2126* 

2137 

2139* 

2139 

2142* 

2153 

2155* 

2155 

2157* 

2169 

2171* 

2171 

2173* 

2184 

2187* 

2187 

2189* 

2200 

2202* 

2202 

2204* 

2215 

2218* 

2218 

2220* 

2231 

2233* 

2233 

2235* 

2246 

2248* 

2248 

2251* 

2262 

2264* 

2264 

2266* 

ini 

2279* 

2279 

2281* 

2292 

2295* 

2295 

2297* 

2308 

2310* 

2310 

2312* 

2323 

2325* 

2325 

2328* 

2339 

2341* 

2341 

23^3* 

2354 

2356* 

2356 

2358* 

2369 

2374* 

2374 

2379* 

177 

179 

181 

184 

301 

303 

305 

310 

335 

:40 

342 

344 

605 

607 

609 

6U 

636 

638 

640 

642 

667 

669 

674 

676 

701 

??l 

705 

707 

732 

736 

738 

763 

765 

767 

769 

794 

796 

798 

800 

825 

827 

829 

831 

856 

858 

863 

865 

890 

892 

894 

896 

923 

925 

927 

952 

954 

956 

958 

983 

985 

987 

989 

1014 

1016 

1018 

1020 

1135 

1137 

1139 

1141 

1163 

1165 

1167 

1169 

1192 

1194 

1196 

1198 

1220 

1222 

1224 

1226 

1744 
1758 
1772 
1878 
1892 
1906 
1920 
1934 
1948 
1962 
2047 
2063 
2079 
2094 
2110 
2126 
2142 
2157 
2173 
2189 
2204 
2220 
2235 
2251 
2266 
2281 
2297 
2312 
2328 
2343 
2358 
2379 
186 

3i: 

346 

613 

647 

678 

709 

740 

771 

802 

836 

867 

898 

929 

960 

991 

1115 

1143 

1171 

1200 

1228 


1746* 
1760* 
1775* 
1880* 
1894* 
1908* 
1922* 
1936* 
1950* 
1964* 
2050* 
2065* 
2081* 
2097* 
2112* 
2128* 
2144* 
2160* 
2175* 
2191* 
2207* 
2222n 
2237* 
2253* 
2268* 
2284* 
2299* 
2314* 
2330* 
2345* 
2361* 

188 

314 

348 

615 

649 

680 

711 

742 

773 

804 

838 

869 

900 

931 

962 

993 

1117 

1145 

1173 

1202 

1230 


1746 

1748* 

1748 

1750* 

1750 

1760 

1762* 

1762 

1764* 

1764 

1775 

1777* 

Mil 

1870* 

1870 

1880 

1882* 

1882 

1884* 

1884 

1894 

1896* 

1896 

1898* 

1898 

1908 

1910* 

1910 

1912* 

1912 

1922 

1924* 

1924 

1926* 

1926 

1936 

1938* 

1938 

1940* 

1940 

1950 

1952* 

1952 

1954* 

1954 

1964 

1966* 

1966 

1968* 

1968 

2050 

2052* 

2052 

2054* 

2054 

2065 

2067* 

2067 

2070* 

2070 

2081 

2083* 

2083 

2085* 

2085 

2097 

2099* 

2099 

2101* 

2101 

2112 

2115* 

2115 

2117* 

2117 

2128 

2130* 

2130 

2133* 

2133 

2144 

2146* 

2146 

2148* 

2148 

2160 

2162* 

2162 

2164* 

2164 

2175 

2178* 

2178 

2180* 

2180 

2191 

2193* 

2193 

2196* 

2196 

2207 

2209* 

2209 

2211* 

2211 

2222 

2224* 

2224 

2226* 

2226 

2237 

2240* 

2240 

2242* 

^l^l 

2253 

2255* 

2255 

2257* 

2257 

2268 

2270* 

2270 

2273* 

2273 

2284 

2286* 

2286 

2288* 

2288 

2299 

2301* 

2301 

2303* 

2303 

2314 

2317* 

2317 

2319* 

2319 

2330 

2332* 

2332 

2334* 

2334 

2345 

2347* 

2347 

2350* 

2350 

2361 

2363* 

2363 

2365* 

2365 

191 

193 

195 

288 

290 

316 

318 

320 

325 

327 

350 

353 

593 

595 

597 

620 

622 

624 

626 

628 

651 

653 

655 

657 

659 

682 

684 

686 

688 

690 

713 

715 

717 

719 

721 

744 

746 

748 

750 

755 

775 

711 

782 

784 

786 

809 

111 

813 

815 

817 

840 

142 

844 

846 

848 

871 

J73 

875 

877 

879 

902 

904 

906 

908 

910 

933 

935 

937 

939 

944 

964 

%6 

971 

973 

975 

998 

1000 

1002 

1004 

1006 

1119 

1121 

1123 

1125 

1127 

1147 

1149 

1151 

1153 

1155 

1175 

1177 

1179 

1182 

1184 

1204 

1206 

1208 

1210 

1212 

1232 

1234 

1236 

1238 

1240 

SEQ  1386 


ncc  nc7  10CQ  10A1  13/.7  13A«;  1?A7  1?M 


I 


EQ  1374 


PNThU 
PNTMSG 
PNTOCS 
RTN 

SCOPER 

TMSG 

TMSGC 


12A2 

1271 

1299 

1328 

1356 

K77 

1505 

1533 

1561 

1682 

1710 

1738 

1766 

1886 

19U 

19A2 

1970 

2072 

2103 

2135 

2166 

2198 

2229 

2259 

2290 

2321 

2352 

283 

278 

585 

90 

1062 

108 

586 

m 


124A 
1273 
1301 
1330 
1358 
1A79 
1507 
1535 
1563 
168A 
1712 
1740 
1768 
1888 
1916 
19AA 
1973 
2074 
2106 
2137 
2169 
2200 
2231 
2262 
2292 
2323 
2354 
1108 
281 

115 

1093 

262 

280 


1247 
1275 
1303 
1332 
1360 
1481 
1509 
1537 
1565 
1686 
1714 
1742 
1770 
1890 
1918 
1946 
2045 
2076 
2108 
2139 
2171 
2202 
2233 
2264 
2295 
2325 
2356 
1466 
583 

134 

1111 

434 

583 


1249 
1277 
1305 
1334 
1362 
1483 
1511 
1539 
1567 
1688 
1716 
1744 
1772 
1892 
1920 
1948 
2047 
2079 
2110 
2142 
2173 
2204 
2235 
2266 
2297 
2328 
2358 
1667 
586 

140 
1420 
1087 


1251 

1279 

1307 

1336 

1364 

1485 

1513 

1541 

1569 

1690 

1718 

1746 

1775 

1894 

1922 

1950 

2050 

2081 

2112 

2144 

2175 

2207 

2237 

2268 

2299 

2330 

2361 

1865 

1103 

161 
1451 
1445 


1253 

1281 

1309 

1338 

1366 

1487 

1515 

1543 

1571 

1692 

1720 

1748 

1777 

1896 

1924 

1952 

2052 

2083 

2115 

2146 

2178 

2209 

2240 

2270 

2301 

2332 

2363 

1106 

238 
1469 
1646 


1255 
1283 
1312 
1340 
1368 
1489 
1517 
1545 
1573 
1694 
1722 
1750 
1870 
1898 
1926 
1954 
2054 
2085 
2117 
2148 
2180 
2211 
2242 
2273 
2303 
2334 
2365 


268 
1621 
1844 


1257 

1285 

1314 

1342 

1370 

1491 

1519 

1547 

1576 

1696 

1724 

1752 

1872 

1900 

1928 

1956 

2056 

2088 

2119 

2151 

2182 

2213 

2244 

2275 

2306 

2336 

2367 


284 
1652 
2030 


1259 
1287 
1316 
1344 
1372 
1493 
1521 
1549 
1578 
1698 
1726 
1754 
1874 
1902 
1930 
1958 
2058 
2090 
2121 
2153 
2184 
2215 
2246 

im 

2308 
2339 
2369 


416 
1668 


1261 

1263 

1289 

1291 

1318 

1320 

1346 

1348 

1374 

1377 

1495 

1497 

1523 

1525 

1551 

1553 

1672 

1674 

1700 

1702 

1728 

1730 

1756 

1758 

1876 

1878 

1904 

1906 

1932 

1934 

1960 

1962 

2061 

2063 

2092 

2094 

2124 

2126 

2155 

215/ 

2187 

2189 

2218 

2220 

2248 

2251 

2279 

2281 

2310 

2312 

2341 

2343 

2374 

2379 

1110    1461    1464    1468 


441 
1819 


1102    1105    1110    1460    1463    1468    1661 


458 
1850 


1664 


1265 
1293 
1322 
1350 
1379 
1499 
1527 
1555 
1676 
1704 
1732 
1760 
1880 
1908 
1936 
1964 
2065 
2097 
2128 
2160 
2191 
2122 
2253 
2284 
2314 
2345 


467 
1866 


1267 
1295 
1324 
1352 
1473 
1501 
1529 
1557 
1678 
1706 
1734 
1762 
1882 
1910 
1938 
1966 
2067 
2099 
2130 
2162 
2193 
2224 
2255 
2286 
2317 
2347 


488 
2012 


1859    1862 


1269 
1297 
1326 
1354 
1475 
1503 
1531 
1559 
1680 
1708 
1736 
1764 
1884 
1912 
1940 
1968 
2070 
2101 
2133 
2164 
2196 
2226 
2257 
2288 
2319 
2350 


SEQ  1387 


OFI 


1662    1665    1860    1863 


587 
2036 


L.. 


r' 


DFPTA8 
DFPTA8 

1 


^ 


10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 

21 

12 

23 

24 

25 

i6 
27 
28 

!l 
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|4 
55 

\ 

42 
43 
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MPROC  Module  Tests 


SEQ  1388 


DF 
IDF 


TITLE 
SUBTTL 

SALL 

SEARCH 

INTERN'S 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 


DFPTA8 

MPROC  Module  Tests 


0FPTA,MONSYM 


TSTU1  JSTU2JSTU3,TSTU4JSTU5,TSTU6.TSTU7,TSTU10 

TSTU1    JSTU12,TSTU13,TSTU14.TSTU15,TSTU16,TSTU17,TSTU20 

TSTU21   TSTU22  TSTU23,TSTU24.TSTU25.TSTU26,TSTU27,TSTU30 

TSTU31;tSTU32.TSTU33.TSTU34,TSTU35JSTU36.TSTU37.TSTU40 

TSTU41 


EXTERN's 

EXTERN     TSTE45,TSTC3,TSTC4 
EXTERN's   located   in  DFPTA1.MAC   (Mainline  code..) 

EXTERN     BUFF. TLOAD,CSRPNT, TRACE, TSTSUB,ODELAY.CBUF,UDEBUG 

EXTERN  tslodi.tsl6d2.caddr,cwordl,cwordr,drcram,ducram,parflg,calpar 

EXTERN  AEXEC,AAPNT.ALCSR,ALFLS.P0RTCI .PORTNI 
EXTERN  BEXEC,BBPNT,CEBUF,AEBUF 
EXTERN  TEXEC.TTPNT.TADDR,SEXEC.SSPNT 

EXTERN's  located  in  DFPTAI.MAC  (IPA20  Device  Handling  Routines  module) 

EXTERN  LDRAR.LDCRAM,LDCSR,RDEBUF,RDLAR,RDCRAM,RDCSR 
EXTERN  IPACLR.IPASST,SNEXT,SLAST,SDATA 
EXTERN  CHINIT.CHDATA.GENCCWJNITPI.SETVEC 

EXTERN's  located  in  DFPTAU.MAC  (Utility  Routines  module) 

EXTERN  BUFGEN.SCOSW 

4f*»*«**»**»***t»»******t****»»»*»***»*************** ********* ******** 

Z8  -  Address  for  use  in  DDT 
#»»******«»»•»♦•*»*♦•*»**•*••*•*****************•**♦***♦•************ 


000000' 


Z8: 


;  address  of  00000' 


f 


DFPTA8  MACRO  X53B(1242)  09:19  1-JuL-85  Page  2  ^  ,   ^ 
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SEQ  1389 


D 
Dl 


/^»*»«*»***»************t** ******♦*»•*»***•♦*♦********•** ************* 

*  TEST  1  -  CRAM  Data  Test  (RAR12=0) 

Descriptior.;  This  test  verifies  each  CRAM  location,  by  writing 
a  series  of  data  patterns  to  and  from  each  CRAW 
location. 

Procedure:    Port  Clear 

Select  address  to  write,  write  to  RAR 

Write  data  pattern  to  CRAM  (30  bits  wide) 

Read  CRAM,  verify  the  data 

Repeat  write/read  sequence  with  each  data  pattern 

Repeat  sequence  with  each  CRAM  location 

Data  Patterns:  zero's 
one's 

alternating  (52..) 
alternating  (25..) 
floating  one 
floating  zero 

Failure:     — 
#*«»**♦*»**•****»****«♦»♦**♦***•*************♦*******♦***♦*********** 


000000'  25A  00  0  00  000011' 

000001'  200A03  000001 

000002'  r  .>000  011166' 

000003'  011173'  011201' 

OOOOOA'  000000  0001 5A' 

000005'  000000  000230' 

000006'  000000  000305' 

000007'  000000  00040A' 

0000^0'  imii   mm 


00001 r  201  00  0  00  OOOOOO' 
000012*  260  17  0  00  OOOOOO* 
000013*  474  07  0  00  OOOOOO 


:  Test  data 
TSTU1 


;  go  start  test 
:  test 


mask 


TSTU2 
TSTU3 
TSTU4 
TSTU5 
-1 

;  Start  test 

TGI:    MOVE  I 
GO 
SETO 


JRST    TGI 

HPROCINDMPIZMPROCn  .  v 

CtASCIZ  *CRAM  Data  Test  RAR12=0*] 

[EXP  M10.M18.M19.MA.M16,MLAST!M17].,[EXP  MLASTIM1] 


28 

TRACE 

7. 


failure  test  table 


get  address  of  module  start 

handle  trace  output 

init  CRAM  address  register 
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SEQ  1390 


First  set  up  RAR  to  correct  address 


90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

1H 

115 

116 

117 

118 

119 

20 

21 

22 

23 

W 

2b 
27 
28 
?9 


OOOOK'  350  00  0  00  000007 

000015'  303  07  0  00  007777 

000016'  254  00  0  00  000050' 

000017'  332  00  0  00  000000* 


I? 


000020' 
000021 • 
000022' 
000023' 


254  00 
260  17 
200  01 
242  01 


000024'  202  01 
000025'  260  17 


00 
00 
00 
00 
00 
00 


011202' 

000000* 

000007 

000001 

011164' 

000000* 


000026' 
000027' 
000030' 
000031 ' 
000032' 


000033' 
000034' 
000035' 
000036' 
000037' 
000040' 
000041' 
000042' 
000043' 
000044 ' 
000045' 


400  06  0  00  000000 
200  01  0  06  000053' 
202  01  0  00  011162' 
306  01  0  00  000377 
254  00  0  00  000014' 


350 
400 
260 
260 
2ui 
312 
47'. 
027 
254 
254 
326 


00 
15 
17 
17 
01 
01 
15 
00 
00 
00 
15 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000* 

000000 

000000* 

000000* 

011163' 

011162' 

000000 

000051 ' 

000034 ' 

000050' 

000050' 


000046'  350  00  0  00  000006 
000047'  254  00  0  00  000027' 


000050'  263  17  0  00  000000 


TA1 


AOS 

CAILE 

JRST 

SKIPE 

JRST 


GO 

MOVE 

LSH 

MOVEM 

60 


7 

7.7777 

TX1 

UDEBUG 

[CAILE 

JRST 

JRST 
IPAC'.R 
1.7 

1/ 

1.SAVCRA 

.DRAR 


7,10 
TX1 


Next,  get  the  data  pattern  to  write 


TBI 


SETZ 

MOVE 

MOVEM 

CAIN 

JRST 


6, 

1.T1PAT(6) 
1,SAVCR1 
1.377 
TA1 


;  Now  write/read  the  location 
TB1L 


AOS 

SETZ 

GO 

GO 

MOVEM 

CAME 

SETO 

SCOPER 

JRST 

JRST 

JUMPN 


TSTSIJB 

ERFL6, 

LDCRAM 

RDCRAM 

1,SAVCR2 

1.SAVCR1 

ERFLG. 

MAI 

TB1L 

TX1 

ERFLG, TX1 


Increment  data  pattern  pointer 


point  to  next  CRAM  location 

done  yet? 

yes  -  exit 

debug  mode? 

yes  -  check  if  exit  early 


do  a  port  clear 

get  address 

include  bit  to  point  to  which  half 

save  CRAM  address 

write  it  to  RAR  register 


clear  bit  table  pointer 

get  pattern  to  write 

save  data 

end  of  table? 

yes  -  end  of  segment 


set  up  subtest  number 

clear  error  flag 

write  CRAM 

read  CRAM 

save  CRAM  data 

correct? 

no  -  flag  error 

print  error  message 

loop  on  error 

altmode  exit 

error?  yes  -  exit 


000051'  140000 
000052*  270000 


011205' 
011023' 


AOS    6 
JRST    TBI 

;  End  of  test 

TX1 :    RTN 

;  Error  messages 

MAI:    MSGITXNOTICASCIZ  *CRAM  write/read 
LAST!CALLITXALL!MPNT1 


point  to  next  data  pattern 
repeat  this  segment 


return 


failed.*] 

print  CRAM  da'a  correct/actual 
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SEQ  1391 


1A0 

HI 

1A2 

K3 

HA 

145 

1A6 

1A7 

1A8 

1A9 

150 

151 

152 

153 

15A 

155 

156 

157 

158 

159 

160 

161 

162 

163 

16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18A 

185 

186 

187 

188 

189 

190 

191 

192 


000053' 

00005A' 

000055' 

000056' 

000057' 

000060' 

000061 ' 

000062' 

000063' 

00006A' 

000065' 

000066' 

000067' 

000070' 

000071 ' 

000072' 

000073' 

00007A' 

000075' 

000076' 

000077' 

000100' 

000101' 

000102' 

000103' 

0001 OA' 

000105' 

000106' 

000107' 

000110' 

000111' 

000112' 

000113' 

00011A' 

000115' 

000116' 

000117' 

000120' 

000121' 

000122' 

000123' 

0001 2A' 

000125' 

000126' 

000127' 

000130' 

000131' 

000132' 

000133' 

0001 3A' 

000135' 

000136' 


OOOOQO 
007777 
005252 
002525 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oocooo 

000000 

000000 

000000 

000000 

000001 

000002 

OOOOOA 

000010 

000020 

GuJOAO 

000100 

000200 

OOOAOO 

001000 

002000 

OOAOOO 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 

007777 


000000 

777777 

525252 

252525 

000001 

000002 

OOOOOA 

000010 

000020 

OOOOAO 

000100 

000200 

OOOAOO 

001000 

002000 

OOAOOO 

010000 

020000 

OAOOOO 

100000 

200000 

AOOOOO 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

777776 

77777S 

777773 

777767 

777757 

777717 

777677 

777577 

777177 

776777 

775777 

771777 

767777 

757777 

717777 

677777 

577777 

177777 


;  Data  Patterns 

T1PAT:  EXP  0.7777777777.52525252^2.2525252525 

EXP  0000000001 . 0000000002 , OOOOOOOOOA 

EXP  0000000010, 0000000020, OOOOOOOOAO 

EXP  00000001 00 , 0000000200 , OOOOOOOAOO 

EXP  0000001 000, 0000002000, OOOOOOAOOO 

EXP  0000010000, 0000020000, OOOOOAOOOO 

EXP  00001 00000 , 0000200000 , OOOOAOOOOO 

EXP  0001000000,0002000000,0004000000 

EXP  0010000000, 0020000000, OOAOOOOOOO 

EXP  0100000000, 0200000000, OAOOOOOOOO 

EXP  1 000000000 , 2000000000 ,  AOOOOOOOOO 

EXP  7777777776. 7777777775. 777777777Z 

EXP  7777777767 .7777777757 .7777777717 

EXP  7777777677 .7777777577  .7777777177 

EXP  7777776777 .7777775777 .7777771777 

EXP  7777767777 .7777757777 .7777717777 

EXP  7777677777 .7777577777 .7777177777 


579 


) 


PrPTAS 
0FPTA8 

193 
19A 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
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SEQ  1392 


000137' 
OOOUO' 
000141 • 
000142' 
000143' 
000144' 
000145' 
000146' 
000147' 
000150' 
000151' 
000152' 
000153' 


007776 
007775 
007773 
007767 
007757 
007737 
007677 
007577 
007377 
006777 
005777 
003777 
000000 


miri 

777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
000377 


EXP 
EXP 
EXP 
EXP 
EXP 


7776777777 ,7775777777 .7771777777 


7767777777 .7757777777 .7717777777 


7677777777 .7577777777 .7177777777 


6777777777.5777777777,1777777777 


377 


;  table  terminator 


580 
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SEQ  1393 


206 

207 

208 

209 

210 

211 

212 

213 

21 A 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23A 

235 

236 

237 

238 

239 

2A0 

2A1 

2A2 

243 

2AA 

2A5 

2A6 

21^7 


/If************* ********** ********************************************* 
*  TEST  2  -  CRAM  Test  (R'\R12=1) 


Descriptiori: 


Procedure: 


This  test  verifies  each  CRAM  location,  by  wntina 
a  series  of  data  patterns  to  and  from  each  CRAW 
location. 

Port  Clear 

Select  address  to  write,  write  to  RAR 

Write  data  pattern  to  CRAM  (30  bits  wide) 

Read  CRAM,  verify  the  data 

Repeat  write/read  sequence  with  each  data  pattern 

Repeat  sequence  with  each  CRAM  location 

Data  Patterns:  zero's 
one's 

alternating  (52..) 
alternating  (25..) 
floating  one 
floating  zero 

Failure:     — 

#********************************♦****************♦♦****************♦ 


0001 5A' 
000155' 
000156' 
000157' 
000160' 
000161' 
000162' 
000163' 


25A  00 

200403 

GuJOOO 

011217' 

000000 

000000 

000000 


0  00  000164' 
000002 
011212' 
011201' 
000230' 
000305' 
000404' 
Villi 


Test  data 
TSTU2 


;  go  start  test 
;  test 


mask 


000164'  201  00 
000165'  260  17 
000166'  474  07 


00  000000' 
00  000012* 
00  000000 


TSTU3 
TSTU4 
TSTU5 
-1 

;  Start  test 

TG2:    MOVE I 
60 
SETO 


JRST    T62 

MPR0CINDMPIZMPR0CI2         ,^  .  ^ 

0^,[ASCIZ  "CRAM  Data  Test  RAR12=r]         ,„,^ 

{.it?   M10,M17,M19,M4,M16,MLAST!M18],,CEXP  MLASTIM1] 


failure  test  table 


Z8 

TRACE 
7, 


get  address  of  module  start 

nandle  trace  output 

init  CRAM  address  register 


. -.:j 


r~ 
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SEQ  139^ 


r' 


DFPTAS 
DFPTA8 

2A8 
2A9 

2*^0 

\V2 

253 

25A 

255 

256 

257 

258 

259 

260 

261 

262 

263 

26A 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 
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SEQ  139^ 


000167'  350  00  0  00  000007 

000170'  303  07  0  00  007777 

000171'  254  00  0  00  000225' 

000172'  332  00  0  00  000017* 


000173' 
000174' 
000175' 
000176' 
000177' 
000200' 
000201 • 


00 
00 


0  00 


254  00 
260  17 
200  01 
242  01 
350  00 
202  01  0  00 
260  17  0  00 


00 
00 


011225' 

000021  * 

000007 

000001 

000001 

011164' 

000025* 


000202'  400  06 

000203'  200  01 

000204'  202  01 

000205'  306  01 

000206'  254  00 


00  000000 
06  000053' 
00  011162* 
00  000377 
00  000167' 


000207' 
000210' 
00021 1 ' 
000212' 
000213' 
000214' 
000215' 
000216' 
000217' 
000220' 
000221' 
000222' 


350 
400 
260 
2d.' 
260 
?<J2 
312 
474 
027 
254 
254 
326 


00 
15 
17 
17 
17 
01 
01 
15 
00 
00 
00 
15 


0  00 
0  00 
0  00 
0  00 
0  00 


00 
00 


0  00 
0  00 
0  00 
0  00 
0  00 


000033* 

000000 

000035* 

000211* 

000036* 

011163' 

011162' 

000000 

000226' 

000210' 

000225' 

000225' 


000223'  350  00  0  00  000006 
000224'  254  00  0  00  000203' 


000225'  263  17  0  00  000000 


000226'  140000 
000227'  270000 


011205' 
011023' 


;  First  set  up  RAR  to  correct  address 
TA2: 


AGS 

CAILE 

JRST 

SKIPE 

JRST 


GO 

MOVE 

LSH 

AOS 

MOVEM 

60 


7 

7.7777 
TX2 

UDEBUG 
CCAILE 

JRST 

JRST 
IPACLR 
1.7 

V 

1.SAVCRA 
LDRAR 


7,10 

TX2 

.♦1] 


;  Next,  get  the  data  pattern  to  write 
TB2. 


SETZ 

MOVE 

MOVEM 

CAIN 

JRST 


6. 

1,T1PAT(6) 

1,SAVCR1 

1,377 

TA2 


;  Now  write/read  the  location 
TB2L: 


AOS 

SETZ 

GO 

GO 

GO 

MOVEM 

CAME 

SEVO 

SCOPER 

JRST 

JRST 

JUMPN 


TSTSUB 

ERFLG, 

LDCRAM 

LDCRAM 

RDCRAM 

1,SAVCR2 

1,SAVCR1 

ERFLG, 

MA2 

TB2L 

TX2 

ERFLG, TX2 


;  Increment  data  pattern  pointer 

AOS    6 
JRST    TB2 

;  End  of  test 

TX2:    RTN  ; 

;  Error  messages 

MA2: 


return 


point  to  next  CRAM  Location 

done  yet? 

yes  -  exit 

debug  mode? 

yes  -  check  if  exit  early 


do  a  port  c lear 

get  address  . .  .  ^  , ^ 

include  bit  to  point  to  which  half 

point  to  right  naif 

save  CRAM  address 

write  it  to  RAR  register 


clear  bit  table  pointer 

get  pattern  to  write 

save  data 

end  of  table? 

yes  -  end  of  segment 


set  up  subtest  number 
clear  error  flag 
write  CRAM 
write  CRAM 
read  CRAM 
save  CRAM  data 
correct? 
no  -  flag  srror 
print  error  message 
loop  on  error 
altmode  exit 
error?  yes  -  exit 


point  to  next  data  pattern 
repeat  this  segment 


MSGITXNOTICASCIZ  *CRAM  write/read 
LAST! CALL ITXALLIMPNTI  ; 


failed.*] 

print  CRAM  data  correct/actual 
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SEQ  1395 


DFPTA8 
DFPTA8 

i        301 
I        302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
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SEQ  1395 


♦  TEST  3  -  CRAM  Addressing  Test 


Descn'ptior, 


Procedure: 


This  test  verifies  CRAM  address  selection  by 
writing  an  address  pattern  to  each  location,  then 
reading  each  location  and  verifying  the  address 
pattern  read  back  is  correct. 


Port  Clear 

For  addr  Q'7777: 


For  addr  ^-7777: 


Write  RAR  (left  half  of  CRAM) 
Write  30  bit  address  pattern 
Write  RAR  (right  half  of  CRAM) 
Write  complement  of  pattern 
Write  RAR  (left  half  of  CRAM) 
Read  30  bit  address  pattern 


Verify  contents 
Write  RAR  (right 
Verify  contents 


half  of  CRAM) 


00023C' 
000231 • 
000232' 
000233* 
000234' 
000235' 
000236' 


254  00 

200403 

000000 

011235' 

000000 

GuJOOO 

777777 


0  00  000237' 
000003 
011230' 
011236' 
000305' 
000404' 
777777 


Failure:     — 
f» »»*♦••»«***♦♦»**♦**♦♦♦♦♦♦*♦**♦♦••«*•♦*****♦***•*•***♦****♦♦♦*•****• 

Test  data 

TSTU3:  JRST    TG3  ;  go  start  test 

MPR0C1NDMP1ZMPR0C!3  ;  test  mask 

0..CASCIZ  "CRAM  Addressing  TesfJ 
CEXP  MLAST!M4J,,CEXP  Ml6.M10.Ml7.M18tMLAST!M19] 


TSTU4 
TSTU5 
-1 

;  Start  test 


000237'  201  00  0  00  OOCOOO' 
00024C'  260  17  0  00  000165* 


000241'  400  15  0  00  000000 
000242'  260  17  0  00  000174* 
000243'  402  00  0  00  000207* 


TG3: 


MOVE  I 
60 


n 

TRACE 


;  Test  initialization 

TA3:  SETZ  ERFIG, 
GO  IPACLR 
SETZM   TSTSU8 


;  failure  test  table 


;  get  address  of  module  start 
;  handle  trace  output 


;  clear  error  flag 

;  do  a  port  clear 

;  initialize  subtest  number 
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SEQ  1396 


0FPTA8 
DFPTA8 

3AA 
3A5 
346 

3A8 

3A9 

350 

351 

352 

353 

35A 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

38' 

385 

386 

387 

388 
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SEQ  1396 


000244' 
000245' 
000246' 
000247' 
000250' 
000251 ' 
000252' 
000253' 
000254' 
000255' 
000256' 
1^^0257' 


000260' 

000261 ' 

000262' 

000263' 

000264' 

000265' 

000266' 

000267' 

000270' 

000271 ' 

000272' 

00027?- 

000274 

000275- 

000276' 

000277' 

000300' 

000301 ' 


400  07 
200  01 
242  01 
260  17 
260  17 
350  00 
260  17 
450  01 
260  ^ 
350  00 


0 
0 
0 
0 
0 
0 
G 
0 
17  0 


307  07  0 
254  00  0 


00  000000 
00  000007 
00  000001 
00  000201* 
00  000212* 
00  000001 
00  000247* 
00  000001 
00  000250* 
00  000007 
00  007777 
00  000245' 


400  07 
350  00 
200  01 
242  01 
202  01 
202  01 
260  17 
260  17 
202  01 
312  01 


00 
00 
00 
00 


000000 
000243* 
000007 
000001 


00  011164' 


00 
00 


011162' 
000252* 


00  000213* 


474  15  0 
027  00  0 


c:>-  00 
254  00 
326  15 
350  00 
307  07 
254  00  0 


00 
00 
00 
00 
00 

00 
00 
00 
00 


011163' 

011162' 

000000 

000303' 

000241 ' 

000302' 

000302' 

000007 

007777 

000261 ' 


000302'  263  17  0  00  000000 


000303'  140000 
000304'  270000 


011243' 
011023' 


First  write  the  address  pattern  to  all  locations 


TB3: 


SET7 

MOVE 

LSH 

GO 

GO 

AGS 

GO 

SETCA 

GO 

AOS 

CAI6 

JRST 


l6rar 

LDCRAM 

1 

LDRAR 

1J 

LDCRAM 

7 

7,7777 

TB3 


start  at  location  0 

get  address 

include  bit  to  point  to  which 

write  it  to  RAR  register 

write  it  to  CRAM  (Left  half) 

point  to  right  half 

write  it  to  RAR  register 

complement  it 

write  it  to  CRAM  (Right  half) 

point  to  next  CRAM  location 

done  yet? 

no  -  continue 


half 


DFPT 
DF?T 

9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


Next  read  all  locations  and  verify  the  result 


SETZ 
TC3:    AOS 
MOVE 
LSH 
MOVEM 
MOVEM 
GO 
GO 

MOVEM 
CAME 
SETO 
SCOPER 
JRST 
JRST 
JUMPN 
AOS 
CAIG 
JRST 

;  End  of  test 

TX3:    RTN 

;  Error  messages 

MA3: 


7, 

rSTSUB 

1.7 

1.1 

1,SAVCRA 

1.SAVCR1 

LDRAR 

RDCRAM 

1.SAVCR2 

1.SAVCR1 

ERFL6. 

MA3 

TA3 

TX3 

ERFL6.TX3 

7 

7.7777 

TC3 


0 


to  which  half 


start  at  location 

set  up  subtest 

get  address 

include  bit  to  point 

save  CRAM  address 

save  CRAM  data  (correct) 

write  it  to  RAR  register 

read  the  contents  of  this  location 

save  CRAM  data  (actual) 

correct? 

no  -  flag  error 

print  error  message 

loop  on  error 

altmode  exit 

error?  yes  -  exit 

point  to  next  CRAM  location 

done  yet? 

no  -  continue 


;  return 


MSG.'TXNOTICASCIZ  *CRAM 
LASTICALLITXALLIMPNTI 


data 


incorrect*] 
;  print 


CRAM  data  correct/actual 


L 
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ccn   1707 


DFP' 


L. 


r" 


DFPTA8 
DFPTA8 

389 

390 

391 

392 

393 

39A 

395 

396 

397 

398 

399 

AOO 

401 

A02 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 
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._J 


SEQ  1397 


DFPl 
DFP1 


000305'  254  00  0  00  000313' 

000306'  210403  000004 

000307'  OuJOOO  011247' 

000310'  011256'  011235' 

000311'  000000  000404' 

000312'  777777    777777 


000313'  201  00  0  00  000000' 
000314'  260  17  0  00  000240* 


000315'  260  17  0  00  000242* 

000316'  201  01  0  00  040000 

000317'  260  17  0  00  000000* 

000320'  400  07  0  00  000000 


#•♦*«*•*••**»»»**»********♦♦****♦*******♦**************************** 
*  TEST  4  -  RAR/LAR  Data  Path  Test  -  LDCRAM 

Description:  This  test  verifies  that  the  LAR  is  loaded  with 
the  contents  of  the  RAR  whenever  a  CRAM  location 
is  written.  This  test  verifies  the  data  path 
over  the  MBUS  to  the  RAR  to  the  LAR  and  back  over 
the  MBUS. 

Procedure:    Port  Clear 

Select  address  to  write 

Write  to  RAR  (Left  half) 

Write  data  to  CRAM 

Read  LAR 

Verify  that  the  address  read  is  correct 

Write  to  RAR  (right  half) 

Write  data  to  CRAM 

Read  LAR 

Verify  that  the  address  read  is  correct 

Repeat  sequence  with  each  CRAM  location 

Failure: 

#**♦******•***********♦♦♦♦♦*♦***************************♦************ 


Test  data 
TSTU4:  JRST 


TG4 


;  go  start  test 
MPROC! MBUS !NDMP!ZMPROC! 4       ;  test  mask^ 
0..CASCI2  *RAR/LAR  Data  Path  Test  -  LDCRAM*] 
[EXP  M9,MLAST!M16],.[EXP  MLAST1M4]   .. 
TSTU5  ;  failure  test  table 

"•1  •  • .  • 


get  address  of  module  start 
handle  trace  output 


;  Start 

test 

TG4: 

MOVE  I 
GO 

Z8 

TRACE 

;  Test 

initialization 

TA4: 

GO 

MOVE  I 
GO 
SETZ 

IPACLR 

,SELLAR 
LDCSR 
1 « 

do  a  port  clear 
set  this  bit 
write  CSR  register 
start  at  Location  0 


ncDTAfl     MAfon  tti^R^^:>LO'i    nO:1Q     1-.liil-R5   Paap   10 


«^ip«     4-vrto 


DFP 


1385 
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SEO  1398 


DFI 
DFI 


A35 
A36 
A37 
A38 

;  Write  address 

,  read  LAR, 

verify  result 

000321 ' 

400  15  0  00  000000 

TB4: 

SETZ 

ERFL6. 

A39 

000322' 

200  01  0  00  000007 

MOVE 

]'? 

AAO 

000323' 

242  01  0  00  000001 

LSH 

1,1 

4A1 

000324' 

202  01  0  00  011162* 

MOVEM 

1,SAVCR1 

4A2 

000325* 

202  01  0  00  000261* 

MOVEM 

1,TSTSUB 

4A3 

000326' 

350  00  0  00  000325* 

AGS 

TSTSU8 

4A4 

000327' 

260  17  0  00  000266* 

GO 

LDRAR 

AA5 

000330* 

450  01  0  00  000001 

SETCA 

1,1 

446 

000331 ' 

260  17  '^  00  000254* 

GO 

LDCRAM 

447 

000332' 

260  17  J  00  000000* 

GO 

RDLAR 

448 

000333' 

202  01  0  00  011163* 

MOVFM 

1.SAVCR2 

449 

000334' 

312  01  0  00  011162* 

(  ^E 

1.SAVCR1 

450 

000335' 

474  15  0  00  000000 

stro 

ERFLG, 

451 

000336' 

027  00  0  00  000370* 

SCOPER 

MA4 

452 

000337* 

254  00  0  00  000321  * 

JRST 

TB4 

453 

000340* 

254  00  0  00  000367* 

JRST 

TX4 

454 

000341 ' 

326  15  0  00  000367* 

JUMPN 

ERFLG. TX4 

455 
456 
457 
458 

;  Write 

address 

,  read  LAR, 

verify  result 

000342' 

400  15  0  00  000000 

TC4: 

SETZ 

ERFLG, 

459 

000343' 

200  01  0  00  000007 

MOVE 

]'? 

460 

000344' 

242  01  0  00  000001 

LSH 

U 

461 

000345' 

350  00  0  00  000001 

AGS 

1 

462 

000346' 

202  01  0  00  011162' 

MOVEM 

1,SAVCR1 

463 

000347* 

202  01  0  00  000326* 

MGVEM 

1,TSTSUB 

464 

000350' 

350  00  0  00  000347* 

AGS 

TSTSUB 

465 

000351 ' 

2oJ  17  0  00  000327* 

GG 

LDRAR 

466 

000352* 

450  01  0  00  000001 

SETCA 

U 

467 

000353* 

260  17  0  00  000331* 

GO 

LDCRAM 

468 

000354' 

260  17  0  00  000332* 

GG 

RDLAR 

469 

000355* 

202  01  0  00  011163' 

MGVEM 

1,SAVCR2 

470 

000356' 

312  01  0  00  011162' 

CAME 

1,<^AVCR1 

471 

000357* 

474  15  0  00  000000 

SETO 

EF  G, 

472 

000360* 

027  00  0  00  000370' 

SCOPER 

MAh 

473 

000361  * 

254  00  0  00  000342' 

JRST 

TC4 

474 

000362' 

254  00  0  00  000367* 

JRST 

TX4 

475 

000363' 

326  15  0  00  000367* 

JUMPN 

ERFLG, TX4 

476 
477 
478 
479 

;  Poinl 

t  to  next 

address 

000364  * 

350  00  0  00  000007 

AOS 

7 

480 

000365' 

307  07  0  00  007777 

CAIG 

7,7777 

481 

000366' 

254  00  0  00  000321  * 

JRST 

TB4 

482 
483 
484 
485 

;  End  ( 

3f  test 

000367' 

263  17  0  00  000000 

TX4: 

RTN 

;  return 

clear  error  flag 
get  address 
include  bit  to  point 
save  CRAM  address 
set  up  subtest  number 


to  which  half 


write  it  to  RAR  register 

complement  the  'ata 

write  to  CRAM 

read  LAR 

save  data  read 

correct? 

no  -  flag  error 

print  error  message 

loop  on  error 

altmode  exit 

error?  yes  -  exit 


flag 


clear  error 

get  address 

include  bit  to  point  to  which  half 

point  to  right  naif 

save  CRAM  address 

set  up  subtest  number 

write  it  to  RAR  register 

complement  the  data 

write  to  CRAM 

read  LAR 

save  data  read 

correct? 

no  -  flag  error 

frint  error  message 
OOP  on  error 
altmode  exit 
error?  yes  -  exit 


point  to  next  CRAM  location 
done  yet? 
no  -  continue 


I — 


r 


ncDTAR  MAron  «S^Rn?A?)  n9:19  1-Jijl-85  Paae  11 


^r-/\  ^  Trtn 


DFI 


1 


3  1386 
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SEQ  1399 


OFF 
OFF 


486 
A87 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 


000370'  140000 
000371'  240000 
000372'  270000 


011260' 
000373' 
011052' 


000373' 
000374' 
000375' 
000376' 
000377' 
000400' 
000401 ' 
000402' 
000403' 


200  00  0 
242  01  0 
057  04  0 
200  00  0 
606  00  0 
037  00  0 
602  00  0 
037  00  0 
263  17  0 


00  011162' 
00  000001 
00  000000 
00  011162* 
00  000001 
00  011272' 
00  000001 
00  011274' 
00  000000 


;  Error  messages 
MA4: 


MSGITXNOTICASCIZ  *LAR  not  loaded  correctly  by  LDCRAM  of  location  ] 
CALL1TXN0T1MA4PNT  ^„  ^         ./  .  , 

LAST! CALL !TXALl.!MPNT2         ;  print  LAR  data  correct/actual 


Print  CRAM  address  written 


MA4PNT:  MOVE 
LSH 
PNT4 
MOVE 
TRNN 
TMS6 
TRNE 
TMSG 
RTN 


SAVCR1 
U 

SAVCR1 
1 

<  (Left)> 
1 

<  (Right)> 


rtCDTAQ      MAron    y(;7QM3/.?>    nO'lQ      1.liil«R't    Pahp    1? 


DF 


Q  1387 


DFPTA8 
0FPTA8 

50A 

505 

506 

507 

508 

509 

51U 

511 

512 

513 

5U 

515 

516 

517 

518 

519 

520 

521 

522 

523 

52A 

525 

526 

527 

528 

529 

530 

531 

532 

533 

53A 

535 

536 

537 

538 

539 

5A0 

5A1 

542 

5A3 

54A 

545 

546 

547 

548 
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SEQ  1400 


DF 
DF 


000404'  254  00  0  00  000411' 

000405'  210403  000005 

000406'  Gu.'OOO  011276' 

000407'  011256'  011235' 

000410'  mm    mm 


000411'  201  00  0  00  000000' 
000412'  260  17  0  00  000314* 


000413'  260  17  0  00  000315* 

000414'  201  01  0  00  040000 

000415'  260  17  0  00  000317* 

000416'  400  07  0  00  000000 


/>♦•♦»••»•**••»»•♦•♦*»*♦♦♦♦♦**•«*************♦*****•*******♦*****•**** 

*  TEST  5  -  RAR/LAR  Data  Path  Test  -  RDCRAM 

Descriptiori;  This  test  verifies  that  the  LAR  is  loaded  with 
the  contents  of  the  RAR  whenever  a  CRAM  location 
is  read.  This  test  verifies  the  data  path  over 
the  MBUS  to  the  RAR  to  the  LAR  and  back  over  the 
MBUS. 

Procedure:    Port  Clear 

Select  address  to  write 

Write  RAR  (left  half) 

Read  CRAM 

Read  LAR 

Verify  that  the  address  read  is  correct 

Write  RAR  (right  half) 

Read  CRAM 

Read  LAR 

Verify  that  the  address  read  is  correct 

Repeat  sequence  with  each  CRAM  location 

Failure:     — 

#****»«**»*****«♦*****♦♦*********♦*********************************** 


Test  data 
TSTU5 


;  go  start  test 
;  test 


JRST    TG5  ^       .  ^      , 

MPR0C!MBUS!NDMP!ZHPR0C15       ;  !est  mask^ 

0,,[ASCIZ  *RAR/LAR  Data  Path  Test  -  RDCRAM*] 

CEXP  M9,MLAST!M16]..[EXP  MLAST1M4] 

-1  ;  failure  test  table 


;  Start 

test 

TG5: 

MOVEI 
60 

Z8 
TRACE 

;  Test 

initialization 

TA5: 

GO 

MOVEI 
GO 
SETZ 

IPACLR 

,SELLAR 
LDCSR 
7. 

;  get  address  of  module  start 
;  handle  trace  output 


do  a  port  clear 
set  tnis  bit 
write  CSR  register 
start  at  location  0 


r' 


r^rriTaO        u*rnn    «C'^D/1'l/1^      AQ .  1 Q        1_liil-fi^     Dana     1 '^ 


ni 


EQ  1388 


1  1 
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sts 

5A9 
550 

r  1 1 

;  Write  address 

,  read  LAR. 

verify  result 

551 
552 

000417'  400  15  0  00  000000 

TBS:    SETZ 

FRFLG. 

553 

000420'  200  01  0  00  000007 

MOVE 

]'? 

554 

000421 '  242  01  0  00  000001 

LSH 

1.1 

555 

000422'  202  01  0  00  011162' 

MOVEM 

1,SAVCR1 

556 

000423'  202  01  0  00  000350* 

MOVEM 

1JSTSUB 

557 

000424'  350  00  0  00  000423* 

AOS 

TSTSUB 

558 

000425'  260  17  0  00  000351* 

GO 

LDRAR 

559 

000426'  400  01  0  00  000000 

SETZ 

}f.r.r. 

560 

000427'  260  17  0  00  000415* 

GO 

LDCSR 

561 

000430'  260  17  0  00  000267* 

60 

RDCRAM 

562 

000431 •  201  01  0  00  040000 

MOVE  I 

I.SELLAR 

563 

000432'  260  17  0  00  000427* 

GO 

LDCSR 

56A 

000433'  260  17  0  00  000354* 

60 

RDLAR 

565 

000434'  202  01  0  00  011163' 

MOVEM 

1,SAVCR2 

566 

000435'  312  01  0  00  011162' 

CAME 

1,SAVCR1 

567 

000436'  474  15  0  00  000000 

SETO 

ERFLG, 

568 

000437'  027  00  0  00  000474' 

SCOPER 

MAS 

569 

000440'  254  00  0  00  000417' 

JRST 

TBS 

570 

000441'  254  00  0  00  000473' 

JRST 

TX5 

571 
572 
573 

000442'  326  15  0  00  000473* 

JUMPN 

ERFLG.TX5 

;  Write  address 

.  read  LAR. 

verify  result 

57A 
575 

000443'  400  15  0  00  000000 

TC5:    SETZ 

ERFLG. 

576 

000444'  200  01  0  00  000007 

MOVE 

I'l 

577 

000445'  242  01  0  00  000001 

LSH 

'^ 

578 

000446'  350  00  0  00  000001 

AOS 

1 

579 

000447'  2uJ  01  0  00  011162' 

MOVEM 

1.SAVCR1 

580 

000450'  202  01  0  00  000424* 

MOVEM 

1, TSTSUB 

581 

000451'  350  00  0  00  000450* 

AOS 

TSTSUB 

582 

000452'  260  17  0  00  000425* 

GO 

LDRAR 

583 

000453'  400  01  0  00  000000 

SETZ 

1.   „ 

584 

000454'  260  17  0  00  000432* 

GO 

LDCSR 

585 

000455'  260  17  0  00  000430* 

GO 

RDCRAM 

586 

000456'  201  01  0  00  040000 

MOVE  I 

I.SELLAR 

587 

000457'  260  17  0  00  000454* 

GO 

LDCSR 

588 

000460'  260  17  0  00  000433* 

GO 

RDLAR 

589 

000461'  202  01  0  00  011163' 

MOVEM 

1,SAVCR2 

590 

000462'  312  01  0  00  011162' 

CAME 

1,SAVCR1 

591 

000463'  474  15  0  00  000000 

SETO 

ERFLG. 

592 

000464'  027  00  0  00  000474' 

SCOPER 

MAS 

593 

000465'  254  00  0  00  000443' 

JRST 

TCS 

594 

000466'  254  00  0  00  000473' 

JRST 

TXS 

595 

000467'  326  15  0  00  000473' 

JUMPN 

ERFLG. TX5 

r 


SEQ  1401 


Dl 
Df 


(left  half) 

clear  error  flag 
get  address 
include  bit  to  point 
save  CRAM  address 
set  up  subtest  number 


to  which  half 


write  it  to  RAR  register 

set  up  CSR  to  read  CRAM 

write  CSR  register 

read  CRAM 

set  this  bit 

write  CSR  register 

read  LAR 

save  data  read 

correct? 

no  -  flag  error 

print  error  message 

loop  on  error 

altmode  exit 

error?  yes  -  exit 


clear  error  flag 

get  address 

include  bit  to  point  to  which  half 

point  to  right  naif 

save  CRAM  address 

set  up  subtest  number 

write  it  to  RAR  register 

set  up  CSR  to  read  CRAM 

write  CSR  register 

read  CRAM 

set  this  bit 

write  CSR  register 

read  LAR 

save  data  read 

correct? 

no  -  flag  error 

print  error  message 

loop  on  error 

altmode  exit 

error?  yes  -  exit 


r 


DFPTA8 
DFPTA8 

596 

597 

598 

599 

600 

601 

602 

603 

60A 

605 

606 

607 

608 

609 

610 

611 

612 

613 

6K 

615 

616 

617 

618 

619 

620 

621 

622 

623 


MACRO  X53B(1242)  09:19  1-JuL-85  Page  U 

MAC     18-Apr-85  10:59        MPROC  Module  Tests 


SEQ  U02 


D 
D 


000A72'  2%   00  0  00  000^17' 


000A73'  263  17  0  00  000000 


0004 7A'  140000  011305' 
000475'  240000  000477' 
000476'  270000  011052' 


000477' 
000500' 
000501 ' 
000502' 
000503' 
000504 ' 
000505 ' 
000506' 
000507' 


200  00 
242  01 
037  04 
200  00 
606  00 
037  00 
602  00 
037  00 
263  17 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


011162' 

000001 

000000 

011162' 

000001 

011272' 

000001 

011274' 

000000 


Point  to  ni'xt  address 


AOS 

CAIG 

JRST 


7 
7.7777 

t65 


;  point  to  next  CRAM  location 

;  done  yet? 

;  no  -  continue 


;  End  of  test 

TX5:    RTN  ;  return 

;  Error  messages 

MA5:    MSGITXNOTICASCIZ  "LAR  not  loaded  correctly  by  RDCRAM  of  location  *] 
CALL!TXN0T1MA5PNT   ^  .    .«  .  /  »   . 

LAST! CALL 1TXALL!MPNT2         ;  print  LAR  data  correct/actual 

;  Print  CRAM  address  written 


MA5PNT:  MOVE 
LSH 
PNT4 
MOVE 
TRNN 
TMS6 
TRNE 
TMSG 
RTN 


SAVCR1 
1.1 

SAVCR1 
1 

<  (Left)> 
1 

<  (Right)> 


I 


SEQ  1390 
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SEQ  K03 


62A 

625 

626 

627 

628 

629 

630 

631 

632 

633 

63A 

635 

636 

637 

638 

639 

640 

6A1 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 


000510*  254  00  0  00  000520* 

000511'  200403  000006 

000512*  000000  011317* 

000513*  011324*  011325' 

000514'  000000  001017' 

000515'  000000000000# 

000516'  000000  010671' 

000517'  mill    nun 


000520'  201  00  0  00  000000* 
000521'  260  17  0  00  000412* 
000522*  260  17  0  00  000413* 


000523* 
000524* 
000525* 
000526' 
000527' 
000530' 
000531 ' 
000532' 
000533' 
000534* 
000335' 
000536' 
000537' 
000540' 


201  06 
476  00 
350  00 
120  02 
306  02 
254  00 

202  02 
202  03 

261  17 
476  00 
260  17 

262  17 
271  06 
254  00 


0  00 
0  00 


00 
06 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000625' 

000000* 

000524* 

000000 

000377 

000541  * 

000000* 

000000* 

000000* 

000533* 

000000* 

000534* 

000002 

000525' 


ft»*»***»»»************************** *********************** ********* 

•  TEST  6  -  Cram  Ctrl  Register  Test 

Description:  Verify  each  bit  in  the  CRAM  Control  Register  by 
writing  a  0  or  1  to  it  and  ven tying  that  a  CRAM 
parity  error  does  not  occur. 

Procedure:    Port  Clear  ..  .•  ^    ,       a 

Load  CRAM  locations  0-59.  with  a  floating  1  (good 

parity).  u  ,   .• 

Single  step  a  microinstruction  at  each  location 
verifying  that  a  CRAM  PE  does  not  occur. 

Do  for  locations  0-73  (octal). 

Failure:     — 
#*•♦***»****** *********t ********************************************* 


Test  data 


30  start  test 


TSTU6:  JRST    TG6  ;  gc 

MPR0C1NDMP!Z«PR0C!6  ;  test  mask 

O..CASCIZ  *Cram  Ctrl  Register  Test*] 

[EXP  MLAST!M12],.CEXP  MLASTIE15] 

TSTU7  ;  failure  test  taole 

TSTE45 

TSTU41 

-1 


;  Start  test 

TG6:    MOVE  I  Z8 

GO  TRACE 

GO  IPACLR 


get  address  of  module  start 
handle  trace  output 
do  a  *port  clear' 


;  Load  microcode  (floating  1  in  each  location  -  with  good  parity) 


TI6A: 


MOVE  I 

SETOM 

AOS 

DMOVE 

CAIN 

JRST 

HOVEM 

MOVEM 

PUT 

SETOM 

GO 

GET 

ADD] 

JRST 


6,T6TAB 

CADDR 

CADDR 

2,(6) 

2,377 

TL6 

2,CU0RDL 

3,CW0RDR 

PARFLG 

PARFL6 

DUCRAM 

PARFLG 

6,2 

Ti6A 


get  address  of  table 

initialize  CRAM  address 

increment  CRAM  address 

get  microword  data 

end  of  table? 

yes  -  continue 

save  left  30  bits 

save  right  30  bits 

save  state  of  parity  flag 

ensure  correct  parity  is  generated 

write  the  data 

restore  state  of  parity  flag 

poin  to  next  ^ntry 

loop  till  done 


L 


[■ 


DFPTA8 
DFPTA8 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

72t* 

725 

72b 

727 

728 
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000541'  400  10  0  GO  000000 
000542'  201  00  0  00  000010 
000543'  202  00  0  00  000000* 


000544* 
000545' 
000546' 
000547' 
000550' 
000551 • 
000552' 
000553' 
000554' 
000555' 
000556' 
000557' 
000560' 
000561 • 
000562* 
000563' 
000564* 
000565' 


400  15 

201  00 

202  00 
260  17 
202  10 
260  17 
200  15 
200  15 
200  15 
326  15 
260  17 
474  15 
603  01 
474  15 
0r!7  00 
254  00 
254  00 
326  15 


00  000000 
10  000001 
00  000451* 
00  000522* 
00  000000* 
00  000000* 
00  011326' 
00  011326* 
00  011326' 
00  000562' 
.  00  000000* 
0  00  000000 
0  00  004000 
00  000000 
00  000572' 
00  000544* 
00  000571 ' 
00  000571  * 


0 
0 
0 
0 
0 


000566'  33 J  00  0  00  000010 
000567'  307  10  0  00  000073 
000570'  254  00  0  00  000544' 


000571'  263  17  0  00  000000 


000572'  270000  000573* 


000573' 
000574' 
000575' 
000576* 
000577* 
000600* 
000601 ' 
000602* 
000603' 
000604* 
000605' 


311  15 

254  00 

200  00 
607  00 
037  00 
260  17 

255  00 

201  02 
201  03 
260  17 
263  17 


00  011327' 
00  000606' 
00  000000* 
00  000200 
00  011330' 
00  000556* 
00  000000 
00  000023 
00  000023 
00  000000* 
00  000000 


;  Initialization 
TL6: 


SETZ    10, 
MOVE  I   MPRUN 
MOVEM   SDATA 


Loop  on  start  address 


TA6: 


TA6A: 


SETZ 

MOVE  I 

MOVEM 

60 

MOVEM 

GO 

MOVE 

MOVE 

MOVE 

JUMPN 

60 

SETO 

TLNE 

SETO 

SCOPER 

JRST 

JRST 

JUMPN 


ERFLG, 

1(10) 

TSTSU8 

IPACLR 

lO.SNEXT 

I PASS T 

ERFLG, [-2] 

ERFLG, [-2] 

ERFLG, [-2] 

ERFLG, TA6A 

RDCS,? 

ERFLG. 

1,(CRAMPE) 

ERFL6, 

MA6 

TA6 

TX6 

ERFLG, TX6 


rext  address 


AOS    10 
CAIG    10,73 
JRST    TA6 

;  End  of  test 

TX6:    RTN 

;  Error  messages 

MA6:    LAST! CALL !TXALL!MA6PNT 


MA6PNT:  CAML 
JRST 
MOVE 
TLNN 
TMS6C 
60 

JFCL 
MOVE  I 
MOVE  I 
60 
RTN 


ERFLG. [-1] 

MA6PN0 

SCOSU 

TXTINH 

<Couldn't  single  step  the 

RDCSR 

2.*D19 
3,*D19 
CSRPNT 


SEQ  1404 


initialize  start  address 
initialize  start  data 


clear  error  flag 

set  up  subtest  number 

•  •  • 

clear  port 

set  up  start  data 

single  step  once 

error  -  reading/writing  GSR 

CTor  -  port  already  running 

error  -  error  bits  set  in  CSR 

erroi'  yet  -  yes  -  continue 

read  ine  CSR  register 

error 

get  a  CRAM  PE? 

yes  -  set  error  flag 

print  error  message 

loop  on  error 

altmode  exit 

error  yet?  -  yes  -  exit  test 


point  to  next  address 

done  yet? 

no  -  loop  till  done 


;  return 


print  error  data 

start  up  rror? 

no  -  print  other  message 

get  switches 

text  inhibit  switch  set? 

port> 

get  CSR  contents 

error 

character  count  so  far 

continuation  Line  column  number 

go  print  in  English 


DFPTA8 

MACRO  X53B(1242)  09:19  1-JuL- 

-85  Page  17 

MPROC  Module  T« 

DFPTA8 

MAC 

18-Apr- 

■85  10:59 

?sts 

729 

730 

000606' 

200  00 

0  00  000575* 

MA6PN0:  MOVE 

SCOSW 

731 

000607' 

603  00  0  00  000200 

TLNE 

TXTINH 

732 

JRST 

[TMSGC  <CRAM  Loc 

> 

733 

MOVE   SLAST 

734 

PNT4 

735 

000610' 

254  00 

0  00  011342' 

RTNJ 

736 

000611' 

037  00 

0  00  011346' 

TMS6C 

<CRAM  PE  occurred 

whe 

737 

000612' 

200  00 

0  00  000000* 

MOVE 

SLAST 

738 

000613' 

037  04 

0  00  000000 

PNT4 

739 

000614' 

037  00 

0  00  011337' 

TMSGC 

<CRAM  Loc  > 

7A0 

000615' 

200  00 

0  00  000612* 

MOVE 

SLAST 

741 

000616' 

037  04 

0  00  000000 

PNT4 

742 

000617' 

037  00 

0  00  011360' 

TMSG 

<  contained  a  1  ir 

)  bi 

743 

000620' 

201  00 

0  00  000073 

MOVE  I 

*D59 

744 

000621 ' 

274  00 

0  00  000615* 

SUB 

SLAST 

745 

000622' 

037  15 

0  00  000000 

PNTDEC 

746 

000623' 

037  00 

0  00  011365' 

TMSG 

<•> 

747 

000624' 

263  17 

0  00  000000 

RTN 

748 

749 

;  Microcode: 

750 

751 

000625' 

000000 

400000 

T6TAB:  EXP 

1B18!0J 

752 

000626' 

000000 

000001 

753 

000627' 

000000 

000000 

EXP 

0,2 

754 

000630' 

000000 

000002 

755 

000631 • 

000000 

000000 

EXP 

0,4 

756 

000632' 

000000 

000004 

757 

000633' 

000000 

000000 

EXP 

0,10 

758 

000634 ' 

000000 

000010 

759 

000635' 

GuJOOO 

000000 

EXP 

0,20 

760 

000636' 

000000 

000020 

761 

000637' 

000000 

000000 

EXP 

0,40 

762 

000640' 

000000 

000040 

763 

000641 ' 

000000 

000000 

EXP 

0,100 

764 

000642' 

000000 

000100 

765 

000643' 

000000 

000000 

EXP 

0,200 

766 

000644' 

000000 

000200 

767 

000645' 

000000 

000000 

EXP 

0,400 

768 

000646' 

000000 

000400 

769 

000647' 

000000 

000000 

EXP 

0,1000 

770 

000650' 

000000 

001000 

771 

000651' 

000000 

000000 

EXP 

0,2000 

772 

000652' 

000000 

002000 

773 

000653' 

000000 

000000 

EXP 

0,4000 

774 

000654' 

000000 

004000 

775 

000655' 

000000 

000000 

EXP 

0,10000 

776 

000656' 

000000 

010000 

777 

000657' 

000000 

000000 

EXP 

0,20000 

77% 

000660' 

000000 

020000 

779 

000661 ' 

000000 

000000 

EXP 

0,40000 

780 

000662' 

000000 

040000 

781 

000663' 

ooocoo 

000000 

EXP 

0,100000 

782 

000664' 

oooom 

100000 

783 

000665' 

000000 

000000 

EXP 

0,200000 

SEQ  1405 


get  switches 

text  inhibit  switch  set? 
yes  -  only  print  the  CRAM 
address 


0 

1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 
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SEQ  1406 


DFPTA8 
DFPTA8 

78A 

785 

786 

787 

788 

789 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799 

800 

801 

802 

803 

80A 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 
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SEQ  1406 


000666' 

000667' 

000670' 

000671 • 

000672' 

000673' 

000674' 

000675' 

000676' 

000677' 

000700' 

000701 ' 

000702' 

000703' 

000704' 

000705' 

000706' 

000707' 

000710' 

00071 1  • 

000712' 

000713' 

000714' 

000715' 

000716' 

000717' 

000720' 

000721  • 

000722' 

000723' 

000724' 

000725' 

000726' 

000727' 

000730' 

000731 ' 

000732' 

000733' 

000734' 

000735' 

000736' 

000737' 

000740' 

000741' 

000742' 

000743' 

000744 ' 

000745' 

000746' 

000747' 

000750' 

000751' 

000752' 

000753' 

000754' 


000000 

000000 

000000 

000000 

000001 

000000 

000002 

000000 

000004 

000000 

000010 

000000 

000020 

000000 

000040 

000000 

000100 

000000 

000200 

000000 

00C40O 

000000 

001000 

000000 

002000 

000000 

004000 

000000 

000000 

000000 

GuJOOO 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


200000 

000000 

400000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000001 

000000 

000002 

000000 

000004 

000000 

000010 

000000 

000020 

000000 

000040 

000000 

000100 

000000 

000200 

000000 

000400 

000000 

001000 

000000 

002000 

000000 

004000 

000000 

010000 

000000 

020000 


EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 


0,400000 

0,1000000 

0.2000000 

0,4000000 

0.10000000 

0.20000000 

0.40000000 

0.100000000 

0,200000000 

0.400000000 

0.1000000000 

0.2000000000 

0.4000000000 

0,1 

0.2 

0.4 

0.10 

0.20 

0.40 

0.100 

0.200 

0.400 

0,1000 

0.2000 

0,4000 

0,10000 

0,20000 


21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 
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SEQ  1407 


39^ 


DFPTA8 

MACRO  X53B(12A2 

)  09:19  1-Jul-f 

DFPTA8 

MAC 

18-Apr- 

85  10:59 

839 

000755' 

000000 

000000 

SAO 

000756' 

000000 

040000 

841 

000757' 

000000 

000000 

8A2 

000760' 

000000 

100000 

8A3 

000761 • 

000000 

000000 

8A4 

000762' 

000000 

200000 

8A5 

000763' 

000000 

000000 

8A6 

00076A' 

000000 

400000 

8A7 

000765' 

000000 

000000 

8A8 

000766' 

000001 

000000 

8A9 

000767' 

000000 

000000 

850 

000770' 

000002 

)00000 

851 

000771 ' 

000000 

000000 

852 

000772' 

000004 

)00000 

III 

000773' 

000000 

005909 

00077A' 

000010 

)00000 

855 

000775' 

000000 

000000 

856 

000776' 

000020 

000000 

857 

000777' 

000000 

000000 

858 

001000' 

000040 

000000 

859 

001001' 

oocooo 

000000 

360 

001002' 

000100 

000000 

861 

001003' 

000000 

000000 

862 

001004' 

000200 

000000 

863 

001005' 

000000 

000000 

86A 

001006' 

000400 

000000 

865 

001007' 

000000 

000000 

866 

001010' 

001000 

000000 

867 

001011' 

000000 

000000 

868 

001012' 

002000 

000000 

869 

001013' 

OuJOOO 

000000 

J70 

001014' 

004000 

000000 

871 

001015' 

000000 

000377 

872 

001016' 

000000 

000377 

>  Page  17-2 
MPROC  Module  Tests 


SEQ  1407 


EXP 

0.40000 

54 

EXP 

0,100000 

55 

EXP 

0.200000 

56 

EXP 

0.400000 

57 

EXP 

0.1000000 

60 

EXP 

0.2000000 

61 

EXP 

0,4000000 

62 

EXP 

0.10000000 

63 

EXP 

0.20000000 

64 

EXP 

0,40000000 

•  65 

EXP 

0.100000000 

■  66 

EXP 

0.200000000 

;  67 

EXP 

0.400000000 

;  70 

EXP 

0.1000000000 

;  71 

EXP 

0.2000000000 

;  n 

EXP 

0.4000000000 

;   73 

EXP 

377.377 

1395 
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SEQ  1408 


r' 


DFPTA8 
DFPTA8 

873 

87A 

875 

876 

877 

878 

879 

880 

881 

882 

883 

88A 

885 

886 

887 

888 

889 

890 

891 

892 

893 

89A 

895 

896 

897 

898 

899 

900 

901 

902 

903 

90A 

905 

906 

907 

908 

909 

910 

911 

912 

913 

9U 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 
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SEQ  1408 


001017'  254  00  0  GO  001026' 

001020'  200403  000007 

001021'  000000  011317' 

001022'  011324'  011366' 

001023'  000000000000* 

001024'  000000  010671' 

001025'  mm   mm 


001026'  201 
001027'  260 
001030'  260 


001031' 
001032' 
001033' 
001034' 
001035' 
001036' 
001037' 
001040' 
001041' 
001042' 
001043' 
001044' 
001045' 
001046' 


00 
17 
17 


201 

06 

476 

00 

350 

00 

120 

02 

306 

02 

254 

00 

202 

02 

202 

03 

261 

17 

402 

00 

260 

17 

262 

17 

271 

06 

00  000000' 
00  000521* 
00  000547* 


0  00 
0  00 
0  00 


06 
00 
00 
0  00 
0  00 
00 


254  00 


00 
00 
00 
00 
00 


001133' 

000525* 

001032* 

000000 

000377 

001047' 

000531* 

000532* 

000536* 

001041* 

000535* 

001042* 

000002 

001033' 


f* **»*♦*♦*♦»***»♦»****♦♦♦•#**♦***♦*♦* ******************************** 

•  TEST  7  -  Cram  Ctrl  Register  Test 

Description:  Verify  each  bit  in  the  CRAM  Control  Register  by 
writing  a  0  or  1  to  it  and  verifying  that  a  CRAM 

Earity  error  does  occur,  when  that  word  also  has 
ad  parity. 

Procedure:    Port  Clear  ,.   ..   i  ,i.  ^ 

Load  CRAM  locations  0-59.  with  a  floating  1  (bad 

parity).  .   , 

Single  step  a  microinstruction  at  each  location 
verifying  that  a  CRAM  PE  does  occur. 

Do  for  locations  0-73  (octal). 

Failure:     — 
#*»»•♦**«*••*♦*****»*♦*♦♦****••♦****•**♦*»**•*****•***•************** 


Test  data 


TSTU7: 


JRST    TG7 
MPR0C1NDMP!ZMPR0C!7 


O.VCASCIZ  *Crani  Ctrl  Register  Test*] 
[EXP  MLAST!M12]..[EXP  ET5.MLASTIE16] 


go  start  test 
test  mask 


TSTE45 
TSTU41 
-1 

;  Start  test 

TG7:    MOVEI   Z8 

GO     TRACE 
GO     IPACLR 


failure  test  table 


get  address  of  module  start 
handle  trace  output 
do  a  'port  clear' 


;  Load  microcode  (floating  1  in  each  location  -  with  good  parity) 


TI7A: 


MOVEI 

SETOM 

AOS 

DMOVE 

CAIN 

JRST 

MOVEM 

MOVEM 

PUT 

SETZM 

GO 

GET 

ADDI 

JRST 


6,T7TAB 

CADDR 

CADDR 

2,(6) 

2.377 

TL7 

2.CW0RDL 

3,CW0RDR 

PARFLG 

PARFLG 

DUCRAM 

PARFLG 

6.2 

TI7A 


get  address  of  table 

initialize  CRAM  address 

increment  CRAM  address 

get  microword  data 

end  of  table? 

yes  -  continue 

save  left  30  bits 

save  right  30  bits 

save  state  of  parity  flag 

set  to  not  calculate  parity 

write  the  data 

restore  state  of  parity  flag 

poin  to  next  intry 

loop  till  done 
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SEQ  1409 


n 


1396 


DFPTA8 
DF?TA8 

925 

926 

927 

928 

929 

930 

931 

932 

933 

93A 

935 

936 

937 

938 

939 

9A0 

9A1 

9A2 

9A3 

9A4 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

C70 

9/1 

972 

97: 

974 

975 

976 

977 
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SEQ  1409 


OFI 
DFI 


001047'  400  10  0  00  000000 
001050'  201  00  0  00  000010 
001051'  202  00  0  00  000543* 


001052' 
001053' 
001054' 
001055' 
001056' 
001057' 
001060' 
001061' 
001062' 
001063' 
001064' 
001065' 
001066' 
001067' 
001070' 
001071' 
001072' 
001073' 


400 

201 

202 

260 

202 

260 

200 

200 

200 

326 

260 

474 

607 

474 

027 

254 

254 

326 


15 
00 
00 
17 
10 
17 
15 
15 
15 
15 
17 
15 
01 
15 
00 
00 
00 
15 


0  00  000000 
0  10  000001 
0  00  000546* 
0  00  001030* 
0  00  000550* 
0  00  000551* 
0  00  011326' 
00  011326' 
00  011326' 
00  001070' 
00  000600* 
00  000000 
00  004000 
,  00  000000 
0  00  001100' 
0  00  001052' 
0  00  001077' 
0  00  001077' 


001074'  53  J  00  0  00  000010 
001075'  307  10  0  00  000073 
001076'  25'.  00  0  00  001052' 


001077'  263  17  0  00  000000 


001100'  270000  001101' 


001101' 
001102' 
001103' 
001104' 
UCI^Od' 
0CI106' 
001107' 
001110' 

ooiiir 

001112' 
001113' 


311  15 

254  00 

200  00 
607  00 
037  00 
260  17 

255  00 

201  02 
201  03 
260  17 
263  17 


00  0113" 
00  0011  .' 
00  000606* 
00  000200 
00  011330' 
00  001064* 
00  000000 
0  00  000023 
0  00  000023 
0  00  000604* 
0  00  000000 


;  Initialization 
TL7: 


SET?    10, 
MOVE!   MPRUN 
HOVEM   SDATA 


Loop  on  start  address 


TA7: 


TA7A: 


SETZ 

MOVE  I 

MOVEM 

GO 

MOVEM 

GO 

MOVE 

MOVE 

MOVE 

JUMPN 

GO 

SETO 

TLNN 

SETO 

SCOPER 

JRST 

JRST 

JUMPN 


ERFLG, 

1(10) 

TSTSUB 

IPACLR 

lO.SNEXT 

IPASST 

ERFLG, [-2] 

ERFLG. [-2] 

ERFLG, [-2] 

ERFLG, TA7A 

RDCSR 

ERFLG, 

1,(CRAMPE) 

ERFLG, 

MA7 

TA7 

TX7 

ERFLG, TX7 


10 

10.73 

TA7 


;  Next  address 

AOS 

CAIG 

JRST 

;  End  of  test 

TX7:    RTN 

;  Error  messages 

MA7:    LAST1CALLITXALLIMA7PNT 


MA7PNT: 


CAML 

JRST 

MOVE 

TLNN 

TMSGC 

GO 

JFCL 

MOVE  I 

MOVE  I 

GO 

RTN 


ERFLG. C 

MA7PN0 

SCOSW 

TXTINH 

<Couldn't 

RDCSR 

2,*D19 
3.*D19 
CSRPNT 


1] 


initialize  '•tart  address 
initialize  start  data 


I 'ear  error  flag 

set  up  subtest  number 

clear  port 

set  up  start  data 

single  step  once 

error  -  reading/writing  CSR 

error  -  port  already  running 

error  -  error  bits  set  in  CSR 

error  vet  -  yes  -  continue 

read  the  CSR  register 

error 

get  a  CRAM  PE? 

no  -  set  error  flag 

print  error  message 

loop  on  error 

altmode  exit 

error  yet?  -  yes  -  exit  test 


point  to  next  address 

done  yet? 

no  -  loop  till  done 


return 


;  print  error  data 


message 


set: 


start  up  error' 
no  -  print  other 
get  switches 
text  inhibit  switch 
single  step  the  port> 

get  CSR  contents 

error 

character  count  so  far 

continuation  Line  column  number 

go  print  in  English 


1707 
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SEQ  1410 


OFF 


DFPTA8 
DFPTA8 

978 
979 
980 
981 
982 
983 
98A 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 


MACRO  X53B(1242)  09:19  1-Jul-85  Page  20^  , 
MAC     18-Apr-85  10:59        MPROC  Module 


Tests 


SEQ  1410 


DFI 
DFI 


001114' 
001115' 


001116' 
001117' 
001120' 
001121' 
001122' 
001123' 
001124' 
001125' 
001126' 
001127' 
001130' 
001131' 
001132' 


001133' 

001134' 

001135' 

001136' 

001137' 

001140' 

001141' 

001142' 

001143' 

001144' 

001145' 

001146' 

001147' 

001150' 

001151' 

001152' 

001153' 

001154' 

001155' 

001156' 

001157' 

001160' 

001161' 

001162' 

001163' 

001164' 

001165' 

001166' 

001167' 

001170' 

001171' 

001172' 

001173' 


200  00 
603  00 


00  001103* 
00  000200 


2'j4  00  0  00 


037  00 
200  00 
037  04 


00 
00 
00 


037  00  0  00 


200  00 
037  04 
037  00 
201 
274 


00 
00 


037  15 
037  00 
263  17 


00 
00 
00 
00 
00 
00 
00 
00 


011342' 

011370' 

000621* 

000000 

011337' 

001120* 

000000 

011360' 

000073 

001123* 

000000 

011365' 

000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
GuJOOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 

000001 

400000 

000002 

400000 

000004 

400000 

000010 

400000 

000020 

400000 

000040 

400000 

000100 

400000 

000200 

400000 

000400 

400000 

001000 

400000 

002000 

400000 

004000 

400000 

010000 

400000 

020000 

400000 

040000 

400000 

100000 

400000 


MA7PN0:  MOVE 
TLNE 
JRST 


TMSGC 

MOVf 

PNT4 

TMSGC 

MOVE 

PNT4 

TMSG 

MOVE  I 

SUB 

PNTDEC 

TMSG 

RTN 

;  Microcode: 

T7TAB:  EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 


jet  switches 


get  swucnes 

text  inhibit  switch  set? 
yes  -  only  print  the  CRAM 
address 


SCOSU 

TXTINH 

[TMSGC  <CRAM  Loc  > 

MOVE   SI  AST 

PNT4 

<CRAM  PE  did  not  occur  when  single  stepping  location  > 
SLAST 

<CRAM  Loc  > 
SLAST 

<  contained  a  1  in  bit  > 

•D59 

SLAST 

<•> 


0,1 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 

1818 


0.2 

0,4 

0,10 

0,20 

0,40 

0,100 

0,200 

0,400 

0,1000 

0,2000 

0,4000 

0,10000 

0,20000 

0,40000 

0,100000 

0.200000 


0 
1 
2 
3 

4 

5 

6 

7 

10 

11 

\ii 

13 

14 

15 

16 

17 

20 
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<:fq  U11 


DFI 


1398 


DFPTA8 
DFPTA8 

1033 

103A 

1035 

1036 

1037 

1038 

1039 

10A0 

10A1 

10A2 

1043 

104A 

1045 

10A6 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 
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001174' 

001175' 

001176' 

001177' 

001200' 

001201' 

001202' 

001203' 

001204' 

001205' 

001206' 

001207' 

001210' 

001211' 

001212' 

001213' 

001214' 

001215' 

001216' 

001217' 

001220' 

001221' 

001222' 

001223' 

001224' 

001225' 

001226' 

001227' 

001230' 

001231' 

001232' 

001233' 

001234' 

001235' 

001236' 

001237' 

001240' 

001241' 

001242' 

001243' 

001244' 

001245' 

001246' 

001247' 

001250' 

001251' 

001252' 

001253' 

001254' 

001255' 

001256' 

001257' 

001260' 

001261' 

001262* 


000000 

000000 

000000 

000000 

000001 

000000 

000002 

000000 

000004 

000000 

000010 

000000 

000020 

000000 

000040 

000000 

000100 

000000 

000200 

000000 

00C400 

000000 

001000 

000000 

002000 

000000 

004000 

000000 

000000 

000000 

OuJOOO 

000000 

000000 

000000 

OOOOOO 

000000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 


200000 

400000 

400000 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400000 

OOOOOO 

400001 

OOOOOO 

400002 

OOOOOO 

400004 

OOOOOO 

400010 

OOOOOO 

400020 

OOOOOO 

400040 

OOOOOO 

400100 

OOOOOO 

400200 

OOOOOO 

400400 

OOOOOO 

401000 

OOOOOO 

402000 

OOOOOO 

404000 

OOOOOO 

410000 

OOOOOO 

420000 

OOOOOO 


20-1 
Module 

Tests 

EXP 

181810,400000 

21 

EXP 

IBl 8! 0.1 OOOOOO 

22 

EXP 

181810,2000000 

23 

EXP 

181810,4000000 

24 

EXP 

181810,10000000       ; 

25 

EXP 

181810,20000000       ; 

26 

EXP 

181810,40000000 

27 

EXP 

181810,100000000 

30 

EXP 

181810,200000000 

31 

EXP 

1818!0, 400000000 

32 

EXP 

181810,1000000000 

33 

EXP 

181810,2000000000 

•  34 

EXP 

181810,4000000000 

•  35 

EXP 

181811,0 

;  36 

EXP 

181812, 0 

;  37 

EXP 

181814, 0 

;  40 

EXP 

1818110,0 

;  41 

EXP 

1818120,0 

;  42 

EXP 

1818140,0 

;  43 

EXP 

18181100,0 

;  44 

EXP 

18181200,0 

;  45 

EXP 

18181400,0 

;  46 

EXP 

181811000,0 

;  47 

EXP 

181812000,0 

;  50 

EXP 

181814000,0 

;  51 

EXP 

1818110000,0 

;  52 

EXP 

1818120000,0 

;  53 

SEQ  1411 


DFI 
DPI 


DFPTA8  MACRO  X53B(1242),0?:1?^  "I-Jul-SS^^Page  20-2, 


SFQ  1412 


r 

IDF 


r^ 


)  1399 


0FPTA8 
0FPTA8 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110A 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 
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001263' 
001 26A' 
001265' 
001266' 
001267' 
001270' 
001271' 
001272' 
001273' 
001 27A' 
001275' 
001276' 
001277' 
001300' 
001301' 
001302' 
001303' 
001 30A' 
001305' 
001306' 
001307' 
001310' 
001311' 
001312' 
001313' 
0013U' 
001315' 
001316' 
001317' 
001320' 
001321' 
001322' 
001323' 
001 32A' 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000001 

000000 

000002 

000000 

OOOOOA 

000000 

000010 

000000 

000020 

000000 

000040 

000000 

000100 

000000 

000200 

000000 

000400 

000000 

001000 

000000 

002000 

000000 

GuOOO 

000000 

000000 

000000 


440000 

000000 

500000 

000000 

600000 

000000 

400001 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

400000 

000000 

000377 

000377 


20-2 
Module 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 


Tests 


SEQ  1412 


DF 
DF 


1B18 
1B18 
1818 
1818 
1818 
1818 
1818 
1818 
1818 
1818 
1818 
1818 
1818 
1818 
1818 
1818 


40000,0 

100000,0 

200000,0 

400001.0 

1000000,0 

2000000,0 

4000000,0 

10000000,0 

20000000,0 

40000000,0 

100000000,0 

200000000,0 

400000000,0 

1000000000.0 

2000000000,0 

4000000000,0 


54 

55 

56 

57 

60 

61 

62 

63 

64 

65 

66 

67 

70 

71 

12 

73 


377.377 


L. 
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ccn  ^L^x 


DFPTA8 
DFPTA8 

1122 

1123 

112A 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

113A 

1135 

1136 

1137 

1138 

1139 

11A0 

1U1 

11A2 

1U3 

11AA 

11A5 

1U6 

1U7 

11A8 

1149 

1150 

1151 

1152 

1153 

115A 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

116A 

1165 

1166 

1167 
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MPROC  Module 


Tests 


SEQ  U13 


r 

D 

;DI 


001325' 
001326' 
001327' 
001330' 
001331' 
001332' 
001333' 
001 33A' 


001335' 
001336' 
001337' 
001340' 
001 341 • 


25^  00 

210403 

001400' 

011413' 

000000 

000000 

OuJOOO 

777777 


0  00  001335' 
000010 
011403' 
011325' 
001431' 
001507' 
001643' 
777777 


201 
260 
201 
260 
263 


001342'  400 
001343'  260 
001344'  400 


00 
17 
01 
17 
17 


15 
17 
06 


00 
00 
00 
00 
00 


000000' 
001027* 
001400' 
000000* 
000000 


#*»♦»»**•******•♦*♦**♦•♦♦**♦*•**************♦*•**♦*******•*♦*♦******* 

•  TEST  10  -  MBUS  Error  Test  (MPROC  module  only) 

Descriptior,;  Cause  drivers  to  be  asserted  on  the  MBUS  one  at  a 

time  and  verify  that  MBUS  Error  does  not  appear 

in  the  CSR  register,  since  only  one  drive  is  on 
at  once. 

Procedure:    Port  Clear 

Load  microcode 
Start  up  ucode  at  location  0 
Stop  ucode 
Read  CSR  register 
MBUS  error  set?  yes  -  c>rror 
no  -  ok 

Do  for  starting  locations  0,3,6J1 

Failure: 

#***»♦*****♦*****»*******♦***»********************•*********•******** 

Test  data 

TSTU10:  JRST    TG10  ^      ;  90  start  test 

MPROC !M8USINDMP!ZMPR0C! 10      •  test  mask   _  ^^^ 

T10M,.[ASC]Z  "MBUS  Error  Test  (MPROC  module  only)*] 

[EXP  MLAST 1M3] . . CEXP  MLAST ! El  5] 

TSTU11  ;  failure  test  table 

TSTU12 

rSTUl3 

-1 


;  Start  test 
TG10: 


MOVE  I  Z8 

60  TRACE 

MOVEI  I.TIOM 

60  TLOAD 
RTN 


00  000000 
00  001055* 
00  000000 


;  Initialization 
TLIO: 


SETZ  ERFL6. 
GO  IPACLR 
SETZ    6, 


get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  table  address  pointer 


r 


HFPTAR  MACRO  1536(1242)  09:19  l-Jul-85  Paoe  22 


CCA   1/1/ 


L„ 


r 


DFPTA8 
DFPTA8 

1168 
1169 
1170 
1171 
1   1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
118A 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
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MPROC  Module  Tests 


SEQ  1414 


r 

I 

c 
c 


001345* 
001346' 
001347* 
001350* 
001351* 
001352* 
001353* 
001354' 
001355* 
001356* 
001357' 
001360' 
001361* 
001362' 
001363* 
001364* 
001365' 


202  06  0 
350  00  0 
400  01  0 
200  04  0 
202  04  0 


554  04 
260  17 


255  00  0 
200  01  0 
603  01  0 
474  15  0 
607  01  0 
474  15  0 
027  00  0 
254  00  0 
254  00  0 
326  15  0 


00  001054* 
00  001345* 
00  000000 
06  001372* 
00  011165' 
00  000004 
00  000000* 
00  000000 
00  000000* 
00  002000 
00  000000 
00  004000 
00  000000 
00  001377* 
00  001345* 
00  001371* 
00  001371* 


001366*  350  00  0  00  000006 
001367*  332  00  0  06  001372* 
001 37C*  254  00  0  00  001345* 


001371*  263  17  0  00  000000 


001372* 
001373* 
001374' 
001375* 
001376' 


000000 
000003 
000006 
000011 
000000 


011414* 
011421* 
011430' 
011441' 
000000 


1st  segment  of  test  (Segment  A)  -  Turn  on  MBUS  drivers  one  at  a  time 


TA10: 


MOVEM 

AGS 

SETZ 

MOVE 

MOVEM 

HLRZ 

GO 

JFCL 

MOVE 

TLNE 

SETO 

TL  M 

SETO 

SCOPER 

JRST 

JRST 

JUMPN 


Next  driver 


AOS 

SKIPE 

JRST 


6.TSTSUB 

TSTSUB 

1. 

4,T10TAB(6) 

4,SAVDAT 

4.4 

AEXEC 

1,ALCSR 

1,(MBERR) 

ERFLG, 

l.(CRAMPE) 

ERFLG. 

MA10 

TAIO 

TXIO 

ERFLG. TXIO 


T10TAB(6) 
TAIO 


set  up  subtest  number 

timeout  time  (test  is  fast) 

get  test  descriptor 

save  it 

get  starting  address 

execute  ALU  type  test 

ignore  any  error 

get  final  CSR  data 

IteUS  Error  occurred? 

yes  -  set  error  flag 

CRAM  PE  occurred? 

no  -  set  error  flag 

print  error  message 

loop  on  error 

altmode  exit 

error  yet?  yes  -  abort  test 


;  point  to  next  driver  descriptor 

;  done? 

;  no  -  loop  till  done 


;  End  of  test 

TXIO:   RTN  .  return 

;  Test  table  -  Starting  addr., Error  message  addr 


001377*  270000  011104* 


;  Error  message 

MAIO:   LAST! CALL :TXALL1MPMBU1 


MPREADCSR'/] 
MPREADEBUS*/] 


;  print  test  results 


L_ 


nrriT*0        M*rnn    «C7D/10/.0^      rtO .  1 Q        1-liit-B^     Dana     77 


DFPTA8 
0FPTA8 

1210 
1211 
!  1212 
1213 
12U 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
122A 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
12A0 
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SEO  K15 


001400* 
OOUOT 
00U02' 
00U03' 
OOUOA* 
00U05' 

00K06' 
00U07' 
001410* 
001411* 
001412* 
001413* 

001414* 
001415' 
001416* 
001417' 
001420* 
001421' 

001422' 
001423' 
001424' 
001425' 
001426' 
001427' 
001430* 


mm  m 


00 

00 

0100 

0000 
000200 
000000 

000300 
000000 
000400 
000000 
000500 
000000 

000600 
000000 
000700 

oocooo 

001000 
000000 

001100 
000000 
001200 
000000 
001300 
000000 

7  (mi 


10000 
00040 
0Q2Q00 
000340 
020000 
000041 

040000 
000040 
000000 
220340 
050000 
000041 

070000 
000040 
000100 
005340 
100000 
000041 

120000 
000040 
000010 
005340 
130000 
000041 

mm 


;  Microcode: 
T10M:   MWOPD 

nwoRD 
nuoRD 


nuoRD 

MUORD 
MUORD 
-1 


<ADDR=0,JMAP,J=1> 

<C0NT.0ENA> 

<JMAP.J=2,BAD> 


«yORD  <JMAP.J=4> 

MUORD  <C0NT,RDLM> 

NUORD  <JMAP.J=5.BAD> 

MWORD  <JMAP.J=7> 

MWORD  <CONT.SELE.MGC=100> 

MWORD  <JMAP.J=10,BAD> 


<JMAP.J=12> 

<CONT,SELE,MGC=10> 

<JMAP.J=13,BAD> 


•OENA* 

•RD  LOCAL 

MEM* 

•ENA  EMUX 

'  (by 

MPREADCSR) 

10 

11 

12  'ENA  EMUX*  (by  MPREADEBUS) 

13 


i.m   i_i..i_oc  D-.^^  0/ 


DFPTA8 
DFPTA8 

12A1 

12A2 

1243 

12AA 

1245 

12A6 

12A7 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 
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SEQ  1416 


001431' 
001432' 
001433' 
001434' 
001435' 
001436' 
001437' 


001440' 
001441' 
001442' 
001443' 
001444' 


254  00 

210603 

001500' 

011413' 

000000 

000000 

7  ('777 


0  00  001440' 
00001 1 
011452' 
011325' 
001507' 
001643' 
777777 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
001336* 
001500' 
001340* 
000000 


#»*»»**»»»»»»»»»*t»**t** ***•*••*•♦*•*• »*••••••••**•♦*••♦**•**•*♦*♦*** 

•  TEST  11  -  MBUS  Error  Test  (CBUS  module  only) 


Descriptior, 


Procedure: 


Cause  drivers  to  be  asserted  on  the  MBUS  one  at  a 

time  and  verify  that  MBUS  Error  does  not  appear 

in  the  CSR  register,  since  only  one  drive  is  on 
at  once. 

Port  Clear 
Load  microcode 
Start  up  ucode  at  location  0 
Stop  ucode 
Read  CSR  register 
NBUS  error  set?  yes  -  error 
no  -  ok 

Do  for  starting  location  0 

Failure:     — 
#*•♦**♦*»»•*♦«»»•♦•♦*♦♦♦♦♦*♦*******♦****•**♦*************♦**♦******** 


001445'  400  15  0  00  000000 
001446*  260  17  0  00  001343* 
001447'  400  06  0  00  000000 


Test  data 

TSTU11:  JRST    T611 

WPROC 1 MBUS 1 NDMP ! NDCB 1 ZMPROC ! 1 1 

T11M,.[ASCIZ  "MBUS  Error  Test*] 

[EXP  MLAST!M3],.CEXP  MLAST!E15] 

TSTU12 

TSTU13 

-1 

;  Start  test 

T611:   MOVE!  Z8 

GO  TRACE 

MOVEI  1.T11M 

GO  TLOAD 
RTN 

;  Initialization 

TLll:  SETZ  ERFL6. 
GO  IPACLR 
SETZ    6. 


?o  start  test 
est  mask 


failure  test  table 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  table  address  pointer 


r 


\^\     4  #^    A  I   ar  r\ '\C 


r 


SEC  U04 


1DFPTA8 
1DFPTA8 


1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

129A 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

13U 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

133A 
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00K50' 
001451* 
001452' 
001453' 
001454' 
001455' 
001456' 
001457' 
001460' 
001461' 
001462' 
001463' 
001464' 
001465' 
001466' 
001467' 
001470' 


202  06 
350  GO 
400  01 
200  04 
202  04 
554  04 
260  17 
255  00 
200  01 
603  01 
474  15 
607  01 
474  15 
027  00 
254  00 
254  00 
326  15 


0  00 
0  00 
0  00 
0  06 


00 
00 
00 
00 
00 


0  00 


00 
00 
00 
00 
00 


0  00 
0  00 


001346* 

001450* 

000000 

001475' 

011165' 

000004 

001353* 

000000 

001355* 

002000 

000000 

004000 

000000 

001477' 

001450' 

001474' 

001474' 


001471'  350  00  0  00  000006 
001472'  332  00  0  06  001475' 
001473'  254  00  0  00  001450' 


001474'  26^  17  0  00  000000 


001475'  000000  011456' 
001476'  000000  000000 


001477'  270000  011104' 


001500' 
001501' 
001502' 
001503' 
001504' 
001505' 
001506' 


000000 
000000 
000100 
000000 
000200 
000000 

mm 


010000 

000040 
000200 
002340 
020000 
000041 

mm 
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1PR0C  Module  Te 

sts 

;  1st  segment  0 

f  test  (Segm 

rAll:   MOVEM 

6JSTSUB 

AGS 

T§TSUB 

SETZ 

1. 

MOVE 

4,T11TAB(6) 

MOVEM 

4.SAVDAT 

HLRZ 

4,4 

GO 

AEXEC 

JFCL 

MOVE 

l.ALCSR 

TLNE 

1,(MBERR) 

SETO 

ERFL6, 

TLNN 

1,(CRAMPE) 

SETO 

ERFL6, 

SCOPER 

MA11 

JRST 

TAll 

JRST 

TX11 

JUMPN 

ERFL6JX11 

;  Next  driver 

AOS 

6 

SKIPE 

T11TA8(6) 

JRST 

TA11 

;  End  of  test 

TX11:   RTN 

SEQ  1417 


set  up  subtest  number 

timeout  time  (test  is  fast) 

get  test  descriptor 

save  it 

get  starting  address 

execute  ALU  type  test 

ignore  any  error 

get  final  CSR  data 

reus  IvTor   occurred? 

yes  -  set  error  flag 

CRAM  PE  occurred? 

no  -  set  error  flag 

print  ^rror   message 

loop  on  error 

altmode  exit 

error  yet?  yes  -  abort  test 


point  to  next  driver  descriptor 

done? 

no  -  loop  till  done 


return 


;  Test  table  -  Starting  addr,, Error  message  addr 

T11TAB:  0,,[ASCIZ  /'ENA  CMUX'  signal  asserted  by  'MPENACMUX'/] 
0 


;  Error  message 

MA11:   LAST! CALL !TXALL!MPWBU1 

;  Microcode: 


T11M: 


MUORD 
MUORD 
MUORD 
-1 


<ADDR=0.JMAP,J=1> 

<CONT,SELM,MGC=200> 

<JMAP,J=2,BAD> 


print  test  results 


;  1  'Ena  CMUX'  (by  MPENACMUX) 
;  2 


DFPTA8 
DFPTA8 

1335 
1336 
1337 
1338 
1339 
13A0 
13A1 
1342 
13A3 
13AA 
13A5 
13A6 
13A7 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
13:7 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
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001507' 
001510' 
001511' 
001512' 
001513' 
001514' 


001515' 
001516' 
001517' 
001520' 
001521' 


254  00 

210403 

001562' 

011413' 

000000 

mill 


G  00  001515' 
000012 
011405' 
011325' 
001643' 
7777- f 
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*  TEST  12  -  MBUS  Error  Test  (MPROC  module  only) 

Description:  Causes  multiple  drivers  to  be  asserted  on  the 
MBUS  at  the  same  time  and  verify  that  MBUS  Error 
appears  in  the  CSR  register. 

Procedure:    Port  Clear 

Load  microcode 

Start  up  ucode  at  location  0 
Stop  ucode 
Read  CSR  register 
MBUS  error  set?  no  -  error 
yes  -  ok 

Do  for  starting  Locations  0,3,6,11,14,17,22,25 

Failure:     — 
;)f*  **♦***************•**♦♦*•****•**•********♦•******••*  *******•'*•*•*** 

;  Test  data 

TSTU12:  JRST    TG12  ;  go  start  test 

MPROC !M8USINDMP!ZMPR0C! 12      ;  test  mask 
T12M,,[ASCJZ  *MBUS  Error  Test  (MPROC  module  only)*J 
[EXP  MLAST!M33,,[EXP  MLAST!E15] 


SEQ  1418 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
001441* 
001562' 
001443* 
000000 


TSTUIj. 
-1 

;  Start  test 

T612:   MOVEI  U 

GO  TRACE 

MOVEI  1,T12M 

GO  TLOAD 
RTN 

;  Initialization 


001522'  400  15  0  00  000000 
001523'  260  17  0  00  001446* 
001524'  400  06  0  00  000000 


TL12: 


SETZ 

GO 

SETZ 


ERFL6, 
IPACLR 
6, 


failure  test  table 


et  address  of  module  start 

andle  trace  output 
set  up  microcode  address 
load/verify  it 
failed  -  exit  test 


;  clear  error  flag 

;  clear  port 

;  initialize  table  address  pointer 


I 
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SEQ  1419 
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SEQ  U19 


1378 

1379 

1380 

1381 

1382 

1383 

138A 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

139A 

1395 

1396 

1397 

1398 

1399 

KOO 

1401 

1A02 

1403 

UOA 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 


001525' 
001526' 
001527' 
001530' 
001531' 
001532' 
001533' 
001534' 
001535' 
001536' 
001537' 
001540' 
001541' 
001542' 
001543' 


202  06 
350  00 
400  01 
200  04 
202  04 
554  04 
260  17 
255  00 
200  01 
607  01 
474  15 
027  00 
254  00 
254  00 
326  15 


00 
00 
00 


0  06 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


001451* 

001525* 

000000 

001550' 

011165' 

000004 

001456* 

000000 

001460* 

002000 

000000 

001561' 

001525' 

001547' 

001547' 


001544'  350  00  0  00  000006 
001545'  332  00  0  06  001550' 
001546'  254  00  0  00  001525' 


001547'  263  17  0  00  000000 


001550' 
001551' 
001552' 
001553' 
001554' 
001555' 
001556' 
001557' 
001560' 


000000 
000003 
000006 
000011 
000014 
000017 
000022 
000025 
000000 


011467' 
011474' 
011505' 
011516' 
011527' 
011540' 
011552' 
011564' 
000000 


1st  segment  of  test  (Segment  A)  -  Turn  on  multiple  HBUS  drivers 

set  up  subtest  number 

timeout  time  (test  is  fast) 

get  test  descriptor 

save  it 

get  starting  address 

execute  ALU  type  test 

ignore  any  error 

get  final  GSR  data 

reus  Error  occurred? 

no  -  set  error  flag 

print  error  message 

loop  on  error 

altmode  exit 

error  yet?  yes  -  abort  test 


;  point  to  next  driver  descriptor 

;  done? 

;  no  -  loop  till  done 


;  return 

;  Test  table  -  Starting  addr,, Error  message  addr 

T12TAB:  0.,CASCIZ  /'OENA' , 'RDLM'  asserted/] 

3  CASCIZ  /'OENA','ENA  EMUX'  (by  MPREADCSR)  asserted/] 
6,,CASCIZ  /'OENA'/ENA  EMUX'  (by  MPREADEBUS)  asserted/] 
l1  ,CASCJ2  /'RDLM'/ENA  EMUX'  (by  MPREADCSR)  asserted/]^ 
14,, CASCIZ  /'RDLM','ENA  EMUX'  (by  MPLOADEBUS)  asserted/]   ^^^ 
--------  /'OENA'  'RDLM','ENA  EMUX'  (by  MPREADCSR)  asserted/] 

/•0ENA','RDLM','ENA  EMUX'  " 

/'OENA','RDLM','ENA  EMUX' 


TA12:   MOVEM 

6,TSTSUB 

AOS 

TSTSUB 

SETZ 

1- 

MOVE 

4,T12TAB(6) 

MOVEM 

4,SAVDAT 

HLRZ 

4,4 

GO 

AEXEC 

JFCL 

MOVE 

1,ALCSR 

TLNN 

l,(reERR) 

SETO 

ERFLG, 

SCOPER 

MAI  2 

JRST 

TA12 

JRST 

TX12 

JUMPN 

ERFLG, TX12 

;  Next  driver 

AOS 

6 

SKIPE 

T12TAB(6) 

JRST 

TA12 

;  End  of  test 

TX12:   RTN 

17,, CASCIZ 
22,, CASCIZ 
25,, CASCIZ 
0 
Error  message 


(by  MPLOADEBUS)  asserted/] 

(by  MPLOADEBUS, MPREADEBUS)  asserted/] 


001561'  270000  011133' 


MAI  2:   LAST! CALL! TXALLIMPMBU2 


001562' 
001563' 
001564' 
001565' 
001566' 
001567' 

001570' 
001571' 


000000 
000000 
000100 
000000 
000200 
000000 

000300 
000000 


O'OOOO 
000040 
002000 
220340 
020000 
000041 

040000 
000040 


;  Microcode: 
T12M:   MWORD 
MUORD 
MWORD 


<ADDR=0,JMAP,J=1> 

<C0NT,0ENA,RDLM> 

<JMAP,J=2,BAD> 


print  test  results 

;  0 

;  1  '0ENA','RDLM' 

;  2 


MUORD   <JMAP,J=4> 
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SEQ  1420  I 


"1 


m? 
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SEQ  ^^20 


U33 

K3A 

U35 

K36 

U37 

1A38 

1A39 

UAO 

1AA1 

UA2 

1AA3 

KAA 

HAS 

1AA6 

1AA7 

1AA8 

1AA9 

1A50 

1A51 

1A52 

1A53 

1A5A 

1A55 

1A56 

1A57 

1A58 

1A59 

1A60 

1A61 

1A62 

1A63 

1A6A 

1A65 

1A66 

1A67 

1A68 

1A69 

1A70 

1A71 

1A72 

1A73 

1A7A 

1A75 

1A76 

1A77 

1A78 

1A79 


001572'  OOOAOO 

001573*  000000 

001 57A'  000500 

001575'  000000 


001576' 
001577' 
001600' 
001601' 
001602* 
001603' 

001 60A' 
001605' 
001606' 
001607' 
001610' 
001611' 

001612' 
001613' 
001 61  A' 
001615' 
001616' 
001617' 

001620' 
001621' 
001622' 
001623' 
001 62A' 
001625* 

001626* 
001627* 
001630* 
001631* 
001632* 
001633* 

001 63A* 
001635* 
001636* 
001637* 
001 6A0* 
001 6A1* 
001 6A2* 


000600 
000000 
000700 
000000 
001000 
000000 

001  IOC 
000000 
001200 
000000 
001300 
000000 

001 AOO 
000000 
001500 
000000 
001600 
000000 

001700 
000000 
002000 
000000 
OoJIOO 
000000 

002200 
000000 
002300 
000000 
002A00 
000000 

002500 
000000 
002600 
000000 
002700 
000000 
777777 


002100 
0053A0 
050000 
0000A1 

070000 
OOOOAO 
002010 
0053A0 
100000 
OOOOAl 

120000 
OOOOAO 
000100 
2253A0 
130000 
OOOOAl 

1 50000 
OOOOAO 
000010 
2253A0 
160000 
OOOOAl 

200000 
OOOOAO 
002100 
2253A0 
210000 
OOOOAl 

230000 
OOOOAO 
002010 
2253A0 
2A0000 
OOOOAl 

260000 
OOOOAO 
002110 
2253A0 
270000 
OOOOAl 
777777 


MUORD  <CONT,OENA,SELE.MGC=100> 

HWORD  <JMAP,J=5,BAD> 

MUORD  <JMAP.J=7> 

MUORD  <CONT,OENA,SELfc,MGC=10> 

MUORD  <JMAP,J=10,BAD> 

MUORD  <JMAP,J=12> 

MUORD  <CONT.RDLM,SELE.MGC=100> 

MUORD  <JMAP,J=13.BAD> 

MUORD  <JMAP,J=15> 

MUORD  <CONT,RDLM,SELE,MGC=10> 

HUO^D  <JMAP,J=16,BAD> 

MUORD  <JMAP,J=20> 

MUORD  <CONT,OENA,RDLM.SELE.MGC=100> 

MUORD  <JMAP,J=21,BAD> 

MUORD  <JMAP,J=23> 

MUORD  <CONT,OENA,RDLM.SELE,M6C=10> 

MUORD  <JMAP,J=2A,BAD> 


MUORD 
MUORD 
MUORD 
-1 


<JMAP.J=26> 

<CONT,OENA,RDLM,SELE.M6C=110> 

<JMAP.J=27.BAD> 


A   'OENA'/ENA  EMUX' 
5 

6 

7   •0ENA*,*ENA  EMUX* 

10 

11 

12   'ROLM'/ENA  EMUX* 

13 

1A 

15   'RDLM'/ENA  EMUX* 

16 

17 

20   'OENA'/RDLM'/ENA  EMUX* 

21 

22 

23   *0ENA','RDLM','ENA  EMUX* 

2A 

25 

26   *OENA*/RDLM*/ENA  EMUX* 

27 


1A08 
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SEO  U2^ 


I 

DFPTA8 
DFPTA8 
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SEO  1-»21 


DFP 
DFP 


U80 

U81 

U82 

1A83 

U8A 

K85 

1486 

K87 

U88 

U89 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 


254  00  0  GO  001650* 
210603  000013 

001710'  011452' 

001646'  011413'  011325' 
001647'  711171     111177 


001643' 
001644' 
00164'-' 


0  00  000000' 

0  00  001516* 

0  00  001710' 

0  00  001520* 

001654'  263  17  0  00  000000 


001650'  201  00 

001651'  260  17 

001652*  201  01 

001653'  260  17 


001655'  400  15  0  00  000000 
001656'  260  17  0  00  001523* 
001657'  400  06  0  00  000000 


001660' 
00166V 
001662' 
001663' 
001664' 
001665' 
001666' 
001667' 


202  06 
350  00 
400  01 
200  04 
l^l  04 
554  04 
260  17 
255  00 


00 
00 
00 
06 
00 
00 
00 
00 


001526* 

001660* 

000000 

001703* 

011165* 

000004 

001533* 

000000 


#♦«♦«♦»••»«**♦»** **•♦*♦***♦*****«**** ******************************** 

*  TEST  13  -  M8US  Error  Test  (CBUS  module  only) 

Description:  Causes  multiple  drivers  to  be^  asserted  on  the 
MBUS  at  the  same  time  and  verify  that  MBUS  Error 
appears  in  the  GSR  register. 

Procedure:    Port  Clear 

Load  microcode 

Start  up  ucode  at  location  0 
Stop  ucode 
Read  CSR  register 
MBUS  error  set?  yes  -  error 
no  -  ok 

Do  for  starting  locations  0,3,6.11,14,17,22,25,30,33 

Failure:     — 
#»•»♦♦•*•••♦♦♦**♦*•***•♦♦♦***♦*»•*****♦******•*•♦****♦*****♦♦*****•** 


:  Test  data 

TSTU13:  JRST    TG13 

MPROC 1 MBUS 1 NDMP ! NDCB ! ZMPROC ! 1 3 
T13M,,CASCIZ  "MBUS  Error  Test*] 
[EXP  MLASTIM3],,I:EXP  MLASTIE153 
-1 


;  Start  test 

TG13:   MOVEI 
GO 

MOVEI 
GO 
RTN 


n 

TRACE 

1.T13M 

TLOAD 


Initialization 


TL13: 


SETZ 

GO 

SETZ 


ERFL6, 
IPACLR 
6, 


1st  segment  of  test  (Segment  A)  -  Turn 


TA13: 


MOVEM 

AOS 

SETZ 

MOVE 

MOVEM 

HLRZ 

GO 

JFCL 


6,TSTSUB 

TSTSUB 

1. 

4,T13TAB(6) 

4,SAVDAT 

4,4 

AFXEC 


10  start  test 
test  mask 


failure  test  table 


get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  table  address  pointer 

on  MBUS  drivers  one  at  a  time 

set  up  subtest  number 

timeout  time  (test  is  fast) 
get  test  descriptor 
save  it 

get  starting  address 
execute  ALU  type  test 
ignore  any  error 
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SEQ  1422 


DFI 
DFI 


0FPTA8 
DFPTA8 
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r 


SEQ  ^t^ll 


DFF 
OFF 


1533 

153A 

1535 

1536 

1537 

1538 

1539 

15A0 

15A1 

15A2 

15A3 

15A4 

15A5 

15A6 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 


001670' 
001671' 
001672' 
001673' 
001674' 
001675' 
001676' 


200  01 
607  01 
474  15 
027  00 
254  00 
254  00 
326  15 


00 
00 
00 
00 
00 
00 
00 


001535* 

002000 

000000 

001707' 

001660' 

001702' 

001702' 


001677'  350  00  0  00  000006 
001700'  332  00  0  06  001703' 
001701'  254  00  0  00  001660' 


001702'  263  17  0  G  000000 


001703'  OOCOOO  011601' 

001704'  000003  011611' 

001705'  000006  011621' 

001706'  000000  000000 


001707'  270000  011133' 


1.ALCSR 

1,(M8ERR) 

ERFL6, 

MA13 

TA13 

TX13 

ERFLG.TX13 


T13TA8(6) 
TA13 


001710' 
001711' 
001712' 
001713' 
001714' 
001715' 

001716' 
001717' 
001720' 
001721' 
001722' 
001723' 

001724' 
001725' 
001726' 
001727' 
001730' 
001731' 
001732' 


000000 
000000 
000100 
000000 
000200 
000000 

000300 
000000 
000400 
000000 
000500 
000000 

000600 
000000 
000700 
000000 
001000 
000000 
777777 


010000 
000040 
002200 
002340 
020000 
000041 

040000 
000040 
000200 
222340 
050000 
000041 

070000 
000040 
002200 
222340 
100000 
000041 
777777 


MOVE 

TLNN 

SETO 

SCQPER 

JRST 

JRST 

JUMPN 

;  Next  driver 

AOS 

SKIPE 
JRST 

;  End  of  test 

TX13:   RTN 

;  Test  table  -  Starting  addr,, Error  message  addr 

T13TAB:  0,,[ASCIZ  /'OENA'.'ENA  CMUX  (Ena  Cmux)'  asserted/] 

3,,[ASCIZ  /'RDLM'/ENA  CMUX  (Ena  Cmux)'  asserted/] 

6.,[ASCIZ  /'OENA'.'RDLM','ENA  CMUX  (Ena  Cmux)'  asserted/] 
0 


»et  final  CSR  data 
BUS  Error  occurred? 
no  -  set  error  flag 
print  error  message 
loop  on  error 
altmode  exit 
error  yet?  yes  -  abort  f  st 


point  to  next  driver  descriptor 

done? 

no  -  loop  till  done 


return 


;  Irror  message 

MA13:       LASTICALLIT.\LL!MPMBU2 

;   Microcode: 

T13M:   MWORD  <ADDR=0,JMAP  J=1> 

MWORD  <CONT,OENA.SELM,MGC=200> 

MWORD  <JMAP.J=2,BAD> 

MWORD  <JMAPJ=4> 

MWORD  <CONT,RDLM,SELM,M6C=200> 

MWORD  <JMAP,J=5,BAD> 


print  test  results 


1  0ENA,EnaCMUX 
2 

3 

4  RDLM,EnaCMUX 
5 


MWORD 
MWORD 
MWORD 
-1 


<JMAP,J=7> 

<CONT,OENA,RDLM,SELM,MGC=200> 

<JMAP,J=10,BAD> 


7  OENA,RDLM,EnaCMUX 
10 
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DF 
DF 
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SEQ  U23 


DF 
DF 


1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

160A 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

161A 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

162A 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 


J 


♦  TEST  U  -  CCCbusAvail  Test 


Description 


Procedure; 


Verify  that  condition  code  'CCCbusAvair  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 

Start  up  port  ..... 

UC>  perform  an  operation  and  then  verify  that 

CCCbusAvail  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 

CC  is  cleared  initially 

CC  is  set  by  a  read  in  progress 

CC  is  set  by  a  write  in  progress 

CC  is  cleared  by  completion  of  a  read 

CC  is  cleared  by  completion  of  a  write 

CC  is  cleared  by  'Clrcccode' 

Failure: 


001733*  25A  00  0  00  001745* 

001734*  200403  000014 

001735*  002060*  011632' 

001736*  011636*  011640* 

001737'  000000000000* 

001740*  000000000000* 

001741*  000000  005512* 

001742*  000000  006307* 

001743*  000000  006603' 

001744*  mm   mm 


go  start  test 
test  mask 


001745* 
001746' 
001747* 
001750' 
001751' 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000* 
001651* 
002060' 
001653* 
000000 


;  Test  data 

TSTU14:  JRST    TG14  i 

MPROC  INDMP.'ZMPROC!  14  - 

T14ri,,CASCIZ  ^CCCbusAvail  Test*],  ^   ..^..^^ 
CEXP  M6.MLAST!C5]..CEXP  M7.C15,C7,C8,MLAST!C1]   ^, 
TSTC3  ;  failure  test  table 

TSTC4 
TSTU30 
TSTU32 
TSTU33 
-1 


get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


Start 

test 

14: 

MOVE  I 

Z8 

GO 

TRACE 

MOVE  I 

1,T14M 

GO 

TLOAD 

RTN 
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SEQ  142A 


DF 
OF 


163A 

1635 

1636 

1637 

1638 

1639 

16A0 

16A1 

16A2 

16A3 

16^4 

16A5 

16A6 

16A7 

1648 

16A9 

1650 

1651 

1652 

1653 

165A 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

166A 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

167A 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 


Initialization 


001752"  AOO 

001753'  201 

001 75A'  A02 

001755'  A76 


001756' 
001757' 
001760' 
001761' 
001762' 


260 
260 
25A 
254 
474 


15 
06 
00 
00 


17 
17 
00 
00 
15 


00  000000 
00  001770' 
00  001661* 
00  000000* 


TL14: 


SETZ 
MOVE  I 
SETZM 
SETOM 


ERFL6, 
6,TS14 
TSTSUB 
TADDR 


Loop  on  test  execute  table  entries 


00 
00 
00 
00 
00 


001656* 
000000* 
001767' 
001757' 
000000 


TA14: 
TBI  4: 


60 

GO 
JRST 
JRST 
SETO 


IPACLR 
TEXEC 
TX14 
TBI  4 
ERFL6, 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


001763'  027  00  0  00  002044' 

001764'  254  00  0  00  001752' 

001765'  254  00  0  00  001767' 

001766'  322  15  0  00  001756' 


001767'  263  17  0  00  000000 


SCORER 
JRST 
JRST 
JUMPE 


MAI  4 
TL14 
TX14 
ERFLG,TA14 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


001770'  140000 

001771'  040000 

001772'  240002 

001773'  340000 


001774'  140000 

001775'  040000 

001776'  240002 

001777'  340000 


002000'  140000 

002001'  040000 

002002'  240002 

002003'  340000 


002021 ' 
000000 
000000 
000000 


002031 ' 
000010 
000000 
000000 


002031 • 
000020 
000000 
000000 


;  End  of  test 

TX14:   RTN 

;  Test  Execute  Table,  as 

;  CC  is  cleared  initially 

TS14:   TTABLE  (TCALL.TS14IN) 

TTABLE  (TSTART,0) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 

;  CC  is  set  by  a  read  in  progress 

TTABLE  (TCALL,TS14RW) 

TTABLE  (TSTARTJO) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXJT) 

;  CC  is  set  by  a  write  in  progress 

TTABLE  (TCALL,TS14RW) 

TTABLE  (TSTART,20) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


;  return 
(CMD, parameters) 


initialize  port 
start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  a  read 
start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  a  write 
start  up  port 
check  if  completed 
exit  if  error  yet 


0FPTA8 

f\rr\T  A  O 
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SEQ  1425 


D 
n 


DFPTA8 
DFPTA8 

168A 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

170A 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

171A 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 
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00200A'  UOOOO  002031' 

002005'  OAOOOO  000030 

002006'  240002  000000 

002007'  340000  000000 


002010'  140000  002031' 

002011'  040000  000040 

002012'  240002  000000 

002013'  340000  000000 
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SEQ  1425 


CC  is  cleared  by  completion  of  a  read 

TTABLE  (TCALLJS14RW) 

TTABLE  (TSTART,30) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 

CC  is  cleared  by  completion  of  a  write 

TTABLE  (TCALLJS14RW) 

TTABLE  (TSTART,40) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 

CC  is  cleared  by  'Clrcccode' 


002014' 
002015' 
002016' 
002017' 
002020' 

002021 • 
002022' 
002023' 
002024' 
002025' 
002026' 
002027' 
002030' 

002031 ' 
002032' 
002033' 
002034' 
002035' 
002036' 
002037' 
002040' 
002041 • 
002042' 
002043' 


140000 
040000 
240002 
34C000 
000000 


002031 ' 

000050 

000000 

000000 

000000 


260  17  0 
201  01  0 
242  01  0 
260  17  0 
201  01  0 
260  17  0 
260  17  0 
2o<  17  0 


00  001756* 
00  005000 
00  000001 
00  000452* 
00  000010 
00  000457* 
00  002021* 
00  000000 


201  14 
201  01 
201  02 
260  17 

200  01 
260  17 
551  01 

201  02 
400  03 
260  17 
263  17 


TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 

TS14IN:  GO 

novEi 

LSH 

GO 

MOVE  I 

GO 

60 

RTN 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 

000002 

000010 

000000* 

011645' 

000000* 

000000* 

000010 

000000 

000000* 

000000 


TS14RW: 


MOVE! 

HOVE  I 

MOVE  I 

60 

MOVE 

60 

HRRZI 

MOVE! 

SETZ 

60 

RTN 


(TCALL,TS14RU) 

(TSTART,50) 

(TCHECK,2) 

(TEXIT) 

(TLAST) 

IPACLR 
1.5000 

1,1 
LDRAR 
1 ,MPRUN 
LDCSR 
IPACLR 


PATJ 

1.2 

2.10 

BUF6EN 

l.CCBUFSZ,.CBUF] 

CHINIT 

l.BUFF 

2.10 

6ENCCU 


r 

D 
D 


otart  up  a  read 
start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  a  write 
start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  a  write 
start  up  port 
check  if  completed 
exit  if  error  yet 


clear  port 

get  starting  address 

position  properly 

set  up  starting  address 

get  'MPRUN'  i'i! 

start  up  t'K'  port 

stop  the  port 

return  -  done 

get  data  pattern 

get  transfer  type 

get  transfer  length 

generate  buffer  contents 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

return 
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SEQ  U26 


1727 

1728 

1729 

1730 

1731 

1732 

1733 

173A 

1735 

1736 

1737 

1738 

1739 

17A0 

17A1 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 


;  Error  messages 


002044'  140000  011646' 

002045'  240000  002047' 

002046'  000000000000* 

002047'  200  01  0  00  001754* 

002050'  256  00  0  01  002051' 

002051'  263  17  0  00  000000 


037  00  0  00 
037  00  0  00 

00 

00 
00 
00 


002052' 
002053' 

002054'  037  00  0 

002055'  037  00  0 

002056*  037  00  0 

002057'  037  00  0 


011656' 
011662' 
011670' 
011676' 
011705' 
011714' 


MAI  4: 


MA14LP; 


MA14L 


MSGITXNOTICASCIZ  /Condition  Code  'CC  C8US  Avsil'  not  /]  . 
CALL!TXN0T.'MA14LP  ;  print  subtest  description 

LAST! CALL !TXALL!TTPNT         ;  print  test  data 


MOVE 

XCT 

RTN 

TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 


IJSTSUB 
MA14L-1(1) 


get  subtest  number 
print  message 
return 


<cleared  initial ly> 
<set  by  a  read  in  progress> 
<set  by  a  write  in  progress> 
<cleared  by  completion  of  a  read> 
<cleared  by  completion  of  a  write> 
<cleared  by  'Clrcccode'> 


002060* 
002061 ' 
002062* 
002063* 
002064* 
002065* 


002066* 
002067* 
002070* 
002071  * 
002072' 
002073' 
002074' 
002075' 


002076' 
002077' 
002100' 
002101' 
002102' 
002103' 
002104' 
002105' 


000000 
000000 
000152 
000400 
000251 
000000 


001000 
000000 
001100 
001000 
001251 
001400 
001300 
001000 


002000 
000000 
002100 
001000 
002251 
001400 
002300 
001000 


002106'  003000 
002107*  000000 


010000 
000040 
000000 
000060 
000000 
000040 


110020 
002040 
000200 
004340 
000000 
000060 
120000 
000040 


210020 
002040 
000220 
004340 
000000 
000060 
220000 
000040 


310020 
002040 


;  Microcode: 

;      CC  is  cleared  initially 

T14M:   MUORD  <ADDR=0, JMAP,J=1> 

MWORD  <CJP.J=5200,CENA.CCCA> 

MWORD  <JMAP,J=5100> 

;      CC  is  set  by  a  read  in  progress 

MUORD   <ADDR=10,JMAP.J=11,SELM,MGC=20> 
MWORD   <C0NT.D=1,SELC.MGC=200> 
MWORD   <CJPJ=5100,D=1,CENA,CCCA> 
MWORD   <JMAP,J=12,D=1> 

;      CC  is  set  by  a  write  in  progress 

MWORD   <ADDR=20,JMAP,J=21 ,SELM,MGC=20> 
MWORD   <C0NT,D=1,SELC,M6C=220> 
MWORD   <CJP,J=5100,D=1,CENA,CCCA> 
MWORD   <JMAP.J=22,D=1> 

;      CC  is  cleared  after  completion  of  a  read 
MWORD   <ADDR=30,JMAP.J=31 .SELM.MGC=20> 


0 

1 

2 

10 

11 

12 
13 

20 
21 
22 
23 

30 


\ 
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0FPTA8 
DFPTA8 

1782 

1783 

178A 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

179A 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

180A 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

18U 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 
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002110' 
002111* 
002112' 
002113' 
002114' 
002115' 
002116' 
002117' 
002120' 
002121' 
002122' 
002123' 


002124' 
002125' 
002126' 
002127' 
002130' 
002131' 
002132' 
002133' 
002134' 
002135' 
002136' 
002137' 
002140' 
002141' 


003100 
001000 
003200 
001400 
003300 
001000 
003400 
001000 
003552 
000400 
003651 
000000 


004000 
000000 
004100 
001000 
004200 
001400 
004300 
001000 
004400 
001000 
004552 
000400 
004651 
000000 


002142' 
00?i43' 
002144' 
UU2145' 
002146' 
002147- 
002150' 
002151' 
002152' 
002153' 
002154' 
002155* 
002156' 
002157' 


005000 
000000 
005100 
001000 
005200 
001400 
005300 
001000 
005400 
001000 
005552 
000400 
005651 
000000 


002160'  500050 

002161*  000000 

002162*  500150 

002163*  000000 


000200 
004340 
340000 
000060 
320000 
000040 
000004 
004340 
000000 
000060 
000000 
000040 


410020 
002040 
000220 
004340 
440000 
000060 
420000 
000040 
000004 
004340 
000000 
000060 
000000 
000040 


510020 
002040 
000220 
004340 
540000 
000060 
520000 
000040 
000020 
002340 
000000 
000060 
000000 
000040 


010100 
004040 
010000 
000040 


MWORD  <CONT,D=1,SELC.MGC=200> 

MWORD  <CJP,J=34,D=1,CENA,CCCA> 

MWORD  <JMAP,J=32,D=1> 

MWORD  <C0NT.D=1,SELC.M6C=4> 

MWORD  <CJP,J=5200,CENA,CCCA> 

MWORD  <JMAP,J=5100> 

CC  is  cleared  by  completion  of  a  write 

MWORD  <ADDR=40JMAPJ=41,SELM,M6C=20> 

MWORD  <CONT,D=1,SELC.MGC=220> 

MWORD  <CJP.J=44,D=1,CENA,CCCA> 

MWORD  <JMAP.J=42,D=1> 

MWORD  <C0NT,D=1,SELC.MGC=4> 

MWORD  <CJP,J=5200.CENA.CCCA> 

MWORD  <JMAP,J=5100> 

CC  is  cleared  by  *Clrcccode* 

MWORD  <ADDR=50, JMAP.J=51 .SELM.MGC=20> 

MWORD  <CONT,D=1,SELC,MGC=220> 

MWORD  <CJP,J=54,D=1,CENA.CCCA> 

MWORD  <JMAP,J=52,D=1> 

MWORD  <CONT.D=1.SELM,MGC=20> 

MWORD  <CJPJ=5200,CENA,CCCA> 

MWORD  <JMAP,J=5100> 


31 
32 
33 
34 
35 
36 

40 
41 
42 
43 
44 
45 
46 

50 
51 
52 
53 
54 
55 
56 


;    Initialization 

MWORD       <ADDR=5000.JMAP,J=5001,SELC.MGC=100>         ;    5000 
MWORD       <JMAPJ  =  5001>  ;   5001 

;   Subroutine  -  Passed  -  Write  1    to  bit   12  cf  CSR  register 
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CFO    U?R 


DFPTA8 
D^PTAB 

1837 

1838 

1839 

18A0 

18A1 

18A2 

,      18A3 

18AA 

i      18A5 

18A6 

i      18A7 

'      18A8 

;      18A9 

1850 

!      1851 

:      1852 

■  1853 
i  185A 
!  1855 
;  1856 
i  1857 
i  1858 
I  1859 
i  1860 
!      1861 

•      1862 

1863 

I      186A 

i      1865 

1866 

i      1867 

1868 

I      1869 

1      1870 

j      1871 

I      1872 

I      1873 

187A 

1875 

■  1876 
1877 
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SEQ  U28 


002 16A* 
002^65' 
002166" 
002167* 
002170' 
002171' 
002172' 
002173' 
002  1 7^' 
002175' 
002176' 
002177' 
002200' 
002201 • 
002202' 
002203' 
002204' 
002205' 


510000 

742001 

510100 

302001 

510200 

000000 

510351 

1020?i 

510^ 

431 

510  1 

001400 

510651 

001000 

510700 

431010 

511051 

001000 


002206' 
002207' 
002210' 
002211' 
002212' 
002213' 
002214' 
002215' 
002216' 
002217' 
002220' 
002221' 
002222' 
002223' 
002224' 
002225' 
002226' 
002227' 
0C2230* 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
10?021 
5«:.'400 
431020 
520552 
001400 
520652 
001  COO 
520700 
431010 
521052 
001000 
777777 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 
777777 


MUORD 
NWGPD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 

Subroutine  - 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
-1 


<ADDR=51OO.CONT,SD0,AND,B=2,D=2>  ;  5100 

<C0NT, SOB, PLUS, 8=2, D=2,CRY>  ;  5101 

<LDCT,J=26>  ;  5102 

<RPCT,J=5103, SAB, PLUS, A=2, 8=2. D=2>  ;  5103 

<CONT,S0A,A=2.OR,D=1,OENA.SELE.MGC=4>  ;  5104 

<CJP,J=5107,CENA,CCGC.D=1,SELE,MGC=40>  ;  5105 

<JMAP,J=5105.D=1>  ;  5106 

<CONT.S0A,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

<JMAP,J=5110,D=1>  ;  5110 

Failed  -  Urite  1  to  bit  13  of  CSR  register 

<ADDR=5?00,C0NT,SD0.AND,8=2.D=2>  ;  5200 

<CONT,S0b-PLUS,B=2,D=2.CRY>  ;  5201 

<LDCT,J=25>  ;  5202 

<RPCT,J=5203, SAB. PLUS, A=2, 8=2, D=2>  ;  5203 

<CONT,SOA.A=2,OR,D=1.0ENA,SELE,M6C=4>  ;  5204 

<CJP.J=5207.CENA.CC6C,D=1,SELE.MGC=40>  ;  5205 

<JMAP,J=5205,D=1>  ;  5206 

<CONT.S0A.A=1,OR,D=1.SELE.MGC=200>  ;  5207 

<JMAP.J=5210,D=1>  ;  5210 
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SEQ  U16 


DFPTA8 
DFPTA8 

1878 

1879 

1880 

1881 

1882 

1883 

188A 

1885 

1886 

1887 

1888 

1889 

1890 

189) 

1892 

1893 

189A 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

190A 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

192A 

1925 

1926 
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HPROC 


3A 

Module 


Tests 


SEQ  H29 


002231' 
002232' 
002233' 
00223A' 
002235' 
002236* 
002237' 
0022A0' 
0022A1' 
0022A2' 


0022A3' 
0022AA' 
0022A5' 
002246* 
002247* 


t  TEST  15  -  CCGrntCSR  Test 


Descnptiof.; 


Procedure: 


verify  that  condition  code  'CCGrntCSR'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 

Start  up  port  ,      ... 

UC>  perform  an  operation  and  then  wenfy  that 

CCGrntCSR  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 


Repeat  with  several  test  cases: 
CC  is  cleared  initially 

set  after  MP  requests  access  to  CSR 

cleared  after  MP  reads  CSR 

cleared  after  MP  writes  CSR 

still  set  after  KL  attempts  to  read  the  CSR 

still  set  after  KL  attempts  to  write  the  CSR 


CC 

CC 
CC 
CC 
CC 


is 
is 
is 
is 
is 


Failure:     — 


Test  data 


254  00 

200403 

002334' 

011^24' 

000000 

000000 

000000 

000000 

000000 

mm 


0  00  002243' 
000015 
011721' 
011726' 
002467' 
003315' 
003525' 
003677* 
004070' 
777777 


go  start  test 
test  mask 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
001746* 
002334' 
001750* 
000000 


TSTU15:  JRST    TG15 

MPR0C1NDMP!ZMPR0C!15 

T15M,.[ASCIZ  •CCGrntCSR  Test*] 

CEXP  M6,MLAST!E3],.[EXP  M7.MLAST1E7] . _ 

TSTU16  ;  failure  test  table 

TSTU17  ;   ... 

TSTU20 

TSTU21 

TSTU22 

-1 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


Start  test 

15:   MOVEI 
GO 

MOVEI 
GO 
RTN 

Z8 

TRACE 

1,T15M 

TLOAD 

iNCDTAfi      MATDn   1KXDl^^yL^i^    00-10      l.liil-R't    Pane    '^S 


A    M    ^^ 


SEQ  U17 
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1927 

1928 

1929 

1930 

1931 

1932 

1933 

193A 

1935 

1936 

1937 

1938 

1939 

19A0 

19A1 

19A2 

19A3 

19AA 

19A5 

19A6 

19A7 

19A8 

19A9 

1950 

1951 

1952 

1953 

195A 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

196A 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 


002250'  AOO  15  0  00  OOOQOO 

002251'  201  06  0  00  002266' 

002252'  A02  00  0  00  0020A7* 

002253'  A76  00  0  00  001755* 


00225A'  260  17  0  00  002027* 

002255'  260  17  0  00  001757* 

002256'  25A  00  0  00  002265' 

002257'  25A  00  0  00  002255' 

002260'  A7A  15  0  00  000000 


002261'  027  00  0  00  002320' 

002262'  25A  00  0  00  00225U' 

002263'  25A  00  0  00  002265' 

00226A'  322  15  0  00  00225A' 


002265'  263  17  0  00  000000 


002266'  OAOOOO  000000 
002267'  2A0002  000000 
002270'  3A0000  000000 


002271'  OAOOOO  000010 
002272'  2A0002  000000 
002273'  3A0000  000000 


00227A'  OAOOOO  000020 
002275'  2A0002  000000 
002276*  3A0000  000000 


'^3! 


35 
Module 


Tests 


SEQ  1A30 


Inuialization 


TL15: 


SETZ 
MOVE  I 
SETZM 
SETOM 


ERFLG. 
6.TS15 
TSTSUB 
TADDR 


Loop  on  test  execute  table  entries 


TA15: 
TBI  5: 


60 

GO 
JRST 
JRST 
SETO 


IPACLR 
TEXEC 
TX15 
TBI  5 
ERFLG, 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA15 
TL15 
TX15 
ERFLG.TA15 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX15:   RTN 

;  Test  Execute  Table,  as: 

;  CC  is  cleared  initially 


return 


(CMD, parameters) 


TS15; 


T TABLE 
T TABLE 
T TABLE 


(TSTART,0) 
(TCHECK.2) 
(TEXIT) 


;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


CC  is  set  after  MP  requests  access  to  CSR 


T TABLE 
T TABLE 
T TABLE 


(TSTART,10) 

(TCHECK,2) 

(TEXIT) 


CC  is  cleared  after  MP  reads  CSR 

TTABLE  (TSTART,20) 
TTABLE   (TCHECK.2) 
TTABLE  (TEXIT) 


start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  port 
check  if  completed 
exit  if  error  yet 


DFPTA8 
DFPTA8 

197A 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
198A 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
199A 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
201A 
2015 
2016 
2017 
2018 
2019 
2020 
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SEQ  U31 


CC  is  cleared  after  MP  writes  CSR 


002277'  OAOOOO  000030 
002300'  2A0002  000000 
002301'  340000  000000 


002302'  040000  000040 

002303'  140000  002313' 

002304'  240002  000000 

002305'  340000  000000 


TTABLE 
TTABLE 
TTABLE 


(TSTART,30) 

(TCHECK,2) 

(TEXIT) 


CC  is  stir  set  after  KL  does  a  DATAI 

TTABLE  (TSTART,40) 

TTABLE  (TCALL,TDATAI) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 

CC  is  still  set  after  KL  does  a  DATAO 


002306' 
002307' 


040000 
140000 


002310'  240002 
002311'  340000 
002312'  OOCOOO 


000040 

002315' 

000000 

000000 

000000 


002313'  260  17  0  00  000460* 

002314'  263  17  0  00  000000 

002315'  400  01  0  00  000000 

002316'  260  17  0  00  002024* 

002317'  263  17  0  00  000000 


002320'  140000  011730' 

002321'  240000  002323' 

002322'  000000000000* 

002323'  200  01  0  00  002252* 

002324'  256  00  0  01  002325' 

002325'  263  17  0  00  000000 

002326'  037  00  0  00  011656' 

002327'  037  00  0  00  011737' 

002330'  037  00  0  00  011747' 

002331'  037  00  0  00  011755' 

002332'  037  00  0  00  011763' 

002333'  037  00  0  00  011775' 


TDATAI 


TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 

GO 
RTN 


TDATAO:  SETZ 
GO 
RTN 


(TSTART,40) 
(TCALL, TDATAO) 
(TCHECK,2) 
(TEXIT) 
(TLAST) 

RDLAR 


1, 
LDRAR 


Error  messages 


start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  port 
read  CSR 

check  if  completed 
exit  if  error  yet 


start  up  port 
read  CSR 

check  if  completed 
exit  if  error  yet 
end  of  table 

read  LAR 
return 

clear  data 
write  RAR 
return 


MA15:   MSGITXNOTICASCIZ  /Condition  Code  'CC  Grnt  CSR'  not  /] 

CALLITXN0T!MA15LP  ;  pr'.nt  subtest  description 

LAST! CALL !TXALL!TTPNT         ;  print  test  data 


MA15LP:  MOVE 
XCT 
RTN 

MA15L;  TMSG 
TMS6 
TMSG 
TMSG 
TMSG 

the  CSR> 

TMSG 

the  CSR> 


1,TSTSUB 
MA15L-1(1) 


get  subtest  number 
print  message 
return 


<cleared  initially> 
<set  after  MP  requests  access  to  CSR> 
<cleared  after  MP  reads  CSR> 
<cleared  after  MP  writes  CSR> 
<still  set  after  KL  attempts  to  read 

<still  set  after  KL  attempts  to  write 
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SEQ   1432 


K19 
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2021 
2022 
2023 
202A 
2025 

2026  002334'  000000  010000 

2027  002335*  000000  OOOOAO 

2028  002336'  000152  000000 

2029  002337'  OOOAOO  010060 

2030  0023A0'  000251  000000 

2031  0023A1'  000000  000040 
2032 

2033 
203A 

2035  002342'  001000  110040 

2036  002343'  000000  005040 

2037  002344'  001151  000040 

2038  002345'  000400  015060 

2039  002346'  001200  110000 

2040  002347'  000000  000040 
2041 
2042 
2043 

2044  002350'  002000  210040 

2045  002351'  000000  005040 

2046  002352'  002100  230000 

2047  002353'  000400  010060 

2048  002354*  002200  210000 

2049  002355*  000000  000040 

2050  002356'  002300  000100 

2051  002357*  OuJOOO  005340 

2052  002360*  002452  000000 

2053  002361*  000400  010060 

2054  002362'  002551  000000 

2055  002363'  000000  000040 
2056 
2057 
2058 

2059  002364'  003000  310040 

2060  002365'  000000  005040 

2061  002366'  003100  330000 

2062  002367'  000400  010060 

2063  002370'  003200  310000 

2064  002371'  000000  000040 

2065  002372*  003300  000004 

2066  002373*  441000  005340 

2067  002374*  003400  000200 

2068  002375*  000000  005340 

2069  002376'  003552  000000 

2070  002377*  000400  010060 

2071  002400*  003651  000000 

2072  002401*  000000  000040 
2073 
2074 
2075 
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;  Microcode: 

;              CC  is  cleared  initially 

T15M:       MWORD  <ADDR=0  JMAP  J=l> 

MUORD  <CJP,J=5200,CENA,CCGC> 

MWORD  <JMAP,J=5100> 

;  CC  is  set  after  MP  requests  access  to  CSR 

MUORD       <ADDR=10JMAP,SELE,MGC=40,J=11> 
MWORD       <CJP,J=5100,CENA,CCGC,M6C=40.SELE> 
MWORD       <JMAP,J=11> 

CC  is  cleared  after  MP  reads  CSR 


SEQ  1432 


;  0 
;  1 
;  2 


10 


12 


MWORD 

<ADDR=20,JMAP,SELE,MGC=40,J=21> 

20 

MWORD 

<CJP.J=23,CENA,CCGC> 

21 

MWORD 

<JMAP,J=21> 

22 

MWORD 

<C0NT,SELE,MGC=100> 

21 

MWORD 

<CJP,J=5200,CENA,CCGC> 

24 

MWORD 

<JMAP,J=5100> 

25 

CC  is 

cleared  after  MP  writes  CSR 

MWORD 

<ADDR=30,JMAP,SELE,MGC=40,J=31> 

;  30 

MWORD 

<CJP,J=33,CENA.CC6C> 

;  31 

MWORD 

<JMAP,J=31> 

;  32 

MWORD 

<CONT,S0A,AND,D=1 ,SELE,MGC=4> 

;  33 

MWORD 

<CONT,SELE,MGC=200> 

;  34 

MWORD 

<CJP.J=5200,CENA,CCGC> 

;  35 

MWOPD 

<JMAP,J=5100> 

;  36 

CC  is  still  set  after  KL  attempts  to  read  the  CSR 
CC  is  still  set  after  KL  attempts  to  wnte  the  CSR 


1420 
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SEQ  1433 


DFPTA8 
DFPTA8 

2076 
2077 
2078 

2080 

2081 

2082 

2083 

208A 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

209A 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

21U 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 
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SEQ  1433 


002402* 
002403' 
002404* 
002405* 
002406* 
002407* 
002410* 
002411* 
002412* 
002413* 
002414* 
002415* 
002416' 
002417* 
002420* 
002421  * 


004000 
000000 
004100 
000400 
004200 
000000 
004300 
000400 
004400 
000000 
004552 
000000 
004600 
000000 
004751 
000000 


002422* 
002423' 
002424* 
002425* 
002426* 
002427* 
002430* 
002431  * 
002432* 
002433* 
002434* 
002435* 
002436* 
002437' 
002440* 
002441 • 
002442* 
002443' 


510000 

742001 

510100 

302001 

510200 

000000 

510351 

102021 

510400 

431020 

5iJ551 

001400 

510651 

001000 

510700 

431010 

511051 

001000 


002444  • 
002445' 
002446* 
002447' 
002450* 
002451  * 
002452' 
002453' 
002454* 
002455* 
002456' 
002457* 
002460' 
002461 • 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
520552 
001400 
520652 
001000 


410040 
005040 
430000 
100060 
410000 
000040 
460000 
010060 
000200 
005340 
000000 
000040 
000200 
005340 
000000 
000040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 


MWORD  <ADDR=40,JMAP,SELE,MGC=40.J=41> 

MUORD  <CJP,J=43,CENA,CCER> 

KUORD  <JMAP,J=41> 

MWORD  <CJP,J=46,CENA,CCGC> 

MWORD  <CONT.SELE,MGC=200> 

MWORD  <JMAPJ  =  5200> 

MWORD  <CONT,SELE,M6C=200> 

MWORD  <JMAP,J=5100> 

Subroutine  -  Passed  -  Write  1  to  bit  12  of  GSR  register 


MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 

Subroutine 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 


<ADDR=5100,CONT,SDO,AND,B=2,D=2> 

<CQNT, SOB, PLUS, 8=2, D=2,CRY> 

<LDCT,J=26> 

<RPCT,J=5103, SAB, PLUS, A=2, 8=2, D=2> 

<-ONT,S0A,A=2,0R,D=1,OENA,SELE,MGC=4> 

<CJP,J=5lt  ,CENA,CCGC,D=1,SELE,MGC=40> 

<JMAP,J=5105,D=1> 

<C0NT,S0A,A=1,0R,D=1,SELE,MGC=200> 

<JMAP,J=5110,D=1> 

■"'iled  -  Write  1  to  bit  13  of  CSR  register 
<ADDR=5200,C0NT,SD0,AND,8=2,D=2> 
<C0NT, SOB, PLUS, 8=2, D=2,CRY> 
<LDCT,J=25> 

<RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2> 
<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4> 
<CJP,J=5207,CENA,CCGC,D=1,SELE.MGC=40> 
<JMAP,J=5205,D=1> 


40 
41 
42 
43 
44 
45 
46 
47 

5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5110 

5200 
5201 
5202 
5203 
5204 
5205 
5206 


DFPTA8  MACRO  X53B(1242)  09:19  l-JuL-85  Page  37-2 

DFPTA8  MAC    18-Apr-85  10:59       MPROC  Module  Tests 


SEQ  1434 


1^21 


DFPTA8 
DFPTA8 

2131 
2132 

213A 
2135 


MACRO  X53B(1242)  09:19     1-JuL-85 
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Page 
PROC 


MPR 


37-2 
Module 


Tests 


SEQ  K34 


r 

OFI 
OFI 


002A62' 
002A63' 
002A6A' 
002A65' 
002466' 


520700 
431010 
521052 


000200 
005340 
1QQ000 

m 


MWORD   <CONT,SOA.A=1.0R.D=1,SELE,MGC=200> 

MWORD   <JMAP.J=5210.D=1> 

-1 


5207 

5: 10 


1422 
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SEQ  1435 


DF 
OF 
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SEQ  H35 


DF 
DF 


2136 

2137 

2138 

2139 

2U0 

21A1 

2U2 

2K3 

21AA 

21A5 

2H6 

2U7 

2U8 

2U9 

2150 

2151 

2152 

2153 

21 5A 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

21 6A 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

21 7A 

2175 

2176 

2177 

2178 

2179 

2180 

2181 


/^***»*«*«***** ******************************************************* 
*  TEST  16  -  CCFEQO  Test 

Description:  Verify  that  condition  code  'CCFEQO'. can  be  tested 
by  the  microsequencer  for  use  in  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 


Procedure; 


do  so. 

Port  Clear 

Start  up  port 

UC>  gate  -I's  out  of  the  2901 's  and  verify  that 

the  CCFEQO  is  not  asserted  or  asserted  ^ 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 
-I's 
floating  I's 


J! 


Failure:     ~"* 


002A67' 
002 A 70' 
002A71 ' 
002A72' 
002A73' 
002A7A ' 
002A75' 
002A76' 
002A77' 
002500' 


002501 ' 
002502' 
002503' 
00250A' 
002505* 


25A  00 

20nA03 

0oJ560' 

012012' 

000000 

000000 

000000 

000000 

000000 

mm 


00  002501 
000016 
012007' 
01201A' 
003315' 
003525' 
003677' 
00A070' 
00A261 ' 

mm 


;  Test  data 

TSTU16:  JRST    T616 

MPROC  INDMP.'ZMPROC!  16 

T16M,,[ASCIZ  *CCFEQO  Test*] 

CEXP  M6.MLASTIE233..CEXP  MLASTIM7J 

TSTU17 

TSTU20 

TSTU21 

TSTU22 

TSTU23 

-1 


?o  start  test 
est  mask 


failure  test  table 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
0022AA* 
002560' 
0022A6* 
000000 


TG16: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z8 

TRACE 
1,T16M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


.._...^.J 
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SEQ  1A36 


D 
D 


DFPTA8 
DFPTA8 

2182 

2183 

21 8A 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

21 9A 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

220A 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

221A 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 
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39 
Module 


Tests 


SEQ  K36 


Dl 

Dl 


002506'  AOO  15  0  00  000000 

002507'  201  06  0  00  002524' 

002510'  402  00  0  00  002323* 

002511*  476  00  0  00  002253* 


002512' 
002513'  __- 
002514'  254  00 
002515' 
002516' 


260  17  0  00  002254* 
260  17  0  00  002255* 
_.  ,.  0  00  002523' 
254  00  0  00  002513' 
474  15  0  00  000000 


002517'  027  00  0  00  002546' 

002520'  254  00  0  00  002506' 

002521'  254  00  0  00  002523' 

002522'  322  15  0  00  002512' 


002523'  263  17  0  00  000000 


002524' 
002525' 
002526' 
002527' 
002530' 

002531 ' 
002532' 
002533' 
002534' 
002535' 
002536' 
002537' 
002540' 
002541 ' 
002542' 
002543' 
002544' 
002545' 


200000 
O'^JOOO 
2^0002 
340000 
300000 

350  01  0 
307  01  0 
350  00  0 
476  00  0 
322  01  0 
402  00 
306  01 
263  17 
370  00 

201  00 
242  00 

202  00 
263  17 


002531' 

Q77777 

000000 

000000 

002524' 

)  00  002511* 

)  00  000045 

)  17  000000 

00  011165' 

00  002545' 

00  011165' 

00  000045 

00  000000 

00  000001 

00  OOOCOl 

01  000000 
00  011165' 
00  000000 


Initialization 


TL16: 


SETZ 
MOVE  I 
SETZM 
SETOM 


ERFLG, 
6JS16 
TSTSUB 
TADDR 


Loop  on  test  execute  table  entries 


TA16: 
TBI  6: 


GO 

GO 

JRST 
JRST 
SETO 


IPACLR 
TEXEC 
TX16 
TBI  6 
ERFLG. 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


;  Handle  error  printouts  and  scope  looping 

SCOPER  MAI  6 

JRST  TL16 

JRST  TX16 

JUMPE  ERFLG. TA  0 

;  End  of  test 

TX16:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD. parameters) 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


TS16:   TTABLE  (TCALLC.TS16AD) 

TTABLE  (TSTART, 77777) 

TTABLE  (TCHECK.2) 

TTABLE  (TEXIT) 

TTABLE  (TJRST.TS16) 

TS16AD:  AOS  1. TADDR 

CAIG  1.45 

AOS  (P) 

SETOM  SAVDAT* 

JUMPE  1.TS16AX 

SETZM  SAVDAT 

CAIN  1.45 

RTN 

SOS  1 

MOVE I  1 

LSH  (1) 

MOVEM  SAVDAT 
TS16AX:  RTN 


set  up  starting  address 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 

increment  address 

dor.  yet? 

no  -  set  up  return+2 

set  data  to  I's 

zero  -  yes  -  exit 

set  data  to  O's 

zero's? 

yes  -  return 

calculate  number  of  shifts 

get  a  1  bit 

shift  (for  floating  1) 

save  it 

return 


L 


1424 
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SEQ  1437 


r 


2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2211 

2278 

2279 

2280 

2281 

2282 

2283 

2284 


002546'  140000  012015' 

002547'  240000  002551' 

002550'  000000000000* 

002551'  336  00  0  00  011165' 


;  Error  messages 

MA16:   MSG.'TXNOT.'CASCIZ  /Condition  code  'CC.FEQLO'/]   ^ 
CALL1TXN0T!MA16PN  ;  print  data  used 

LAST! CALL !TXALL!TTPNT         ;  print  test  data 


002552' 
002553' 
002554' 
002555' 
002556' 
002557' 


254  00 
037  00 
200  00 
037  13 
037  00 
263  17 


002560' 

002561 ' 

002562' 

002563' 

002564' 

002565' 

002566' 

002567' 

002570' 

002571 ' 

002572' 

002573' 

002574' 

002575' 

002576' 

002577' 

002600' 

002601 • 

002602' 

002603' 

002604' 

002605' 

002606' 

002607' 

002610' 

00261 1 ' 

002612' 

002613' 

002614' 

002615' 

002616' 

002617' 

002620' 

002621 ' 

002622' 

002623' 

002624' 


00 
00 
00 
00 
00 
00 


012033' 

012035' 

011165' 

000000 

012043' 

000000 


MA16PN:  SKIPN 
JRST 

TMSG 

MOVE 

PNTHW 

TMSG 

RTN 

;  Microcode: 


000001 

000000 

0001 02 

000000 

000203 

000000 

000304 

000000 

000405 

000000 

000506 

000000 

0uJ607 

000000 

000710 

000000 

001011 

000000 

001112 

000000 

001213 

000000 

001314 

000000 

001415 

000000 

001516 

000000 

001617 

000000 

001720 

000000 

002021 

000000 

002122 

000000 

002223 


000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 


T16M: 


MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


SAVDAT 

[TMSG   <  should  be  set  (data  O's)  but  isn't. > 
RTN3 

<  should  not  be  set  (data  > 
SAVDAT 

<)  but  is.> 


<ADDR=0,JMAPJ  =  100> 

<JMAP,J=200> 

<JMAP,J=300> 

<JMAP.J=400> 

<JMAP,J=500> 

<JMAP,J=600> 

<JMAP,J=700> 

<JMAP,J=1000> 

<JMAP,J=1100> 

<JMAP,J=1200> 

<JMAP,J=1300> 

<JMAP,J=1400> 

<JMAP,J=1500> 

<JMAP.J=1600> 

<JMAP,J=1700> 

<JMAP,J=2000> 

<JMAP.J=2100> 

<JMAP.J=2200> 

<JMAP,J=2300> 


0  - 

1  - 

2  - 

3  - 

4  - 

5  - 

6  - 

7  - 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 


1's 

1 

2 

4 

10 

20 

40 

100 

-  200 

-  400 

-  1000 

-  2000 

-  4000 

-  10000 

-  20000 

-  40000 

-  100000 

-  200000 

-  400000 


1 


:Q  1425 
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SEQ  K38 


2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

229A 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

230A 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

23U 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 


002625' 

002626' 

002627' 

002630' 

002631 • 

002632' 

002633' 

002634' 

002635' 

002636' 

002637' 

002640' 

002641 • 

002642' 

002643' 

002644' 

002645' 

002646' 

002647' 

002650' 

002651 ' 

002652' 

002653' 

002654' 

002655' 

002656' 

002657' 

002660' 

002661 • 

002662' 

002663' 

002664' 

002665* 

002666' 

002667' 

002670' 

002671 ' 

002672' 

002673' 


000000 

002324 

000000 

002425 

000000 

002526 

000000 

002627 

000000 

002730 

000000 

003031 

000000 

003132 

000000 

003233 

000000 

003334 

000000 

003435 

000000 

003536 

000000 

003637 

000000 

003740 

000000 

004041 

000000 

004142 

OuJOOO 

004243 

000000 

004344 

000000 

004445 

onoooo 

004546 
000000 


002674  • 
002675' 
002676' 
002677' 
002700' 
002701 ' 


010000 
742000 
010152 
171400 
010251 
000000 


002702'  020000 

002703'  742000 

002704'  020100 

002705'  102000 


000040 

000000 

000040 

OQOOOO 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 


000000 
000340 
002000 
020060 
000000 
000040 


000000 
000340 
000000 
000740 


MUORD 

MWORD 

MWORD 

MWORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 


<JMAP,J: 
<JMAP,J= 
<JMAP,J= 
<JMAP.J= 
<JMAP,J: 
<JMAP,J= 
<JMAP.J= 
<JMAP,J: 
<JMAP,J^ 
<JMAP,J^ 
OMAP.J 
<JMAP,J 
<JMAP,J 
<JMAP.J 
<JMAP,J 
<JMAP,J 
<JMAP,J 
<JMAP,J 
<JMAP,J 


:2400> 
:2500> 

:2600> 

:2700> 
:3000> 
:3100> 
:3200> 
:3300> 
:3400> 
:3500> 

=3600> 
=3700> 
=4000> 
=4100> 
=4200> 
=4300> 
=4400> 
=4590> 
=4600> 


;  Data  pattern  Ts 

MUORD   <ADDR=100,CONT.SD0,AND,D=2> 

MUORD   <CJP,J=5200,SAB,XNOR,D=1 .CENA,OENA,CCFZ> 

MUORD   <JMAP,J=5100> 

;  Data  pattern  floating  Ts  -  1 

MUORD   <ADDR=200.CONT,SD0.AND,D=2> 
MUORD   <C0NT. SAB, PLUS, CRY, D=2> 


23  - 

1,,0 

24  - 

2,,0 

25  - 

4.,0 

26  - 

10, ,0 

11  - 

20, ,0 

30  - 

40, ,0 

31  - 

100, ,0 

32  - 

200,, 0 

33  - 

400, ,0 

•  34  - 

1000, ,0 

■  35  - 

2000,, 0 

■  36  - 

4000,, 0 

;  37  - 

10000,, 0 

;  40  - 

20000,, 0 

;  41  - 

40000,, 0 

;  42  - 

1 00000,, 0 

;  43  - 

200000,, 0 

;  44  - 

400000,, 0 

;  45  - 

O's 

;  100 

;  101 

;  102 

;  200 

;  201 
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e  Tests 


SEQ  K39 


EQ  K26 


0FPTA8 
0FPTA8 

23A5 
23A6 
23A7 
23A8 

Wsl 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 
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002706'  020252 

002707'  431400 

002710'  020351 

002711'  000000 


002712' 
002713' 
002714' 
002^5' 
002716' 
002717' 


002720' 
002721 ' 
002722' 
002723' 
002724' 
002725' 


002726' 
002727' 
002730' 
002731 ' 
002732' 
002733' 


030000 
742000 
030100 
102000 
030253 
000000 


040000 
742000 
040100 
102000 
040253 
000000 


050000 
742000 
050100 
102000 
050253 
OuJOOO 


002734' 
002735' 
002736' 
002737' 
002740' 
002741 ' 


002742' 
002743' 
002744' 
002745' 
002746' 
002747' 


060000 
742000 
060100 
102000 
060253 
000000 


070000 
742000 
070100 
102000 
070253 
000000 


002750'  100000 
002751'  742000 
002752'  100100 


002000 
020060 
000000 
000040 


000000 
000340 
000000 
000700 
000000 
000040 


000000 
000340 
010000 
000700 
000000 
000040 


000000 
000340 
020000 
000700 
000000 
00oC40 


000000 
000340 
030000 
000700 
000000 
000040 


000000 
000340 
040000 
000700 
000000 
000040 


000000 
000340 
050000 
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NPROC  Module  Tests 

MWORD  <CJP.J=5200,S0A,0R.D=1.CENA.OBNA,CCFZ>  ;  202 

MUORD  <JMAPJ  =  5100>  ;  203 

;  Data  pattern  floating  1*5-2 

MWORD  <ADDR=:^00.CONT,SD0,AND,D=2>  ;  300 

MWORD  <LDCT,J=0. SAB. PLUS. CRY. D=2>  ;  301 

MWORD  <JMAP.J=5300>  ;  302 

;  Data  pattern  floating  I's  -  4 

MWORD  <ADDR=400.CONT,SD0.AND.D=2>  ;  400 

MWORD  <LDCT.J=1. SAB. PLUS. CRY. D=2>  ;  401 

MWORD  <Jf1AP.J  =  5300>  ;  402 

;  Data  pattern  floating  I's  -  10 

MWORD  <ADDR=500.CONT.SD0.AND,D=2>  ;  500 

MWORD  <LDCT,J=2. SAB. PLUS. CRY. D=2>  ;  501 

MWORD  <JMAP.J=5300>  ;  502 

;  Data  pattern  floating  I's  -  20 

MWORD  <ADDR=600.CONT,SD0.AND.D=2>  ;  600 

MWORD  <LDCT.J=3. SAB. PLUS. CRY. D=2>  ;  601 

MWORD  <JMAP.J=5300>  ;  602 

;  Data  pattern  floating  I's  -  40 

MWORD  <ADDR=700.CONT.SD0.AND,D=2>  ;  700 

MWORD  <LDCT.J=4, SAB. PLUS. CRY. D=2>  ;  701 

MWORD  <JMAP.J=5300>  ;  702 

;  Data  pattern  floating  I's  -  100 

MWORD   <ADDR=1OOO.CONT.SD0.AND.D=2>  ;  1000 

MWORD   <LDCT,J=5. SAB. PLUS. CRY. D=2>  ;  1001 


SEQ  1439 


ceo  u?7      'dfPTA8  MACRO  X53B(1242)  09:19  1-Jul-85  Page  40-3 

SEQ     IHCf  li\rr>T*0       it*r  10-*^._QC     m.CO  MDOnr    MnHi  i 


I  0    Tactc 


SEQ  1440 


r 


5EQ  \kn 


DFPTA8 
DFPTA8 

2395 

2196 

2397 

2398 

2399 

2A00 

2A01 

2A02 

2403 

2A0A 

2A05 

2A06 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 


MACRO  X53B(1242)  09:19  1 
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002753'  102000 
002754'  100253 
002755'  000000 


002756' 
002757' 
002760' 
002761 ' 
002762' 
002763' 


002764' 
002765' 
002766' 
002767' 
002770' 
002771 • 


002772' 
002773' 
002774' 
002775' 
002776' 
002777' 


110000 
742000 
110100 
102000 
110253 
000000 


120000 
742000 
120100 
102000 
120253 
OOCOOO 


130000 
742000 
130100 
102000 
130253 
000000 


003000' 
0030C1 ' 
003002' 
003003' 
003004 ' 
003005' 


003006' 
003007' 
003010' 
003011' 
003012' 
003013' 


140000 
742000 
140100 
102000 
140253 
000000 


150000 
742000 
150100 
102000 
150253 
000000 


003014'  160000 

003015'  742000 

003016'  160100 

003017'  102000 


000700 
000000 
000040 


OOOOOU 
000340 
060000 
000700 
000000 
000040 


000000 
000340 
070000 
000700 
000000 
000040 


OOOOOO 
J00340 
100000 
000700 
OOOOOO 
000040 


OOOOOO 
000340 
110000 
000700 
OOOOOO 
000040 


OOOOOO 
000340 
120000 
000700 
OOOOOO 
000040 


OOOOOO 
000340 
130000 
000700 
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MPROC  Module  Tests 


MUORD  <JMAP.J=5300> 

;  Data  patter-i  floating  I's  -  200 

MWORD  <ADDR=11OO,CONT.SD0.AND,D=2> 

MWORD  <LDCT,J=6, SAB. PLUS, CRY. D=2> 

MWORD  <JMAP.J=5300> 

;  Data  pattern  floating  I's  -  400 

MUORD  <ADDR=1200.CONT.SD0.AND.D=2> 

MUORD  <LDCT.J=7. SAB, PLUS. CRY. D=2> 

MUORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  1000 

MUORD  <ADDR=13OO.CONT.SD0.AND.D=2> 

MUORD  <LDCT.J=10. SAB. PLUS. CRY. D=2> 
MUORD   <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  2000 

MUORD  <ADDR=1400,CONT,SD0,AND,D=2> 
MUORD  <LDCT,J=11. SAB, PLUS, CRY, D=2> 
MUORD   <JMAP.J=5300> 

;  Data  pattern  floating  I's  -  4000 

MUORD  <ADDR=150O.CONT.SD0,AND.D=2> 
MUORD  <LDCT.J=12, SAB. PLUS. CRY, D=2> 
MUORD   <JMAP.J=5300> 

;  Data  pattern  floating  I's  -  10000 

MUORD  <ADDR=1600.CONT.SDO.AND.D=2> 
MUORD   <LDCT.J=13. SAB. PLUS. CRY. D=2> 


SEQ  1440 


1002 

1100 
1101 
1102 

1200 
1201 
1202 

1300 
1301 
1302 

1400 
1401 
1402 

1500 
1501 
1502 

1600 
1601 


CFO    U?fl 


DFPTA8    MACRO  X53B(1242)  09:19     1-JuL-85  Page  40-4 


Tac  t-e 


SEQ  1441 


SEQ  1428 


DFPTA8 

MACRO  X53B(1242 

»  09:19  1- 

DFPTA8 

MAC 

18-Apr-( 

i5  10:59 

2450 

003020' 

160253 

OOOOOO 

2451 

003021 ' 

OOOOOO 

000040 

2452 

2453 

2454 

2455 

0C3022' 

170000 

OOOOOO 

2456 

003023' 

742000 

000340 

2457 

003024' 

170100 

140000 

2458 

003025' 

102000 

000700 

2459 

003026' 

170253 

OOOOOO 

2460 

003027' 

OOOOOO 

000040 

2461 

2462 

2463 

2464 

003030' 

200000 

OOOOOO 

2465 

003031 ' 

742000 

000340 

2466 

003032' 

200100 

150000 

2467 

003033' 

102000 

000700 

2468 

003034' 

200253 

OOOOOO 

2469 

003035' 

OOOOOO 

000040 

2470 
2471 

2472 
2473 

003036' 

210000 

OOOOOO 

2474 

003037' 

742000 

000340 

2475 

00304C' 

210100 

160000 

2476 

003041 ' 

102000 

000700 

2477 

003042' 

210253 

OOOOOO 

2478 

003043' 

OOOOOO 

000040 

2479 

2480 
2481 
2482 

003044' 

220000 

OOOOOO 

2483 

003045' 

742000 

000340 

2484 

003046' 

220100 

170000 

2485 

003047' 

102000 

000700 

2486 

003050' 

220253 

OOOOOO 

2487 

003051' 

OOOOOO 

000040 

2488 

2489 
2490 
2491 

003052' 

230000 

OOOOOO 

2492 

003053' 

742000 

000340 

2493 

003054' 

230100 

200000 

2494 

003055' 

102000 

000700 

2495 

003056* 

230253 

OOOOOO 

2496 

003057' 

OOOOOO 

000040 

2497 

2498 
2499 
2500 

003060' 

240000 

OOOOOO 

2501 

003061 ' 

742000 

000340 

2502 

003062' 

240100 

210000 

2503 

003063' 

102000 
240253 

000700 

2504 

003064' 

OOOOOO 

Jul-85  Page  40-4 

HPROC  Module  Tests 

MUORD  <JMAPJ  =  5300> 

;  Data  pattern  floating  I's  -  20000 

MUORD  <ADDR=170O.CONT,SD0,AND.D=2> 

MWORD  <LDCT.J  =  14. SAB. PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  40000 

MUORD  <ADDR=2000,CONT,SD0,AND,D=2> 

MUORD  <LDCT,J  =  15, SAB, PLUS, CRY, D=2> 

MUORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  100000 

MUORD  <ADDR=21O0,CONT,SD0,AND.D-2> 

MUORD  <LDCT,J=16, SAB, PLUS, CRY, D=2> 

MUORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  ^00000 

MUORD  <ADDR=2200,CONT,SD0,AND,D=2> 

MUORD  <LDCT,J=17, SAB, PLUS, CRY, D=2> 

MUORD  <JMAP.J=5300> 

;  Data  pattern  floating  I's  -  400000 

MUORD  <ADDR=2300,CONT,SD0,AND,D=2> 

MUORD  <LDCT,J=20. SAB, PLUS, CRY, D=2> 

MUORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  1,, OOOOOO 

MUORD  <ADDR=24O0,CONT.SD0.AND,D=2> 

MUORD  <LDCT,J=21  .SAB,,JLuS,CRY.D=2> 

MUORD  <JMAP,J-5300> 


SEQ  1441 


;  1602 

;  1700 
;  1701 
;  1702 

;  2000 
;  2001 
;  2002 

;  2100 
;  2101 
;  2102 

;  2200 
;  2201 
;  2202 

;  2300 
;  2301 
;  2302 

;  2400 
;  2401 
;  2402 


or/%  1  /  tn 


DFPTA8  MACRO  1536(1242) .09:19.  1-Jul-85..Page  40-5, 


CFO  U^P 


SEQ  U29 


DFPTA8  MACRO  »53B(12A2)  09:19  1 
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2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

25U 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

25A0 

25A1 

25A2 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 


003065'  000000  000040 


003066' 
003067' 
003070' 
003071 ' 
003072' 
003073' 


250000 
742000 
250100 
102000 
250253 
000000 


003074' 
003075' 
003076* 
003077' 
003100' 
003101' 


003102' 
003103' 
003104' 
0031  OS' 
003106' 
003107' 


003110' 
003111' 
003112' 
003113' 
003114' 
003115' 


003116' 
003117' 
003120' 
003121' 
003122' 
003123' 


003124' 
003125' 
003126' 
003127' 
003130' 
003131* 


260000 
742000 
260100 
102000 
260253 
000000 


270000 
742000 
270100 
102000 
270253 
000000 


300000 
742000 
300100 
102000 
300253 
000000 


310000 
742000 
310100 
102000 
310253 
000000 


320000 
742000 
320100 
102000 
320253 
000000 


000000 
000340 
220000 
000700 
000000 
000040 


000000 
000340 
230000 
000700 
000000 
000040 


000000 
000340 
240000 
000700 
000000 
000040 


000000 
000340 
250000 
000700 
000000 
000040 


000000 
000340 
260000 
000700 
000000 
000040 


000000 
000340 
270000 
000700 
000000 
000040 
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MPROC  Module  Tests 


;  Data  pattern  floating  1's  -  2., 000000 

MWORD  <ADDR=25O0.CONT,SD0.AND,D=2> 

MWORD  <LDCT,J=22, SAB, PLUS, CRY. D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  4,, 000000 

HUORD  <ADDR=2600,CONT,SD0,AND,D=2> 

MWORD  <LDCT,J=23, SAB, PLUS, CRY, D=2> 

MUORD  <JI1AP,J  =  5300> 

;  Data  pattern  floating  I's  -  10,, 000000 

HWORD  <ADDR=2700,CONT,SD0,AND,D=2> 

MWORD  <LDCT,J=24, SAB, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  ?0,, 000000 

MWORD  <ADDR=3000 , CONT , SDO , AND .D=2> 

MWORD  <LDCT,J=25,  SAB, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  40,, 000000 

MWORD  <ADDR=3100, CONT, SDO, AND, D=2> 

MWORD  <LDCT.J=26, SAB, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5500> 

;  Data  pattern  floating  I's  -  100,, 000000 

MWORD  <ADP«=3200, CONT, SDO, AND, D=2> 

MWORD  <LDCT,J=27, SAB, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 


SEQ  1442 


2500 
2501 
2502 

2600 
2601 
2602 

2700 
2701 
2702 

3000 
3001 
3002 

3100 
3101 
3102 

3200 
3201 
3202 


r' 


nFPTA8  MACRO  X53B(1242)  09:19  l-Jul-85  Page  40-6 


ec/\    1//.  T 


r' 


SEQ  U30 


DFPTA8 
DFPTA8 

2560 

2561 

2562 

S|63 

256A 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

257A 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

258A 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

259A 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

260A 

2605 

2606 

2607 

2608 

2609 

261  > 

2611 

2612 

2613 

26U 
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003132' 
003133' 
0031 3A' 
003135' 
003136' 
003137' 


0031A.  ■ 

003U1 

003U2' 

003U3' 

003144' 

003145' 


330000 
742000 
330100 
102000 
330253 
000000 


^••0000 
,42000 
340100 
102000 
340253 
000000 


003146' 
003147* 
003150* 
003151* 
003152' 
003153' 


003154* 
003155* 
003156' 
003157* 
003160' 
003161* 


350000 
742000 
350100 
102000 
350253 
000000 


3o-'000 
742000 
360100 
102000 
360253 
000000 


003162* 
003163* 
003164* 
003165' 
003166* 
003167* 


003170* 
003171* 
003172* 
003173* 
003174* 
003175* 


370000 
742000 
370100 
102000 
370253 
000000 


400000 
742000 
400100 
102000 
400253 
000000 


OOOQOQ 
000340 
300000 
000700 
000000 
000040 


000000 
000340 
310000 
000700 
000000 
000040 


000000 
000340 
320000 
000700 
000000 
000040 


000000 
000340 
330000 
000700 
000000 
000040 


000000 
000340 
340000 
000700 
000000 
000040 


000000 
000340 
350000 
000700 
000000 
000040 


MPROC  Module  Tests 

;  Data  pattern  floating  1's  -  200.. 000000 

(1WCRD  <ADDR=3300,CONT.SD0.AND,D=2> 

MWORD  <LDCT.J=30. SAB, PLUS, CRY. D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  1's  -  400.. 000000 

MWORD  <ADDR=3400 , CONT . SDO. AND .D=2> 

MWORD  <LDCT.J=31 , SAB, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  Vs  -  1000.. 000000 

MWORD  <ADDR=3500. CONT, SDO. AND, D=2> 

MWORD  <LDCT,J=32, SAB, PLUS, CRY, D-2> 

MWORD  <jriAP,J  =  5300> 

;  Data  pattern  floating  1's  -  2000,, 000000 

MWORD  <ADDR=3600, CONT, SDO. AND, D=2> 
MWORD  <LDCT,J=33, SAB, PLUS, CRY, D=2> 
MWORD   <JMAP,J=5300> 

;  Data  pattern  floating  1's  -  4000, ,000000 

MWORD  <ADDR=3700, CONT, SDO, AND, D=2> 
MWORD  <LDCT,J=34, SAB, PLUS, CRY, D=2> 
MWORD   <JMAP,J=5300> 

;  Data  pattern  floating  Ts  -  10000,, 000000 

MWORD  <ADDR=4000, CONT, SDO. AND. D=2> 

MWORD  <LDCT.J=35, SAB, PLUS. CRY. D=2> 

MWORD  <JMAP,J=5300> 


SEQ  1443 


3300 
3301 
3302 

3400 
3401 
3402 

3500 
3501 
3502 

3600 
3601 
3602 

3700 
3701 
3702 

4000 
4001 
4002 


"1 


DfPTAS 
DFPTA8 

2615 
2^6 
2617 
2618 
2619 
2620 
2621 
2622 
262^) 
262^ 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
263A 
2635 
2636 
2637 
2638 
2639 
2640 
26A1 
26A2 
26A3 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
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0031  6* 
003177' 
003200' 
003201 ' 
003202' 
003203' 


003204' 
003205' 
003206' 
003207' 
003210' 
0:321 r 


003212' 
003213' 
003214' 
003215' 
003216' 
003217' 


003220' 
003221  • 
003222' 
003223' 
003224' 
003225' 


003226' 
003227' 
003230' 
003231 • 
003232' 
003233' 
003234' 
003235' 


410000 
742000 
410100 
102000 
410253 
000000 


420000 
742000 
420100 
102000 
420253 
000000 


430000 
742000 
430100 
102000 
430253 
000000 


440000 

440100 
102000 
440253 
000000 


450000 
742000 
450100 
102000 
450245 
437000 
450353 
000000 


003236'  460051 

003237'  741400 

003240'  460152 

003241'  000000 


000000 
000340 
360000 
000700 
000000 
000040 


000000 
000340 
370000 
000700 
000000 
000040 


000000 
000340 
400000 
000700 
000000 
00C040 


000000 
000340 
410000 
000700 
000000 
000040 


000000 
000340 
420000 
000700 
020000 
C00220 
010000 
000040 


000000 
020060 
000000 
000040 
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MPROC  Module  Tests 

;  Data  pattern  floating  I's  -  20000,, 000000 

MWORD  <A0DR=4100,C0NT,SD0,AND,D=2> 

MWORD  <LDCT,J=36,SA3, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  40000, ,000000 

MWORD  <ADDR=42O0,CONT,SD0,AND,D=2> 

MWORD  <LDCT,J=37, SAB, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  100000,, 000000 

MWORD  <ADDR=4300,CONT,SD0,AND,D=2> 

MWORD  <LDCT,J=40, SAB, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  200000,, 000000 

MWORD  <ADDR=4400,CONT,SDO,AND,D=2> 

MWORD  <LDCT,J=41 , SAB, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5300> 

;  Data  pattern  floating  I's  -  400000,, 000000 

MWORD  <ADDR=4500,C0NT,SD0,AND,D=2> 

MWORD  <LDCr,J=42, SAB, PLUS, CRY, D=2> 

MWORD  <RPCT,J=4502,S0A,0R,D=7> 

MWORD  <JMAP,J=5301> 


SEQ  1444 


4100 
4101 
4102 

4200 
4201 
4202 

4300 
4301 
4302 

4400 
4401 
4402 

4500 
4501 
4502 
4503 


;  Data  pattern  O's 

MWORD   <ADDR=4600,CJP,J=5100.SD0,AND,D=1,CENA,CCFZ> 
MWORD   <JMAP,J=5200>  ;  4601 

;  Common  code  for  floating  I's 
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SEQ  1445 


DFPTA8  MACRO  5;53B(12A2)  09:19  1 
0FPTA8  MAC    18-Apr-85  10:59 


2670 

26,"! 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

268A 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

269A 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

270A 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

IIM^ 

2715 

2716 

2717 

2718 

2719 


0032A2' 
003243' 
003244' 
003245' 
003246' 
003247' 


003250' 
003251' 
003252' 
003253' 
003254' 
003255' 
003256' 
003257' 
003260' 
003261 ' 
003262' 
003263' 
003264' 
003265' 
003266' 
003267' 
003270' 
003271 • 


530053 
102000 
530152 
431400 
530251 
000000 


510000 

742001 

510100 

302001 

510200 

000000 

510351 

102021 

510400 

431020 

510551 

001400 

510651 

001000 

510700 

431010 

511051 

001000 


003272' 
003273' 
003274' 
003275' 
003276' 
003277' 
003300' 
003301 ' 
003302' 
003303' 
003304' 
003305' 
003306' 
003307' 
003310' 
003311' 
003312' 
003313' 
003314' 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 

vnn 


000000 
000220 
002000 
020060 
000000 
000040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 


-JuL-85  Page  40-8.  ^ 

MPROC  Module  Tests 

MWORD  <ADDR=5300,RPCTJ=5300, SAB, PLUS, D=2> 

MWORD  <CJP,J=5200.S0A,0R,D=1,CENA,0ENA,CCFZ> 

I         MWORD  <JMAP,J=5100> 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  GSR  register 

MWORD  <ADDR=5100,CONT,SD0,AND,B=2,D=2> 

MWORD  <C0NT. SOB, PLUS, B=2.D=2,CRY> 

MWORD  <LDCT,J=26> 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2> 

MWORD  <C0NT,S0A,A=2,0R,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,M6C=40> 

MWORD  <JMAP,J=5105,D=1> 

MWORD  <CONT,S0A,A=1,OR,D=1,SELE,MGC=200> 

MWORD  <JMAP,J=5110,D=1> 


SEQ  1445 


;  Subroutine  - 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
-1 


Failed  -  Write  1  to  bit  13  of  CSR  register 
<ADDR=5200,CONT,SD0,AND,B=2,D=2> 
<C0NT, SOB, PLUS, B=2,D=2,CRy> 
<LDCT,J=25> 

<RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2> 
<CONT,S0A,A=2,OR,D=1,OE'"W,SELE,MGC=4> 
<CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40> 
<JMAP,J=5205,D=1> 

<C0NT,S0A,A=1 ,0R,D=1 ,SELE.MGC=200> 
<JMAP,J=5210,D=1> 


5300 
5301 
5302 

5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5110 

5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5210 
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SEQ  1446 


1 


K33 


DFPTA8 
DFPTA8 

2720 
2721 
2722 
2723 
272A 
2725 
2726 

ini 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

27A0 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 


MACRO  5;53B(1242)  09:19 
MAC    18-Apr-85  10:59 


1-Jul-85  Page  41 

MPROC  Module  Tests 


SEQ  1446  ! 


*  TEST  17  -  CCCSRChng  Test 

Descn'ptior.:  Verify  that  condition  code  'CCCSRChng'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Procedure:    Port  Clear 

Start  up  port       .     ^  ^     •*  .u  * 
UC>  perform  an  operation  and  then  verify  that 

CCCSRChng  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Conplete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 

CC  is  set  initially  (KL  la,;t  wrote  CSR) 
CC  is  not  set  after  port  reads  CSR 
CC  is  set  after  an  EBUS  PE 
CC  stays  set  if  port  writes  CSR 

Failure: 
/^********************************************* ******** *************** 


003315* 
003316' 
003317' 
003320' 
003321 ' 
003322' 
003323' 
003324' 
003325' 
003326' 


003327' 
003330' 
003331 ' 


254  00 

2uJ403 

003404' 

012050' 

000000 

000000 

000000 

000000 

000000 

mill 


0  00  003327' 
000017 
012045' 
012052' 
003525' 
003677' 
004070' 
004261 ' 
004452' 
mill 


;  Test  data 

TSTU17:  JRST    TGI  7 

MPROC INDMPIZMPROC! 17 

T17M,,[ASCI2  *CCCSRChng  Test*]  ^    ...,^, 

CEXP  M6.MLAST!E81,,CEXP  M7,E1 .E6.MLASTIE16] 


;  go  start  test 
;  test 


mask 


TSTU20 
TSTU21 
TSTU22 
TSTU23 
TSTU24 
-1 

Start  test 


failure  test  table 


201  00  0  00  000000' 
260  17  0  00  002502* 
00  003404' 
00  002504* 
00  000000 


TG17; 


201  01  0 
003332'  260  17  0 
f^^^333'  263  17  0 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z8 

TRACE 

1,T17M 

TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


1  1434 
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SEQ  1447 


0FPTA8 
0FPTA8 

2767 
^768 
>769 
>770 
771 
772 
1773 
277A 
2775 
2776 
1111 
2778 

im 

2780 

2781 

2782 

2783 

278A 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

279A 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

280A 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 


MACRO  5;53B(1242)  09:19 
MAC    18-Apr-85  10:59 


l-Jul-85  Page  42  , 
MPROC  Module 


lests 


SEQ  1447 


003334'  400  15  Q  00  OOQQOO 

003335'  201  06  0  00  003352' 

003336'  402  00  0  00  002510* 

003337'  476  00  0  00  002531* 


003340' 
003341 ' 
003342' 
003343' 
003344' 


260 
260 
254 
254 
474 


17 
17 
00 
00 

15 


00 
00 
00 
00 
00 


002512* 
P02513* 
I  3351' 
003341 ' 
000000 


003345'  027  00  0  00  003372' 

003346'  254  00  0  00  003334' 

003347'  254  00  0  00  003351' 

003350'  322  15  0  00  003340' 


003351'  263  17  0  00  000000 


003352'  040000 
003353'  240002 
003354'  340000 


003355'  040000 
003356'  240002 
003357'  340000 


003360'  040000 

003361'  140000 

003362'  240002 

003363'  340000 


000000 
000000 
000000 


000003 
000000 
000000 


000011 
003367' 
000000 
000000 


Initialization 


TL17: 


SETZ 
MOVE  I 
SETZM 
St:  TOM 


ERFLG. 
6,TS1? 
TSTSUB 
TADDR 


Loop  on  iw'^t  execute  table  entries 


TA17: 
TBI  7: 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 
TEXEC 
TX17 
TBI  7 
ERFLG, 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MAI  7 
TL17 
TX17 
ERFLG,TA17 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX17:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD, parameters) 

;  CC  is  set  initially  (KL  last  wrote  CSR) 


TS17: 


T TABLE 
T TABLE 
TTABLE 


(TSTART.O) 
(TCHECK,2) 
(TEXIT) 


CC  is  not  set  after  port  reads  CSR 


TTABLE 
TTABLE 
TTABLE 


(TSTART,3) 
(TCHECK,2) 
(TEXIT) 


CC  is  set  after  an  EBUS  PE 

TTABLE  (TSTARTJI) 

TTABLE  (TCALL.TS17PE) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


Start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  port 

cause  an  EBUS  parity  error 

check  if  completed 

exit  if  error  yet 
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SEQ  1448 


3  1435 


DFPTA8 
DFPTA8 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 


MACRO  5;53B(1242)  09:19  1- 
MAC    18-Apr-85  10:59 


•Jul- 


._, J 


oo; 
oo: 


;364' 
5365' 


040000 
240002 


000017 
000000 


003366'  000000  000000 


003367'  201  01  0  00  140010 
003370'  260  17  0  00  002026* 
003371'  263  17  0  00  000000 


003372'  140000  012056' 
003373'  240000  003375' 
003374'  000000000000* 

003375'  200  01  0  00  003336* 
003376'  256  00  0  01  003377' 
003377'  263  17  0  00  000000 

003400'  037  00  0  00  012065' 
003401'  037  00  0  00  012074' 
003402'  037  00  0  00  012102' 
003403'  037  00  0  00  012107' 


00340^ • 
003^.05 ' 
003^06' 
003407' 
003410' 
003411' 


003412' 
003413' 
003414' 
003415' 
003416' 
003417' 
003420' 
003421 ' 
003422' 
003423' 
003424* 
003425* 


'^'^OOOO 
000000 
000151 
000400 
000252 
000000 


000300 
000000 
000400 
001400 
000500 
001000 
000600 
431000 
000752 
000400 
001051 
000000 


010000 
000040 
000000 
030060 
000000 
000040 


040000 
000040 
060040 
015060 
040000 
000040 
000100 
005340 
000000 
030060 
000000 
000040 


85  Page  43 
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;  CC  stays  set  if  port  writes  GSR 


SEQ  1448 


TTABLE 
TTABLE 


(rSTART,17) 
(TCHECK,2) 


start  up  port 
check  if  completed 


TTABLE  (TLAST) 
;  Routine  to  cause  an  EBUS  PE  after  the  port  has  been  started 


1,GENEPE!MPRUNISELLAR 
LDCSR 


;  get  data  to  write  to  CSR 
;  write  it 
;  return 


TS17PE:  MOVEI 
60 
RTN 

;  Error  messages 

MA17:   MSGITXNOT.'CASCIZ  /Condition  Code  *CC.CSR  Chng'  not  /J.  . 

CALL!TXN0T!MA17LP  ;  print  subtest  description 

LAST! CALL !TXALL!TTPNT         ;  print  test  data 


MA17LP:  MOVE 
XCT 
RTN 


1,TSTSUB 
MA17L-1(1) 


get  subtest  number 
print  message 
return 


MA17L: 


TMSG 
TMSG 
TMSG 
TMSG 


<set  initially  (KL  last  wrote  CSR)> 
<cleared  after  port  reads  CSR> 
<set  after  an  EBUS  PE> 
<still  set  after  port  writes  CSR> 


;  Microcode: 

CC  is  set  initially  (KL  last  wrote  CSR) 

T17M:   MWORD  <ADDR=0, JMAP,J=1> 

MWORD  <CJPJ=5100,CENA,CCCC> 

MWORD  <JMAP,J=5200> 

;  CC  is  not  set  after  port  reads  CSR 

MWORD  <ADDR=3,JMAP,J=4> 

MWORD  <CJPJ=6,CENA,CCGC,D=1,SELE,MGC=40> 

MWORD  <JMAPJ=4,D=1> 

MWORD  <CONT,S0A,OR,D=1 ,SELE,MGC=100> 

MWORD  <CJPJ=5200,CENA,CCCC> 

MWORD  <JMAPJ=5100> 


0 
1 
2 

3 

4 
5 
6 
7 
10 


r 


Q  1436 
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SEQ  1449 


I 0FPTA8 
DFPTA8 


>870 
871 
872 
1873 
J874 
5875 
'876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
288A 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
290A 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
291 A 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 


MACRO  X53B(12A2)  09:19  1 
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SEQ  KA9 


CC  is  set  after  an  EBUS  PE 


003A26' 
003A27' 
003A30' 
003A31 ' 
003A32' 
003A53' 
003A3A' 
003A35' 
003A36' 
003A37' 
003AA0' 
003AA1 ' 


003AA2' 
003AA3' 
003AAA' 
003AA5' 
003AA6' 
003AA7' 
003A50' 
003A51 ' 
003A52' 
003A53' 
003A5A' 
003A55' 
003A56' 
003A57' 


001100 
000000 
001200 
0C1A00 
001300 
001000 
001A00 
A31000 
001551 
OOOAOO 
001600 
000000 


001700 
000000 
002000 
7A1000 
002100 
001 AOO 
002200 
001000 
002300 
A31000 
002A52 
OOOAOO 
002551 
OwJOOO 


003A60' 
003A61 • 
003A62' 
003A63' 
003A6A' 
003A65' 
003A66' 
003A67' 
003A70' 
003A71 • 
003A72' 
003A73' 
003/i7A' 
003A75' 
003A76' 
003A 77 • 
003500' 
003501 • 


510000 

7A2001 

510100 

302001 

510200 

000000 

510351 

102021 

510A00 

A31020 

510551 

001A00 

510651 

001000 

510700 

A31010 

511051 

001000 


120000 
OOOOAO 
1A00A0 
015060 
120000 
OOOOAO 
000100 
0053A0 
000000 
030060 
150000 
OOOOAO 


200000 
OOOOAO 
00200A 
0053A0 
2300A0 
015060 
210000 
OOOOAO 
000200 
0053A0 
000000 
010060 
000000 
OOOOAO 


000000 
0003A0 
000000 
0007A0 
260000 
000300 
030000 
000220 
00200A 
0053A0 
0700A0 
015060 
050000 
OOOOAO 
000200 
0053A0 
100000 
OOOOAO 


MWORD 

<ADDR=11,JMAPJ  =  12> 

11 

MUORD 

<CJPJ=1A,CENA,CCGC,D=1,SELE,M6C=A0> 

12 

nuoRD 

<JMAPJ  =  12,D=1> 

13 

nuoRD 

<CONT,SOA,OR,D=1,SELE,MGC=100>         ; 

14 

MUORD 

<CJP,J=5100,CENA,CCCC>               ; 

15 

MWORD 

<JMAP.J=15>                      ; 

16 

CC  stay 

s  set  if  port  writes  C5R 

MWORD 

<ADDR=17JMAP,J=20> 

17 

MWORD 

<C0NT,SD0,AND,D=1 ,0ENA,SELE,M6C=A> 

20 

MWORD 

<CJP,J=23,CENA,CCGC,D=1.SELE,MGC=A0> 

21 

MWORD 

<JMAP,J=21,D=1> 

■  22 

MWORD 

<C0NT,S0A.0R,D=1 ,SELE,MGC=200> 

'   73 

MWORD 

<CJP,J=5200,CENA,CCGC> 

;  2A 

MWORD 

<JMAP,J=5100> 

;  25 

Subroutine  - 

Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD 

<ADDR=5100.C0NT,SD0,AND,B=2.D=2> 

;  5100 

MWORD 

<CONT, SOB, PLUS, B=2,D=2,CRY> 

;  5101 

MWORD 

<LDCT,J=26> 

;  5102 

MWORD 

<RP'"T,J=5103, SAB, PLUS, A=2,B=2.D=2> 

;  5103 

MWORD 

<CC  r,S0A,A=2,0R,D=1,0ENA,SELE,M6C=A> 

;  51 OA 

MWORD 

<CJP.J=5107,CENA,CC6C,D=1,SELE,MGC=A0> 

;  5105 

MWORD 

<JMAP,  '=5105, D=1> 

;  5106 

MWORD 

<CONT,S0A,A=1,OR,D=1,SELE,MGC=200> 

;  5107 

MWORD 

<JMAP,J=5110,D=1> 

;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 
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SEQ  1450 


K37 


DFPTA8 
DFPTA8 
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003502'  520000 

003503'  742001 

003504'  52Q1QQ 

003505;  302001 

88150^  OQOOOO 
003510'  520352 
003511'  102021 
003512'  520400 
003513'  431020 
003514'  520552 
003515'  001400 
003516'  520652 
003517'  001000 
003520'  520700 
003521'  431010 
003522'  521052 
003523'  001000 

003524'  min 


QOOQOO 
000340 

002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

vmi 


MPROC  Module  Tests 

MWORD   <ADDR=5200,CONT.SD0,AND,B=2,D=2>  ;  5200 

<C0NT, SOB, PLUS, 8=2, D=2,CRy>  ;  5201 

<LDCT,J=25>  ;  5202 

<RPCT,J=5203, SAB, PLUS, A=2, 8=2, D=2>  ;  5203 

<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5204 

<CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40>  ;  5205 

<JMAP,J=5205,D=1>  ;  5206 

<CONT,S0A,A=1,OR,D=1,SELE,MGC=200>  ;  5207 

<JMAP,J=5210.D=1>  ;  5210 


SEQ  1450 


MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
-1 


■-'^ 
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SEQ  1451 


;eq  K38 


DFPTA8 
DFPTA8 

2%^ 
]945 
^9A6 
9A7 
l9A8 
>9A9 
950 
951 
?952 
i953 
|954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
296A 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
298A 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
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SEQ  1451 


003525' 
003526* 
003527' 
003530' 
003531 ' 
003532* 
003533' 
003534' 
003535' 
003536' 


003537* 
003540' 
003541 ' 
003542' 
003543' 


*  TEST  20  -  CCEbParErr  Test 


Description; 


Procedure: 


Verify  that  conditvn  code  'CCEbParErr'  can  be 
tested  by  the  mii.rcsequencer  for  conditional 
branching,  and  that  '>' 2  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 

Start  up  port  .^  ..  ^ 

UC>  perform  an  operation  and  then  verify  that 

CCEbParErr  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  wivh  several  test  cases: 
CC  is  cleared  initially 
CC  is  set  after  an  EBUS  PE 

Failure: 


254  00 

200403 

003604 ' 

GiJ122' 

000000 

000000 

000000 

000000 

000000 

777777 


0  00  003537' 
000020 
012116' 
012124' 
003677' 
004070' 
004261 ' 
004452' 
004645' 
777777 


go  start  test 
test  mask 


Test  data 

TSTU20:  JRST    TG20 

MPROC 'NDMP.'ZMPROC!  20 

T20«.,[ASCIZ  *CCEbParErr  Test*] 

[EXP  M6AaST!E16],,CEXP  M7.E9,E1.E4,MLAST!E6]       ^, 

TSTU21  ;  failure  test  table 

TSTU22 

TSTU23 

TSTU24 

TSTU25 

-1 


201  00  0  00  000000' 
260  17  0  00  003330* 
201  01  0  00  003604' 
260  17  0  00  003332* 
263  17  0  00  000000 


;  Start  test 
TG20: 


003544'  400  15  0  00  000000 

003545*  201  06  0  00  003562* 

003546*  402  00  0  00  003375* 

003547*  476  00  0  00  003337* 


MOVEI  18 

GO  TRACE 

MOVEI  1,T20M 

60  TLOAD 
RTN 


;  Initialization 

TL20:   SET2  ERFLG. 

MOVEI  6JS20 

SETZM  TSTSUB 

SETOM  TADDR 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


SEQ  1439 
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SEQ  1452 


DFPTA8 
DFPTA8 

>996 
997 
998 

1999 

looo 

5002 
0Q3 
OOA 
?5 
i6 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
301 A 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
302A 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
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SEO  1452 


003550'  260  17  0  00  003340* 

003551'  260  17  0  00  003341* 

003552'  254  00  0  00  003561' 

003!:53'  254  00  0  00  003551' 

003554'  474  15  0  00  000000 


003555'  027  00  0  00  003574' 

003556'  254  00  0  00  003544' 

003557'  254  00  0  00  003561' 

003560'  322  15  0  00  003550' 


003561'  263  17  0  00  000000 


003562'  040000  000000 
003563'  240002  000000 
003564'  340000  000000 


003565'  G^JOOO  000003 

003566'  140000  003571' 

003567'  240002  000000 

003570'  000000  000000 


003571'  201  01  0  00  140010 
003572'  260  17  0  00  003370* 
003573'  263  17  0  00  000000 


003574'  140000  012131' 

003575'  240000  003577' 

003576'  000000000000* 

003577'  200  01  0  00  003546* 

003600'  256  00  0  01  003601' 

003601'  263  17  0  00  000000 

003602'  037  00  0  00  011656' 

003603'  037  00  0  00  012102' 


;  Loop  on  test  execute  table  entries 


TA2Q: 
TB20: 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX20 

TB20 

ERFLG, 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA20 
TL20 
TX20 
ERFLG, TA20 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX20:   RTN 

;  Test  Execute  Table,  as: 

;  CC  is  cleared  initially 


;  return 
(CMD, parameters) 


TS20; 


T TABLE 
TTABLE 
TTABLE 


(TSTART,0) 
(TCHECK,2) 
(TEXIT) 


;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


start  up  port 

cause  an  EBUS  parity  error 

check  if  completed 


;  CC  is  set  after  an  EBUS  PE 

TTABLE  (TSTART,3) 

TTABLE  (TCALL,TS20PE) 

TTABLE  (TCHECK,2) 

TTABLE  (TLAST) 

;  Routine  to  cause  an  EBUS  PE  after  the  port  has  been  started 

TS20PE:  WOVE I 
GO 
RTN 

;  Error  messages 

MA20:   MSG.'TXNOT.'CASCIZ  /Condition  Code  'CC.Eb  Par  Err'  not  /] 


1,GENEPE!MPRUN!SELLAR 
LDCSR 


;  get  data  to  write  to  CSR 
;  write  it 
;  return 


CALL!TXNOT.'MA20LP 
LAST! CALL !TXALL!TTPNT 


MA20LP:  MOVE 
XCT 
RTN 


MA20L 


TMSG 
TMSG 


1,TSTSUB 
MA20L-1(1) 


<cleared  initially> 
<set  after  an  EBU6  PE> 


print  subtest  description 
print  test  data 

get  subtest  number 
print  message 
return 
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SEQ  1453 


SEQ  U^O 


0FPTA8  MACRO  X53B(12A2)  09:19  1 
0FPTA8  MAC     l8-Apr-85  10:59 


50A9 

->o 

j1 

|05A 

5055 

$056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

506A 

5065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

307A 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

308A 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

309A 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 


003604* 
003605' 
003606' 
003607' 
003610' 
003611* 


003612* 
003613' 
003614' 
003615' 
003616' 
003617' 
003620' 
003621 ' 
003622' 
003623' 
003624 ' 
00362S' 
003626' 
003627' 
003630' 
003631 ' 


000000 
OOOOQO 
000152 
000400 
000251 
000000 


000300 
000000 
000400 
001400 
000500 
001000 
000600 
431000 
000700 
000400 
001000 
000000 
001151 
000400 
001252 

oonooo 


003632' 
003633' 
003634' 
003635' 
003636' 
003637' 
003640' 
003641' 
003642' 
003643' 
003644' 
003645' 
003646' 
003647' 
003650' 
003651* 
003652' 
003653' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


010000 
000040 
000000 
040060 
000000 
000040 


040000 
000040 
060040 
015060 
040000 
000040 
000100 
005340 
110000 
030060 
070000 
000040 
000000 
040060 
000000 
000040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


003654'  520000  000000 
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;  Microcode: 

;  CC  IS  cleared  initially 

T20M:       MUQRD       <ADDR=0,JMAP J=1> 

MUORD       <CJPJ=5200,CENA,CCEB> 
MUORD       <JMAP,J=5100> 


SEQ  1453 


CC  is  set  after  an  EBUS  PE 


MUORD 
MUORD 
MUQRD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 

Subroutine  - 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


<ADDR=3,JMAP,J=4> 

<CJP,J=6,CENA,CC6C,D=1,SELE,MGC=40> 

<JMAPJ=4,D=1> 

<C0NT,S0A,0R,D=1 ,SELE,MGC=100> 

<CJP.J=11,CENA,CCCC> 

<JMAP,J=7> 

<CJP,J=5100,CENA.CCEB> 

<JMAP,J=5200> 

Passed  -  Urite  1  to  bit  12  of  CSR  register 
<ADDR=5100.C0NT.SD0.AND,B=2,D=2> 
<C0NT, SOB, PLUS, B=2,D=2,CRY> 
<LDCT,J=26> 

<RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2> 
<C0NT,SUA,A=2,0R,D=1,0ENA,SELE,MGC=4> 
<CJP,J=5107,CENA.CC6C,D=1,SELE,MGC=40> 
<JMAP,J=5105,D=1> 

<C0NT,S0A,A=1 ,0R,D=1 .SELE,MGC=200> 
<JMAP,J=5110,D=1> 


0 
1 
2 

3 

4 

5 

6 

7 

10 

11 

12 

5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5110 


;  Subroutine  -  Failed  -  Urite  1  to  bit  13  of  CSR  register 

MUORD   <ADDR=5200,CONT,SD0,AND,B=2,D=2>       ;  5200 


SEQ  1441 
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SEQ  1454 


SEQ  U41 


0FPTA8 
0FPTA8 
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SEQ  USA 


003655*  7A2001 
003656'  520100 
003657*  302001 
003660'  520200 
003661'  000000 
003662'  520352 
003663'  102021 
003664*  520400 
003665'  431020 
003666'  520552 
003667'  001400 
003670'  520652 
003671*  001000 
003672*  520700 
003673'  431010 
003674'  521052 
003675'  001000 
003676*  777777 


000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 


MUORD 
nUOPD 
MUORD 
MUORD 
MWORD 
MUORD 
MUORD 
MUORD 
-1 


<C0NT, SOB, PLUS, 8=2, D=2,CRY>  ;  5201 

<LDCT,J=25>  ;  5202 

<RPCT,J=5203, SAB, PLUS, A=2, 8=2, D=2>  ;  5203 

<C0NT,S0A,A=2,OR.D=1,0ENA,SELE,MGC=4>  ;  5204 

<CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40>  ;  5205 

<JMAP,J=5205,D=1>  ;  5206 

<C0NT,S0A,A=1,QR.D=1,SELE,MGC=200>  ;  5207 

<JMAP,J=5210,D=1>  ;  5210 


QFO  ^LL7 
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SEQ  K55 


SEQ  KA2 


DFPTA8 
0FPTA8 

5122 
5123 
il2A 
5125 
126 
5127 
3128 
3129 
3130 
3131 
3132 
3133 
31 3A 
3135 
3136 
3137 
3138 
3139 
3U0 
3U1 
31A2 
3U3 
3UA 
3U5 
3U6 
3147 
31A8 
3U9 
3150 
3151 
3152 
3153 
315A 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
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no 


003677' 
003700' 
003701 • 
003702' 
003703' 
003704 • 
003705' 
003706* 
003707' 
003710' 


003711' 
003712' 
003713' 
003714* 
003715' 


MPROC  Module  Tests 

#♦»»»♦***«*******»***♦♦*♦♦*♦*•**•***»*♦*•**♦***************♦********* 
•  TEST  21  -  CCRcvrBufAFuL  Test 

Description:  Verify  that  condition  code  'CCRcvrBufAFul'  can  be 
tested  by  the  microsequencer  for  conditional 
branching. 

Procedure:    Port  Clear 

Start  up  port  ^  ^      -z  .l.  . 

UC>  perform  an  operation  and  then  verify  that 

CCRcvrBufAFul  is  not  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 

CC  is  cleared  initially  (after  resetting  the 

bit  in  case  the  PB  module  is  connected) 
CC  is  cleared  after  a  CLRCCCODE  command 

Failure: 

#**•**•*♦********»*****•*♦******************************************* 


SEQ  1455 


Test  data 


254  00 

200405 

003753' 

012145' 

GuJOOO 

000000 

000000 

000000 

000000 

777777 


)  00  003711 
000021 
012141' 
012147' 
004070' 
004261 ' 
004452' 
004645' 
005035' 
777777 


JO  start  test 


TSTU21:  JRST    TG21      ^,  •  9      , 

f1PR0CINDMP!ZMPR0C!21  ;  test  mask 

T21M,,CASCIZ  ^CCRcvrBufAFul  Test*J  ^^ 
[EXP  M6.MLAST!C13]..CEXP  M7.MLASTIC7] 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
003540* 
003753* 
003542* 
000000 


003716*  400  15  0  00  OOOOQO 

003717*  201  06  0  00  003734* 

003720*  402  00  0  00  003577* 

003721*  476  00  0  00  003547* 


TSTU22 
TSTU23 
TSTU24 
TSTU25 
TSTU26 
-1 

;  Start  test 

T621:   MOVE  I 
GO 

MOVE  I 
GO 
RTN 

;  Initialization 

TL21:   SETZ 
MOVE  I 
SETZM 
SETOM 


failure  test  table 


Z8 

TRACE 

1.T21M 

TLOAD 


ERFLG, 
6.TS21 
TSTSU8 
TADDR 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  ex  it  test 


;  clear  error  flag 

;  get  test  table  address 

;  initialize  subtest  number 

;  clear  start  address 


ect\    M.I.T 


PfPIAS  MACRO  X53B (1 242)^0? n 9^  1-Ju^-85Jag!  i?. 


T  ^^  h.  m. 


SEO  1456 


r 


SEO  U43 


DFPTA8 
0FPTA8 


3178 

3179 

3180 

3181 

3182 

3183 

31 8A 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

31 9A 

3195 

3196 

3197 

3198 

3199 

3200 

1201 

3202 

3203 

3204 

3205 

3206 

3^07 

3208 

3209 

3210 

3211 

3212 

3213 

32U 

3215 

3216 

3217 

3218 

3219 
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0037^2'  260  17 
003723'  260  17 
00372A' 
003725' 
003726' 


88  mm' 


0 

0 

25A  00  0  00  003733' 
254  00  0  00  003723' 
474  15  0  00  000000 


003727'  027  00  0  CO  003743' 

003730'  254  00  0  00  003716' 

003731'  254  00  0  00  003733' 

003732'  322  15  0  00  003722' 


003733'  263  17  0  00  000000 


003734'  040000  000030 
00373S'  240002  000000 
003736'  340000  000000 


003737'  O'iJOOO  000010 

003740'  240002  000000 

003741'  ■'40000  000000 

003742'  000000  000000 


003743'  140000  01215^ 

003744'  240000  00374l 

003745'  000000000000* 

003746'  200  01  0  00  003720* 

003747'  256  00  0  01  003750' 

003750'  263  17  0  00  000000 

003751'  037  00  0  00  011656' 

003752'  037  00  0  00  012161' 


48 
Module 


Tests 


SEO  1456 


Loop  on  test  execute  table  entries 


TA21: 
TB21: 


GO 

60 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX21 

TB21 

ERFLG. 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 

SCOPER  MA21 

JRST  TL21 

JRST  TX21 

JUMPE  ERFLG.TA21 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX21:   RTN 

;  Test  Execute  Table,  as: 

;  CC  is  cleared  initially 


;  return 
(CMD, parameters) 


TS21: 


T TABLE 
T TABLE 
T TABLE 


(TSTART,30) 

(TCHECK,2) 

(TEXIT) 


start  up  port 
check  if  completed 
exit  it  error  yet 


CC  is  cleared  after  a  CLRCCCODE  command 


T TABLE 
T TABLE 
T TABLE 
T TABLE 

Error  messages 


(TSTARTJO) 
(TCHECK,2) 
(TEXIT) 
(TLAST) 


Start  up  port 
check  if  completed 
exit  if  error  yet 


MA21 


MA21LP: 


MA21L: 


MSGITXNOT.'CASCIZ  /Condition  Code  'CC  Rcvr  BufA  Ful'  not  /] 
CALL!TXN0TIMA21LP  ;  print  subtest  description 

LAST! CALL !TXALL!TTPNT         ;  print  test  data 


MOVE 

XCT 

RTN 

TMSG 
TMSG 


IJSTSUB 
MA21L-1(1) 


get  subtest  number 
print  message 
return 


<cleared  initial ly> 

<cleared  after  a  CLRCCCODE  command> 


DFPTA8 
DFPTA8 

3220 

3221 

3222 

3223 

322A 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 
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SEQ  1457 


003753' 
003754' 
003755' 
003756' 
003757' 
003760' 
003761 ' 
003762' 
003763' 
003764' 
003765' 
003766' 
003767' 
003770" 
003771 • 
003772' 


003773' 
003774 ' 
003775' 
003776' 
003777' 
004000' 
004001 ' 
004002' 
004003' 
004004' 
004005' 
004006' 


004007' 
004010' 
004011' 
004Q12' 
004013' 
004014' 
004015' 
004016' 
004017' 
004020' 
004021 ' 
004022' 


003000 
000000 
000000 
000000 
000100 
732001 
000200 
431020 
000300 
701000 
000400 
001000 
000552 
000400 
000651 
OOCOOO 


001000 
000000 
001100 
000000 
001200 
000000 
0ul300 
001000 
001452 
000400 
001551 
000000 


004000 
000400 
004100 
000000 
004200 
000400 
004300 
000000 
0C4451 
000400 
004500 
000000 


000000 

oooooc 

400100 
000020 
000014 
000340 
002040 
002340 
000274 
0013/0 
000000 
000340 
000000 
050060 
000000 
000040 


110000 
000040 
400000 
000020 
000020 
002340 
000000 
000340 
000000 
050060 
000000 
000040 


420000 
050060 
00000'^ 
000240 
440000 
050060 
000000 
000240 
000000 
050060 
000000 
000240 


;  Microcode: 

CC  is  cleared  initially 
T21M: 


MWO.'^D 

<AD0R=30,JZ> 

30 

MWORD 

<ADDR=0,CJS,J=40> 

0 

MUORD 

<CONT,SD0,OR.B=2,D=2,M6C= 

14> 

1 

MWORD 

<C0NT,S0A,A=2,0R,D=1,0ENA 

,SELM.M6C=40>     . 

2 

MWORD 

<CONT,SD0,D=1 ,SELP,MGC=274> 

< 

3 

MWORD 

<C0NT,D=1> 

4 

4 

MWORD 

<CJP,J=5200,CENA,CCAF> 

1 

5 

MWORD 

<JMAPJ=5100> 

1 

6 

CC   is 

cleared  after  a  CLRCCCODE  c 

ommand 

MWORD 

<ADDR=10JMAP,J=11> 

■   10 

MWORD 

<CJS,J=40> 

■   11 

MWORD 

<CONT.SELM,M6C=20> 

;  12 

MWORD 

<C0NT,D=1> 

•   13 

MWORD 

<CJP.J=5200,CENA,CCAF> 

;  14 

MWORD 

<JMAP.J=5100> 

;  15 

jtine  - 

Determine  if  a  PILA  module 

is 

connected  - 

if  not  exit 

test 

MWORD 

<ADDR=40,CJPJ=42,CENA.CCAF> 

;  40 

MWORD 

<CRTN> 

;  41 

MWORD 

<CJP.J=44,CENA,CCAF> 

;  42 

MWORD 

<CRTN> 

;  43 

MWORD 

<CJPJ=5100,CENA.CCAF> 

;  44 

MWORD 

<CRTN> 

;  45 

004023'   510000     000000 


;   Subroutine  -  Passed  -  Write  1   to  bit  12  of  CSR  register 

MWORD   <ADDR=5100,CONT,SD0,AND,B=2,D=2>       ;  5100 


DFPTA8 
DFPTA8 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3867 

3868 

3869 

3370 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 


ms  r^m^  s  m  '\  d  'W        ^f\      4ft 


or  r\ irti 


Wk.   f*  ^*  A  A 
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SEQ  1458 


3275 

004024' 

742001 

000340 

3276 

004025' 

510100 

000000 

MUORD 

3277 

004026' 

302001 

000740 

3278 

004027' 

510200 

260000 

MUORD 

3279 

004030' 

000000 

000300 

3280 

004031 ' 

510351 

030000 

MUORD 

3281 

004032' 

1020?1 

000220 

3282 

004033' 

510400 

002004 

MUORD 

3283 

004034' 

431020 

005340 

3284 

004035' 

510551 

070040 

MUORD 

3285 

004036' 

001400 

015060 

3286 

004037' 

510651 

050000 

MUORD 

3287 

004040' 

001000 

000040 

32R8 

004041  • 

510700 

000200 

MUORD 

3289 

004042' 

431010 

005340 

3290 

004043' 

511051 

100000 

MUORD 

3291 

004044' 

001000 

000040 

329? 

3293 
3294 
3295 

;  Subroutine  - 

004045' 

520000 

000000 

MUORD 

3296 

004046' 

742001 

000340 

3297 

004047' 

520100 

000000 

MUORD 

3298 

004050' 

302001 

000740 

3299 

004051 ' 

520200 

250000 

MUORD 

3300 

004052' 

000000 

000300 

3301 

004053' 

520352 

030000 

MUORD 

3302 

004054' 

102021 

000220 

3303 

004055' 

520400 

002004 

MUORD 

3304 

004056' 

431020 

005340 

3305 

004057' 

5^.>552 

070040 

MUORD 

3306 

004060' 

001400 

015060 

3307 

004061 • 

520652 

050000 

MUORD 

3308 

004062' 

001000 

000040 

3509 

004063 ' 

520700 

000200 

MUORD 

3310 

004064 ' 

431010 

005340 

3311 

004065' 

521052 

100000 

MUORD 

^312 

004066' 

001000 

000040 

3313 

004067' 

mm 

777777 

-1 

<CONT, SOB, PLUS, B=2,D=2,CRY>  ;  5101 

<LDCT,J=26>  ;  5102 

<RPCT-,J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5l04 

<CJP,J=5107,CENA,CCGC,D=1,SELE,M6C=A0>  ;  5105 

<JMAP,J=5105,D=1>  ;  5106 

<CC.NT,SOA,A=1,OR,D=1,SELE,M6C=200>  ;  5107 

<JWAP,J=5110,D=1>  ;  5110 

Failed  -  Write  1  to  bit  13  of  CSR  register 

<ADDR=52O0,CONT,SD0,AND,B=2,D=2>  ;  5200 

<C0NT. SOB, PLUS, B=2,D=2,CRY>  ;  5201 

<LDCT,J=25>  ;  5202 

<RPCr,J=5203, SAB, PLUS, A=2, 8=2, D=2>  ;  5203 

<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5204 

<CJP,J=5207,CENA,CC6C,D=1,SELE,M6C=40>  ;  5205 

<JMAP,J=5205,D=1>  ;  5206 

<CONT,S0A,A=1,OR.D=1,SELE,M6C=:00>  ;  5207 

<JMAP.J=5210,D=1>  ;  5210 


DFPTA8 
DFPTA8 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 


/\/^  4  r\ 


I  or  « CA 


f^  r  nT  a  O 
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SEQ  K59 


331 A 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

333A 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

b357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 


•^*******«  ******************************».■*******************  ********** 
;*  TEST  22  -  CCRcvrBufBFuL  Test 

;  Description:  Verify  that  condition  code  'CCRcvrBufBFui.'  can  be 
;  tested  by  thj  microsequencer  for  conditional 

J  branching. 


# 

#■ 
I 
» 

* 
»■ 
*■ 

■»'■ 


Procedure:    Port  Clear 

Start  up  port 

UC>  perform  an  operation  and  then  verify  that 

CCRcvrBufBFui  is  not  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  ^^d  determine  test  disposition 

Repeat  with  several  test  cases: 
CC  is  cleared  initially  (after  resetting  the 

bit  in  case  the  PB  module  is  connected) 
CC  is  cleared  after  a  CLRCCCODE  command 


004070' 
004071 • 
004072* 
004073' 
004074' 
004075' 
004076' 
004077' 
004100' 
004101' 


254  00 

200403 

004144' 

01^145' 

GuJOOO 

000000 

000000 

000000 

000000 

777777 


)  00  004102' 
000022 
012170' 
012147' 
004261 ' 
004452' 
004645' 
005035' 
005216' 
777777 


;  Failure:     — 

;#*********************♦***♦****************************************** 

;  Test  data 

TSTU22:  JRST    T622  ;  go  start  test 

MPROC INDMPiZMPROC! 22  ;  test  mask 

T22M,,CASCIZ  ^CCRcvrBufBFui  TesfJ  _ 
CEXP  M6.MLAST!C13].,CEXP  M7.MLASTIC7] 


004102'  201  00 

004103'  260  17 

004104'  201  01 

004105'  260  17 

004106'  263  17 


00^^07'  400 

004110'  201 

004111'  402 

004112'  476 


15 
06 
00 
00 


00  000000' 
00  003712* 
00  004144' 
00  003714* 
00  000000 


00  000000 
00  004125' 
00  003746* 
00  003721* 


TSTU23 
TSTU24 
TSTU25 
TSTU26 
TSTU27 
-1 

;  Start  test 

TG22:   MOVE I 
60 

MOVE  I 
GO 
RTN 

;  Initialization 

TL22:   SETZ 
MOVE  I 
SETZM 
SETOM 


failure  test  table 


Z8 

TRACE 
1,T22M 
TLOAD 


ERFLG. 
6.TS2^ 
TSTSUB 
TADDR 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


;  clear  error  flag 

:  get  test  table  address 

;  initialize  subtest  number 

;  clear  start  address 


DFPTA8 
DFPTA^ 

3^10 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 


n 


._J 


I  ^TA8  MACRO  !i:53B(1242)  09:19  1-JuL-85  Page  51  , 

0.   A8  MAC    18-Apr-85  10:59       MPROC  Module  Tests 


SEQ  K60 


3i  ■ 

336v 

336? 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

338A 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 


Loop  on  test  execute  table  entries 


004113' 
004114' 
004115* 
004116' 
004117' 


260 
260 
254 
254 
474 


004120"  027 
004121*  254 
004122*  254 
004123*  322 


17 
17 
00 
00 
15 


00 
00 
00 
15 


CO 
00 
00 
00 
00 


003722* 
003723* 
004124* 
004114' 
000000 


TA22; 
TB22: 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX22 

TB22 

ERFLG. 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


;  Handle  error  printouts  and  scope  looping 


00  004134* 
00  004107' 
00  004124' 
00  004113* 


004124*  263  17  0  00  000000 


004125*  040000  000030 
004126*  240002  000000 
004127*  340000  000000 


004130*  OhJOOO  000010 

004 i:i*  240002  000000 

004132*  340000  000000 

004133'  000000  000000 


004134'  140000  012174* 
004135*  240000  004137* 
004136'  000000000000* 

004137*  200  01  0  00  004111* 
004140*  256  00  0  01  004141' 
004141*  263  17  0  00  000000 


SCOPER  MA22 

JRST  TL22 

JRST  TX22 

JUMPE  ERFLG, TA22 

;  End  of  test 

TX22:   RTN 

;  Test  Execute  Table,  as: 

;  CO  is  cleared  initially 

TS22:   TTABLE  (TSTART,30) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


return 


(CMD, parameters) 


start  up  port 
check  if  completed 
exit  if  error  yet 


CC  is  cleared  after  a  CLRCCCODE  command 


TTABLF 
TTABLE 
TTABLE 
TTABLE 

Error  messages 


(TSTART,10) 
(TCHECK,2) 
(TEXIT) 
(TLAST) 


;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


MA22:   MSGITXN0TICASCI2  /Condition  Code  *CC  Rcvr  BufB  Ful'  not  /] 
CALL!TXN0T!MA22LP  ;  print  subtest  description 

LAST! CALL !TXALL!TTPNT         ;  print  test  data 


MA22LP:  MOVE 
XCT 
RTN 


1,TSTSUB 
MA22L-1(1) 


get  subtest  number 
print  message 
return 


004142' 
004143* 


037 
037 


00 
00 


00  011656* 
00  012161' 


MA22L 


TMSG 
TMSG 


<cleared  initially> 

<cleared  after  a  CLRCCCODE  command> 


DFPTA8 
DFPTA8 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 
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SEQ  1461 


3412 

3413 

;  Microcode: 

3414 

3415 

;      CC  1s  ( 

:leared  initially 

3416 

3417 

004144'  003000 

000000 

T22M:   MWORD 

<ADDR=30JZ>                     ; 

30 

3418 

004145'  000000 

000000 

i 

3419 

004146'  000000 

400000 

MUORD 

<ADDR=0,CJS,J=40> 

0 

3420 

004147'  000000 

000020 

3421 

004150'  000100 

000014 

nUORD 

<CONT.SD0,OR,B=2,D=2,MGC=14> 

1 

3422 

004151'  732001 

000340 

3423 

004152'  000200 

002040 

MUORD 

<CONT,S0A,A=2,OR.D=1 ,0ENA,SELM,M6C=40>  . 

2 

3424 

004153'  431020 

002340 

3425 

004154'  000300 

000274 

MWORD 

<CONT,SD0,D=1 ,SELP,M6C=274> 

3 

3426 

004155'  701000 

001340 

3427 

004156'  000400 

000000 

MWORD 

<C0NT,D=1> 

4 

3428 

004157'  001000 

000340 

3429 

004160'  000552 

000000 

MWORD 

<CJP,J=5200,CENA,CCBF> 

5 

3430 

004161'  000400 

060060 

3431 

004162'  000651 

000000 

MUORD 

<JMAP,J=5100> 

6 

3432 
3433 
3434 

004163'  000000 

000040 

;      CC  IS 

cleared  after  a  CLRCCCODE  command 

3435 

3436 

004164'  001 000 

110000 

MWORD 

<ADDR=10JMAP,J=11> 

•  10 

3437 

004165'  000000 

000040 

3438 

004166'  001100 

400000 

MWORD 

<CJS,J=40> 

;  11 

3439 

004167'  000000 

000020 

3440 

004170'  001200 

000020 

MWORD 

<CONT.SELM,M6C=20> 

;  12 

3441 

004171'  000000 

002340 

3442 

004172'  Gu!300 

000000 

MWORD 

<C0NT,D=1> 

;  13 

3443 

004173'  001000 

000340 

3444 

004174'  001452 

000000 

MWORD 

<CJP.J=5200,CENA,CCBF> 

;  14 

3445 

004175'  000400 

060060 

3446 

004176'  001551 

000000 

MWORD 

<JMAP,J=5100> 

;  15 

3447 
3448 
3449 
3450 
3451 

004177'  000000 

000040 

;  Subroutine  - 

Determine  if  a  PILA  module  is  connected  - 

if  not  exit 

test 

004200'  004000 

420000 

MWORD 

<ADDR=40,CJP.J=42,CENA.CCAF> 

;  40 

3452 

004201'  000400 

050060 

3453 

004202'  004100 

000000 

MWORD 

<CRTN> 

;  41 

3454 

004203'  000000 

000240 

3455 

004204'  004200 

440000 

MWORD 

<CJP,J=44,CENA,CCAF> 

;  42 

3456 

004205'  000400 

050060 

3457 

004206'  004300 

000000 

MWORD 

<CRTN> 

;  43 

3458 

004207'  000000 

000240 

3459 

004210'  004451 

000000 

MWORD 

<CJP,J=5100,CENA,CCAF> 

;  44 

3460 

004211'  000400 

050060 

3461 

004212'  004500 

000000 

MWORD 

<CRTN> 

;  45 

3462 
3463 
3464 
3465 
3466 

004213'  000000 

000240 

;  Subroutine  - 

Passed  -  Write  1  to  bit  12  of  GSR  register 

004214'  510000 

000000 

MWORD 

<ADDR=5100.CONT.SD0,AND,B=2.D=2> 

;  5100 

DFPTA8 
DFPTA8 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 


1 


DFPTA8 
DFPTA8 

3467 

3A68 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 
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004215* 
004216" 
004217' 
004220' 
004221 ' 
004222' 
004223' 
004224' 
004225' 
004226' 
004227' 
004230' 
004231 • 
004232' 
004233' 
004234' 
004235' 


004236' 
004237' 
004240' 
004241 ' 
004242' 
004243' 
004244' 
004245' 
004246' 
004247' 
004250' 
004251 ' 
004252' 
004253' 
004254' 
004255' 
004256' 
004257' 
004260' 


742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


52COOO 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
5d.'552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 

imn 


000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
C00340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 
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MWORD  <CONT,S0B,PLUS,B=2,D="."RY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2, 8=2, D=2>  ;  5103 

MWORD  <CONT,S0A,A^2,OR,D=l,OENA,SELE,MGC=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT,S0A,A=1,0R,D=1.SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  GSR  register 

MWORD  <ADDR=5200,CONT,SD0,AND,B=2,D=2>  ;  5200 

MWORD  <C0NT, SOB, PLUS, 8=2, D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2, 8=2, D=2>  ;  5203 

MWORD  <CONT,S0A,A=2,OR,D=i,OENA,SELE.MGC=4>  ;  5204 

MWORD  <CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40>  ;  5205 

MWORD  <JMAP,J=5205,D=1>  ;  5206 

MWORD  <CONT,SOA,A=1.0R,D=1.SELE,M6C=200>  ;  5207 

MWORD  <JMAP,J=5210,D=1>  ;  5210 


SEQ  1462 


" 1 
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SEQ  K63 


3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 


/jf********************************^************************************ 
*  TEST  23  -  CCXmtrAttn  Test 

Description:  Verify  that  condition  code  'CCXmtrAttn'  can  be 
tested  by  the  tnicrosequencer  for  conditional 
branching. 

Procedure:    Port  Clear 

Start  up  port  ,      .^      ^ 

UC>  perform  an  operation  and  then  verify  that 

CCXmtrAttn  is  not  asserted 
UC>  if  oassed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 

CC  is  cleared  initially  (after  resetting  the 

bit  in  case  the  PB  module  is  connected) 
CC  is  cleared  after  a  CLRCCCODE  command 

Failure:     — 
/jf ***************************  I..  ************************************** 


Test  data 


004261 • 
004262' 
004263' 
004264' 
004265' 
004266' 
004267' 
004270' 
004271 ' 
004272' 


254  00 

200403 

004335' 

012145' 

OuJOOO 

000000 

000000 

000000 

000000 

777777 


0  00  004273' 
000023 
012204' 
012014' 
004452' 
004645' 
005035' 
005216' 
005512' 
777777 


30  Start  test 


TSTU23:  JRST    T623      ,  •  9^      . 

MPROC !NDMP!ZMPR0C! 23  ;  test  mask 

T23M,,[ASCIZ  *CCXmtrAttn  Tesf'D 
CEXP  M6,MLAST!C13],,CEXP  MLAST1M7] 
TSTU24  ;  failure  test  table 

TSTU25  ;   ... 

TSTU26 
TSTU27 
TSTU30 
-1 


004273'  201  00  0  00  000000' 
004274'  260  17  0  00  004103* 
004275'  201  01  0  00  004335' 
004276'  260  17  0  00  004105* 
004277'  263  17  0  00  000000 


004300'  400  15  0  00  000000 

004301'  201  06  0  00  004316' 

004302'  402  00  0  00  004137* 

004303'  476  00  0  00  004112* 


;  Start  test 
T623: 


MOVEI  Z8 

60  TRACE 

MOVEI  1,T23M 

GO  TLOAD 
RTN 


;  Initialization 

TL23:   SETZ  ERFLG. 

MOVEI  6,TS23 

SETZM  TSTSUB 

SETOM  TADDR 


get  address  of  module  start 

Handle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


I 


DFPTA8 
DFPTA8 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

356A 

3565 

3566 

35<^7 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

J91 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 
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SEQ  1464 


004304* 
004305' 
004306' 
004307' 
004310' 


260  17 
260  17 
254  00 
254 
474 


00 
15 


00  004113* 
00  004114* 
00  004315' 
00  004305' 
00  000000 


004311"  027  00  0  00  004325' 

004312'  254  00  0  00  004303' 

004313'  254  00  0  00  004315' 

004314'  322  15  0  00  004304' 


004315'  263  17  0  00  000000 


004316'  040000  000030 
004317'  240002  000000 
004320'  340000  000000 


004321'  O'^JOOO  000010 

004322'  240002  000000 

004323'  340000  000000 

004324'  000000  000000 


004325'  140000  012210' 

004326'  240000  004330' 

004327'  000000000000* 

004330'  200  01  0  00  004302* 

004331'  256  00  0  01  004332' 

004332'  263  17  0  00  000000 

004333'  037  00  0  00  011656' 

004334'  037  00  0  00  012161' 


Loop  on  test  execute  table  entries 


TA23: 
TB23: 


60 

GO 
JRST 
JRST 
3ET0 


IPACLR 

TEXEC 

TX23 

TB23 

ERFL6, 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA23 
TL23 
TX23 
ERFL6,TA23 


print  error  message 

loop  on  error 

altniode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX23:   RTN 

;  Test  Execute  Table,  as: 

;  CC  is  cleared  initially 

TS23; 


return 


(CMD, parameters) 


T TABLE 
TTABLE 
TTABLE 


(TSTART.30) 

(TCHECK,2) 

(TEXIT) 


start  up  port 
check  if  completed 
exit  if  error  yet 


CC  is  cleared  after  a  CLRCCCODE  command 


TTABLE 
TTABLE 
TTABLE 
TTABLE 

;  Error  messages 

MA23: 


(TSTARTJO) 
(TCHECK,2) 
(TEXIT) 
(TLAST) 


MSG!TXNOT!CASCIZ  /Condition  Co 

CALL!TXN0T!MA23LP 

LAST!  CALL  .'TXALLITTPNT 


MA23LP: 


MA23L: 


MOVE 

XCT 

RTN 

TMSG 
TMSG 


1,TSTSUB 
MA23L-1(1) 


start  up  port 
check  if  completed 
exit  if  error  yet 


'CC  Xmtr  Attn'  not  /3 
print  subtest  description 
print  test  data 

get  subtest  number 
print  message 
return 


<cleared  initially> 

<cleared  after  a  CLRCCCODE  command> 
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SEQ  1465 


3604 

3605 
3606 
3607 

;  Microcode: 

CC  is  ( 

;leared  initially 

3608 

3609 

004335-  003000 

000000 

T23M:   HWORD 

<ADDR=30,JZ> 

30 

3610 

00A336'  000000 

000000 

3611 

004337'  000000 

400000 

MUORD 

<ADDR=0,CJS,J=40> 

0 

3612 

004340'  000000 

000020 

3613 

004341'  000100 

000050 

nUORD 

<CONT,D=1,SELP.MGC=50> 

1 

3614 

004342'  001000 

001340 

3615 

004343'  000200 

000000 

MWORD 

<C0NT,D=1> 

2 

3616 

004344'  001000 

000340 

9 

3617 

004345'  000300 

000000 

nUORD 

<C0NT,D=1> 

3 

3618 

004346'  001000 

000340 

3619 

004347'  000400 

000000 

MUORD 

<C0NT,D=1> 

4 

3620 

004350'  001000 

000340 

3621 

004351'  000552 

000000 

MUORD 

<CJP,J=5200,CENA,CCXA> 

5 

3622 

004352'  000400 

070060 

3623 

004353'  000651 

000000 

MUORD 

<JMAP.J=5100> 

•  6 

3624 
3625 
3626 
3627 
3628 

004354'  000000 

000040 

CC  is 

cleared  after  a  CLRCCl  oE   command 

004355'  001000 

110000 

MUORD 

<ADDR=10JMAP.J=11> 

;  10 

3629 

004356'  000000 

000040 

3630 

004357'  001100 

400000 

MUORD 

<CJS,J=40> 

;  11 

3631 

004360'  000000 

000020 

3632 

004361'  001200 

000020 

MUORD 

<CONT,SELM,MGC=20> 

;  12 

3633 

004362'  000000 

002340 

3634 

004363'  0u!300 

000000 

MUORD 

<C0NT,D=1> 

;  13 

3635 

004364'  001000 

000340 

3636 

004365'  001452 

000000 

MUORD 

<CJP.J=5200,CENA,CCAF> 

;  14 

3637 

004366'  000400 

050060 

3638 

004367'  001551 

000000 

MUORD 

<JMAP,J=5100> 

;  15 

3639 
3640 
3641 
3642 
3643 

004370'  000000 

000040 

;  Subroutine  - 

Determine  if  a  PILA  module  is  connected  -  if  not  exit  test 

004371'  004000 

420000 

MUORD 

<ADDR=40,CJP,J=42,CENA,CCAF> 

;  40 

3644 

004372'  000400 

050060 

3645 

004373'  004100 

000000 

MUORD 

<CRTN> 

;  41 

3646 

004374'  000000 

000240 

364- 

004375'  004200 

440000 

MUORD 

<CJP.J=44,CENA,CCAF> 

;  42 

3648 

004376'  000400 

050060 

3649 

004377'  004300 

000000 

MUORD 

<CRTN> 

;  43 

3650 

004400'  000000 

000240 

3651 

'^04401'  004451 

000000 

MUORD 

<CJP,J=5100,CENA,CCAF> 

;  44 

3652 

004402'  000400 

050060 

3653 

004403'  004500 

000000 

MUORD 

<CRTN> 

;  45 

3654 
3655 
3656 
:657 
3658 

004404'  000000 

000240 

;  Subroutine  - 

Passed  -  Urite  1  to  bit  12  of  CSR 

register 

004405'  510000 

000000 

MUORD 

<ADDR=5100,CONT,SD0,AND.B=2.D=2> 

;  5100 

0FPTA8 
DFPTA8 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 
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004406' 
004407' 
004410' 
004411' 
004412' 
004413' 
004414' 
004415' 
004416' 
004417' 
004420' 
004421 ' 
004422' 
004423' 
004424' 
004425' 
004426' 


004427' 
004430' 
004431 • 
004432' 
004433' 
004434' 
004435' 
004436* 
004437' 
004440' 
004441 • 
004442' 
004443' 
004444' 
004445' 
004446' 
004447' 
004450' 
004451 ' 


742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
5^J552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 

mm 


000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 
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MWORD  <C0NT, SOB, PLUS. B=2.D=2,CRY>  ;  5101 

MUORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCTJ=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MWORD  <CONT,S0A,A=2,OR,D=1,OENA,SELE,MGC=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT,S0A,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 

MWORD  <ADDR=520O,CONT,SD0,AND,B=2,D=2>  ;  5200 

MWORD  <CONT, SOB, PLUS, B=2,D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2>  ;  5203 

MWORD  <CONT,S0A,A=2,OR,D=1,OENA,SELE,MGC=4>  ;  5204 

MWORD  <CJP,J=5207,CENA,CCGC,D=1,SELE,M6C=40>  ;  5205 

MWORD  <JMAP,J=5205,D=1>  ;  5206 

MWORD  <CONT,S0A,A=l,OR,D=l,SELE,M6C=200>  ;  5207 

MWORD  <JMAP.J=5210.D=1>  ;  5210 
-1 


SEQ  1466 


n 
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SEQ  K67 


3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

371 A 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

373A 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 


004452' 
004453' 
004454' 
004455' 
004456' 
004457' 
004460' 
004461 ' 
004462* 
004463' 


23:  00 

200403 

004552' 

012223' 

000000 

000000 

000000 

000000 

000000 

777777 


0  00  004464' 
000024 
012217' 
012225' 
004645' 
005035' 
005216' 
005512' 
005747' 
777777 


*  TEST  24  -  CCEbusRqst  Test 


Description: 


Procedure: 


Verify  that  condition  code  'CCEbusRqst'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 

Start  up  port 

UC>  perform  an  operat    and  then  verify  that 

CCEbusRqst  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 
CC  is  cleared  initially 
CC  sets  when  KL  tries  to  to  a  DATAI 
CC  sets  when  KL  tries  to  to  a  DATAO 
CC  clears  after  KL's  DATAI  times  out 
CC  clears  after  KL's  DATAO  times  out 

Failure:     — 
/(f*******  *******  ****************************************************** 


Test  data 
TSTU24 


?o  start  test 
est  mask 


JRST    T624 

MPR0C!NDMPIZMPR0C!24 

T24M,,CASCIZ  "CCEbusRqst  Test*] 

CEXP  M6,MLAST!E2],,CEXP  M7,E1 .MLASr!E17] 

TSTU25  ;  failure  test  table 

TSTU26  ;   ... 

TSTU27 

TSTU30 

TSTU31 

-1 


Start  test 


004464'  201  GO 

004465'  260  \7 

004466'  201  01 

004467'  260  17 

004470'  263  17 


0  00  uOOOOO' 
0  00  004274* 
0  00  004552' 
0  00  004276* 
0  00  000000 


TG24: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z8 

TRACE 

1.T24M 

TLOAD 


Set  address  of  module  start 
andle  trace  output 
set  up  microcode  address 
load/verify  it 
failed  -  exit  test 


L 
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SEQ  K68 


37A6 
37A7 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
"««6 

5 1 

37b> 
3790 
'91 
5 '92 
3793 
3794 


004471'  400  15  0  00  000000 

004472'  201  06  0  00  004507' 

004473'  402  00  0  00  004330* 

004474'  476  00  0  00  004303* 


004475'  260  17  0  00  004304* 

004476'  260  17  0  00  004305* 

004477'  254  00  0  00  004506' 

004500'  254  00  0  00  004476' 

004501'  474  15  0  00  000000 


004502'  027  00  0  00  004537' 

004503'  254  00  0  00  004471' 

004504'  254  00  0  00  004506' 

004505'  322  15  0  00  004475' 


004506'  263  17  0  00  000000 


004507'  040000 
004510'  240002 
00^*511'  340000 


004512'  040000 

004513'  140000 

004514'  240002 

004515'  340000 


L   i6'  040000 

0Us:.17'  140000 

004520'  240002 

004521'  340000 


000000 
000000 
000000 


000003 
004533' 
000000 
000000 


000003 
004535' 
000000 
000000 


;  Initialization 

TL24:   SETZ  ERFLG, 

MOVEI  6,TS?4 

SETZM  TSTSUB 

SETOM  TADDR 

;  Loop  on  test  execute  table  entries 


TA24: 
TB24: 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX24 

TB24 

ERFL6, 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA24 
TL24 
TX24 
ERFLG,TA24 


print  error  messaae 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX24:   RTN 

;  Test  Execute  Table,  as: 

;  CC  is  cleared  initially 

TS24: 


;  return 
(CMD, parameters) 


T TABLE 
TTABLE 
TTABLE 


(TSTART,0) 
(TCHECK,2) 
(TEXJT) 


CC  sets  when  <L  tries  to  to  a  DATAI 

TTABLE  (TSTAR^3) 

TTABLE  (TCALL,TS24DI) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 

CC  sets  when  KL  tries  to  to  a  DATAO 

TTABLE  (TSTART,3) 

TTABLE  (TCALLJS24D0) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


start  up  port 
check  if  completed 
exit  if  error  yet 


start  up  port 
do  a  DATAI 
check  if  completed 
exit  if  error  yet 


start  up  port 
do  a  DATAO 
check  if  completed 
exit  if  error  yet 


DFPTA8 
DFPTA8 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

380A 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

38'' 8 

38W 

3820 

3821 

3822 

3823 

3824 

3825 

3326 

i827 

3828 

3829 

3830 

3831 

3832 

3833 
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004522'  040000  000006 

004523'  VOOOO  004533' 

004524'  24000"^  000000 

004525'  34000^  000000 


004526' 
004527' 
004530' 
004531 ' 
004532' 


004533' 
004534' 

004535' 
004536' 


040000 
140000 
240002 
340000 
000000 


000006 

004535' 

000000 

000000 

000000 


260 
263 

260 
263 


17  0 
17  0 

17  0 
17  0 


00  002313* 
00  000000 
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;  CC  clears  after  KL's  DATAI  times  out 

TTABLE  (TSTART,6) 

TTABLE  (TCALLJS24DI) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 

;  CC  clears  after  KL's  DATAO  times  out 

TTABLE  (TSTART,6) 

TTABLE  (TCALL,TS24D0) 

TTABLE  (TCHECK,2) 

TTADLE  (TEXIT) 

TIABLE  (TLA5T) 

;  Routines  to  do  a  DATAI /O 

TS24DI:  GO     RDLAR 


SEQ  1469 


00 
00 


002316* 
000000 


004537'  140000  012230' 

004540'  240000  004542' 

004541'  000000000000* 

004542'  '.uJ  01  0  00  004473* 

004543"  256  00  0  01  004544' 

004544'  263  17  0  00  000000 


TS24D0: 


GO 
RTN 

GO 
RTN 


LDRAR 


Error  messages 


start  up  port 
do  a  DATAI 
check  if  completed 
exit  if  error  yet 


start  up  port 
do  a  DATAO 
check  if  completed 
exit  if  error  yet 


read  LAR 
return 

load  RAR 
return 


MA24:   MS6!TXN0T!CASCIZ  /Condition  Code  'CC  EBUS  Rqst'  not  /] 

CALL1TXNOTIMA24LP  ;  print  subtest  description 

LAST! CALL ITXALLITTPNT         ;  orint  test  data 


MA24LP:  MOVE 
XCT 
RTN 


1,TSTSUB 
MA24L-1(1) 


get  subtest  number 
print  message 
return 


004545' 
004546* 
0045.>7 
004550' 
00435 i* 


037 
037 
037 

or 

07 


0 
'.0 

■  ) 

00 


00 
00 
00 
GO 
00 


011656' 
012237' 
012246' 
012255' 
CI 2264' 


MA24L: 


TMSG 
TMSG 
T?«SG 

.HSG 


<clfcared  initial ly> 
<set  when  KL  tries  to  to  a  DATAI> 
<set  when  KL  tries  to  to  a  DATA0> 
<cleared  after  KL's  DATAI  times  out> 
<cleared  after  KL's  DATAO  times  out> 
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3834 
3835 
3836 
3837 
3838 

3839  004552'  000000  010000 

3840  004553'  000000  000040 

3841  004554'  000152  000000 

3842  004555'  000400  100060 

3843  004556'  000251  OOOCOO 

3844  004557'  000000  000C;0 
3845 

3846 
3847 

3848  004560'  000300  040000 

3849  004561'  000000  000040 

3850  004562'  000451  000000 

3851  004563'  000400  100060 

3852  004564'  000500  040000 

3853  004565'  000000  000040 
3854 

3855 
3856 

3857  004566'  000600  070000 

3858  004567'  000000  000040 

3859  004570'  000700  110000 

3860  004571'  000400  100060 

3861  004572'  001000  070000 

3862  004573'  000000  000040 

3863  004574'  OOnOO  110000 

3864  004575'  0uJ400  100060 

3865  004576'  001251  000000 

3866  004577'  000000  000040 
3867 
3868 
3869 
3370  004600'  510000  000000 

3871  004601'  742001  000340 

3872  004602'  510100  000000 

3873  004603'  302001  000740 

3874  004604'  510200  260000 

3875  004605'  000000  000300 

3876  004606'  510351  030000 

3877  004607'  102021  000220 

3878  004610*  510400  0020C4 

3879  004611'  431020  005340 

3880  004612'  510551  070040 

3881  004613'  001400  015060 

3882  004614'  510651  050000 

3883  004615'  001000  000040 

3884  004616'  510700  000200 

3885  004617'  431010  005340 

3886  004620'  511051  100000 

3887  004621'  001000  000040 
3888 
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;  Microcode: 

CC  is  cleared  initially 

T24M:   MUORD  <ADDR=0. JMAP,J=1>  ;  0 

MWCRD  <CJP,J=5200,CENA.CCER>  ;  1 

MWORD  <JMAP,J=5100>  ;  2 

CC  sets  when  KL  tries  to  to  a  DATAI/DATAO 

MWORD  <ADDR=3.JMAP,J=4>  ;  3 

MWORD  <CJP,J=5100.CENA.CCER>  ;  4 

MWORD  <JMAP,J=4>  ;  5 

CC  clears  after  KL's  DATAI/DATAO  times  out 

MWORD  <ADDR=6,JMAP,J=7>  ;  6 

MWORD  <CJP,J=11,CENA.CCER>  ;  7 

MWORD  <JMAP,J=7>  ;  10 

MWORD  <CJP.  <=11.CENA,CCER>  ;  11 

MWORD  <JMAP,J=5100>  ;  12 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD  <ADDf(=5100,CONT,SD0,AND,8=2,D=2>  ;  5100 

MWORD  <C0NT. SOB, PLUS, 6=2, D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MWORD  <C0NT,S0A,A=2,0R,r=1,0ENA,SELE,MGC=4>   ;  5104 

MWORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <C0NT,S0A,A-1,0R,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 


SEQ  1470 


•^  ^  p«  *  A  n 


*»N^     te^r\f^^/'^\      r\r\  .  ^  f\ 


'1 
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3889 

3890 

3891 

00A622' 

520000 

3892 

004623' 

742001 

00A624' 

520100 

389A 

004625' 

302001 

3895 

004626' 

520200 

3896 

004627' 

OOOOuO 

3897 

004630' 

520352 

3898 

004631 ' 

102021 

3899 

004632' 

520400 

3900 

004633' 

431020 

3901 

004634' 

520552 

3902 

004635' 

001400 

3903 

004636' 

520652 

390A 

004637' 

001000 

3905 

004640' 

520700 

3906 

004641 • 

431010 

3907 

004642' 

521052 

3908 

004643' 

001000 

3909 

004644' 

777777 
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;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 


SEQ  1471 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 
777777 


MUORD  <ADDR=5200,C0NT  SD0,AND,B=2.D=2> 

MUORD  <CONT, SOB, PLUS. B=2,D=2,CRY> 

MUORD  <LDCT,J=25> 

MWORD  <RPCT,J=5203, SAB, PLUS. A=2,B=2,D=2> 

MUORD  <C0NT.S0A,A=2,0R,D=1 ,0ENA,SELE,MGC=4> 

MUORD  <CJP,J=5207.CENA.CC6C.D=1 .SELE,M6C=40> 

MUORD  <JMAP,J=5205,D=1> 

MUORD  <C0NT,S0A.A=1.0R,D=1.SELE.MGC=200> 

MUORD  <JMAP,J=5210,D=1> 

-1 


5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5210 


t 


f\r  r\T  a  Q 


ui/>nn    tCfr\t^-M'i\     r\r\ .  ^  n 


.OC    n.._    {.f\ 
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SEQ  K72 


3^10 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 


;jf«**«********************  ******************************************** 

•  TEST  25  -  CCIntrActive  Test 


Description: 


Procedure: 


004645' 
004646* 
004647' 
004650' 
004651 • 
004652' 
004653' 
004654' 
004655' 
004656' 


254  00 

200403 

0u':742' 

012277' 

000000 

000000 

000000 

000000 

000000 

inni 


0  00  004657' 
000025 
012273' 
012301' 
005035' 
005216' 
005512' 
005747' 
006307' 

mm 


Verify  that  condition  code  'CCIntrActive'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 
Start  up  port 
UC>  perforin  an  operation  and  then  verify  that 
CCIntrActive  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 
CC  is  cleared  initially 
CC  sets  when  an  interrupt  is  pending 
CC  clears  after  an  interrupt  has  been  handled 

Failure:     — 
/If*******  **********************************************  *************** 

Test  data 

TSTU25:  JRST    T625  ;  go  start  test 

MPROC .'NDMPIZMPROC 125  :  test  mask 

T25M,,CASCIZ  *CCintrActive  Test*J 
CEXP  M6,MLAST!E14],.[EXP  M7.E15,E7.MLAST!E61 
TSTU26  ;  failure  test  table 

TSTU27 
TSTU30 
TSTU31 
TSTU32 
-1 


004657'  201  00  0 
004660'  260  17  0 


004661 ' 
004662' 
004663' 


00  000000' 

00  004465* 

0  00  004742' 

00  004467* 

263  17  0  00  000000 


201  01 
260  17  0 


004664'  400  15  0  00  000000 

004665'  201  06  0  00  004702' 

004666'  402  00  0  00  004542* 

004667'  476  00  0  00  004474* 


;  Start  test 

TG25:   MOVE I  Z8 

GO  TRACE 

MOVEI  1,T25M 

GO  TLOAD 
RTN 

;  Initialization 

TL25:   SETZ  ERFL6- 

MOVEI  6,TS25 

SETZM  TSTSUB 

SETOM  TADDR 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  tabl^  address 
initialize  subtest  number 
clear  start  address 


DFPTA8 
DFPTA8 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

460? 

4604 

4605 

4606 

4607 

4608 


.J 
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SEO  K73 


3963 

396A 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 


Loop  on  test  execute  table  entries 


004670'  26C  17  0  00  004475* 

004671'  260  17  0  00  004476* 

004672'  254  00  0  00  004701' 

004673'  254  00  0  00  004671' 

004674'  474  15  0  00  000000 


004675'  027  00  0  00  004731' 

004676'  254  00  0  00  004664' 

004677'  254  00  0  00  004701" 

004700'  322  15  0  00  004670' 


004701'  263  17  0  00  000000 


004702'  040000  000000 
004703'  240002  000000 
004704'  340000  000000 


TA25: 
TB25: 


GO 

60 

JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX25 

T825 

ERFLG. 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA25 
TL25 
TX25 
EPFLG,TA25 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX25:   RTN 

;  Test  Execute  Table,  as: 

;  CC  is  cleared  initially 

TS25: 


;  return 
(CMD, parameters) 


TTABLE 
TTABLE 
TTABLE 


(TSTART,0) 
(TCHECK.2) 
(TEXJT) 


004705'  1*«J000 

004706'  040000 

004707'  240002 

004710'  340000 

004711'  200000 


004712' 
004713' 
004714' 
004715' 
004716' 


140000 
040000 
240010 
340000 
000000 


004722' 

000010 

000000 

000000 

004717' 


004725' 

000020 

000000 

000000 

000000 


CC  sets  when  an  interrupt  is  pending 

TTABLE  (TCALL,TS25IA) 

TTABLE  (TSTARTJO) 

TTABLE  (TCHECK.2) 

TTABLE  (TEXIT) 

TTABLE  (TCALLC,TS25EX) 


start  up  port 
check  if  completed 
exit  if  error  yet 


initialize  (to  not  handle  interrupts) 
start  up  port 
check  if  completed 
exit  if  error  yet 
check  if  exit  test 


CC  clears  after  an  interrupt  has  been  handled 


004717'  336  00  0  00  030037 
004720'  350  00  0  17  000000 
004721'  263  17  0  00  000000 


TTABLE  (TCALLJS25IB) 

TTABLE  (TSTART.20) 

TTABLE  (TCHECKJO) 

TTABLE  (TEXIT) 

TTABLE  (TLAST) 

;  Skip  next  test  segment  in  user  mode 

TS25EX:  SKIPN  USER 

AOS  (P) 
RTN 


initialize  (to  handle  interrupts) 
start  up  port 
check  if  completed 
exit  if  error  yet 
end  of  list 


user  mode? 

no  -  set  up  proper 

return 


"eturn 


DFPTA8 
DFPTA8 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

465a 

4659 

466C 

4661 


I 
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4012 

A013 

40K 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

^054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 
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SEQ  1474 


004722'  201  00  0  00  000010 

004723'  202  00  0  00  001051* 

004724'  263  17  0  00  000000 

004725*  402  00  0  00  004723* 

004726'  260  17  0  00  000000* 

004727'  260  17  0  00  000000* 

004730'  263  17  0  00  000000 


004731'  140000  012305' 

004732'  240000  004734' 

004733'  000000000000* 

004734'  200  01  0  00  004666* 

004735'  256  00  0  01  004736' 

004736'  263  17  0  00  000000 

004737'  037  00  0  00  011656' 

004740'  037  00  0  00  012315' 

004741'  037  00  0  00  012324' 


004742' 
004743' 
004744' 
004745' 
004746' 
004747' 


000000 
442000 
000152 
000400 
000251 
000000 


004750' 
004751 ' 
004752' 
004753' 
004754' 
004755' 
004756' 
004757' 


001000 
442000 
001100 
000000 
001251 
000400 
001352 
000000 


004760'  002000 

004761*  442000 

004762'  002100 

004763*  000000 


010000 
000040 
000000 
110060 
000000 
000040 


112004 
005040 
000002 
005340 
000000 
110060 
000000 
000040 


212004 
005040 
000002 
005340 


;  Set  up  start  addresses 
TS25IA: 


TS25IB: 


MOVE  I 
MOVEM 
RTN 

SETZM 
60 
60 
RTN 


10 
SDATA 


SDATA 

INITPI 

SETVEC 


;  get  initial  start  data 
;  save  it 


set  up  initial  start  data 

initialize  PI  system 

set  up  interrupt  vectors  . 


;  Error  messages 
MA25: 


M5GITXN0TICASCIZ  /Condition  Code  'CC  Intr  Active'  not  /] 
CALL!TXN0T!MA25LP  ;  print  subtest  description 

LAST! CALL !TXALL!TTPNT         ;  print  test  data 


MA25LP:  MOVE 
XCT 
RTN 


MA25L 


1.TSTSUB 
MA25L-1(1) 


;  get  subtest  number 
;  print  message 
;  return 


TMSG  <cleared  initial ly> 

TMSG  <set  when  an  interrupt  is  pending> 

TMSG  <cleared  after  an  interrupt  has 
been  hanclled> 

;  Microcode: 

;      CC  is  cleared  initially 

T25M:   MWORD  <ADDR=0,JMAP,J=1 .S0A,AND,D=2> 

MWORD  <CJP.J=5200,CENA,CCIA> 

MWORD  <JMAP,J=5100> 

;      CC  sets  when  an  interrupt  is  pending 

MWORD  <ADDR=10,JMAPJ=11,S0A,AND,D=2.OENA,SELE.MGC=4> 

MWORD  <C0NT,SELE,MGC=2> 

MWORD  <CJP,J=5100,CENA,CCIA> 

MWORD  <JMAP,J=5200> 


0 
1 
2 

10 
11 
12 
13 


CC  clears  after  an  interrupt  has  been  handled 

MWORD   <ADDR=20JMAPJ=21.SOA.AND.D=2.0ENA.SELE.MGC=4>  ;  20 

MWORD   <C0NT,SELE,MGC=2>  ;  21 
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A067 

A068 

4069 

A070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 
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004764'  002200  220000 

004765'  000400  110060 

004766'  002351  000000 

004767'  000000  000040 


004770' 
004771 ' 
004772' 
004773' 
004774' 
004775' 
004776' 
004777' 
005000' 
005001 • 
005002' 
005003' 
005004' 
005005' 
005006' 
005007' 
005010' 
005011' 


005012' 
005013' 
005014' 
005015' 
005016' 
005017' 
005020' 
005021 ' 
005022' 
005023' 
005024' 
005025' 
005026' 
005027' 
005030' 
005031 ' 
005032' 
005033' 
005034' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


520000 
742001 
5^J100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 
777777 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 
777777 
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MWORD  <CJP,J=22,CENA,CCIA>  ;  22 

MWORD  <jriAP,J=5100>  ;  23 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD  <ADDR=5100,CONT,SDO,AND,8=2,D=2>  ;  5100 

MWORD  <C0NT,S0B,PLUS,B=2,D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB, PLUS. A=2, 8=2, D=2>  ;  5103 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,MGC=40>  ;  5105 

MWORD  <jriAP,J=5105,D=1>  ;  5106 

MWORD  <CONT.S0A,A=1,OR,D=1,SELE,M6C=200>  ;  5107 

MWORD  <JP1AP,J=5110,D=1>  ;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 

MWORD  <ADDR=5200,CONT,SD0,AND,B=2,D=2>  ;  5200 

MWORD  <C0NT, SOB, PLUS, B=2,D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2.D=2>  ;  5203 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5204 

MWORD  <CJP,J=5207,CENA,CC6C,D=1,SELE,M6C=40>  ;  5205 

MWORD  <JMAP,J=5205,D=1>  ;  5206 

MWORD  <CONT.S0A,A=1,OR.D=1,SELE,MGC=200>  ;  5207 

MWORD  <JMAP,J=5210,D=1>  ;  5210 
-1 


SEQ  1475 


__J 


0FPTA8 
DFPTA8 

A1H 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

415? 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 
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005035" 
005036' 
005037* 
005040' 
005041 ' 
005042' 
005043' 
005044' 
005045' 
005046' 


MPROC  Module  Tests 

#•**»*****•*****•***•*••♦♦***•*******•******************************** 
*  TEST  26  -  CCMBSign  Test 


SEQ  1476 


Description: 


Procedure: 


Verify  that  condition  code  'CCMBSign'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 

Start  up  port 

UC>  perform  an  operation  and  then  verify  that 

CCMBSign  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 

CC  is  cleared  when  ALU  output  is  zero 
CC  is  set  when  ALU  output  is  -1   ,,,„ 
CC  is  cleared  when  ALU  output  is  377777,, -1 
CC  is  set  when  ALU  output  is  400000,, 0 

Failure:     — 
/If*********  *******************  **************************************** 


254  00 

2uJ403 

005121' 

012012' 

000000 

000000 

000000 

000000 

000000 

777777 


0  00  005047' 
000026 
012336' 
012014' 
005216' 
005512' 
005747' 
006307' 
006603* 
777777 


Test  data 
TSTU26 


JRST    T626 

MPROC !NDMP!ZMPROC! 26 

T26M,.CASCIZ  •CCMBSign  Test*] 

CEXP  M6,MLAST!E23],,[EXP  MLAST!M7] 

TSTU27 

TSTU30 

TSTU31 

TSTU32 

TSTU33 

-1 


;  go  start  test 
;  test  mask 


failure  test  table 


Start  test 


005047'  201  00  0 

005050'  260  17  0 

riSOSr  201  01  0 

L 05052'  260  17  0 

005053'  263  17  0 


00  000000' 
00  004660* 
00  005121' 
00  004662* 
00  000000 


T626: 


MOVE  I 
60 

MOVE  I 
GO 
RTN 


Z8 

TRACE 
1.T26M 
TLOAD 


get  address  of  module  start 

Fiandle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 
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SEQ  1477  ' 


A161 

A162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 


Im'tialization 


005054"  400  15  0  00  000000 

005055'  201  06  0  00  005072' 

005056'  402  00  0  00  004734* 

005057'  476  00  0  00  004667* 


TL26: 


SETZ 
MOVE  I 
SETZM 
SETOM 


ERFLG, 
6JS26 
TSTSU8 
TADDR 


Loop  on  test  execute  table  entries 


005060' 
005061 • 
005062" 
005063' 
005064' 


260  17 
260  17 
254  00 
254  00 


474  15  0 


00  004670* 
00  004671* 
00  005071 • 
00  005061 ' 
00  000000 


TA26: 
TB26: 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX26 

TB26 

ERFLG. 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


clear  port 

er.  >-ute  table  entry 

e'  of  sstep  table 

k.  'p  looping  after  call 

error  occurred 


;  Handle  error  printouts  and  scope  looping 


005065'  027  00  0  00  005107' 

005066'  254  00  0  00  005054' 

005067'  254  00  0  00  005071' 

005070'  322  15  0  00  005060' 


005071'  263  17  0  00  000000 


005072'  040000  000000 
005073'  240002  000000 
005074'  340000  000000 


005075'  040000  000010 
005076'  240002  000000 
005077'  340000  000000 


005100'  040000  000020 
005101'  240002  000000 
005102*  340000  000000 


SCOPER 
JRST 
JRST 
JUMPE 


MA26 
TL26 
TX26 
ERFLG, TA26 


;  print  error  message 

;  loop  on  error 

;  altmode  exit 

;  do  next  sstep  table  entry 


;  End  of  test 

TX26:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD, parameters) 
;  CC  is  cleared  when  ALU  output  is  zero 


TS26: 


TTABLE 
T TABLE 
TTA3LE 


(TSTART,0) 
(TCHECK,2) 
(TEXIT) 


;  CC  is  set  when  ALU  output  is  -1 


TTABLE 
TTABLE 
TTABLE 


(TSTARTJO) 

(TCHECK,2) 

(TEXIT) 


;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


start  up  port 
check  if  completed 
exit  if  error  yet 


;  CC  is  cleared  when  ALU  output  is  377777,, -1 


TTABLE  (TSTART,20) 
TTABLE  (TCHECK,2) 
TTABLE  (TEXIT) 


;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


n 


465 


DFPTA8 
DFPTA8 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 
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SEQ  1478 


00510^'  040000  000030 

005  340002  000000 

0051 u J  340000  000000 

005106*  000000  000000 


005107'  140000  012341* 
005110*  240000  005112* 
005111*  000000000000* 

005112*  200  01  0  00  005056* 
005113'  256  00  0  01  005114* 
005114*  263  17  0  00  000000 

005115'  037  00  0  00  012350* 
005116'  037  00  0  00  012357' 
005117'  037  00  0  00  012365' 
005120'  037  00  0  00  012375* 


005121* 
005122* 
005123' 
005124' 
005125' 
005126' 


005127' 
005130' 
005131' 
005132' 
005133' 
005134* 


000000 
441000 
000152 
4<«!400 
000251 
000000 


001000 
441000 
001151 
171400 
001252 
000000 


005135' 
005136* 
005137* 
005140* 
005141' 
005142' 


002000 
732000 
002152 
431400 
002251 
000000 


010000 
000040 
000000 
120060 
000000 
000040 


110000 
000040 
000000 
120060 
000000 
000040 


210777 
240040 
000000 
120060 
000000 
000040 


005143'  003000  311000 


CC  is  set  when  ALU  output  is  400000,, 0 


TTABLE 
T TABLE 
TTABLE 
TTABLE 

;  Error  messages 

nA26: 


(TSTART,30) 
(TCHECK,2) 
(TEXIT) 
(TLAST) 


start  up  port 
check  if  completed 
exit  if  error  yet 
end  of  list 


MSGITXNOTICASCIZ  /Condition  Code  *CC  MB  Sign*  not  /] 
CALL!TXN0T!MA26LP  ;  print  subtest  description 

LASTICALL!TXALL!TTPNT         ;  print  test  data 


MA26LP: 


f1A26L: 


MOVE 

XCT 

RTN 

TMS6 
TMS6 
TMSG 
TMSG 


l.TSTSUB 
MA26L-1(1) 


get  subtest  number 
print  message 
return 


<cleared  when  ALU  output  is  zero> 

<set  when  ALU  output  is  -1>  „„, 

<cleared  when  ALU  output  is  377777,, -1> 

<set  when  ALU  output  is  400000., 0> 


;  Microcode: 

;      CC  is  cleared  wt.en  ALU  output  is  zero 

T26M:   MWORD   <ADDR=0,JMAP,J=1 ,S0A,AND,D=1> 


or. 


MWPR 
MUORD 


<CJP,J=5200.S0A,AND,D=1,CENA,CCMB> 
<JMAP,J=5100> 


CC  is  set  when  ALU  output  is  -1 
MWORD   <ADDR=10,JMAP,J=11,S0A,AND.D=1> 
MUORD   <CJP, J=5100,SAB.XNOR,D=1 ,CENA,CCMB> 
MWORD   <JMAP,J=5200> 


0 
1 
2 

10 
11 
12 


CC  is  cleared  when  ALU  output  377777,, -1 
MWORD   <ADDR=20. JMAP,J=21 ,SD0,OR,D=2,MGC=777,SKCN> 
MWORD   <CJP,J=5200,S0A,OR,D=1,CENA,CCMB>      ;  21 
MWORD   <JMAP,J=5100>  ;  22 

CC  is  set  when  ALU  output  400000,, 0 

MWORD   <ADDR=30,JMAP,J=31 .SD0,OR,D=2,MGC=1000,SKCN> 


DFPTA8 
0FPTA8 

A263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

429b 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 
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SEQ  1479 


005144' 
005145' 
005146' 
005147' 
005150' 


005151' 
005152' 
005153' 
005154' 
005155' 
005156' 
005157' 
005160' 
005161' 
005162' 
005163' 
005164' 
005165' 
005166' 
005167" 
005170' 
005171' 
005172' 


005173' 
005174' 
005175' 
005176' 
005177' 
005200' 
005201 ' 
005202' 
005203' 
005204' 
005205' 
005206' 
005207' 
005210' 
005211' 
005212' 
005213' 
005214' 
005215' 


732000 
003151 
431400 
003252 
000000 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
51C651 
001000 
510700 
431010 
511051 
001000 


520000 
7^^001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 

mm 


240040 
000000 
120060 
000000 
000040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
07CG40 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


00  0 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 


MWORD   <CJP.J=5100,SOA,OR,D=1 .CENA,CCMB> 
MWORD   <JMAP.J=5200> 


;  31 
;  32 


;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  GSR  register 

MWORD  <ADDR=5100,CONT,SD0,AND,8=2.D=2>  ;  5100 

MWORD  <C0NT, SOB, PLUS, B=2,D=2,CRY>  ;  5101 

MWORr  <LDCT,J=26>  ;  5102 

MWORL  <RPCT,J=5103, SAB, PLUS. A=2,B=2,D=2>  ;  5103 

MWORD  <C0Nr,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CC6C,D=1,SELE.M6C=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT,S0A,A=l,OR,D=l,SELE,M6C=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  GSR  register 

MWORD  <ADDR=5200,C0NT.SD0,AND,B=2,D=2>  ;  5200 

MWORD  <GONT, SOB, PLUS, 8=2, D=2,GRY>  ;  5201 

MWORD  <LDGT,J=25>  ;  5202 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2>  ;  5203 

MWORD  <G0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5204 

MWORD  <GJP,J=5207,GENA,GC6G,D=1.SELE,M6G=40>  ;  5205 

MWORD  <JMAP,J=5205,D=1>  ;  5206 

MWORD  <C0NT,S0A,A=1,0R,D=1,SELE,MGG=200>  ;  5207 

MWORD  <JMAP,J=5210,D=1>  ;  5210 
-1 


n     r 


K67 
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SEQ  K80 


4311 

A312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 


/jf  *********************************  *********************************** 
*  TEST  27  -  CCMVParChk  Test 


Description: 


Procedure: 


Verify  that  condition  code  'CCMVParChk'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 

Start  up  port  ^  ,      .^   ^ 

UC>  perform  an  operation  and  then  verify  that 

CCMVParChk  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 
CC  is  initially  cleared 
CC  is  set  after  reading  a  word  with  parity  bit 

set  from  the  CBUS 
CC  clears  after  reading  a  word  with  parity  bit 

not  set  from  the  CBUS 
CC  does  not  clear  by  setting  'MP  Clr  CC  Code' 
CC  clears  by  setting  'MP  Clr  Par  Chk' 

Failure:     — 

/jf******************************************************************** 


005216' 
005217' 
005220' 
005221' 
005222' 
005223' 
005224' 
005225' 
005226' 
005227' 


005230' 
005231 ' 
005232' 
005233' 
005234' 


254  00  0  00  005230' 
200403  000027 
005333'  012404' 
012410'  012412' 
000000000000* 
000000000000* 
000000  005512' 
000000  006307' 
000000  006603' 
imil     777777 


Test  data 
TSTU27 


go  start  test 
test  mask 


JRST    T627 

MPROC INDMPIZMPROC! 27 

T27M,,[ASCIZ  *CCMVParChk  Test*] 

[EXP  M6,MLAST!C11],,CEXP  M7.C16,MLAST!C8] 

TSTC3  ;  failure  test  table 

TSTC4  ;   ... 

TSTU30 

TSTU32 

TSTU33 

-1 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
005050* 
005333' 
005052* 
000000 


TG27: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


n 

TRACE 

1,T27M 

TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  adjress 

load/verify  it 

failed  -  exit  test 


1468 


DFPTA8 
DFPTA8 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 
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SEQ  1481 


005235* 
005236' 
005237' 
005240' 
005241 ' 
005242' 
005243' 
005244' 
005245' 
005246' 


400  15 
260  17 
402  00 
201  06 
476  00 
201  01 
242  01 
260  17 
201  01 


0  00  000000 
0  00  005060* 
00  005112* 
00  005261 ' 
00  005057* 
0  00  005000 
0  00  000001 
0  00  004535^ 
00  000010 


0 
0 
0 


260  17  0  00  003572* 


005247'  260  17  0 

005250'  260  17  0 

005251"  254  00  0 

005252'  254  00  0 

005253'  474  15  0 


00  005236* 
00  005061* 
00  005260' 
00  005250' 
00  000000 


005254'  027  00  0  00  005320' 

005255'  254  00  0  00  005235' 

005256'  254  00  0  00  005260' 

005257'  322  15  0  00  005250' 


005260'  263  17  0  00  000000 


005261'  040000  000000 
005262'  240010  000000 
005263'  340000  000000 


005264'  140000  005305' 

005265'  040000  000010 

005266'  240010  000000 

005267'  340000  000000 


Initialization 


TL27: 


SETZ 

GO 

SETZM 

MOVE  I 

SETOM 

MOVE! 

LSH 

60 

MOVEI 

GO 


ERFLG, 

IPACLR 

TSTSU8 

6,TS27 

TADDR 

1,5000 

U 

LDRAR 

1 ,MPRUN 

LDCSR 


Loop  on  test  execute  table  entries 


TA27: 
TB27: 


SO 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX27 

TB27 

ERFLG, 


clear  error  flag 
clear  the  CSR  register 
initialize  subtest  number 
get  test  table  address 
clear  start  address 
get  start  address 
position  correctly 
load  the  register 
get  'MPRUN'  bit 
start  up  the  port 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA27 
TL27 
TX27 
ERFLG,TB27 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstec  table  entry 


;  End  of  test 

TX27:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD, parameters) 
;  CC  is  cleared  initially 


TS27:   TTABLE  (TSTART,0) 
TTABLE  (rCHECK,10) 
TTABLE  (TEXIT) 


;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


;  CC  is  set  after  reading  a  word  with  parity  bit 
;  set  from  the  CBUS 


TTABLE  (TCALL,T27SR1) 

TTABLE  (TSTART.10) 

TTABLE  (TCHECKJO) 

TTABLE  (TEXIT) 


;  set  up  read  of  1  word  of  000.. 01 

;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


1 


1469 
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SEQ  1482 


4410 
4411 

;  CC  cl 

ears  after  reading  a  word  with  parity  bit 

4412 
4413 
4414 

;  not  set  from  the  CBUS 

005270* 

140000 

005307' 

TTABLE  (TCALL,T27SR2) 

set  up  read  of  1  word  of  000.. 00 

4415 

005271 • 

040000 

000020 

TTABLE  (TSTART,20) 

start  up  port 

4416 

005272' 

240010 

000000 

TTABLE  (TCHECKJO) 

check  if  completed 

4417 

005273' 

340000 

000000 

TTABLE  (TEXIT) 

exit  if  error  yet 

4418 
4419 
4420 
4421 

;  CC  does  not  clear  by  setting  'MP  Clr  C( 

:  Code' 

005274' 

140000 

005305' 

TTABLE  (TCALL,T27SR1) 

set  up  read  of  1  word  of  000.. 01 

4422 

005275' 

040000 

000030 

TTABLE  (TSTART,30) 

start  up  port 

4423 

005276' 

240010 

000000 

TTABLE  (TCHECKJO) 

check  if  completed 

4424 

005277' 

340000 

000000 

TTABLE  (TEXIT) 

exit  if  error  yet 

4425 
4426 
4427 
4428 

;  CC  cl 

ears  by  setting  'MP  Clr  Par  Chk' 

005300' 

140000 

005305' 

TTABLE  (TCALL,T27SR1) 

■  set  up  read  of  1  word  of  000.. 01 

4429 

005301 ' 

040000 

000040 

TTABLE  (TSTART,40) 

;  start  up  port 

4430 

005302' 

24C010 

000000 

TTABLE  (TCHECKJO) 

•  check  if  completed 

4431 

005303' 

340000 

000000 

TTABLE  (TEXIT) 

;  e*:it  if  error  yet 

4432 

005304' 

000000 

000000 

TTABLE  (TLAST) 

;  end  of  list 

4433 
4434 
4435 
4436 

;  Set  up  dr'ta  transfer 

005305' 

201  00 

0  00  011111 

T27SR1 : 

MOVEI   11111 

;  get  word  with  odd  parity 

4437 

005306' 

334  00 

0  00  000000 

SKI  PA 

4433 

005307' 

201  00 

0  00  002222 

T27SR2: 

MOVEI  2222 

;  get  word  with  even  parity 

4439 

005310' 

20?  00 

0  00  002037* 

MOVEM   B' " 

;  save  in  buffer 

4440 

005311' 

2uJ  01 

0  00  011645' 

MOVE    1  l^jFSZ,,CBUFJ 

;  get  pointer  to  control  buffer 

4441 

005312' 

260  17 

0  00  002036* 

GO    r-  ^.T 

;  initialize  software 

4442 

005313' 

551  01 

0  00  005310* 

HRRZI   i,oUFF 

;  buffer  address 

4443 

005314' 

201  02 

0  00  000001 

MOVEI   2,1 

;  word  count 

4444 

005315' 

400  03 

0  00  000000 

SETZ    3, 

;  clear  zero  fill  specifier 

4445 

005316' 

260  17 

0  00  002042* 

GO     GENCCW 

;  generate  a  CCU  list 

4446 

005317' 

263  17 

0  00  000000 

RTN 

;  return 

4447 

4448 
4449 
4450 

;  Error 

•  messages 

005320' 

140000 

012415' 

MA27: 

MSGlTXNOTiCASCIZ  /,ondition  Code 

'CC  MV  Par  Chk'  not  /] 

4451 

005321 ' 

240000 

005323' 

CALLirXN0TIMA27LP 

;  print  subtest  description 

4'^52 
4453 
4454 

005322' 

000000000000* 

LAST! CALL !TXALL!TTPNT 

;  print  test  data 

0053:3' 

200  01 

0  00  005237* 

MA27LP. 

MOVE    I.TSTSUB 

;  get  subtest  number 

4455 

005324' 

256  00 

0  01  005325' 

XCT    MA27L-1(1) 

;  print  message 

4456 

005325' 

263  17 

0  00  000000 

RTN 

;  return 

DFPTA8 
DFPTA8 

4A58 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 
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005326'  037  00  0  00  012425' 

005327*  037  00  0  00  012431' 

005330'  037  00  0  00  012446' 

005331'  037  00  0  00  012464' 

005332'  037  00  0  00  012475' 


005333' 
005334' 
005335' 
>05336' 
J05337' 
005340' 


005341' 
005342' 
005343' 
005344' 
005345' 
005346' 
005347' 
005350' 


000000 
000000 
000152 
000400 
000251 
OOCOOO 


001000 
000000 
001120 
000000 
001251 
GuJ400 
001352 
000000 


005351' 
005352' 
005353' 
005354' 
005355' 
005356' 
005357' 
005360' 


005361 ' 
005362' 
005363' 
005364' 
005365' 
005366' 
005367' 


002000 
000000 
002120 
000000 
002252 
000400 
002351 
000000 


003000 
000000 
003120 
QOOOOO 
003200 
000000 
003351 


010000 
000040 
000000 
130060 
000000 
000040 


110000 
000040 
000000 
000020 
000000 
130060 
000000 
000040 


210000 
000040 
000000 
000020 
000000 
130060 
000000 
000040 


310000 
000040 
000000 
000020 
000020 
002340 
000000 


MA27L:  TMSG   <initiaLLy  cleared> 

TMSG   <set  after  reading  a  word  with 
parity  bit  set  from  the  CBUS> 

TMSG   <c leaned  after  reading  a  word 
with  parity  bit  not  set  from  the  CBOS> 

TMSG   <stiLl  set  after  setting 
'MP  Clr  CC  Code'> 

TMSG   <clearpd  by  setting  'MP  Clr 
Par  Chk'> 

;  Microcode: 

;      CC  is  cleared  initially 

T27M:   MWORD   <ADDR=0, JMAP,J=1> 

MWORD   <CJP,J=5200,CENA,CCMP> 

MWORD   <JMAP,J=5100> 

;  CC  is  set  after  reading  a  word  with  parity  bit 
;  set  from  the  CBUS 

MWORD  <ADDR=10.JMAP.J=11> 

MWORD  <CJS,J=2000> 

MWORD  <CJP,J=5100,CENA,CCMP> 

MWORD  <JMAP,J=5200> 

;  CC  clears  after  reading  a  wo'-d  with  parity  bit 
;  not  set  from  the  CBUS 

MWORD  <ADDR^20,jMAP,J=21> 

MWORD  <CJS,J=2000> 

MWORD  <CJP,J=5200.CENA,CCMP> 

MWORD  <JMAP.J=5100> 

;  CC  does  not  clear  by  setting  'MP  Clr  CC  Code' 
MWORD   <ADDR=30,JMAP.J=31> 
MWORD   <CJS.J=2000> 
MWORD   <CONT,SELM,M6C=20> 
MWORD   <CJP,J=5100,CENA.CCMP> 


0 
1 
2 


10 
11 
12 
13 


20 
21 
22 
23 

30 
31 
32 
33 


1 


I  fsr  r\T  ji  O 


uarnn    %C1B/11/T\     nn . 1 n 


1-I,.I_0C     0->/.<.     iLQ-1 
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A512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

452t 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

-'>561 

4562 

4563 

4564 

4565 

4566 


005370'  000400 
005371'  003452 
005372'  000000 


005373' 
005374' 
005375' 
005376' 
005^77' 
005400' 
0'J5401 ' 
005402' 
005403' 
005404' 


005405' 
005406' 
005407' 
005410' 
005411' 
005412' 


004000 
000000 
004120 
000000 
004200 
000000 
004352 
000400 
004451 
000000 


500050 
OOCOOO 
500150 
000000 
500250 
000000 


005413' 
005414' 
005415' 
005416' 
005417' 
005420' 
005421 • 
005422' 
005423' 
005424' 
005425' 
005426' 
005427' 
005430' 
005431 ' 
005432' 
005h3?' 
005434' 
005435' 
005436' 
005437' 
005440' 
005441 ' 
005442' 
00:443 ' 
005444' 


200020 
742000 

2o-noo 

001000 

200201 

001000 

200320 

001000 

200400 

001000 

200500 

001000 

200620 

001000 

200720 

OOUOO 

201 02c 

001000 

201100 

001000 

201200 

732000 

201300 

431000 

201400 

000000 


130060 
000000 
000040 


410000 
000040 
000000 
000020 
000010 
002340 
000000 
130060 
000000 
000040 


010100 
004040 
010020 
002040 
020000 
000040 


010020 
002040 
000100 
004340 
000000 
000300 
030000 
000220 
000200 
004340 
100000 
000300 
060000 
000220 
110000 
000060 
070000 
C00040 
000004 
004340 
000200 
002340 
002004 
005340 
000140 
004240 
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MWORD       <JMAP,J=5200> 

;   CC  clears  by  setting  'MP  Clr  Par  Chk' 
MWORD       <ADDR=40JMAP,J=41> 
MWORD       <CJS,J=2000> 
MWORD       <CONT,SELM,MGC=10> 
MWORD       <CJP,J=5200,CENA.CCMP> 
MWORD       <JMAP.J=5100> 

;  Im'tialization  step 

MWORD       <ADDR=5000,JMAP.J=5001,SELC,M6C=100> 
MWORD       <JMAPJ=5001.SELM,MGC=20> 
MWORD       <JMAP,J=5002> 


SEQ  1484 


34 

40 
41 
42 
43 
44 

5000 
5001 
5002 


Subroutine  to  read  a  word  over  the  CBUS 

MWORD   <ADDR=2000,JMAP.J=2001 ,SD0.AND.D=2,SELM.MGC=2C> 


MWORD  <CONT.D=1.SELC.MGC=100> 

MWORD  <LDCT,J=100,D=1> 

MWORD  <RPCT,J=2003,D=1> 

MWORD  <CONT.D=1.SELC,MGC=200> 

MWORD  <LDCT,J=10,D=1> 

MWORD  <RPCT.J=2006,D=1> 

MWORD  <CJP,J=2011,D=1,CENA.CCCA> 

MWORD  <JMAP,J=2007.,D-1> 

MWORD  <con:,c=i,selc,mgc=4> 

MWORD  <CONT.SD0.OR.D=2,SELM.MGC-200> 

MWORD  <CONT,S0A,OR,D=1,0ENA,SELE,MGC=4> 

MWORD  <CRTN.SELC,MGC=140> 


2001  (stop  CBUS) 

2002 

2003 

2004  (start  CBUS) 

2005 

2006 

2007  (wait  til  avaU) 

2010 

2011 

2012 

2013 

2014   (STOP, STORE) 


Kr  riT  ji  O 


uirnn    •C'Jn  /  1  "Jy  "»  \      '<ft.in 


l-L.I-QC    a-^m^    iLO-0 


DFPTA8 
DFPTA8 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 
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005445' 
005446' 
005447' 
005450' 
005451' 
005452' 
005453' 
005454' 
005455' 
005456' 
005457' 
005460' 
005461  • 
005462' 
005463' 
005464' 
005465' 
005466' 


510000 
742001 
510100 
302001 
510200 
000000 
51035" 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


005467' 
005470' 
005471 ' 
005472' 
005473' 
005474' 
005475' 
005476' 
005477' 
005500' 
005501 • 
005502' 
005503' 
005504' 
005505' 
005506' 
005507' 
005510' 
005511' 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
iui021 
520400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 
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;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  GSR  register 

MWORD  <ADDR=510O,CONT,SD0,AND,B=2,D=2>  ;  5100 

MWORD  <C0NT, SOB, PLUS. 8=2, D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J-5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <C0NT,S0A,A=1,0R,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  GSR  register 

MWORD  <ADDR=5200,CONT,SDO,AND,B--2,D=2>  ;  5200 

MWORD  <C0NT, SOB, PLUS, B=2,D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 

MWORD  <RPGT,J=5203, SAB, PLUS, A=2,B=2,D=2>  ;  5203 

MWORD  <G0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5204 

MWORD  <CJP,J=5207,GENA,CC6G,D=1,SELE,M6C=40>  ;  5205 

MWORD  <JMAP,J=5205,D=1>  ;  5206 

MWORD  <C0NT,S0A,A=1.0R,D=1.SELE,MGC=200>  ;  5207 

MWORD  <JMAP,J=5210,D=1>  ;  5210 
-1 


SEQ  1485 


„J 


^3 


DFPTA8 
DFPTA8 

^609 

4610 

A611 

A612 

4613 

A6U 

461 5 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 
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SEQ  1486 


/jf******************************************************************** 
*  TEST  30  -  CCCbusParErr  Test 

Description:  Verify  that  condition  code  'CCCbusParErr'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Procedure:    Port  Clear 

Start  up  port 

UC>  perform  an  operation  and  then  verify  that 
CCCbusParErr  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 
u  is  initially  cleared 
CC  is  cleared  after  ""eading  each  word  of  a 

floating  I's  and  O'i  pattern 
CC  is  cleared  after  a  CLRCCCODE  command 

Failure:     — 
ff***     *************************************************************** 


005512'  254  00  0  00  005523' 

005513'  2uJ403  000030 

005514'  005640'  012505' 

005515  012511'  012513' 

005516'  000000000000# 

005517'  000000000000* 

005520'  000000  006307' 

005521'  000000  006603' 

005522'  777777    777777 


005523'  201  00  0  00  000000' 
005524'  260  17  0  00  005231* 
01  0 


Tes.  data 
TSTU30 


;  go  start  test 
;  test  mask 


JRST    TG30 

MPROC1NDMPIZMPROC!30  . 

T30M,.[ASCIZ  *CCCbusParErr  Test*J 

CEXP  M6,MLAST!C9],,[EXP  M7,C17,C12,MLAST!C7: 

TSTC3  ;  failure  test  table 

TSTC4 

TSTU32 

TSTU33 

-1 


;  Start  test 
TG30: 


005525'  201 
005526'  260  17  0 
005527'  263  17  0 


00  005640' 
00  005233* 
00  000000 


005530'  400  15  0  00  000000 

005531'  201  06  0  00  005546' 

005532'  402  00  0  00  005323* 

005533'  476  00  0  00  005241* 


MOVEI  Z8 

60  TRACE 

MOVEI  1,T30M 

GO  TLOAD 
RTN 


;  Initialization 

TL30:   SETZ  ERFL6. 

MOVEI  6,TS30 

SETZM  TSTSUB 

SETOM  TADDR 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  tabU  address 
initialize  subtest  number 
clear  start  address 


. J 


J 


I 
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SEQ  K87 


4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 


;  Loop  on  test  execute  table  entries 


005534'  260  17  0  00  005247* 

005535*  260  17  0  00  005250* 

005536'  254  00  0  00  005545' 

005537'  254  00  0  00  005535' 

005540'  474  15  0  00  000000 


005541'  027  00  0  00  005600' 

005542'  254  00  0  00  005530' 

005543'  254  00  0  00  005545' 

005544'  322  15  0  00  005534' 


005545'  263  17  0  00  000000 


TA30: 
TB30: 


GO 
GO 

JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX30 

T830 

ERFL6, 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA30 
TL30 
TX30 
ERFLG,TA30 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


005546'  040000 
005547'  240010 
005550'  340000 


005551'  I'tJOOO 

005552'  040000 

005553'  240010 

005554'  340000 


005555'  040000 
005556'  240010 
005557'  000000 


000000 
000000 
000000 


005560' 
000010 
000000 
000000 


000030 
000000 
000000 


;  End  of  test 

TX30:   RTN 

;  Test  Execute  Table,  as: 

;  CC  is  cleared  initially 

TS30: 


;  return 
(CMD, parameters) 


TTABLE 
T TABLE 
TTABLE 


(TSTART,0) 

(TCHECKJO) 

(TEXIT) 


start  up  port 
check  if  completed 
exit  if  error  yet 


;  CC  is  cleared  after  reading  each  word  of  a  floating  I's  and  O's  pattern 


TTABLE  (TCALL,T30SRD) 

TTABLF  (TSTARTJO) 

TTABIC  (TCHECKJO) 

TTADl:  (TEXIT) 


set  up  data  transfer 
start  up  port 
check  if  completed 
exit  if  error  yet 


CC  is  cleared  after  a  CLRCCCODE  command 


TTABLE 
TTABLE 
TTABLE 


(TSTART,30) 
(TCHECK.IO) 
(TLAST) 


start  up  port 
check  if  completed 
end  of  list 


DFPTA8 
DFPTA8 

5274 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

5294 

5295 

5296 

5297 

5298 

5299 

530C 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

530J 

530S 

531 C 

5311 

5312 

5313 

53K 

531 ; 

53ie 

531/ 


__J 
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SEQ  K88 


A703 

A704 

4705 

A706 

4707 

A708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 


005560' 
005561 • 
005562' 
005563' 
005564' 
005565' 
005566' 
005567' 
005570' 
005571 • 
005572' 
005573' 
005574' 
005575' 
005576' 
005577' 


201  01 
400  02 
200  00 
450  00 

202  01 
202  00 
350  00 
242  01 
326  01 

200  01 
260  17 
551  01 

201  02 
400  03 
260  17 
263  17 


0  00  000001 
0  00  000000 
0  00  000001 
0  00  000000 
0  02  005313* 
0  02  000000* 
0  00  000002 
0  00  000001 
0  00  005562' 
0  00  011645' 
0  00  005312* 
0  00  005564* 
0  00  000110 
0  00  000000 
0  00  005316* 
0  00  000000 


005600'  140000  012517' 
005601'  240000  005603' 
005602'  000000000000* 

005603'  200  01  0  00  005532* 
005604'  256  00  0  01  005605' 
005605'  263  17  0  00  000000 

005606'  Oi/  00  0  00  012425' 

005607'  037  00  0  00  012527' 
005610'  037  00  0  00  012161' 


005611' 
005612' 
005613' 
005614' 
005615' 
005616' 
005617' 
005620' 
005621 ' 
005622' 
005623' 
005624' 
005625' 
005626' 
005627' 
005630' 


260  17 
336  00 
263  17 
037  00 
603  01 
037  00 
603  01 
037  00 
603  01 
037  00 
603  01 
037  00 
603  01 
037  00 
603  01 
037  00 


00  000000* 
00  000001 
00  000000 
00  012545' 
00  200000 
00  012553' 
00  100000 
00  012555' 
00  040000 
00  012557' 
,  00  020000 
0  00  012561' 
0  00  000400 
0  00  012563' 
0  00  000200 
0  00  012565' 


Set  up  data  transfer 


T30SRD:  MOVEI 
SETZ 

T30SR1:  MOVE 
SETCA 
MOVEM 
MOVEM 
AGS 
LSH 
JUMPN 
MOVE 
GO 

HRRZI 
MOVEI 
SETZ 
60 
RTN 

;  Error  messages 

MA30: 


v: 

1 

1,BUFF(2) 

BUFF+*D36(2) 

2 

1,1 

1,T30SR1 

1,CCBUFSZ,.CBUF] 

CHINIT 

1,BUFF 

2,*D72 

6ENCCW 


get  initial  floating  1 
get  initial  buffer  offset 
get  data  pattern 
complement  it 
save  floating  1 
save  floating  0 
increment  buffer  offset 

?enerate  new  pattern 
oop  till  done 

get  pointer  to  control  buffer 
initialize  software 
buffer  address 
word  count 

clear  zero  fill  specifier 
generate  a  CCW  list 
return 


MS6ITXN0TICASCIZ  /Condition  Code  'CC  Cbus  Par  Err'  not  /3 
CALL!TXNOT!MA30LP  ;  print  subtest  description 

LAST! CALL !TXALL!TTPNT         ;  print  test  data 


MA30LP: 


MA30L 


MOVE 

XCT 

RTN 


1,TSTSUB 
MA30L-1(1) 


get  subtest  number 
print  message 
return 


TMSG    <initially  cleared> 
TMSG    <cleared  after  reading  each  word 
of  a  floating  I's  and  O's  pattern> 

TMSG    <cleared  after  a  CLRCCCODE  command> 


MA30PN: 


GO 

CHDATA 

SKIPN 

1 

RTN 

TMSGC 

<Data  transfer  errors: 

TLNE 

1,(MPER) 

TMSG 

<MPERR  > 

TLNE 

l.(ADRPE) 

TMSG 

<ADRPE  > 

TLNE 

1,(N0TWC0) 

TMSG 

<NOTWC0  > 

TLNE 

1,(NEXM) 

TMSG 

<NEXM  > 

TLNE 

l.(LAXER) 

TMSG 

<LAXER  > 

TLNE 

i,(ipae;  . 

TMSG 

<IPAER  > 

check  logout  data  for  errors 
any  errors? 
no  -  return 

mem  parity  error 

address  parity  error 

not  word  count  zero 

non-existant  memory 

last  xfer  error 

IPA20  error 
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SEQ  K89 


A754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

A769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 


005631 ' 
005632" 
005633' 
005634' 
005635' 
005636' 
005637' 


603  01 
037  00 
603  01 
037  00 
603  01 
037  00 
263  17 


0  00 


00 
00 
00 
00 
00 
00 


000100 

012567' 

000040 

012571' 

000020 

012573' 

000000 


005640' 
005641 • 
005642' 
005643' 
005644' 
005645' 


005646' 
005647' 
005650* 
005651 ' 
005652' 
005653' 
005654' 
005655' 
005656' 
005657' 
005660' 
005661 • 
005662' 
005663' 
005664' 
005665' 
005666' 
005667' 
005670' 
005671 • 


000000 
000000 
000152 
000400 
000251 
000000 


001000 
742000 
001101 
001000 
001200 
001400 
001300 
001000 
0u!400 
000400 
001500 
000000 
0C1600 
000000 
001700 
000000 
002051 
000000 
002152 
000000 


005672' 
005673' 
005674 ' 
005675' 
005676' 
005677' 
005700' 
005701' 


003000 
000000 
003100 
000000 
003252 
000400 
003351 
000000 


010000 
000040 
000000 
140060 
000000 
000040 


110000 
000040 
070200 
004300 
140000 
000060 
120000 
000040 
210000 
140060 
170000 
000040 
120000 
000220 
000140 
004340 
000000 
000040 
000140 
004040 


310000 
000040 
000020 
002340 
000000 
140060 
000000 
000040 


TLNE 
TMSG 
TLNE 
TMSG 
TLNE 
TMSG 
RTN 


1,(LGWC) 
<LGWC  > 
l.(SHWC) 
<SHWC  > 
1,(0VN) 
<0VN  > 


Long  word  count 
short  word  count 
overrrun 
return 


;  Microccje: 

CC  is  cleared  initially 

T30M:   MUORD  <ADDR=0,JMAP,J=1> 

MWORD  <CJP,J=5200.CENA,CCCP> 

MWORD  <JMAP,J=5100> 

;      CC  is  cleared  after  reading  each  word  of  a 
;      floating  1's  and  O's  pattern 

MUORD  <ADDR=10,JMAP,J=11,SD0,AND,D=2> 

MWORD  <LDCT.J=107,D=1 ,SELC,M6C=200> 

MUORD  <CJP,J=14,D=1,CENA,CCCA> 

MUORD  <JMAP,J=12,D=1> 

MWORD  <CJP.J=21,CENA,CCCP> 

MUORD  <JMAP,J=17> 

MUORD  sRPCT,J=12> 

MUORD  <CONT,SELC,MGC=140> 

MUORD  <JMAP,J=5100> 

MUORD  <JMAP.J=5200,SELC,MGC=U0> 


CC  is  cleared  after  a  CLRCCCODE  command 
MUORD   <ADDR=30,JMAP.J=31> 
MUORD   <C0NT.SELM,MGC=20> 
MUORD   <CJP,J=5200,CENA,CCCP> 
MUORD   <JMAP,J=5100> 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 


0 
1 
2 


10 

11  (start  CBUS) 

12  (wait  till  avail) 
13 

14 

15 

16 

17  (STOP, STORE) 

20 

21  (failed) 

30 
31 
32 
33 


\n 
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A809 

481 0 

A811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 


005702' 
005703' 
005704' 
005705' 
005706' 
005707' 
005710' 
005711' 
005712' 
005713' 
005714' 
005715' 
005716' 
005717' 
005720' 
005721 • 
005722' 
005723' 


005724' 
005725' 
005726' 
005727' 
005730' 
005731 • 
005732' 
005733' 
005734' 
005735' 
005736' 
005737' 
005740' 
005741 ' 
005742' 
005743' 
005744' 
005745' 
005746' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
5^ -'400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 

mm 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 
777777 
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MWORD  <ADDR=5100,CONT.SD0,AND,B=2,D=2>  ;  5100 

MUORD  <C0NT, SOB, PLUS, B=2,D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB. PLUS, A=2,B=2.D=2>  ;  5103 

MWORD  <CONT,S0A,A=2,0R,D=1,OENA,SELE,M6C=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,M6C=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT,SOA,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 

MWORD  <ADDR=52OO,CONT,SD0,AND,8=2.D=2>  ;  5200 

MWORD  <C0NT, SOB, PLUS, B=2,D=2,CRY>  ;  5201 

MWO^D  <LDCT,J=25>  ;  5202 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2>  ;  5203 

MWORD  <CONT,S0A,A=2,OR,D=l,OENA,SELE,MGC=4>  ;  5204 

MWORD  <CJP,J=5207,CENA,CCGC,D=1,SELE,M6C=40>  ;  5205 

MWORD  <JMAP,J=5205,D=1>  ;  5206 

MWORD  <CONT,SOA,A=1,OR,D=1,SELE,M6C=200>  ;  5207 

MWORD  <JMAP,J=5210,D=1>  ;  5210 
-1 


SEQ  1490 


1    r 


478 


DFPTA8 
DFPTA8 

A850 

A851 

4852 

4853 

A85A 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 
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SEQ  1491 


005747' 
005750' 
005751 • 
005752' 
005753' 
005754' 
005755' 


254  00 

200403 

006140' 

012600' 

000000 

000000 

nnn 


0  00  005756' 
000031 
012574' 
012602' 
006307' 
006603' 
777777 


#**•*••******************************•****•*************************** 
*  TEST  31  -  CCPliParErr  Test 

Description:  Verify  that  condition  code  'CCPliParErr'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Procedure:    Port  Clear 

Start  up  port       .     ^  ,      .^   ^ 
UO  perform  an  operation  and  then  verify  that 

CCPliParErr  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 
CC  is  initially  cleared 
CC  is  cleared  after  passing  floating  Is  through 

PLI  Input/Output  buffers 
CC  is  set  after  passing  floating  1's  through 

PLI  Input/Output  buffers  with  'MPTESTPLIPAR' 

asserted 
CC  is  cleared  after  a  CLRCCCODE  command 

Failure:     — 

/jf******************»***t  *************************************  ******** 

Test  data 

TSTU31:  JRST    T631  ;  go  start  test 

MPR0C!NDMPI2MPR0C!31  ;  test  mask 

T31M.,CASCIZ  •CCPliParErr  Test*] 
CEXP  M6,MLAST!C10],,CEXP  M7.C21 ,MLAST!C8] 
TSTU32  ;  failure  test  table 

TSTU33 
-1 


Start  tes 


00  0 


005756'  201 
005757'   ' 

005760'  _.  .  - 

005761'  260  17  0 

005762'  263  17  0 


260  17  0 
201  01  0 


00  000000' 
00  005524* 
00  006140' 
00  005526* 
00  000000 


TG31 


MOVE] 
GO 

MOVE  I 
GO 
RTN 


Z8 

TRACE 
1.T31M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


479 
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SEQ  U92 


4897 

A898 

4899 

A900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 


005763'  400  15  0  00  000000 

005764'  201  06  0  00  006001' 

005765'  402  00  0  00  005603* 

005766'  476  00  0  00  005533* 


;  Initialization 

TL31:   SETZ  ERFL6- 

MOVEI  6JS31 

SETZM  TSTSUB 

SETQM  TADDR 

;  Loop  on  test  execute  table  entries 


005767' 
005770' 
005771 • 
005772' 
005773' 


260  17 
260  17 
254  00 
254  00 


00  005534* 
00  005535* 
00  006000' 
00  005770' 


TA31 
TB31 


474  15  0  00  000000 


60 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX31 

TB31 

ERFLG, 


clear  error  flag 
get  test  table  address 
initialize  subtest  numiie; 
clear  start  address 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


005774'  027  00  0  00  006070' 

005775'  254  00  0  00  U05763' 

005776'  254  00  0  00  006000' 

005777'  322  15  0  00  005767' 


006000'  263  17  0  00  000000 


006001'  040000  000000 
006002'  240002  000000 
006003'  340000  000000 


Handle  error  printouts  and  scope  looping 

SCOPER  MA31 

JRST  TL31 

JRST  TX31 

JUMPE  ERFLG, TA31 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


End  of  test 


TX31 


RTN 


;  return 


;  Test  Execute  Table,  as:  (CMD, parameters) 


;  CC  is  cleared  initially 
TS31 : 


T TABLE 
T TABLE 
TTABLE 


(TSTART,0) 
(TCHECK,2) 
(TEXIT) 


start  up  port 
check  if  completed 
exit  if  error  yet 


CC  is  cleared  after  passing 
PLI  Input/Output  buffers 


floating  I's  through 


006004' 
006005' 
006006' 
006007" 
006010' 
006011' 
006012' 
006013' 
006014' 
006015' 
006016' 
006017' 
006020' 
006021 • 
006022' 


040000 
240002 
340000 
040000 
240002 
340000 
040000 
240002 
340000 
040000 
240002 
340000 
040000 
240002 
340000 


000010 
000000 
000000 
000011 
000000 
000000 
000012 
000000 
000000 
000013 
000000 
000000 
000014 
000000 
000000 


TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TSTART,10) 

(TCHECK,2) 

(TEXIT) 

{TSTART,11) 

(TCHECK,2) 

(TEXIT) 

(TSTART,12) 

(TCHECK,2) 

(TEXIT) 

(TSTART,13) 

(TCHECK,2) 

(TEXIT) 

(TSTART,14) 

(TCHECK,2) 

(TEXIT) 


start 

check 

exit  i 

start 

check 

exit  i 

start 

check 

exit  i 

start 

check 

exit  i 

start 

check 

exit  i 


up  port 

if  completed 

f  error  yet 

up  port 

if  completed 

f  error  yet 

up  port 

if  completed 

f  error  yet 

up  port 

if  completed 

f  error  yet 

up  port 

if  completed 

f  error  yet 
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Sts 

4951 

006023'  040000 

00001 5 

T TABLE 

(TSTART,15)           ; 

Start  up  port 

4952 

006024'  240002 

000000 

TTABLE 

(TCHECK,2)            ; 

check  if  completed 

4953 

006025'  340000 

000000 

T TABLE 

(TEXIT)              ; 

exit  if  error  yet 

4954 

006026'  040000 

000016 

TTABLE 

(TSTART,16)           ; 

Start  up  port 

4955 

006027'  240002 

000000 

TTABLE 

(TCHECK,2) 

check  if  completed 

4956 

006030'  340000 

000000 

TTABLE 

(TEXIT) 

exit  if  error  yet 

4957 

006031'  040000 

000017 

TTABLE 

(TSTART,17) 

Start  up  port 

4958 

006032'  240002 

000000 

TTABLE 

(TCHECK,2) 

check  if  completed 

4959 

006033'  340000 

000000 

TTABLE 

(TEXIT) 

exit  if  error  yet 

4960 
4961 

;  CC  is  set  aft 

er  passing  floating  1's  through 

4962 

;   PLI  Input/Output  buffers  with"'MPTESTPLIPAR' 

4963 
4964 
4965 

asserted 

006034'  040000 

000030 

TTABLE 

(TSTART,30) 

start  up  port 

4966 

006035'  240002 

000000 

TTABLE 

(TCHECK,2) 

check  if  completed 

4967 

006036'  340000 

000000 

TTABLE 

(TEXIT) 

'  exit  if  error  yet 

4968 

006037'  040000 

000031 

TTABLE 

(TSTART.31) 

•  start  up  port 

4969 

006040'  240002 

000000 

TTABLE 

(TCHECK,2) 

■  check  if  completed 

4970 

006041'  340000 

000000 

TTABLE 

(TEXIT) 

•  exit  if  error  yet 

4971 

006042'  04C000 

000032 

TTABLE 

(TSTART,32) 

•  start  up  port 

4972 

006043'  240002 

000000 

TTABLE 

(TCHECK,2) 

;  check  if  completed 

4973 

006044'  340000 

000000 

TTABLE 

(TEXIT) 

;  exit  if  error  yet 

4974 

006045'  040000 

000033 

TTABLE 

(TSTART,33) 

;   start  up  port 

4975 

006046'  240002 

000000 

TTABLE 

(TCHECK,2) 

:  check  if  completed 

4976 

006047'  340000 

000000 

TTABLE 

(TEXIT) 

;  exit  if  error  yet 

4977 

006050'  040000 

000034 

TTABLE 

(TSTART,34) 

;  start  up  port 

4978 

006051'  240002 

000000 

TTABLE 

(TCHECK,2) 

;  check  if  completed 

4979 

006052'  340000 

000000 

TTABLE 

(TEXIT) 

;  exit  if  error  yet 

4980 

006053'  040000 

000035 

TTABLE 

(TSTART,35) 

;  start  up  port 

4981 

006054'  2mJ002 

000000 

TTABLE 

(TCHECK,2) 

;  check  if  completed 

498? 

006055'  340000 

000000 

TTABLE 

(TEXIT) 

;  exit  if  error  yet 

49 

006056'  040000 

000036 

TTABLE 

(TSTART,36) 

;  start  up  port 

49c 

006057'  240002 

000000 

TTABLE 

(TCHECK.2) 

;  check  if  completed 

498^ 

006060'  340000 

000000 

TTABLE 

(TEXIT) 

;  exit  if  error  yet 

4986 

006061'  040000 

000037 

TTABLE 

(TSTART,37) 

;  start  up  port 

4987 

006062'  240002 

000000 

TTABLE 

(TCHECK,2) 

;  check  if  completed 

4988 
4989 
4990 
4991 
4992 

006063'  340000 

000000 

TTABLE 

(TEXIT) 

;  exit  if  error  yet 

;  CC  IS  cleared 

after  a  CLRCCCODE  command 

006064'  040000 

000050 

TTABLE 

(TSTART,50) 

;  start  up  port 

4993 

006065'  240002 

000000 

TTABLE 

(TCHECK,2) 

;  check  if  completed 

4994 

006066'  340000 

000000 

TTABLE 

(TEXIT) 

;  exit  if  error  yet 

4995 

006067'  000000 

000000 

TTABLE 

(TLAST) 

;  end  of  list 

4996 

4997 
4998 
4999 

;  Error  message 

s 

006070'  140000 

012605' 

MA31:   MS6!TXN0T![ASCIZ  /Condition  Code 

•CC  Pli  Par  Err'  not  /] 

5000 

006071'  240000 

006073' 

CALL!TXN0T!MA31LP 

;  print  subtest  description 

5001 

006072'  000000000000* 

LAST! CALL !TXALL!TTPNT 

;  print  test  da::a 

SEQ  1493 


J 


K81 
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SEQ  K94 


5002 
5003 

006073' 

200  01  0  00  005765* 

MA31LP: 

MOVE 

1.TSTSUB 

get  subtest  number 

500A 

006074' 

256  00  0  01  006075' 

XCT 

MA31L-1(1)           ;  pnnt  message 

5005 
5006 
5007 

006075' 

263  17  0  00  000000 

RTN 

;  return 

006076' 

037  00  0  00  012425' 

MA31L: 

TMSG 

<initiaLLy  cleared> 

5008 

006077' 

260  17  0  00  006120' 

60 

MA31L1 

1 

5009 

006100" 

260  17  0  00  006120' 

GO 

MA31L1 

2 

5010 

006101' 

260  17  0  00  006120' 

GO 

MA31L1 

4 

5011 

006102' 

260  17  0  00  006120' 

GO 

MA31L1 

10 

5012 

006103' 

260  17  0  00  006120' 

GO 

MA31L1 

20 

5013 

006104' 

260  17  0  00  006120' 

GO 

MA31L1 

40 

501 A 

006105' 

260  17  0  00  006120' 

GO 

MA31L1 

■  100 

5015 

006106' 

260  17  0  00  006120' 

GO 

MA31L1 

■  200 

5016 

006107' 

260  17  0  00  006130' 

GO 

MA31L2 

■  1 

5017 

006110' 

260  17  0  00  006130' 

GO 

MA31L2 

■  2 

5018 

006111' 

26f  1''  C  00  006130' 

GO 

MA31L2 

■  4 

5019 

006112' 

26l  r   00  006130' 

GO 

MA31L2 

■  10 

5020 

006113' 

260    J  00  006130' 

GO 

MA31L2 

■  20 

5021 

006114' 

260  1?  0  00  006130' 

GO 

MA31L2 

•  40 

5022 

006115' 

260  17  0  00  006130' 

GO 

MA31L2 

•  100 

5023 

006116' 

260  17  0  00  006130' 

GO 

MA31L2 

•  200 

5024 
5025 
5026 

006117' 

037  00  0  00  012161' 

TMSG 

<cleared  after  a  CLRCCCODE  command> 

006120' 

037  00  0  00  012615' 

MA31L1: 

TMSG 

<cLeared  after  passing  > 

5027 

006121' 

200  01  0  00  006073* 

MOVE 

USTSUB 

5028 

006122' 

275  01  0  00  000002 

SUBI 

1-2 

5029 

006123' 

201  00  0  00  000001 

MOVE  I 

1 

5030 

006124' 

242  00  0  01  000000 

LSH 

(1) 

5031 

006125' 

037  03  0  00  000000 

PNT3 

5032 

006126' 

03''  00  0  00  012622' 

TMS6C 

<  through  PLI  Input/Output  buffers> 

5033 
5034 
5035 

006127' 

263  17  0  00  000000 

RTN 

006130' 

037  00  0  00  012632' 

MA31L2: 

TMSG 

<set  after  passing  > 

5036 

006131' 

200  01  0  00  006121* 

MOVE 

IJSTSUB 

5037 

006132' 

275  01  0  00  000012 

SUBI 

1,*D10 

5038 

006133' 

201  00  0  00  000001 

MOVE  I 

1 

5039 

006134' 

242  00  0  01  000000 

LSH 

(1) 

5040 

006135' 

037  03  0  00  000000 

PNT3 

5041 

006136' 

037  00  0  00  012636' 

TMSGC 

<  through  PLI  Input/Output  buffers  with  'MPTESTPLIPAR' 

asserted> 

5042 

006137' 

263  17  0  00  000000 

RTN 

1  r 


DFPTA8 
DFPTA8 

50A3 

50AA 

50A5 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 
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006140' 
006141' 
006142' 
006143' 
006144' 
006145' 


006146' 
006147' 
006150' 
006151' 
006152' 
006153' 
006154' 
006155' 
006156' 
006157' 
006160' 
006161' 
006162' 
006163' 
006164' 
006165' 


006166' 
006167' 
006170' 
006171' 
006172' 
006173' 
006174' 
006175' 
006176' 
006177' 
006200' 
006201 ' 
006202' 
006203' 
006204' 
006205' 


000000 
000000 
000152 
000400 
000251 
000000 


001005 
732000 
001105 
732000 
001205 
732000 
001305 
732000 
001405 
732000 
001505 
732000 
001605 
732000 
001705 
732000 


003006 
732000 
003106 
732000 
003206 
732000 
003306 
732000 
003406 
732000 
003506 
732000 
003606 
732000 
003706 
732000 


010000 
000040 
000000 
150060 
000000 
000040 


000001 
000040 
000002 
000040 
000004 
000040 
000010 
000040 
000020 
000040 
000040 
000040 
000100 
000040 
000200 
000040 


000001 
000040 
000002 
000040 
000004 
000040 
000010 
000040 
000020 
000040 
000040 
000040 
000100 
000040 
000200 
000040 
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;  Microcode: 

;      CC  is  cleared  initially 

T31M:   MWORD   <ADDR=0,JMAP,J=1> 

MUORD   <CJP,J=5200,CENA,CCPP> 
HUORD   <JMAP,J=5100> 


CC  is  cleared  after  passing  floating  1's  through 

PLI  Input/Output  buffers 

MWORD  <ADDR=10,JMAP,J=500,SD0,OR,MGC=1,D=2> 

MWORD  <JMAP,J=500,SD0,OR,MGC=2,D=2> 

MWORD  <JMAP,J=5OO,SD0,OR.MGC=4,D=2> 

MWORD  <JMAP,J=5O0,SD0,OR,MGC=10,D=2> 

MWORD  <JMAP,J=500.SD0,0R,MGC=20,D=2> 

MWORD  <JMAP,J=500,SD0,0R,MGC=40,D=2> 

MWORD  <JMAP.J=500,SD0,OR,MGC=10O.D=2> 

MWORD  <JMAP,J=5O0.SD0.OR,MGC=20G,D=2> 

CC  is  set  after  passing  floating  Ts  through 

PLI  Input/Output  buffers  with  'MPTESTPLIPAR' 
asserted 

MWORD  <ADDR=30,JMAP,J=600,SDO,OR,MGC=1 .D=2> 

MWORD  <JMAP,J-6OO,SD0,OR.MGC=2,D=2> 

MWORD  <JMAP,J=600,SD0,OR.MGC=4,D=2> 

MWORD  <JMAP,J-600,SD0.0R,MGC=10,D=2> 

MWORD  <JMAP.J^6  ).SD0,OR,MGC=20,D=2> 

MWORD  <jriAP,J=6     ,SD0,OR.MGC=40,D=2> 

MWORD  <JMAP,J=6O0,SD0.OR,M6C=100.D=2> 

MWORD  <JMAP,J=600,SDO,OR.MGC=200.D=2> 

CC  is  cleared  after  a  CLRCCCODE  command 


SEQ  1495 


0 
1 
2 


11 
12 
13 
14 
15 
16 
17 


30 
31 
32 
33 
34 
35 
36 
37 


DFPTA8 
DFPTA8 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

511A 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

512A 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

51 3A 

5135 

5136 

5137 

5138 

5139 

5U0 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 
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SEQ  1496 


006206' 
006207' 
006210' 
006211' 
006212' 
006213' 
006214' 
006215' 


006216' 
006217' 
006220' 
006221 ' 
006222' 
006223' 
006224' 
006225' 
006226' 
006227' 


005000 
000000 
005100 
000000 
005252 
000400 
005351 

ooooeo 


050005 
401020 
050100 
701000 
050200 
732001 
050352 
000400 
050451 
000000 


006230' 
006231 ' 
006232' 
006233' 
006234' 
006235' 
006236' 
006237' 
006240* 
006241' 


006242' 
006243' 
006244 ' 
006245' 
006246' 
006247' 
006250' 
006251 ' 
006252' 
006253' 
006254' 
006255' 
006256' 
006257' 
006260* 
006261 ' 


060006 
401020 
060100 
701000 
0oJ200 
732001 
060351 
000400 
060452 
000000 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 


510000 
000040 
000020 
002340 
000000 
150060 
000000 
000040 


012060 
002040 
000006 
001340 
000020 
003340 
000000 
150060 
000000 
000040 


012061 
002040 
000006 
001340 
000020 
003340 
000000 
150060 
OOOOOC 
000040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 


MWORD  <ADDR=50,JMAP,J=51> 

MWORD  <CONT,SELM,M6C=20> 

MWORD  <CJP,J=5200,CENA,CCPP> 

MWORD  <JMAP,J=5100> 


50 
51 
52 
53 


Routine  to  pass  a  data  pattern  through  PLI  huffers 
with  good  parity. 


MWORD 
MWORD 
MWORD 
MWORD 
MWORD 


<ADDR=500,JMAP,J=501 ,S0A,A=2,D=1 ,0ENA,SELM,MGC=60> 


<C0NT,SD0,D=1.SELP,MGC=6> 
<C0NT,SD0,0R,B=2,D=2.SELF,M6C=20> 
<CJP,J=--5200.CENA,CCPP> 
<JMAP,J=5100> 


501 
502 
503 


504 


Routine  to  pass  a  data  pattern  through  PLI  buffers 
with  bad  parity. 


MWORD 
MWORD 
MWORD 
MWORD 
MWORD 


<ADDR=600 JMAP,J=601 ,S0A,A=2.D=1 ,0ENA,SELM.MGC=61> 


<C0NT,SD0,D=1,SELP,MGC=6> 
<CONT,SDO,OR,B=2,D=2.SELF,M6C=20> 
<CJP,J=5100.CENA,CCPP> 
<JMAP,J=5200> 


;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  GSR  register 

MWORD  <ADDR=5100,C0NT,SD0,AND,8=2,D=2> 

MWORD  <C0NT, SOB, PLUS, 8=2, D=2.CRY> 

MWORD  <LDCT,J=26> 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2> 

MWORD  <C0NT,S0A,A=2,CR,D=1,0ENA,SELE,MGC=4> 

MWORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,MGC=40> 

MWORD  <JMAP,J=5105,D=1> 

MWORD  <C0NT,S0A,A=1 ,0R,D=1 ,SELE,MGC=200> ' 


601 
602 
603 
604 

5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 


i  i\r  r\T  A  O 


tkri\n     «»C1r> /I -1/ ->\     ftn  .  1  n 


I,  .1  _QC    D->,<«.     7Q_7 


DFPTA8 
DFPTA8 

5153 

515A 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

51 7A 

5175 

5176 


J 
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006262*  511051 
006263'  001000 


00626A' 
006265' 
006266' 
006267' 
006270' 
006271 ' 
006272' 
006273' 
00627A' 
006275' 
006276' 
006277' 
006300' 
006301 • 
006302' 
006303' 
006304' 
006305' 
006306' 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 
111111 


100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mill 
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SEQ  1497 


MWORD   <JMAP,J=5110,D=1> 


;  5110 


;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 

MWORD  <ADDR=5200,CONT.SDn,AND.8=2,D=2> 

MWORD  <C0NT, SOB, PLUS, B=2,D=2.CRY> 

MWORD  <LDCT,J=25> 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2> 

MWORD  <CONT,S0A,A=2,OR.D=1,OEN.  SELE.M6C=4> 

MWORD  <CJP,J=5207,CENA,CCGC,D=1 ,SELE,MGC=40> 

MWORD  <JMAP,J=5205,D=1> 

MWORD  <CONT,S0A,A=1,OR.D=1,SELE,MGC=200> 

MWORD  <JMAP.J=5210,D=1> 
-1 


5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5210 


rtCDTAO       Miirori    V(;TDM7/.?>     nO-1Q       Llnl-Ri;    Dana    7Q 


-„  I 
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SEQ  U98 


5177 

5178 

5179 

5180 

5181 

5182 

5183 

51 8A 

5185 

5186 

5187 

5138 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 


/If*****************************  *************************************** 
*  TEST  32  -  CCChanErr  Test 


Description: 


Procedure: 


Verify  that  condition  code  'CCChanErr'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 

Start  up  port 

UC>  perform  an  operation  and  then  verify  that 

CCChanErr  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 

CC  is  cleared  initially,  after  CBUS  START  is 

issued  which  does  a  RESET  also 
CC  is  set  after  causing  a  'short  wc'  error 
CC  is  set  after  causing  a  'long  wc'  error 
CC  is  cleared  after  a  successful  data  transfer 

Failure:     — 

/(f**********************  *********************************  ************* 


006307' 
006310' 
006311' 
006312' 
006313' 
006314' 
006315' 
006316' 


006317' 
006320' 
006321 • 
006322' 
006323' 


23'  00  0  00  006317' 
200403  000032 
006420'  012654' 
012657'  012661' 
000000000000* 
000000000000* 
000000  006603' 
777777     777777 


?o   start  test 
est  mask 


Test  data 

TSTU32:  JRST    T632 

MPROC  INDMP.'ZMPROC!  32 

T32M,,[ASCIZ  *CCChanErr  Test*] 

CEXP  M6,MLAST!C6]..[EXP  M7,C1.MLAST!C7] 

TSTC3  ;  failure  test  table 

TSTC4 

TSTU33 

-1 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
005757* 
006420' 
005761* 
000000 


TG32: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z8 

TRACE 
1.T32M 
TLOAD 


get  address  of  module  stflrt 

nandle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


•■—l 


16 


DFPTA8 
DFPTA8 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 

5266 

5267 

5268 
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SEQ  1499 


006324' 
006325' 
006326' 
006327' 
006330' 
006331 • 
006332' 
006333' 
00633  V 
006335' 
006336' 
006337' 


400  15 
201  06 
402  00 
476  00 
260  17 
201  06 
476  00 
201  01 
242  01 
260  17 
201  01 
260  17 


0  00  000000 
0  00  006352' 
0  00  006131* 
0  00  005766* 
0  00  005767* 
0  00  006352' 
0  00  006327* 
0  00  005C00 
0  00  000001 
0  00  005244* 
0  00  000010 
0  00  005246^ 


006340' 
006341' 
006342' 
006343' 
006344' 


260 
260 
254 
254 
474 


006345'  027 

006346'  254 

006347'  254 

006350'  32? 


17 
17 
00 
00 
15 


00 
00 
00 
15 


00 
00 
00 
00 
00 


006330* 
005770* 
006351 ' 
006341 • 
000000 


00  006406' 
00  006324' 
00  0U6351 • 
00  006340' 


006351*  263  17  0  00  000000 


006352'  140000 

006353'  040000 

006354'  240002 

006355'  340000 


5269 

006356' 

140000 

5270 

006357' 

040000 

5271 

006360' 

240002 

5272 

006361 ' 

340000 

5273 

006373' 
000000 
000000 
000000 


006373' 
000010 
000000 
000000 


Initialization 


TL32: 


SETZ 
MOVE  I 
SETZM 
SETOM 
GO 

MOVE  I 
SEIOM 
MOVE  I 
LSH 
GO 

MOVE  I 
GO 


ERFLG. 

6,TS3^ 

TSTSUB 

TADDR 

IPACLR 

6,TS32 

TADDR 

1.5000 

1.1 

LDRAR 

1 .MPRUN 

LDCSR 


Loop  on  test  execute  table  entries 


TA32: 
TB32: 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

1X62 

TB32 

ERFLG, 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 
clear  the  GSR  register 
get  test  table  address 
clear  start  address 
get  start  address 
position  correctly 
load  the  register 
get  'MPRUN'  bit 
start  up  the  port 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA32 
TL32 
TX32 
ERFLG, TA32 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX32:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD, parameters) 
;  CC  is  cleared  initially  (after  a  MPSTARTCBUS) 


TS32:   TTABLE  (TCALL,TS32RD) 

TTA6LE  (TSTART,0) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


set  up  a  write 
start  up  port 
check  if  cowpleted 
exit  if  error  yet 


;  CC  is  set  after  causing  a  'short  wc'  error. 


TTABLE  (TCALL.TS32RD) 

TTABLE  (TSTART,10) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


set  up  a  read 
start  up  port 
check  if  completed 
exit  if  error  yet 


\7 


DFPTA8 
DFPTA8 

5274 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

528A 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

5294 

5295 

5296 

5297 

5298 

5299 

5300 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

5308 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 
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006362'  140000  006373' 

006363'  040000  000030 

006364'  240002  000000 

006365'  340000  000000 
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SEQ  1500 


CC  IS  set  after  causing  a  'Long  wc'  error. 


TTABLE  (TCALL,TS32RD) 

TTABLE  (TSTART,30) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


set  up  a  read 
start  up  port 
check  if  completed 
exit  if  error  yet 


CC  is  cleared  after  a  successful  data  transfer 


006366'  140000 

006367'  040000 

006370'  240002 

006371'  340000 

006372'  000000 


006373' 
006374' 
006375' 
006376' 
006377* 
006400' 
006401 ' 
006402' 
006403' 
006404' 
006405' 


201  14 
201  01 
201  02 
260  17 

200  01 
260  17 
551  01 

201  02 
400  03 
260  17 
263  17 


006373' 

000040 

000000 

000000 

000000 


0  00  000003 
0  00  000002 
0  00  000002 
0  00  002034* 
0  00  011645' 
00  005572* 
00  005573* 
00  000002 
00  000000 
00  005576* 


TTABLE  (TCALL.TS32RD) 

TTABLE  (TSTART,40) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 

TTABLE  (TLAST) 

Set  up  a  read  data  transfer 


0 
0 
0 
0 
0 
0  00  000000 


006406'  140000  012664' 
006407'  240000  006411' 
006410'  000000000000* 


006411'  200  01  0 
006412'  256  00  0 
006413'  263  17  0 


00  006326* 

01  006413' 
00  000000 


006414'  037  00  0  00  012673' 

006415'  037  00  0  00  012704' 

006416'  037  00  0  00  012714' 

006417'  037  00  0  00  012724' 


TS32RD:  MOVE I 
MOVE  I 
MOVE  I 
GO 
MOVE 
GO 

HRRZI 
MOVE  I 
SETZ 
60 
RTN 

;  Error  messages 


PAT,  3 

1,2 

2.2 

BUFGEN 

1.CCBUFSZ..CBUFJ 

CHINIT 

1,BUFF 

If 

GENCCW 


MA32: 


MA32LP: 


MA32L; 


MSG!TXNOT!CASCIZ  /Condition 

CALLITXN0TIMA32LP 

LAST! CALL !TXALL!TTPNT 


Code 


MOVE 

XCT 

RTN 

TMSG 
TMS6 
TMSG 
TMSG 


USTSUB 
MA32L-1(1) 


set  up  a  write 
start  up  port 
check  if  completed 
exit  if  error  yet 
end  of  list 


get  data  pattern 

get  transfer  type 

get  transfer  length 

generate  buffer  contents 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

return 


•CC  Chan  Err'  not  /] 
:  print  subtest  description 
:  print  test  data 

:  get  subtest  number 
:  print  message 
I  return 


<cleared  initially  (after  a 
<set  after  causing  a  'short  wc'  error> 
<set  after  causing  a  'long  wc'  error> 
<cleared  after  a  successful  data  transfer> 


•MPSTARTCBUS')> 
wc' 


._..__.] 


38 
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5318 
5319 
5320 
5321 
5322 
5323 

5324  006420'  000000  010000 

5325  006421'  000000  000040 

5326  006422'  000101  000220 

5327  006423'  000000  004300 

5328  006424'  000200  020000 

5329  006425'  000000  000220 

5330  006426'  000352  000000 

5331  006427'  000400  160060 

5332  006430'  000451  000000 

5333  006431'  000000  000040 
5334 

5335 
5336 

5337  006432'  001000  110000 

5338  006433'  OOCOOO  000040 

5339  006434'  001100  200220 

5340  006435'  000000  004300 

5341  006436'  001200  120000 

5342  006437'  000000  000220 

5343  006440'  001310  000000 

5344  006441'  001000  000020 

5345  006442'  001410  000000 

5346  006443'  001000  000020 

5347  006444'  001510  000000 

5348  006445'  OulOOO  000020 

5349  006446'  001601  000140 

5350  006447'  000000  004300 

5351  006450'  001700  170000 

5352  006451'  000000  000220 

5353  006452'  002051  000000 

5354  006453'  000400  160060 

5355  006454'  002152  000000 

5356  006455'  000000  000040 
5357 
5358 
5359 

5360  006456'  003000  310000 

5361  006457'  000000  000040 

5362  006460'  003100  200220 

5363  006461'  000000  004300 

5364  006462'  003200  320000 

5365  006463'  000000  000220 

5366  006464'  003310  000000 

5367  006465'  001000  000020 

5368  006466'  003401  000140 

5369  006467'  000000  004300 

5370  006470'  003500  350000 

5371  006471'  000000  000220 

5372  006472'  003651  000000 
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Microcode: 

CC  IS  cleared  initialh 


SEQ  1501 


after  C8US  START  is 


CC  IS  cleared  imtialLy.  after 
issued  which  does  a  RESET  also. 

T32M:   MUORD  <ADDR=0,JMAP,J=1> 

MUORD  <LDCTJ=100,SELC,MGC=220> 

MUORD  <RPCTJ=2> 

MWORD  <CJP.J=5200,CENA,CCCE> 

MUORD  <JMAPJ=5100> 

;              CC  is  set  after  causing  a   'short  wc'  error. 

MUORD  <ADDR=10,JMAP,J=11> 

MUCRD  <LDCT,J=20.SELC,MGC=220> 

MUORD  <RPCTJ=12> 

MUORD  <CJS,J=1000,D=1> 

MUORD  <CJS.J=1000,D=1> 

MUORD  <CJS.J=1000,D=1> 

MUORD  <LDCT,J=100,SELC.MGC=140> 

MUORD  <RPCT,J=17> 

MUORD  <CJP.J=5100,CENA.CCCE> 

MUORD  <JMAPJ=5200> 

CC  is  set  after  causing  a   'long  wc'  error. 

MUORD  <ADDR=30,JMAP,J=31> 

MUORD  <LDCT,J=20,SELC,MGC=220> 

MUORD  <RPCT.J=32> 

MUORD  <CJS,J=1000.D=1> 

MUORD  <LDCTJ=100,SELC,M6C=140> 

MUORD  <RPCT,J=35> 

MUORD  <CJP.J=5100,CENA,CCCE> 


0 
1 
2 
3 
4 

10 
11 
12 
13 
14 
15 
16 
17 
20 
21 

30 
31 
32 
33 
34 
35 
36 
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5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 

5397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 


006473' 

000400 

160060 

006474' 

003752 

000000 

006475' 

000000 

000040 

006476' 

004000 

410000 

006477' 

000000 

000040 

006500' 

004100 

200220 

006501 ' 

000000 

004300 

006502' 

004200 

420000 

006503' 

000000 

000220 

006504' 

004310 

000000 

006505' 

001000 

000020 

006506' 

004410 

000000 

006507' 

001000 

000020 

006510' 

004500 

000140 

006511' 

000000 

004340 

006512' 

004652 

000000 

006513' 

000400 

160060 

006514' 

004751 

000000 

006515' 

000000 

000040 

006516' 

100010 

020000 

006517' 

001400 

000060 

006520' 

100110 

000000 

006521 • 

001000 

000040 

006522' 

100200 

002040 

006523' 

4H2000 

003340 

006524' 

100300 

060002 

006525' 

001000 

004300 

006526' 

100410 

040000 

006527' 

000000 

000220 

006530' 

100500 

000000 

006531 ' 

000000 

000240 

006532' 

500050 

010100 

006533' 

000000 

004040 

006534' 

500150 

010030 

006535' 

000000 

002040 

006536' 

510000 

000000 

006537' 

742001 

000340 

006540' 

510100 

000000 

006541 • 

302001 

000740 

006542' 

510200 

260000 

006543' 

000000 

000300 

006544' 

510351 

030000 

006545' 

102021 

000220 
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MWORD  <JMAP,J=5200>  ;  37 

;      CC  is  cleared  by  a  good  transfer  has  occurred 

MWORD  <ADDR=40,JMAP,J=41>  ;  40 

MWORD  <LDCT,J=20,SELC,MGC=220>  ;  41 

MWORD  <Rrr^,j=42>  ;  42 

MWORD  <CJS.J=1000,D=1>  ;  43 

MWORD  <CJS,J=1000,D=1>  ;  44 

MWORD  <CONT,SELr,MGC=140>  ;  45 

MWORD  <CJP.J-5200,CENA,CCCE>  ;  46 

MWORD  <JMAP.J=5100>  ;  47 

Write  a  word  over  the  C8US 

MWORD  <ADDR=1000,CJP,J=1002,D=1,CENA,CCCA>  ;  1000 

MWORD  <JMAP.J=1000,D=1>  ;  1001 

MWORD  <CONT,S0A.AND,D=2,OENA,SELF.M6C=40>  ;  1002 

MWORD  <LDCT,J=6,D=1,SELC.MGC=2>  ;  1003 

MWORD  <RPCT,J=1004>  ;  1004 

MWORD  <CRTN>  ;  1005 

;      Initialization  step 

MWORD  <ADDR=5000,JMAP,J=5001,SELC.MGC=100>  ;  5000 

MWORD  <JMAPJ=5001.SELM,MGC=30>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD  <ADDR=5100,CONT,SD0,AND.8=2,D=2>  ;  5100 

MWORD  <CONT,S0B.PLUS,B=2,D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103. SAB, PLUS. A=2,B=2.D=2>  ;  5103 


SEQ  1502 


'1     r 


90 


1 


DFPTA8 
DFPTA8 

5A28 

5429 

5A30 

5A31 

5A32 

5A33 

5A34 

5A35 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 
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006546' 
006547' 
006550' 
006551 ' 
006552' 
006553' 
006554' 
006555' 
006556' 
006557' 


510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


006560' 
006561 ' 
006562' 
006563' 
006564' 
006565' 
006566' 
006567' 
006570' 
006571 ' 
006572' 
006573' 
006574' 
006575' 
00657o' 
006577' 
006600' 
006601 • 
006602' 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
OulOOO 

niin 


002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 
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SEQ  1503 


MUORD 
MUORD 
MUORD 
MWORD 
MUORD 

Subroutine  - 
MUORD 
MUORD 
MUORD 
MWORD 
nUORD 
nWORD 
MUORD 
MWORD 
MUORD 
-1 


<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5104 

<CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

<JMAP.J=5105,D=1>  ;  5106 

<C0NT,S0A,A=1,0R,D=1,SELE,MGC=200>  ;  5107 

<JMAP,J=5110,D=1>  ;  5110 

Failed  -  Write  1  to  bit  13  of  CSR  register 

<ADDR=5200,CONT.SD0,AND,B=2,D=2>  ;  5200 

<CONT, SOB, PLUS, B=2,D=2,CRY>  ;  5201 

<LDCT,J=25>  ;  5202 

<RPCT,J=5203. SAB, PLUS, A=2,B=2,D=2>  ;  5203 

<CONT,S0A,A=2,0R,D=1,OENA,SELE,MGC=4>  ;  5204 

<CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40>  ;  5205 

<JMAP,J=5205,D=1>  ;  5206 

<CONT,S0A,A=1,OR,D=1,SELE,M6C=200>  ;  5207 

<JMAP,J=5210,D=1>  ;  5210 


191 
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SEQ  1504 


5A60 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 


*  TEST  33  -  CCCbLstWd  Test 


Description: 


Procedure; 


Verify  that  condition  code  'CCCbLstWd'  can  be 
tested  by  the  microsequencer  for  conditional 
branching,  and  that  the  condition  code  can  be  set 
and  reset  by  the  hardware  conditions  which  should 
do  so. 

Port  Clear 

Start  up  port 

UC>  perform  an  operation  and  then  verify  that 

CCCbLstWd  is  not  asserted  or  asserted 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  with  several  test  cases: 
CC  is  nitially  cleared 

CC  is  set  after  final  word  of  a  1  word  transfer 
CC  is  not  set  after  first  word  of  a  2  word  transfer 
CC  is  cleared  after  a  CLRCCCODE  command 

Failure:     — 


Test  data 


006603'  254  00  0  00  006612' 
006604'  2uJ403  000033 
006605'  006702'  012735' 
006606'  012657'  012661' 
006607'  000000000000* 
006610'  000000000000* 
006611'  Vmi     777777 


10  start  test 


TSTU33:  JRST    T633  ;  QC 

MPROC iNDMP.'ZMPROC! 33  ;  test  mask 

T33M,.[ASCJZ  "CCCbLstWd  Test*3 

CEXP  M6,MLAST!C6],,[EXP  M7.C1 ,MLAST!C7: 

TSTC3  ;  failure  test  table 

TSTC4  ; 

-1 


006612' 
006613' 
006614' 
006615' 
006616' 


201 
260 
201 
260 
263 


006617'  400 

006620'  201 

006621'  402 

006622'  476 


00 
17 
01 
17 

^7 


15 
06 
00 
00 


00 
00 
00 
00 
00 


000000' 
006320* 
006702' 
006322* 
000000 


00  000000 
00  006635' 
00  006411* 
00  006332* 


;  Start  test 

TG33:   MOVE!  Z8 

GO  TRACE 

MOVE  I  1,T33M 

60  TLOAD 
RTN 

;  Initialization 

TL33:   SETZ  ERFLG. 

MOVEI  6.TS33 

SETZM  TSTSUB 

SETOM  TADDR 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  start  address 


492 
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SEQ  1505 


5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 

5546 

5547 

5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 


Loop  on  test  execute  table  entries 


006623' 
006624' 
006625' 
006626' 
006627' 


260 
260 
254 
254 
474 


006630'  027 

006631'  254 

006632'  254 

006633'  322 


17 
17 
00 
00 
15 


00 
00 
00 
15 


00 
00 
00 
00 
00 


006340* 
006341* 
006634' 
006624' 
000000 


TA33: 
TB33: 


GO 

60 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX33 

T833 

ERFLG, 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


;  Handle  error  printouts  and  scope  looping 


00  006670' 
00  006617' 
00  006634' 
00  006623' 


SCOPER 
JRST 
JRST 
JUMPE 


MA33 
TL33 
TX33 
ERFLG.TA33 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


006634'  263  17  0  00  000000 


006635'  140000  005305' 

006636'  040000  000000 

006637'  240002  000000 

006640'  340000  000000 


;  End  of  test 

TX33:   RTN 

;  Test  Execute  Table,  as: 

;  CC  is  cleared  initially 

TS33: 


;  return 
(CMD, parameters) 


TTABLE  (TCALL,T27SR1) 

TTA8LE  (TSTART,0) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


set  up  read  of  1  word 
start  up  port 
check  if  completed 
exit  if  error  yet 


CC  is  set  after  final  word  of  a  1  word  transfer 


006641'  140000 

006642'  040000 

006643'  240002 

006644'  340000 


006645'  140000 

006646'  040000 

006647'  240002 

006650'  340000 


006651 • 
006652' 
006653' 
006654' 
006655' 


140000 
040000 
240002 
340000 
000000 


005305' 
000000 
000000 
000000 


005307' 
000000 
000000 
000000 


005305' 

000000 

000000 

000000 

000000 


TTABLE  (TCALL,T27SR1) 

TTABLE  (TSTART,0) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


set  up  read  of  1  word 
start  up  port 
check  if  completed 
exit  if  error  yet 


CC  is  not  set  after  first  word  of  a  2  word  transfer 


TTABLE  (TCALL,T27SR2) 

TTABLE  (TSTART,0) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 


set  up  read  of  2  words 
start  up  port 
check  if  completed 
exit  if  error  yet 


CC  is  cleared  after  a  CLRCCCODE  command 


TTABLE  (TCALL.T27SR1) 

TTABLE  (TSTART.O) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXIT) 

TTABLE  (TLAST) 


set  up  read  of  1  word 
start  up  port 
check  if  completed 
exit  if  error  yet 
end  of  list 


^-..i 


I 


493 
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SEQ  1506 


5562 

5563 

556A 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

5614 

5615 

5616 


006656' 
006657' 
006660' 
006661 • 
006662' 
006663* 
006664' 
006665' 
006666' 
006667' 


201  02 
334  00 
201  02 
402  00 
200  01 
260  17 
551  01 
400  03 
260  17 
263  17 


0  00  000001 

T33SR1 : 

MOVE  I 

0  00  000000 

SKI  PA 

0  00  000002 

T33SR2: 

HOVE  I 

0  00  006401* 

SETZM 

0  00  011645' 

HOVE 

0  00  006400* 

GO 

0  00  006661* 

HRR2I 

0  00  000000 

SETZ 

0  00  006404* 

GO 

0  00  000000 

RTN 

;  Error 

messages 

Routine  to  set  up  data  transfer 


2,1 

2.2 

BUFF 

1.CCBUFSZ,,CBUFJ 

CHINIT 

1.BUFF 

3, 

GENCCU 


1  word  transfer 
cont^'nue 

2  word  transfer 
set  data  to  O's 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

clear  zero  fill  specifier 

generate  a  CCW  list 

return 


006670'  140000  012740' 
006671'  240000  006673' 
006672'  000000000000* 

006673'  200  01  0  00  006621* 
006674'  256  00  0  01  006675' 
006675'  263  17  0  00  000000 

006676'  037  00  0  00  012425' 
006677'  037  00  0  00  012747' 
006700'  037  00  0  00  012760' 
006701'  037  00  0  00  012161' 


MA33:   MSGITXNOTICASCIZ  /Condition  Code  'CC  Cb  Lst  Wd'  not  /] 


CALL1TXNOTIMA33LP 
LASTICALLITXALL.'TTPNT 


MA33LP: 


MA33L: 


MOVE 

XCT 

RTN 

TMSG 
TMSG 
TMSG 
TMSG 


1.TSTSUB 
MA33L-1(1) 


print  subtest  description 
print  test  data 

get  subtest  number 
print  message 
return 


<initially  cleared> 

<set  after  final  word  of  a  1  word  transfer> 
<cleared  after  first  word  of  a  2  word  transfer> 
<cleared  after  a  CLRCCCODE  command> 


006702' 
006703' 
006704' 
006705' 
006706' 
006707' 
006710' 
006711' 


000000 
000000 
000100 
000000 
000252 
000400 
000351 
000000 


006712' 
006713' 
006714' 
006715' 
006716' 
006717' 
006720' 
006721 ' 
006722' 
006723' 
006724' 


001000 
742000 
001100 
001000 
001200 
001400 
001300 
001000 
001451 
000400 
001552 


010000 
000040 
000200 
004340 
000000 
170060 
000000 
000040 


110000 
000040 
000200 
004340 
140000 
000060 
120000 
000040 
000000 
170060 
000000 


;  Microcode: 

CC  is  cleared  initially 

T33M:   HUORD  <ADDR=0,JMAP,J=1> 

HWORD  <CONT.S£LC.M6C=200> 

HWORD  <CJP.J=5200,CENA,CCLU> 

HWORD  <JMAP.J=5100> 

;      CC  is  set  after  final  word  of  a  1  word  transfer 

HWORD  <ADDR=10,JHAP,J=11,SD0.AND,D=2> 

HWORD  <CONT,D=1.SELC.MGC=200> 

HWORD  <CJP,J=14,D=1,CENA,CCCA> 

HWORD  <JMAPJ  =  12.D=1> 

HWORD  <CJP.J=5100.CENA,CCLW> 

HWORD  <JMAPJ=5200>       ^ 


0 
1 
2 
3 

10 

11  (start  CBUS) 

12  (wait  till  avail) 
13 

14 
15 
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HPROC  Module  Tests 


SEQ  1507 


5617 

5618 

5619 

5620 

5621 

5622 

5623 

562A 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

563A 

5635 

5636 

5637 

56i6 

5639 

56A0 

56A1 

56A2 

56A3 

56AA 

56A5 

56A6 

56A7 

56A8 

5649 

5650 

5651 

5652 

5653 

565A 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

566A 

5665 

5666 

5667 

5668 

5669 

5670 

5671 


006725'  000000  000040 


006726' 
006727- 
006730" 
006731 ' 
006732' 
006733' 
006734' 
006735' 
006736' 
006737' 
006740' 
006741 ' 


006742' 
006743' 
006744' 
006745' 
006746' 
006747' 
006750' 
006751 ' 
006752' 
006753' 
006754' 
006755' 
006756' 
006757' 


003000 
742000 
003100 
001000 
003200 
001400 
003300 
001000 
003452 
000400 
003551 
000000 


005000 
000000 
005100 
001000 
005200 
001400 
005300 
001000 
005400 
000000 
005552 
GuJ400 
005651 
000000 


006760' 
006761 • 
006762' 
006763' 
006764' 
006765' 
006766' 
006767' 
006770' 
006771 • 
006772' 
006773' 
006774 ' 
006775' 
006776' 
006777' 
007000' 
00700] • 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


310000 
000040 
000200 
004340 
340000 
000060 
320000 
000040 
000000 
170060 
000000 
000040 


510000 
000040 
000200 
004340 
540000 
000060 
120000 
000040 
000020 
002340 
000000 
170060 
000000 
000040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


CC  is  not  set  after  first  word  of  a  2  word  transfer 

HWORD  <ADDR=30JMAP,J=31  ,SD0,AND,D=2> 

MUORD  <CONT.D=1.SELC.M6C=200> 

MUORD  <CJP.J=34,D=1,CENA.CCCA> 

MWORD  <JMAP,J=32.D=1> 

MUORD  <C.JP,J=5200,CENA,CCLW> 

MWORD  <JMAP.J=5100> 

CC  is  cleared  after  a  CLRCCCODE  command 

MUORD  <ADDR=50.JMAP.J=51> 

MWORD  <C0NT,D=1,SELC,M6C=200> 

MWORD  <CJP,J=54,D=1.CENA,CCCA> 

MWORD  <JMAP.J=12,D=1> 

MUORD  <C0NT,SELM.MGC=20> 

MWORD  <CJP,J=5200.CENA,CCLW> 

MWORD  <JMAP,J=5100> 

Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD  <ADDR=5100.CONT,SD0.AND.8=2.D=2> 

MWORD  <CONT. SOB. PLUS. 8=2. D=2,CRY> 

MWORD  <LDCT.J=26> 

MWORD  <RPCT.J=5103, SAB. PLUS. A=2.B=2.D=2> 

MWORD  <C0NT,S0A.A=2.0R.D=1.0ENA.SELE.M6C=4> 

MWORD  <CJP,J=5107,CENA,CCGC.D=1.SELE.MGC=40> 

MWORD  <JMAP,J=5105,D=1> 

MWORD  <CONT.SOA,A=1 ,0R,D=1 .SELE.MGC=200> 

MWORD  <JMAP.J=5110.D=1> 


30 

31  (start 

CBUS) 

32  (wait 

till  avai 

I) 

33 

34 

35 

50 

51  (start 

CBUS) 

52  (wait 

till  avai 

I) 

53 

54 

55 

56 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5110 

L 


K95 


DFPTA8 
DFPTA8 

5672 
5673 
567A 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
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007002' 
007003* 
007004' 
007005' 
007006' 
007007' 
007010' 
007011' 
007012' 
007013' 
0070U' 
007015' 
007016' 
007017' 
007020' 
007021 ' 
007022' 
007023' 
00702A' 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 

iinii 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 
777777 
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MPROC  Module  Tests 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 

MUORD  <ADDR=52OO,CONT.SD0,AND,B=2,D=2> 

MUORD  <CONT, SOB, PLUS, 8=2, D=2,CRY> 

MWORD  <LDCT,J=25> 

MUORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2> 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4> 

MWORD  <CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40> 

MUORD  <JMAP,J=5205,D=1> 

MWORD  <CONT.S0A.A=l,OR,D=l,SELE.MGC=200> 

MWORD  <JMAP,J=5210,D=1> 

-1 


SEQ  1508 


OFI 
DFI 


5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5210 


)6 
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SEQ  1509 


5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

C727 

y/ZB 

5729 


/If  ******************************************************************** 
*  TEST  34  -  Bask  Local  Store  Test 


Description: 


Procedure: 


007025' 
007026' 
007027' 
007030' 
007J31 ' 
007032' 
007033' 
007034' 


254  00 

210403 

007122' 

012777' 

Ou.'OOO 

000000 

000000 

777777 


0  00  007035' 
000034 
012772' 
013001' 
007137' 
010326' 
010521' 
777777 


This  test  writes  data  to  local  storage  and  reads 
it  back  and  verifies  it.  It  is  a  basic  test  in 
that  only  data  patterns  O's  and  I's  are  used  and 
only  a  few  microinstructions  are  executed  to  read 
and  write  a  location. 

Port  Clear 

Load  microwords  with  local  storage  addresses 

Set  start  address 

Single  step  3  times 

Read  EBUF  and  verify  data  O's 

Set  start  address 

Single  step  3  times 

Read  EBUF  and  verify  data  I's 

Repeat  above  steps  for  addresses  0-1024 

Failure:     — 

#********•*********************************************************** 

;  Test  data 

TSTU34:  JRST    TG34  ;  go  start  test 

MPROC 1M8US!NDMP!ZMPR0C! 34  ;  test  mask 
T34M,.[ASCIZ  *Basic  Locul  Store  Test*]  _^ 
CEXP  M13,MLAST!M2],.CEXP  Ml4.Mi5,MLAST!Min 
TSTU35  ;  failure  test  table 

TSTU36 
TSTU37 
-1 


Start  test 


5730 

007035' 

201 

00  0  00  000000' 

TG34:   MOVEI   Z8 

5731 

007036' 

260 

17  0  00  006613* 

GO     TRACE 

5732 

007037' 

201 

01  0  00  007122' 

MOVEI   1,T34M 

5733 

007040' 

260 

17  0  00  006615* 

60     TLOAD 

5734 
5735 
5736 
5737 
5738 

007041' 

263 

17  0  00  000000 

RTN 

;  Initialization 

007042' 

400 

15  0  00  000000 

TL34:   SETZ    ERFLG, 

5739 

007043' 

260 

17  0  00  006623* 

GO     IPACLR 

5740 

007044' 

402 

00  0  00  006673* 

SETZM   TSTSUB 

5741 

007045' 

201 

06  0  00  007057' 

MOVEI   6,TS34 

get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  address 


hCDTAB      MAron   ¥«;XDn5A3>    no. 10      I-IhI-R*?   Pan*   R7 


-n 


)7 


DFPTA8 
^FPTA8 

57A2 

57A3 

574A 

5745 

57A6 

57A7 

57A8 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 

5785 

5786 

5787 

5788 

5789 

5790 

5791 

5792 

5793 

5794 

5795 

5796 
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SEQ  1510 


007046'  260  17  0  00  000000* 

007047'  254  00  0  00  007056' 

007050'  254  00  0  00  007046' 

007051'  474  15  0  00  000000 


007052'  027  00  0  00  007113' 

007053'  254  00  0  00  007042' 

007054'  254  00  0  00  007056' 

007055'  322  15  0  00  007046' 


007056'  263  17  0  00  000000 


007057' 
007060' 
007061 ' 
007062' 
007063' 
007064' 
007065' 
007066' 


300000 
400000 
100300 
000000 
100300 
777777 
500000 
000000 


007067' 

007071 • 

000003 

000000 

030006 

777777 

007060' 

000000 


007067*  476  00  0  00  011165' 

007070'  263  17  0  00  000000 

007071'  350  07  0  00  011165' 

007072'  305  07  0  00  002000 

007073'  350  00  0  17  000000 

007074'  332  00  0  00  000172* 


007075' 
007076' 
007077' 
007100' 
007101' 
007102' 
007103' 
007104' 
007105' 
007106' 
007107' 
007110' 
007111' 
007112' 


254  00 
135  07 
13?  07 
137  07 
137  07 
137  07 
316  16  0 
476  00  0 


316  16 
476  00 
201  01 
260  17 
370  00 
263  y7 


00 
00 
00 
00 
00 
00 
00 
00 
CO 
00 
00 
00 
17 
00 


013004' 

0150C7' 

013010' 

013011' 

013012' 

013013' 

000000* 

000000* 

000000* 

000000* 

007122' 

007040* 

000000 

000000 


Loop  on  single  step  table  entries 


TA34: 


GO 

JRST 
JRST 
SETO 


BEXEC 
TX34 
TA34 
ERFLG, 


execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  -  tOUF  data  incorrect 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA34 
TL34 
TX34 
ERFLG, TA34 


;  End  of  test 

TX34:   RTN 

;  Sstep  table,  with  EBUF  data,  as 

TS34:   ATABLE  (SSCALL,TS34IN) 

TS34L:  ATABLE  (SSCHK,TS34ST) 

ATABLE  (SSSTRT,3,0,3,0) 

ATABLE  (SSSTRT,3,3,6,-1) 

ATABLE  (SSJRST,TS34L) 

ATABLE  (SSLAST) 


Special  routines 


TS34IN; 


SETOM 
RTN 


SAVDAT 


TS34ST:  AOS 

CAIGE 
AOS 
SKIPE 
JRST 


IDB 

DPB 

DPB 

DPB 

DPB 

CAMN 

SETOM 

CAMN 

SETOM 

MOVE! 

60 

SOS 

RTN 


7,  SAVDAT 
7,*D1024 
(P) 

UDEBUG 
[CAIGE  7,10 

AOS    (P) 

JRST   .+1] 

7,CP0INT  10,SAVDAT.35] 
7, [POINT  10,T34M,35] 
7, [POINT  10,T34M+2,35] 
7, [POINT  10,T34MA.35] 
7, [POINT  10,T34MA+2,35] 
MBCN,PQHTNI 
TSL0D1 
MBCN  PORICI 
TSL0D2 
1,T34M 
TLOAD 
(P) 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  return 

(CMD,*Steps, Start  addr,End  Addr,EBUF  data) 

;  initialize  test  parameters 

;  set  up  single  step  parameters 

;  do  3  single  steps/check  results 

;  do  3  single  steps/check  results 

;  do  next  address 

;  end  of  table 


initialize  address 
return 

point  to  next  address 

done  yet? 

yes  -  set  up  RTN+2 

debug  mode? 

yes  -  limit  to  8  times 


get  b'ts  00-09 

save  in  1st  .licroword 

save  in  2nd  microword 

save  in  3rd  microword 

save  in  4th  microword 

NI  port? 

yes  -  must  reload  microcode  each  time 

CI  port? 

yes  -  must  reload  microcode  each  time 

?et  microcode  address 
oad  it 

error  -  exit  test 
return 


riCDTAR      MATDH  ¥<;TQn?^7>    00-10      Lliil-R't   P;tnp   RR 


98  I 


DFPTA8 
DFPTA8 

5797 

5798 

5799 

5800 

5801 

5802 

5803 

580A 

5805 

5806 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

58H 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 
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SEQ  1511 


007113* 
0071 H' 

007115' 
007116' 
007117' 
007120' 
007121' 


007122' 
007123' 
007124' 
007125' 
007126' 
007127' 

007130' 
007131' 
007132' 
007133' 
007134' 
007135' 
007136' 


240000  007115' 
000000000000* 


037  00 
200  00 
037  16 
037  00 


00  013014' 
00  011165' 
00  000003 
00  013025' 


263  17  0  00  000000 


000000 
441000 
000100 
.'32000 
000200 
431000 

000300 
171000 
000400 
732000 
000500 
431000 
777777 


012000 
230040 
000000 
220340 
002004 
005340 

042000 
230040 
000000 
220340 
002004 
005340 
771177 


;  Error 

messages 

MA34: 

CALLITXN 
LASTICAL 

MA34PN: 

TMSGC 

MOVE 

PNTOCS 

TMSGC 

RTN 

;  Microcode: 

T34M: 

MUORD 

MUORD 

MWORD 

T34MA: 

MUORD 

MWORD 

MUORD 

-1 

0T!MA34PN  ;  print  data 

L!TXALL!BBPNT         ;  print  sequencer  data 

<Urote  data  pattern  to  local  storage  addr  > 
SAVDAT*  ;  get  address 

;  print  it 
<Then  read  back  and  placed  in  EBUF> 


<ADDR=0,JMAPJ=1,S0A.AND,D=1,OENA,LDLM,MGC=0>  ;  0 

<C0NT,SD0,0R,D=2,RDLM,MGC=0>  ;  1 

<CONT,S0A,OR.D=1,QENA,SELE,MGC=4>  ;  2 

<JMAP,J=4,SAC,XNQR,D=1,0ENA,LDLM.MGC=0>  ;  3 

<CONT,SD0,OR.D=2,RDLM,MGC=0>  ;  4 

<C0NT,S0A,OR.D=1,OENA,SELE,MGC=4>  ;  5 


,**k«h  m^r^9>^***\i- 


r\r\     4  r\ 


or  r\ on 


'■""1 


99 
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5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

583A 

5835 

5836 

5837 

5838 

5839 

58A0 

58A1 

58A2 

58A3 

58AA 

58A5 

5846 

58A7 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5864 

5865 

5866 

5867 

5868 

5869 


*  TEST  35  -  Local  Store  Data  Test 


Description: 


Procedure: 


This  test  writes  data  to  local  storage  and  reads 
it  back  and  verifies  it.  It  builds  a  data  pattern 
then  writes  and  reads  all  1024  local  sto  aqe 
locations.  This  is  repeated  until  all  72  du  i 
patterns  hs\je   been  done. 


Port  Clear 

Load  microcode 

Start  up  port 

UC>  build  a  data  pattern 

UC>  write/read  all  of  local 

data  pattern 
UC>  do  data  compare 
If  failed  -  read  RIO  to  get 
read  R11  ^   "^ 


storage  with  this 


..  -,-.  correct  data 
to  get  actual  data 


007137' 
007140' 
007141' 
007142' 
007143' 
007144' 
007145' 


007146' 
007147' 
007150' 
007151' 
007152' 


2:>-   00 

200403 

007243' 

012777' 

000000 

000000 

777777 


0  00  007146' 
000035 
013035' 
013001' 
010326' 
010521' 
777777 


read  R12  to  get  part  of  LS  addr 
read  R13  to  get  rest  of  LS  addr 
halt  at  location  100 
If  passed  -  do  next  data  pattern  until  done, 
then  halt  at  157 

Failure:     — 
/If*  ****************************************************  *******•*♦***♦* 

;  Test  data 

TSTU35:  JRST    T635  ;  go  start  test 

MPROC INDMP.'ZMPROC! 35  ;  test  mask 
T35M,,[ASCIZ  *Local  Store  Data  Test*] 
[EXP  M13,MLAST!M23,,CEXP  M14.M15,MLAST!M11] 

TSTU36  ;  failure  test  table 
TSTU37 
-1 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
007036* 
007243' 
007110* 
000000 


TG35: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z8 

TRACE 
1,T35M 
TLOAD 


get  address  of  module  ■ 
handle  trace  output 
set  up  microcode  address 
load/ verify  it 
failed  -  exit  test 


art 


00 
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SEQ  1513 


5870 

5871 
5872 
5873 

;  Initialization 

007153' 

AOO  15  0  00  OOOOOO 

TL35: 

SETZ 

ERFLG.               ; 

clear  error  flag 

587A 

0071 5A' 

260  17  0  00  0070A3* 

GO 

IPACLR               ; 

clear  port 

5875 

007155' 

A02  00  0  00  0070AA* 

SETZM 

TSTSUB               ; 

initialize  subtest  nu 

5876 

007156' 

201  01  0  00  000200 

MOVE  I 

l'?52                ' 

allow  200  msecs 

5877 

007157' 

201  02  0  00  000100 

MOVE  I 

2,100              ; 

correct  error  address 

5878 

007160' 

201  03  0  00  000157 

MOVE  I 

3,157              ; 

correct  final  address 

5879 

007161' 

201  OA  0  00  005777 

MOVE  I 

A, 5777 

start  address 

5880 

007162' 

260  17  0  00  001666* 

GO 

AEXEC               ; 

do  the  test 

5881 
5882 
5883 
588A 
5885 

007163' 

A7A  15  0  00  OOOOOO 

SETO 

ERFLG, 

error  -  set  error  fla 

;  Hand  I 

e  error 

printouts  and  scope  looping 

0071 64" 

027  00  0  00  007170' 

SCOPER 

MA35 

print  error  message 

5886 

007165' 

25A  00  0  00  007153' 

JRST 

TL35 

loop  on  error 

5887 

007166' 

25A  00  0  00  007167' 

JRST 

TX35 

altmode  exit 

5888 
5889 
5890 
5891 

;  End  o 

f  test 

007167' 

263  17  0  00  OOOOOO 

TX35: 

RTN 

1 

•  return 

5892 

5893 
5894 
5895 

;  Error 

messages 

0071 7C' 

1A0000  0130A2' 

MA35: 

MSGITXNOT.'CASCIZ  /Local  storage 

test  error:/] 

5896 

007171' 

000000000000* 

CALLITXALL.'AAPNT 

;  print  sequencer  data 

5897 
5898 
5899 

007172' 

270000  007173' 

LAST! CALL !TXALL!MA35PN 

;   get/print  error  data 

007173' 

201  02  0  00  000200 

MA35PN: 

MOVE  I 

2,200 

:  initial  start  address 

5900 

0071 7A' 

2uJ  00  0  00  000002 

MA35P1 : 

MOVE 

2 

;  get  start  address 

5901 

007175' 

260  17  0  00  006335* 

GO 

LDRAR 

;  write  RAR 

5902 

007176' 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

;  get  'MPRUN' 

5903 

007177' 

260  17  0  00  006337* 

GO 

LDCSR 

;  write  CSR 

590A 

007200' 

201  01  0  00  200000 

MOVE  I 

1,TSTEBF 

;  get  'TSTEBF' 

5905 

007201 ' 

260  17  0  00  007177* 

GO 

LDCSR 

;  write  CSR 

5906 

007202' 

260  17  0  00  OOOOOO* 

GO 

RDEBUF 

;  read  EBUF 

5907 

007203' 

202  00  0  02  007037' 

MOVEM 

SAVDA1-200(2) 

;  save  data 

5908 

00720A' 

350  00  0  00  000002 

AOS 

2 

;  increment  address 

5909 

007205' 

307  02  0  00  000103 

CAIG 

2403, 

;  done  yet? 

5910 
5911 
5912 

007206' 

25A  00  0  00  0071 7A' 

JRST 

MA35P1 

;  no  -  continue 

007207' 

200  01  0  00  001 11A* 

MOVE 

1,SC0SW 

;  get  switches 
;  full  printout? 

5913 

007210' 

603  01  0  00  000200 

TLNE 

1,TXTINH 

59U 

007211' 

037  00  0  00  013050' 

TMSGC 

<LS> 

;  no 

5915 

007212' 

607  01  0  00  000200 

TLNN 

1,TXTINH 

;  full  printout? 

5916 

007213' 

037  00  0  00  013051' 

TMSGC 

<LS  address:  > 

;  yes 

5917 

00721  A' 

200  00  0  00  0072A1 ' 

MOVE 

SAVDA1+2 

5918 

007215' 

200  01  0  00  0072A2' 

MOVE 

1,SAVDAl+3 

5919 

007216' 

2A2  01  0  00  OOOOAO 

LSH 

1,*D32 

5920 

0072^7' 

2A6  01  0  00  OOOOOA 

LSHC 

1,A 

5921 

007220' 

037  OA  0  00  OOOOOO 

PNTA 

.._.J 


DFPTA8 
DFPTA8 

5922 

5923 

592A 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

593A 

5935 

5936 

5937 

5938 

5939 

59A0 

59A1 

59A2 

5943 

594A 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 
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007221 • 
007222' 
007223' 
007224' 
007225' 
007226' 
007227' 
007230' 
007231 ' 
007232' 
007233' 
007234' 
007235' 
007236' 

007237' 


200  01 
603  01 
037  00 
607  01 
037  00 
200  00 
037  13 
603  01 
037  00 
607  01 
037  00 
200  00 
037  13 
263  17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


007207* 

000200 

013055' 

000200 

013057' 

007237' 

000000 

000200 

013063' 

000200 

013067' 

007240' 

000000 

000000 


007243'  577700  000000 
007244'  000000  000000 


007245' 

007246' 

007247' 

007250' 

007251 • 

007252' 

007253' 

007254' 

007255' 

007256' 

007257' 

007260' 

00726 1 • 

007262' 

007263' 

007264' 

007265' 

007266' 

007267' 

007270' 

007271 ' 

007272' 

007273' 

007274 ' 

007275' 

007276' 

007277' 

007300' 

007301 ' 

007302' 

007303' 


000000 
742003 
OOOilO 
432074 
000210 
472074 
0oJ300 
402073 
000410 
432074 
000510 
472074 
000600 
437073 
000710 
432074 
001010 
472074 
001100 
437073 
001210 
432074 
001310 
472074 
001400 
437073 
001510 
432074 
001610 
472074 
001700 


000000 
400340 
000000 
000020 
000000 
000020 
000000 
400740 
000000 
000020 
000000 
000020 
000000 
400340 
000000 
000020 
000000 
000020 
000000 
400340 
000000 
000020 
000000 
000020 
OOuOOO 
400340 
000000 
000020 
000000 
000020 
000000 


HOVE 

TLNE 

TMS6 

TLNN 

TMSGC 

MOVE 

PNTHW 

TLNE 

TMSGC 

TLNN 

TMSGC 

MOVE 

PNTHW 

RTN 

SAVDA1:  BLOCK 

;  Microcode: 

T35M:   MWORD 

;  Build 
MUORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 


1,SC0SW 

1.TXTINH 

<(C):   > 

IJXTINH 

<Data:  Correct  > 

SAVDA1 

I.TXTINH 

<  (A):      > 
IJXTINH 

<  Actual   > 
SAVDA1+1 


?et  switches 
ull  printout? 
no 
full  printout? 


full  printout? 

no 

full  printout? 

yes 


4  :  data  area 

<ADDR=5777,JZ> 

data  patterns 

<ADDR=0,CONT,SD0,AND,B=7,D=2> 

<CJS.J=1000,SOA,A=7,B=10.0R,D=2> 

<CJS,J=1000,S0A,A=7,B=1O.XNOR,D=2> 

<CONT, SOA, PLUS, CRY, A=7,B=7, D=2> 

<CJS,J=1000,S0A.A=7,B--10,OR,D=2> 

<CJS.J=1000,S0A,A=7,B=10,XNOR,D=2> 

<C0NT,S0A.OR,A=7,B=7.D=7> 

<CJS,J=1000,S0A,A=7.B=10,OR,D=2> 

<CJS,J=1000,S0A.A=7,B=10,XN0R,D-2> 

<C0NT,S0A,0R,A=7,B=7.D=7> 

<CJS,J=1000,S0A,A=7.B=10,OR,D=2> 

<CJS,J=1000,S0A,A=7,B=10,XNOR.D=2> 

<C0NT,S0A,0R,A=7,B=7,D=7> 

<CJS,J=1000,S0A,A=7,B=10,OR,D=2> 

<CJS,J=1000,S0A,A=7,B=10.XNOR,D=2> 

<CONT,S0A,OR,A=7,B=7.D=7> 


5777 

0 

1  -  O's 

2  -  comp 
3 

4  -  1 

5  -  comp 
6 
7-2 

10  -  comp 
11 

12  -  4 

13  -  comp 
14 

15  -  10 

16  -  comp 
17 


'1 
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5977 

5978 

5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

599A 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

600A 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 


007304' 

007305' 

007306' 

007307' 

007310' 

007311' 

007312' 

007313' 

007314' 

007315' 

007316' 

007317' 

007320' 

007321 ' 

007322' 

007323' 

007324' 

007325' 

007326' 

007327' 

007330' 

007331 • 

007332' 

007333' 

007334' 

007335' 

007336' 

007337' 

007340' 

007341  • 

007342' 

007343' 

007344' 

007345' 

007346' 

007347' 

007350' 

007351 ' 

007352' 

007353' 

007354' 

007355' 

007356' 

007357' 

007360' 

007361  • 

007362' 

007363' 

007364' 

007365' 

007366' 

007367' 

007370' 

007371 • 

007372" 


437073 

002010 

432074 

002110 

472074 

002200 

437073 

002310 

432074 

002410 

472074 

002500 

437073 

002610 

432074 

002710 

472074 

003000 

437073 

003110 

432074 

003210 

472074 

003300 

437073 

003410 

432074 

003510 

472074 

003600 

43/073 

003710 

432074 

004010 

472074 

004100 

437073 

004210 

432074 

004310 

472074 

004400 

437073 

004510 

432074 

004610 

472074 

004700 

437073 

005010 

432074 

005110 

472074 

00520 

43707 


400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

OOOQOO 

400340 


MWORD  <CJS,J=1000,S0A,A=7,B=10,OR,D=2> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,XNOR,D=2> 

MWORD  <C0NT,S0A,0R,A=7,B=7,D=7> 

MWORD  <CJS,J=1000.S0A,A=7,B=10,OR,D=2> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,XN0R,D=2> 

MWORD  <C0NT,S0A,0R,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,OR,D=2> 

MWORD  <CJi),J=1000,SOA,A=7,B=10,XNOR,D=2> 

MWORD  <C0NT,S0A.0R,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,S0A,A=7.B=10,OR,D=2> 

MWORD  <CJS,J=1000,S0A,A=7,B=10.XN0R,D=2> 

MWORD  <C0NT,S0A,0R,A=7,B=7.D=7> 

MWORD  <CJS,J=1000,S0A,A=7,B=10.0R,D=2> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,XN0R.D=2> 

MWORD  <C0NT,S0A,0R,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,SOA,A=7.B=10,OR.D=2> 

MWORD  <CJS,J=1000,SOA,A=7,B=10,XNOR,D=2> 

MWORD  <C0NT,S0A,0R.A=7,B=7,D=7> 

MWORD  <CJS,J=1000.S0A,A=7.B=10,OR.D=2> 

MWORD  <CJS,J=1000,S0A,A=7,8=10,XNOR.D=2> 

MWORD  <C0NT,S0A,0R,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,OR.D=2> 

MWORD  <CJS.J=1000.SOA,A=7,B=10,XNOR,D=2> 

MWORD  <CONT,S0A,OR,A=7.B=7,D=7> 

MWORD  <CJS,J=1000,S0A,A=7,B=10.OR,D=2> 

MWORD  <CJS.J=1O00,S0A,A=7,B=1O.XNOR,D=2> 

MWORD  <CONT.S0A.OR,A=7.B=7,D=7> 


20  -  20 

21  -  comp 
22 

23  -  40 

24  -  comp 
25 

26  -  100 
21  -   comp 
30 

31  -  200 

32  -  comp 
33 

34  -  400 

35  -  comp 
36 

37  -  1000 
40  -  comp 
41 

42  -  2000 

43  -  comp 
44 

45  -  4000 

46  -  comp 
47 

50  -  10000 

51  -  comp 
52 


— I 


,_J 


503 


DFPTA8  MACF 
DFPTA8  MAC 


6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 

6061 

6062 

6063 

6064 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 

6081 

6082 

6083 

6084 

6085 

6086 


007373* 

007374' 

007375' 

007376' 

007377' 

007400' 

007401 ' 

007402' 

007403' 

007404' 

007405' 

007406' 

007407' 

007410' 

007411' 

007412' 

007413' 

007414' 

007415' 

007416' 

007417' 

007420' 

007421 ' 

007422' 

007423' 

007424' 

007425' 

007426' 

007427' 

007430' 

007431 ' 

007432' 

007433' 

007434 • 

007435' 

007436' 

007437' 

007440' 

007441 ' 

007442' 

007443* 

007444' 

007445' 

007446* 

007447' 

007450' 

007451 ' 

007452' 

007453' 

007454* 

007455* 

007456* 

007457' 

007460* 

007461 ' 
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005310 

000000 

nUORD 

432074 

000020 

005410 

000000 

MUORD 

472074 

000020 

005500 

000000 

nUORD 

437073 

400340 

005610 

000000 

MUORD 

432074 

000020 

005710 

000000 

MUORD 

472074 

000020 

006000 

000000 

MUORD 

437073 

400340 

006110 

000000 

MUORD 

432074 

000020 

006210 

000000 

MUORD 

472074 

000020 

006300 

000000 

MUORD 

437073 

400340 

006410 

000000 

MUORD 

432074 

000020 

006510 

000000 

MUORD 

472074 

000020 

006600 

000000 

MUORD 

437073 

400340 

006710 

000000 

MUORD 

432074 

000020 

007010 

000000 

MUORD 

472074 

000020 

007100 

000000 

MUORD 

437073 

400340 

Gu/210 

000000 

MUORD 

432074 

000020 

007310 

000000 

MUORD 

472074 

000020 

007400 

000000 

MUORD 

437073 

400340 

007510 

000000 

MUORD 

432074 

000020 

007610 

000000 

MUORD 

472074 

000020 

007700 

000000 

MUORD 

437073 

400340 

010010 

000000 

MUORD 

432074 

000020 

010110 

000000 

MUORD 

472074 

000020 

010200 

000000 

MUORD 

437073 

400340 

010310 

000000 

MUORD 

432074 

000020 

010410 

000000 

MUORD 

472074 

000020 

010500 

000000 

MUORD 

437073 

400340 

010610 

000000 

MUORD 

SEQ  1516 


<CJS,J=1000,SOA,A=7,B=10,OR,D=2> 

<CJS,J=1O00,S0A,A=7.B=10,XNOR,D=2> 

<C0NT,S0A,0R,A=7.B=7,D=7> 

<CJS,J=1000,S0A,A=7,B=10,0R,D=2> 

<CJS,J=1000,SOA,A=7,B=10,XNOR,D=2> 

<CONT,S0A,OR,A=7,B=7,D=7> 

<CJS,J=1000,S0A,A=7,B=10,OR,D=2> 

<CJS,J=1O00,S0A,A=7,B=10.XNOR,D=2> 

<C0NT,S0A,0R,A=7,B=7,D=7> 

<CJS,J=1O00,S0A,A=7.B=10,OR.D=2> 

<CJS,J=1000,SOA.A=7,B=10,XNOR,D=2> 

<C0NT,S0A,0R.A=7,B=7.D=7> 

<CJS.J=100G,S0A,A=7,B=10,OR,D=2> 

<CJS,J=1000,S0A,A=7.B=10.XN0R,D=2> 

<CONT,S0A,OR,A=7.B=7,D=7> 

<CJS,J=1000,SOA,A=7,B=10,OR.D=2> 

<CJS.J=1000,SOA,A=7,B=10,XNOR,D=2> 

<C0NT,S0A.0R,A=7,8=7,D=7> 

<CJS,J=1000,S0A,A=7,B=10,OR.D=2> 

<CJS,J=1000,SOA,A=7,B=10,XNOR.D=2> 

<C0NT,S0A.0R,A=7,B=7,D=7> 

<CJS.J=1000,SOA,A=7,B=10.0R.P=2> 

<CJS,J=1000,S0A,A=7,B=10,XN0R,D=2> 

<C0NT.S0A,0R.A=7,B=7,D=7> 

<CJS,J=1O00.S0A,A=7,B=1O,OR,D=2> 

<CJS.J=1000.S0A,A=7.B=10.XNOR,D=2> 

<C0NT.S0A.0R.A=7.8=7,D=7> 

<CJS.J=1000,S0A,A=7,B=10.0R,D=2> 


53  -  20000 

54  -  comp 
55 

56  -  40000 

57  -  comp 
60 

61  -  100000 

62  -  comp 
63 

64  -  200000 

65  -  comp 
66 

67  -  400000 
70  -  comp 
71 

72  -  1.,0 

73  -  comp 
74 

75  -  2,,0 

76  -  comp 
11 

100  -  4..0 

101  -  comp 
102 

10^  -  10. .0 

104  -  comp 

105 

106  -  20, ,0 


0FPTA8 
DFPTA8 

6087 

6088 

6089 

6090 

6091 

6092 

6095 

609A 

6095 

6096 

6097 

6098 

6099 

6100 

6101 

6102 

6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

611A 

6115 

6116 

6117 

6118 

6119 

61 2C 

6121 

6122 

6123 

61 2A 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6138 

6139 

6U0 

6141 
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SEQ  1517 


007462' 

007463' 

007464' 

007465' 

007466' 

007467' 

007470' 

007471 ' 

007472' 

007473' 

007474' 

007475' 

007476' 

007477' 

007500' 

007501 ' 

007502' 

007503' 

007504' 

007505' 

007506' 

007507' 

007510' 

007511' 

007512' 

007513' 

007514' 

007515' 

007516' 

007517' 

007520' 

007521 ' 

007522' 

007523' 

007524' 

007525' 

007526' 

007527' 

007530' 

007531 ' 

007532' 

007533' 

007534' 

007535' 

007536' 

007537' 

007540' 

007541 ' 

007542' 

007543' 

007544' 

007545' 

007546' 

007547' 

007550' 


432074 

010710 

472074 

011000 

437073 

011110 

432074 

011210 

472074 

011300 

437073 

011410 

432074 

011510 

472074 

011600 

437073 

011710 

432074 

012010 

472074 

012100 

437073 

012210 

432074 

012310 

472074 

012400 

437073 

012510 

432074 

012610 

472074 

012700 

437073 

013010 

432074 

013110 

472074 

013200 

437073 

013310 

432074 

013410 

472074 

013500 

437073 

013610 

432074 

013710 

472074 

014000 

437073 

014110 

432074 


000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000C20 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 

000000 

000020 

000000 

400340 

000000 

000020 


MUORD  <CJS.J=1000,SOA,A=7,B-10.XNOR.D=2> 

MWORD  <C0NT,S0A,0R,A=7,B=7,D=7> 

MWORD  <CJS.J=1000,S0A,A=7,B=10,OR,D=2> 

MUORD  <CJS.J=1000,S0A,A=7.B=10,XN0R,D=2> 

MWORD  <CONT,S0A,OR,A=7.B=7.D=7> 

MWORD  <CJS,J=1000.S0A.A=7.B=10,0R.D=2> 

MWORD  <CJS.J=1000.S0A,A=7.B=10,XNOR,D=2> 

MWORD  <C0NT,S0A,OR,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,0R.D=2> 

MWORD  <CJS.J=1000.SOA,A=7.B=10,XNOR,D=2> 

MWORD  <C0NT,S0A,0R,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,SOA,A=7,B=10.0R,D=2> 

MWORD  <CJS,J=1000,S0A,A=7,8=10,XNOR,D=2> 

MWORD  <C0NT,S0A.0R.A=7,B=7,D=7> 

MWORD  <CJS,J=1000.S0A,A=7,8=10.0R,D=2> 

MWORD  <CJS,J=1000,SOA,A=7.B=10.XNOR.D=2> 

MWORD  <C0NT,S0A,0R,A=7,B=7,D=7> 

MUORD  <CJS,J=1000,S0A,A=7.B=10,OR,D=2> 

MWORD  <CJS,J=1000,S0A.A=7.8=10.XNOR,D=2> 

MWORD  <C0NT,S0A.0R,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,OR.D=2> 

MWORD  <CJS,J=1000,S0A,A=7.B=10.XNOR,D=2> 

MWORD  <C0NT,S0A.0R,A=7.B=7,D=7> 

MWORD  <CJS.J=1000.S0A.A=7.B=1O,OR.D=2> 

MWORD  <CJS.J=1000,SOA,A=7,B=10,XNOR.D=2> 

MWORD  <C0NT,S0A,0R.A=7,B=7,D=7> 

MWORD  <CJS,J=1000,S0A.A=7.B=10,OR.D=2> 


107 

110 

111 

112 

113 

114 

115 

116 

117 

120 

121 

122 

123 

124 

125 

126 

127 

130 

131 

132 

133 

134 

135 

136 

137 

140 

141 


-  comp 

-  40. .0 

-  comp 

-  100, ,0 

-  comp 

-  200,, 0 

-  comp 

-  400, ,0 

-  comp 

-  1000, ,0 

-  comp 

-  2000,, 0 

-  comp 

-  4000,, 0 

-  comp 

-  10000,,0 

-  comp 

-  20000., 0 


r 
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SEQ  1518 


61 42 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 

6161 

6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 


007551' 
007552' 
007553' 
007554' 
007555' 
007556' 
007557' 
007560' 
007561 ' 
007562' 
007563* 
007564' 
007565' 
007566' 
007567' 
007570' 
007571 • 
007572' 
007573' 
007574' 
007575' 
007576' 
007577' 
007600' 
007601 • 
007602' 
007603' 
007604' 


014210 
472074 
014300 
437073 
014410 
432074 
014510 
472074 
014600 
437073 
014710 
432074 
015010 
472074 
015100 
437073 
015210 
432074 
015310 
472074 
015400 
437073 
015510 
432074 
015610 
472074 
015701 
000000 


007605'  016001 
007606'  000000 


007607' 
007610' 
00761 1 ' 
007612' 
007613' 
007614' 
007615' 
007616' 
007617' 
007620' 


020002 
401100 
020102 
401110 
020202 
401120 
020302 
401130 
020402 
000000 


000000 
000020 
000000 
400340 
000000 
000020 
000000 
000020 
000000 
400340 
000000 
000020 
000000 
000020 
000000 
400340 
000000 
000020 
000000 
000020 
000000 
400340 
000000 
000020 
000000 
000020 
570000 
000041 


600000 
000041 


007621'  100020 
007622'  731005 
007623'  100120 


042004 
005040 
042004 
005040 
042004 
005040 
042004 
005040 
040000 
000040 


000000 
200020 
000040 


MWORD  <CJS.J=1000,S0A,A=7,B=10,XNOR.D=2> 

MWORD  <CONT,S0A,OR,A=7,B=7,D=7> 

MWORD  <CJS.J=1000,SOA.A=7.B=10,OR,D=2> 

MWORD  <CJS,J=1000,S0A.A=7,B=10,XNOR.D=2> 

MWORD  <C0NT.S0A,0R,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,OR,D=2> 

MWORD  <CJS,J=1000,SOA.A=7,B=10.XNOR.D=2> 

MWORD  <CONT,S0A,OR,A=7,B=7,D=7> 

MWORD  <CJS,J=1000,SOA,A=7.B=10,OR,D=2> 

MWORD  <CJS,J=1000,S0A,A=7,B=10,XNOR,D=2> 

MWORD  <C0NT,S0A.OR.A=7,B=7.D=7> 

MWORD  <CJS.J=1000,S0A.A=7.B=10, OR, D=2> 

MWORD  <CJS,J=1000,S0A,A=7.B=10.XNOR,D=2> 

MWORD  <JMAP,J=157,BAD^ 

Error  address 

MWORD  <ADDR=160,JMAP,J=160,BAD> 


142  -  comp 
143 

144  -  40000,, 0 

145  -  comp 
146 

147  -  100000,, 0 
150  -  comp 
151 

152  -  200000,, 0 

153  -  comp 
154 

155  -  400000,. 0 

156  -  comp 

157  -  done  -  exit 

;  160  -  error  -  exit 


Read  RIO  to  get  correct  data 

Read  R11  to  get  actual  data 

Read  R12  to  get  part  of  LS  addr 

Read  R13  to  get  rest  of  LS  addr 

MWORD  <ADDR=200,JMAP,J=204,S0A,A=10,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=204.S0A,A=11,D=1,OENA,SELE,MGC-4> 

MWORD  <JMAP,J=204,S0A,A=12,D=1,OENA,SELE,MGC=4> 

MWORD  <JMAP,J=204,S0A,A=13,D=1,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=204> 

Write/read  each  page 

MWORD   <ADDR=1000,CJS,J=2000,SD0,OR,B=12,D=1,MGC=O,LSAD>  ;  1000  -  0 

MWORD   <CJS,J=2000,SDO.OR,B=12,D=1,MGC=40,LSAD>       ;  1001  -  1 


iDFP 

Idfp 

6 
6 
6 
6 
6 


r 


^_.._.J 
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SEQ  1519 


DFI 
DFI 


6197 

007624' 

6198 

007625' 

6199 

007626' 

6200 

007627' 

6201 

007630' 

6202 

007631 ' 

6203 

007632' 

620A 

007633' 

6205 

007634' 

6206 

007635' 

6207 

007636' 

6208 

007637' 

6209 

007640' 

6210 

007641 ' 

6211 

007642' 

6212 

007643' 

6213 

007644' 

62U 

007645' 

6215 

007646' 

6216 

007647' 

6217 

007650' 

6218 

007651 ' 

6219 

007652' 

6220 

007653' 

6221 

007654' 

6222 

007655' 

6223 

007656' 

6224 

007657' 

6225 

007660' 

6226 

007661 ' 

6227 

007662' 

6228 

007663' 

6229 

007664' 

6230 

007665' 

6231 

007666' 

6232 

007667' 

6233 

007670' 

623A 

007671 ' 

6235 

007672' 

6236 

007673' 

6237 

007674' 

6238 

007675' 

6239 

007676' 

62A0 

007677' 

62A1 

007700' 

62A2 

007701 • 

62A3 

007702' 

624A 

007703' 

62A5 

007704' 

6246 

007705' 

6247 

007706' 

6248 

007707' 

6249 

007710' 

6250 

007711' 

6251 

007712' 

731005 

100220 

731005 

100320 

731005 

100420 

731005 

100520 

731005 

100620 

731005 

100720 

731005 

101020 

731005 

101120 

731005 

101220 

731005 

101320 

731005 

101420 

731005 

101520 

731005 

101620 

731005 

101720 

731005 

102020 

o'005 

102120 

731005 

102220 

731005 

102320 

731005 

102420 

731005 

102520 

731005 

102620 

731005 

102720 

731005 

103020 

731005 

103120 

731005 

103220 

731005 

103320 

731005 

103420 

731005 


200020 

000100 

200020 

000140 

200020 

000200 

200020 

000240 

200020 

000300 

200020 

000340 

200020 

000400 

200020 

000440 

200020 

000500 

200020 

000540 

200020 

000600 

200020 

000640 

200020 

000700 

200020 

000740 

200020 

001000 

200020 

001040 

200020 

001100 

200020 

001140 

200020 

001200 

200020 

001240 

200020 

001300 

200020 

001340 

200020 

001400 

200020 

001440 

200020 

001500 

200020 

001540 

200020 

001600 

200020 


MUORD 

<CJSJ  = 

MWORD 

<CJS,J= 

nUORD 

<CJS,J= 

nUORD 

<CJS,J= 

nUORD 

<CJS,J= 

nuoRD 

<CJS,J= 

MUORD 

<CJS,J= 

MUORD 

<CJS,J: 

MUORD 

<CJS,J: 

MUORD 

<CJS.J= 

MUORD 

<CJS.J 

MUORD 

<CJS,J 

MUORD 

<CJS.J 

MUORD 

<CJS.J 

MUORD 

<CJS,J 

MUORD 

<CJS,J 

MUORD 

<CJS,J 

MUORD 

<CJS.J 

MUORD 

<CJS,J 

MUORD 

<CJS,J 

MUORD 

<CJS.J 

MUORD 

<CJS.J 

MUORD 

<CJS.J 

MUORD 

<CJS,J 

MUORD 

<CJS.J 

MUORD 

<CJS.J 

MUORD 

<CJS,J 

=2000, SDO, OR, 8=12,0= 
=2000, SDO, OR, 8=12, D= 
=2000,SD0,0R,8=12,D= 
=2000, SDO, OR, 8=12, D= 
=2000, SDO, OR, 8=12, D= 
=2000,SDO,OR,8=12,D= 
=2000,SD0,0R,8=12.D= 
=2000, SDO, OR, 8=12, D= 
=2000, SDO, OR, 8=12, D= 
=2000, SDO, OR, 8=12, D= 
=2000, SDO, 0R,B=12,D= 
=2000, SDO. OR, 8=12, D^ 
=2000, SDO, OR, 8=12, D^ 
=2000, SDO, OR, 8=12, D^ 
=2000, SDO, 0R,8=12,D 
=2000, SDO, 0R,B=12,D 
=2000, SDO, OR, 8=12, D 
=2000, SDO, 0R,8=12,D 
=2000. SDO, 0R,8=12,D 
=2000, SDO, OR, 8=12, D 
=2000, SDO, 0R,8=12,D 
=2000. SDO, OR, 8=12, D 
=2000, SDO, OR, 8=12, D 
=2000, SDO, OR, 8=12, D 
=2000, SDO, OR, 8=12, D 
=2000, SDO, OR, 8=12, D 
=2000, SDO, 0R,B=12.D 


1,MGC=100,LSAD> 
:1,M6C=140,LSAD> 
:1,MGC=200,LSAD> 
:1,MGC=240,LSAD> 
:1,MGC=300,LSAD> 
:1,MGC=340,LSAD> 
=1,MGC=400,LSAD> 
=1,MGC=440,LSAD> 
=1,MGC=500,LSAD> 
=1,MGC=540,LSAD> 
=1,M6C=600,LSAD> 
=1,MGC=640,LSAD> 
=1,MGC=700,LSAD> 
=1,MGC=740,LSAD> 
=1,M6C=1000,LSAD> 
=1,MGC=1040,l.SAD> 
=1,M6C=1100,l.SAD> 
=1,MGC=1140,LSAD> 
=1,M6C=1200,LSAD> 
=1,M6C=1240,LSAD> 
=1,MGC=1300,LSAD> 
=1,MGC=1340.LSAD> 
=1.M6C=1400,LSAD> 
=1,M6C=1440.LSAD> 
=1,MGC=1500,LSAD> 
=1,MGC=1549.LSAD> 
=1.M6C=1600,LSAD> 


1002  -  2 

1003  -  3 

1004  -  4 

1005  -  5 

1006  -  6 

1007  -  7 

1010  -  10 

1011  -  11 

1012  -  12 

1013  -  13 

1014  -  14 

1015  -  15 

1016  -  16 

1017  -  17 

1020  -  20 

1021  -  21 

1022  -  22 

1023  -  23 

1024  -  24 

1025  -  25 

1026  -  26 

1027  -  11 

1030  -  30 

1031  -  31 

1032  -  32 

1033  -  33 

1034  -  34 


L 


DFPTA8 
DFPTA8 

6252 
6253 
i  6254 
I  6255 
I  6256 
I  6257 
6258 
6259 
6260 
6261 
6262 
6263 
626A 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 
6305 
6306 
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r" 


SEQ  1520 


DFI 

OFI 


007713' 
007714' 
007715' 
007716' 
007717' 
007720' 
007721 ' 
007722' 


103520 
731005 
103620 
731005 
103720 
731005 
104000 
000000 


007723' 
007724' 
007725' 
007726' 
007727' 
007730' 
007731 ' 
007732' 

007733' 
007734' 
007735' 
007736' 
007737' 
007740' 
007741' 
007742' 

007743' 
007744 ' 
007745' 
007746' 
007747' 
007750' 
007751' 
007752' 

0C7753' 
007754' 
007755' 
007756' 
007757' 
007760' 
007761 ' 
007762' 

007763' 
007764 • 
007765' 
007766' 
007767' 
007770' 
007771 ' 
007772* 


200000 
431300 
200100 
732204 
200220 
161504 
200301 
732005 

20C400 
431300 
200500 
732204 
200620 
161504 
200701 
732005 

201000 
4i'300 
201100 
732204 
201220 
161504 
201301 
732005 

201400 
431300 
201500 
732204 
201620 
161504 
201701 
732005 

202000 
431300 
202100 
732204 
202220 
161504 
202301 
732005 


001640 
200020 
001700 
200020 
001740 
200020 
000000 
000240 


002000 
230340 
000000 
620340 
040000 
420060 
600000 
240040 

002001 
230340 
000001 
620340 
100000 
420060 
600001 
240040 

002002 
230340 
000002 
620340 
140000 
420060 
600002 
240040 

002003 
230340 
000003 
620340 
200000 
420060 
600003 
240040 

002004 
230340 
000004 
620340 
240000 
420060 
600004 
240040 


MUORD  <CJS.J=2000,SD0.0R,B=12,D=1 ,MGC=1640,LSAD> 

MUORD  <CJS,J=2000,SDO,OR,B=12,D=1.M6C=1700,LSAD> 

HWORD  <CJS.J=2000,SDO.OR,8=12,D=1 ,M6C=1740.LSAD> 

MWORD  <CRTN> 


1035 
1036 
1037 
1040 


35 
36 
37 
exit 


Write/read  the  LS  address  locations 

MUORD   <ADDR=20O0.CONT,MGC=0,S0A.0R.A=10,OENA.D=1.RAM,LDLM>  ;  2000 


-  0 


MWORD  <CONT.MGC=0,SD0,OR,D=2,B=11.RAM,RDLM> 

MWORD  <CJP,J=2004,SAB,X0R.A=10,B=11 ,D=1 ,CENA.CCFZ> 

MUORD  <JMAP.J=160,SD0,SKCN,MGC=0,0R,8=12.D=2> 

MUORD  <C0NT,MGC=1 ,SOA,OR,A=10.0ENA,D=1 ,RAM,LDLM> 

MUORD  <C0NT,MGC=1,SD0,0R,D=2,B=11.RAM,RDLM> 

MUORD  <CJP,J=2010,SAB,X0R.A=10,B=11,D=1.CENA,CCFZ> 

MUORD  <JMAP,J=160,SD0,SKCN,MGC=1 .0R.B=12,D=2> 

MUORD  <C0NT,MGC=2,S0A,0R.A=10.0ENA,D=1 ,RAM,LDLM> 

MUORD  <CONT.MGC=2,SD0,OR.D=2,B=11,RAM,RDLM> 

MUORD  <CJP. J=2014, SAB, X0R.A=10, 8=11 ,D=1 ,CENA,CCFZ> 

MUORD  CJ.'*AP,J=160,SD0.SKCN,MGC=2.0R.8=12.D=2> 

MUORD  <C0NT.MGC=3,S0A,0R,A=10,0ENA.D=1  ,RAMADLM> 

MUORD  <CONT,MGC=3,SD0,OR.D=2,B=11,RAM,RDLM> 

MUORD  <CJP, J=2020. SAB, XOR,A=10. 8=11 .D=1 ,CENA.CCFZ> 

MUORD  <JMAP,J=160,SD0,SKCN.MGC=3,0R,8=12,D=2> 

MUORD  <CONT,MGC=4,S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 

MUORD  <CONT.MGC=4,SD0.OR,D=2,B=11 .RAM,RDLM> 

MUORD  <CJP,J=2024, SAB, XOR.A=10, 8=11. D=1.CENA.CCFZ> 

MUORD  <JMAP.J=160,SD0.SKCN,MGC=4,OR.B=12,D=2> 


2001 
2002 
2003 

2004 
2005 
2006 
2007 

2010 
2011 
2012 
2013 

2014 
2015 
2016 
2017 

2020 
2021 
2022 
2023 


-  1 


-  3 


-  4 
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MPROC  Module  Tests 


SEQ  1521 


DF 
DF 


6307 

6308 

6309 

6310 

6311 

6312 

6313 

63U 

6315 

6316 

6317 

6318 

6319 

6320 

6321 

6322 

6323 

632A 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 

633A 

6335 

6336 

6337 

6338 

6339 

6340 

63A1 

6342 

6343 

6344 

6345 

6346 

6347 

6348 

6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 


007773' 
007774' 
007775' 
007776' 
007777' 
010000' 
010001' 
010002' 

010003' 
010004' 
010005' 
010006' 
010007' 
010010' 
010011' 
010012' 

010013' 
010014' 
010015' 
010016' 
010017' 
010020' 
010021' 
010022' 

010023' 
010024' 
010025' 
010026' 
010027' 
010030' 
010031' 
010032' 

010033' 
010034' 
010035' 
010036' 
010037' 
010040' 
010041' 
010042' 

010043' 
010044' 
010045' 
010046' 
010047' 
010C50' 
010051' 
010052' 


202400 
431300 
202500 
732204 
202620 
161504 
202701 
732005 

203000 
431300 
203100 
732204 
203220 
161504 
203301 
732005 

203400 
431300 
203500 
732204 
203620 
161504 
203701 
732005 

204000 
431300 
2u:100 
732204 
20^^220 
161504 
204301 
732005 

204400 
431300 
204500 
732204 
204620 
161504 
204701 
732005 

205000 
431300 
205100 
732204 
205220 
161504 
205301 
732005 


002005 
230340 
000005 
620340 
300000 
420060 
600005 
240040 

002006 
230340 
000006 
620340 
340000 
420060 
600006 
240040 

002007 
230340 
000007 
620340 
400000 
420060 
600007 
240040 

002010 
230340 
000010 
620340 
440000 
420060 
600010 
240040 

002011 
230340 
000011 
620340 
500000 
420060 
600011 
240040 

002012 
230340 
000012 
620340 
540000 
420060 
600012 
240040 


MWORD  <^ONT,MGC=5,S0A,0R,A= iO,OENA,D=1 ,RAM.LDLM> 

MWORD  <C0NT,MGC=5,SD0,0R,D=2,8=11,RAM,RDLM> 

MWORD  <CJP,J=2030, SAB. XOR,A=10, 8=11, 0=1, CENA,CCFZ> 

MWORD  <JMAP,J=160.SD0,SKCN.MGC=5.OR,B=12.D=2> 

MWORD  <CONT,MGC=6,S0A,OR,A=10,0ENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=6,SD0,OR.D=2.B=11,RAM,RDLM> 

MWORD  <CJP,J=2034, SAB, XOR,A-10, 8=11, D=1.CENA,CCFZ> 

MWORD  <JMAP,J=160,SD0,SKCN,MGC=6,OR,B=12,D^-2> 

MWORD  <CONT,MGC=7,S0A,0R,A=10,0ENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=7,SD0,OR,D=2,B=11,RAM,RDLM> 

MWORD  <CJP,J=2040,SAB,XOR.A=10,8=11,D=1,CENA,CCFZ> 

MWORD  <JMAP,J=16O,SD0,SKCN,MGC=7,OR,B=12,D=2> 

MWORD  <CONT,MGC=10,SOA.OR,A=10,OENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=10,SD0,OR,D=2,8=11,RAM,RDLM> 

MWORD  <CJP.J=2044, SAB. X0R,A=10, 8=11, D=1,CENA,CCFZ> 

MWORD  <jriAP,J=160,SD0.SKCN,MGC=10.OR,8=12.D=2> 

MWORD  <CONT.MGC=11.S0A,0R.A=10,OENA,D=1,RAM,LDLM> 

MWORD  <CONT,MGC=11,SD0,OR,D=2,8=11.RAM.RDLM> 

MWORD  <CJP.J=2050. SAB. X0R,A=10, 8=11, D=1,CENA.CCFZ> 

MWORD  <JMAP.J=160,SD0,SKCN.MGC=11,0R,B=12,D=2> 

MWORD  <CONT,MGC=12,S0A,OR.A=10.OENA.D=1 .RAM.LDLM> 

MWORD  <C0NT.MGC=12,SD0.no,D=2,8=1i,RAf1.RDLM> 

MWORD  <CJP.J=2054. SAB. X0R.A=10. 8=11, D=1.CENA,:CFZ> 

MWORD  <JMAP,J=160,SD0.SKCN,MGC=12.OR,B=12.D=2> 


2024 
2025 
2026 
2027 

2030 
2031 
2032 
2033 

2034 
2035 
2036 
2037 

2040 
2041 
2042 
2043 

2044 
2045 
2046 
2047 

2050 
2051 
2052 
2053 


-  5 


-  6 


-  10 


-  11 


12 


...J 


09 


DFPTA8 
DFPTA8 

6362 

6363 

636A 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

637A 

6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

638A 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

639A 

6395 

6396 

6397 

6398 

6399 

6^00 

6A01 

6A02 

6A03 

6A0A 

6A05 

6A06 

6A07 

6A08 

6409 

6A10 

6411 

6412 

6413 

6414 

6415 

6416 
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SEQ  1522 


010053' 
010054' 
010055' 
010056' 
010057' 
010060' 
010061' 
010062' 

010063' 
010064' 
010065' 
010066' 
010067' 
010070' 
010071' 
010072' 

010073' 
010074' 
010075' 
010076' 
010077' 
010100' 
010101' 
010102* 

010103' 
010104' 
010105' 
010106' 
010107' 
010110' 
010111' 
010112' 

010113' 
010114' 
010115' 
010116' 
010117' 
010120* 
010121' 
010122* 

010123* 
010124* 
010125* 
010126* 
010127* 
010130* 
010131* 
010132* 


205400 
431300 
205500 
732204 
205620 
161504 
205701 
732005 

206000 
431300 
206100 
732204 
206220 
161504 
206301 
732005 

206400 
431300 
206500 
732204 
206620 
161504 
206701 
732005 

207000 
431300 
20^100 
732204 
207220 
161504 
207301 
732005 

207400 
431300 
207500 
732204 
207621 
161504 
207701 
732005 

210000 
431300 
210100 
732204 
210221 
161504 
210301 
732005 


002013 
230340 
000013 
620340 
600000 
420060 
600013 
240040 

002014 
23034C 
000014 
620340 
640000 
420060 
600014 
240040 

002015 
230340 
000015 
620340 
700000 
420060 
600015 
240040 

002016 
230340 
000016 
620340 
740000 
420060 
600016 
240040 

002017 
230340 
000017 
620340 
000000 
420060 
600017 
«i40040 

002020 
230340 
000020 
620340 
040000 
420060 
600020 
240040 


010133*  210400  002021 


MUORD  <CONT,MGC=13,S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=13,SD0,OR,D=2,B=11.RAM,RDLM> 

MWORD  <CJP,J=2060, SAB, XOR,A=10, 8=11, D=1,CENA,CCFZ> 

MWORD  <JMAP,J=16O,SD0,SKCN,M6C=13,OR,8=12,D=2> 

MWORD  <CONT,MGC=14,S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=14,SD0,OR,D=2,8=11,RAM,RDLM> 

MWORD  <CJP,J=2064, SAB, XOR,A=10, 8=11, D=1,CENA,CCFZ> 

MWORD  <JMAP,J=160,SD0,SKCN,M6C=14,OR,B=12,D=2> 

MWORD  <CONT,MGC=15,S0A,OR,A=10,OENA,D=1,RAM,LDLM> 

MWORD  <CONT,M6C=15,SD0,OR,D=2,B=11,RAM,RDLM> 

MWORD  <CJP,J=2070,SAB,X0R.A=10,B=11,D=1,CENA,CCFZ> 

MWORD  <JMAP,J=160,SD0,SKCN,M6C=15,OR,B=12,0=2> 

MWORD  <CONT,MGC=16,S0A,0R,A=10,OENA,D=1 ,RAM,LDLM> 

MWORD  <C0NT,MGC=16,SD0,0R,D=2,B=11,RAM,RDLM> 

MWORD  <CJP.J=2074,SA8,X0R,A=10,B=11 ,D=1 ,CENA,CCFZ> 

MWORD  <JMAP,J=160,SD0,SKCN,MGC=16,OR,B=12,D=2> 

MWORD  <CONT,MGC=17,S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=17,SD0,OR,D=2,B=11,RAM,RDLM> 

MWORD  <CJP, J=2100, SAB, XOR,A=10, 8=11 ,D=1 ,CENA.CCFZ> 

MWORD  <JMAP,J=16O,SD0,SKCN,MGC=17,OR,B=12,D=2> 

MWORD  <CONT,MGC=20,S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=20,SD0,OR,D=2,e=11,RAM,RDLM> 

MWORD  <CJP, J=2104, SAB, X0R,A=10, 8=11 ,D=1 ,CENA,CCFZ> 

MWORD  <JMAP,J=160,SDO,SKCN,MGC=20,OR,B=12,D=2> 

MWORD  <C0NT,MGC=21 ,S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 


2054  -  13 
2055 
2056 
2057 

2060  -  14 
2061 
2062 
2063 

2064  -  15 
2065 
2066 
2067 

2070  -  16 
2071 
2072 
2073 

2074  -  17 
2075 
2076 
2077 

2100  -  20 
2101 
2102 
2103 

;   2104  -  21 


"1 
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ilO 
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SEQ  1523 


6A17 

6A18 

641 9 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 


010134' 
010135" 
010136' 
010137' 
010140' 
010141' 
010142' 

010143' 
010144' 
010145' 
010146' 
010147' 
010150' 
010151' 
010152' 

010153' 
010154' 
010155' 
010156' 
010157' 
010160' 
010161' 
010162' 

010163' 
010164' 
010165' 
010166' 
010167' 
010170' 
010171' 
010172' 

010173' 
010174' 
010175' 
010176' 
010177' 
010200' 
010201' 
010202' 

010205' 
0(0204' 
010205' 
010206' 
010207' 
010210' 
010211' 
010212' 

010213' 
010214' 


431300 
210500 
732204 
210621 
161504 
210701 
732005 

211000 
431300 
211100 
732204 
211221 
161504 
211301 
732005 

211400 
431300 
21150C 
732204 
211621 
161504 
211701 
732005 

212000 
431300 
212100 
732204 
2 1^221 
161504 
212301 
732003 

212400 
431300 
212500 
732204 
212621 
161504 
212701 
732005 

213000 
431300 
213100 
732204 
213221 
161504 
213301 
732005 

213400 
431300 


230340 
000021 
620340 
100000 
420060 
600021 
240040 

002022 
230340 
000022 
620340 
140000 
420060 
600022 
240040 

002023 
230340 
000023 
620340 
200000 
420060 
600023 
240040 

002024 
230340 
000024 
620340 
240000 
420060 
600024 
240040 

002025 
230340 
000025 
620340 
300000 
420060 
600025 
240040 

002026 
230340 
000026 
620340 
340000 
420060 
600026 
240040 

002027 
230340 


MWORD  <CONT,MGC=21,SD0,OR,D=2,B=11,RAM,RDLM> 

MUORD  <CJP,J=2110,SAB,X0R.A=10,B=11,D=1,CENA,CCFZ> 

MUORD  .  <JMAP.J=16O,SD0,SKCN,M6C=21,OR,B=12,D=2> 

MWORD  <CONT,MGC=22,S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 

MUORD  <CONT,MGC=22,SD0,OR,D=2,B=11,RAM,RDLM> 

MUORD  <CJP,J=2114,SAB,XOR,A=10,B=11,D=1,CENA,CCFZ> 

MUORD  <JMAP,J=160.SD0,SKCN,MGC=22,OR,B=12,D=2> 

MUORD  <CONT,M6C=23,S0A,OR,A=10.OENA,D=1 ,RAM,LDLM> 

MUORD  <CONT,MGC=23.SD0.OR,D=2,B=11,RAM,RDLM> 

MWORD  <CJP,J=2120,SAB,X0R,A=10.B=11,D=1,CENA.CCFZ> 

MUORD  <JMAP,J=160,SD0.SKCN,MGC=23,OR.B=12,D=2> 

MUORD  <CONT,MGC=24,S0A,OR,A=10,OENA,D=1 ,RAM.LDLM> 

MUORD  <CONT,MGC=24,SD0,OR,D=2,8=11,RAM,RDLM> 

MUORD  <CJP,J=2124,SAB,X0R,A=10,B=11,D=1,CENA,CCFZ> 

MUORD  <JMAP,J=160,SD0,SKCN,M6C=24,OR,B=12,D=2> 

MUORD  <CONT,MGC=25,S0A,OR,A=10,OENA,D=1 ,RAM.LDLM> 

MUORD  <CONT,MGC=25,SD0,OR,D=2,B=11.RAM,RDLM> 

MUORD  <CJP,J=2130.SAB.XOR,A=10,8=11 .D=1 ,CENA,CCFZ> 

MUORD  <JMAP,J=160.SD0,SKCN,MGC=25.OR.B=12.D=2> 

MUORD  <CONT.MGC=26,S0A,OR,A=10.0ENA,D=1 ,RAM,LDLM> 

MUORD  <C0NT.MGC=26,oD0.0R,D=2.8=11,RAM,RDLM> 

MUORD  <CJP,J=2134,;^AB,XOR,A=10,B=11,D=1,CENA,CCFZ> 

MUORD  <JMAP,J=16J,SD0,SKCN,MGC=26,OR.3=12,D=2> 

MWORD  <CONT.MGC=27,S0A,OR,A=10.OENA.D^1 ,RAM,LDLM> 


2105 

2106 

2107 

2110  - 

22 

2111 

2112 

2113 

■  2114  - 

21 

■  2115 

;  2116 

;  2117 

;  2120  - 

24 

;  2121 

;  2122 

;  2123 

;  2124  - 

25 

;  2125 

;  2126 

;  2127 

;  2130  - 

26 

;  2131 

;  2132 

;  2133 

;  2134  - 

27 
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SEQ  1524 


6472 

6473 

6474 

6475 

6476 

6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6'21 

6.22 

6523 

6524 

6525 

6526 


010215' 
010216" 
010217' 
010220' 
010221' 
010222' 

010223' 
010224' 
010225' 
010226' 
010227' 
010230' 
010231' 
010232' 

010233' 
010234' 
010235' 
010236' 
010237' 
010240' 
010241' 
010242' 

010243' 
010244' 
010245' 
010246' 
010247' 
010250' 
010251' 
010252' 

010253' 
010254' 
010255' 
010256' 
010257' 
010260' 
010261* 
010262' 

010263' 
010264' 
010265' 
010266' 
010267' 
010270' 
010271' 
010272' 


213500 
732204 
213621 
161504 
213701 
732005 

214000 
431300 
214100 
732204 
214221 
161504 
214301 
732005 

214400 
431300 
214500 
732204 
214621 
161504 
214701 
732005 

215000 
431300 
215100 
732204 
215221 
10 '504 
215301 
732005 

215400 
431300 
215:,"00 
732204 
215621 
161504 
215^01 
732005 

216000 
431300 
216100 
732204 
216221 
161504 
216301 
732005 


010273*  216400 
010274*  431300 
010275*  216500 


000027 
620340 
400000 
420060 
600027 
240040 

002030 
230340 
000030 
620340 
440000 
420060 
600030 
240040 

002031 
230340 
000031 
620340 
500000 
420060 
600031 
240040 

002032 
230340 
000032 
620340 
540000 
420060 
600032 
240040 

002033 
230340 
000033 
620340 
600000 
420060 
600033 
240040 

002034 
230340 
000034 
620540 
640000 
420060 
600034 
2400-^0 

002035 
230340 
000035 


HWORD  <CONT,MGC=27,SD0,OR,D=2,8=11,RAM,RDLM> 

MUORD  <CJP,J=2140, SAB, XOR,A=10, 8=11, D=1,CENA,CCFZ> 

MWORD  <JMAP,J=160,SD0,SKCN.MGC=27,OR,B=12,D=2> 

MUORD  <CONT,MGC=3C,S0A,OR,A=10.OENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=3O.SD0,OR.D=2.B=11,RAM,RDLM> 

MWORD  <CJP,J=2144,SAB,XOR,A-10,B=11,D=1,CENA,CCFZ> 

MWORD  <JMAP,J=16O,SD0,SKCN,MGC=30,OR,B=12,D=2> 

MWORD  <CONT,MGC=31,S0A,OR,A=10,OENA,D=1,RAM,Ll>LM> 

MWORD  <CONT.MGC=31,SD0,OR,D=2,B=11,RAM,RDLM> 

MWORD  <CJP,J=2150, SAB, XOR,A=10, 8=11, D=1,CENA,CCFZ> 

MWORD  <JMAP, J=160,SD0,SKCN,MGC=31 ,0R,B=12,D=2> 

MWORD  <CONT,MGC=32,S0A,OR,A=10,OENA,D=1 .RAM,LDLr1> 

MWORD  <CONT,MGC=32,SD0,OR,D=2,8=11,RAM,RDLM> 

MWORD  <CJP,J=2154, SAB, XOR,A=10, 8=11, D=1,CENA,CCFZ> 

MWORD  <JHAP,J=160,SDO,SKCN,MGC=32,OR,B=12,D=2> 

MWORD  <rONT.MGC=33,S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=33,SD0,OR,D=2,B=11,RAM,RDLM> 

MWOPl'  '"JP,J=2160, SAB, XOR,A=10, 8=11, D=1,CENA,CCFZ> 

MWO-'f^  <JMAP,J  =  16O,SD0,SKCN,MGC=33,OR,8=12,D=2> 

MWORD  <CONT,MGC=34,S0A,OR,A=10,OENm,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=34,SDO,OR.D=2,B=11,RAM,RDLM> 

mORi)  <CJP, J=2164, SAB, XOR,A=10, 8=11  ,D=1  ,CENA,CCFZ> 

MWORD  <JMAP.J=160,SD0,SKCN,MGC=34,OR,B=12,D=2> 

MWORD  <CONT.MGC=35.S0A,OR,A=10,OENA,D=1 ,RAM,LDLM> 

MWORD  <CONT,MGC=35,SD0.OR,D=2.B=11,RAM,RDLM> 


-  30 


-  31 


-  32 


2135 
2136 
2137 

2140 
2141 
2142 
2143 

2144 
2145 
2146 
2147 

2150 
2151 
2152 
2153 

2154 
2155 
2156 
2157 

2160 
2161 
2162 
2163 

;  2164  -  35 
;  2165 


-  33 


-  34 


..-.- J 


I 


•k f>  ^«  ft  n 


kAft  ^t\^    tt^'9r^/4'^/'^\     f\f\  .  •%  n       i^i..i_OC    n«.^    Q1_11 


L- 


DFPTA8 
0FPTA8 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

653A 

6535 

6536 

6537 

6538 

6539 

65A0 

65A1 

65A2 

65A3 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 
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010276'  732204 

010277'  216621 

010300'  161504 

010301'  216701 

010302'  732005 


010303' 
010304' 
010305' 
010306' 
010307' 
010310' 
010311' 
010312' 

010313' 
010314' 
010315' 
010316' 
010317' 
010320' 
010321' 
010322' 


217000 
431300 
217100 
732204 
217221 
161504 
217301 
732005 

217400 
431300 
217500 
732204 
217622 
161504 
217701 
732005 


620340 
700000 
420060 
600035 
240040 

002036 
230340 
000036 
620340 
740000 
420060 
600036 
240040 

002037 
230340 
000037 
620340 
000000 
420060 
600037 
240040 


010323'  220000  000000 
010324'  000000  000240 

010325*  mm  mm 


-Jul-85  Page  91-11 

HPROC  Module  Tests 


SEQ  1525 


HUORD  <CJP.J=2170  ^AB,XOR,A:::10,B=11,D=1  ,CENA,CCFZ>  ;  2166 

MWORD  <JMAP.J  =  160,i.D0,SKCN,MGC=35,OR,B=12.D=2>  ;  2167 

MWORD  <CONT.MGC=36,S0A,OR,A=10,OENA,D=1,RAM,LDLM>  ;  2170  -  36 

MWORD  <CONT,MGC=36,SD0,OR.D=2,B=11,RAM,RDLM>  ;  2171 

MWORD  <CJP,J=2174,SAB,XOR,A=10,B=11,D=1,CENA.CCFZ>  ;  2172 

MWORD  <JMAP,J=160,SD0,SKCN,MGC=36.OR.B=12.D=2>  ;  2173 

MWORD  <CONT,MGC=37,S0A.OR,A=10.OENA,D=1,RAM,LDLM^  ;  2174  -  37 

MWORD  <CONT.MGC=37,SD0,OR,D=2,B=11,RAM.RDLM>  ;  2175 

MWORD  <CJP,J=2200,SAB.XOR,A=10.B=11.D=1.CENA,CCFZ>  ;  2176 

MWORD  <JMAP,J=160,SD0.SKCN.MGC=37,0R.B=12,D=2>  ;  2177 

MWORD  <CRTN>  ;  2200 
-1 


J 


513 


DFPTA8 
0FPTA8 

655A 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

656A 

6565 

6566 

6567 

6568 

6569 

6570 

6571 

6572 

6573 

657A 

6575 

6576 

6577 

6578 

6579 

6580 

6581 

6582 

6583 

658A 

6585 

6586 

6587 

6588 

6589 

6590 

6591 

6592 

6593 

6594 

6595 

6596 
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SEO  1526 


010326'  254  00  0  00  010334' 

010327'  200403  000036 

010330*  000000  013073' 

010331'  013100'  013102' 

010332'  OOnOOO  010521' 

010333'  7? '777  117111 


010334'  201  00  0  00  000000' 
010335'  260  17  0  00  007147* 


010336'  400  15  0  00  000000 

010337'  260  17  0  00  007154* 

010340'  402  00  0  00  007155* 

010341'  201  06  0  00  010353* 


;#********************** *t********* *********************************** 

;*  TEST  36  -  Local  Store  Address  Test 

;  Description:  This  test  writes  an  address  pattern  to  each  local 
;  storage  word,  and  reads  it  back  and  verifies  the 

;  data  read. 

;  Procedure:    Port  Clear 

;  Load  microcode  to  write  address  pattern  to  each 

;  local  storage  address 

;  Start  up  microcode  (this  writes  each  address) 

;  Stop  microcode 

« 

;  Set  start  address 

;  Single  step  2  times 

;  Read  EBUF  and  verify  data 

• 

;  Repeat  above  3  steps  for  addresses  0,1, ..1777 

;  Failure:     — 

; /If**************  *******************  *********************************** 


:  Test  data 
TSTU36 


10  start  test 


TSTU37 
-1 

Start  test 


JRST    TG36  ;  g 

MPROC iNDMPiZMPROC! 36         ;  test  mask 

0.,CASCIZ  *Local  Store  Address  Test*: 

CEXP  M14.MLAST!M15]..[EXP  M2,M13,MLAST1M11] 


T636: 


MOVE  I 
60 


28 
TRACE 


;  Initialisation 

TL36:   SETZ 
GO 

SETZM 
MOVE  I 


ERFLG, 
IPACLR 
TSTSU8 
6.TS36 


;  failure  test  table 


get  address  of  module  start 
handle  trace  output 


;  clear  error  flag 

;  clear  port 

;  initialize  subtest  number 

:  get  sstep  table  address 


_J 


I 


5U 
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SEQ  1527 


6597 

6598 

6599 

6600 

6601 

6602 

6603 

660A 

6605 

6606 

6607 

6608 

6609 

6610 

6611 

6612 

6613 

66K 

6615 

6616 

6617 

6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

663A 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 


010342'  260  17  0  00  007046* 
010343'  254  00  0  00  010352' 
010344'  254  00  0  00  010342' 


010345'  260  17  0  00  013106' 


010346'  027  00  0  00  010470' 

010347'  254  00  0  00  010336' 

010350'  254  00  0  00  010352' 

010351'  322  15  0  00  010342' 


010352'  263  17  0  00  000000 


010353' 
010354' 
010355' 
010356' 
010357' 
010360' 


300000 
400000 
100200 
000000 
500000 
Ou.WO 


010361' 
010362' 
010363' 
010364' 
010365' 
010366' 
010367' 
010370' 
010371' 
010372' 
010373' 
010374' 
010375' 
010376' 
010377' 
010400' 
010401' 


316 
476 
316 
476 
201 
260 
255 
402 
260 
120 
124 
350 
260 
120 
124 
261 
476 


16 
00 
16 
00 
01 
17 
00 
00 
17 
00 
00 
00 
17 
00 
00 
17 
00 


010361' 

010457' 

002000 

000000 

010354' 

000000 


0  00  007103* 
0  00  007104* 
0  00  007105* 
0  00  007106* 
0  00  010503' 
0  00  007151* 
0  00  000000 
0  00  001033* 
0  00  000000* 
0  00  001037* 
0  00  010453' 
0  00  010370* 
0  00  010371* 
0  00  010372* 
0  00  010455' 
0  00  001044* 
0  00  010400* 


;  Loop  on  singi 

.e  step 

table  entries 

TA36:   60 

BEXEC 

JRST 

TX:6 

JRST 

TA36 

GO 

[MOVE 

AEBUF 

AND 

[777400, J  777] 

CAME 

CEBUF 

SETO 

ERFLG. 

RTN3 

;  Handle  error 

printouts  and  scope  loo 

SCOPE 

MA36 

JRST 

TL36 

JRST 

TX36 

JUMPE 

ERFLG. 

TA36 

;  End  of  test 

TX36:   RTN 

;  Sstep  table,  with  EBUF  data,  as: 

TS36:   ATABLE  (SSCALL,TS36LD) 

TS36L:  ATABLE  (SSCHK,TS36ST) 

ATABLE  (SSSTRT, 2, 0,2000,0) 

ATABLE  (SSJRSTJS36L) 

ATABLE  (SSLAST) 


execute  table  entry 

end  of  sstep  table 

keep  looping  after  call 

EBUF  data  may  be  incorrect  -  do 
compare  after  masking  out  the 
middle  16  indeterminate  bits 

incorrect  -  set  error  flag 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  return 

(CMD,#Steps, Start  addr,End  Addr,EBUF  data) 

;  load  microcode/init  test  paramters 

;  set  up  single  step  parameters 

;  do  3  single  steps/check  results 

;  do  next  address 

;  end  of  table 


;  Special  routine  -  load  microcode  to  write  address  pattern  to  local  storage 
TS36LD 


CAMN 
SETOM 
CAMN 
SETOM 
MOVE  I 
CO 
JFCL 
SETZM 
GO 

DMOVE 
DMOVEM 
AOS 
GO 

DMOVE 
DMOVEM 
PUT 
SETOM 


MBCN,PORTNI 

TSL0D1 

MBCN,PORTCI 

TSL0D2 

1.T36MA 

TLOAD 

CADDR 

DRCRAM 

CUORDL 

TS36W0 

CADDR 

DRCRAM 

CWORDL 

TS36W1 

PARFLG 

PARFLG 


HI   port? 

yes  -  must  reload  microcode  each  time 

CI  port? 

yes  -  must  reload  microcode  each  time 

?et  address  of  ucode 
oad  it 

error  -  ignore 
clear  CRAM  address 
read  CRAM  location 
get  CRAM  data 
save  this  word 
point  to  next  address 
read  CRAM  location 
get  CRAM  data 
save  this  word 
save  state  of  parity  flag 
ensure  it  is  iet 


.J 


.._J 


„J 


515 
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SEQ  1528 


6648 

66A9 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 

6661 

6662 

6663 

6664 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 

6681 

6682 

6683 

6684 

6685 

6686 

6687 

6688 

6689 

6690 

6691 


010402* 
010403* 
010404* 
010405* 
010406* 
010407* 
010410* 
010411' 
010412' 
010413* 
010414' 
010415' 
010416' 
010417' 


010420* 
010421* 
010422' 
010423* 
010424' 
010425' 
010426' 
010427' 
010430* 


350 
303 
254 
120 
124 
242 
137 
260 
120 
124 
137 
350 
260 
254 


02 
02 
00 
00 
00 
02 
02 
17 
00 
00 
02 
00 
17 
00 


201  01 
242  01 
260  17 
201  01 
260  17 
201  00 
260  17 
4uJ  01 
260  17 


010431* 
010432* 
010433* 
010434* 
010435* 
010436* 
010437' 
0104^'^' 
01  Ot.. 


316  16 
476  00 
316  16 


00 
00 


0  00 


476  00  0 


201  01 
260  17 
255  00 
402  00 
260  17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


010374* 

003777 

010420' 

010453' 

010376* 

777777 

013113* 

001043* 

010455* 

010406* 

013113* 

010402* 

010411* 

010402* 


00  004001 
00  000001 
00  007175* 
00  000010 
00  007201* 
00  000100 
00  000000* 
00  000000 
00  010424* 


00 
00 
00 
00 
00 
00 
00 
00 
00 


010361* 

010362* 

010363* 

010364* 

010514' 

010366* 

000000 

010415* 

010375* 


Now  load  CRAM  locations  2-3777  while  inserting  the  local  storage 
address  in  the  magic  number  field. 


TS36L0:  AOS  2,CADDR 

CAILE  2,3777 

JRST  TS36L1 

DMOVE  TS36W0 

DMOVEM  CWORDL 

LSH  2,-1 

OPB  2, [POINT  10, CWORDL, 29] 

GO  DUCRAM 

DMOVE  TS36U1 

DMOVEM  CWORDL 

DPB  2, [POINT  10, CWORDL, 29] 

AOS  CADDR 

GO  DWCRAM 

JRST  TS36L0 


point  to  next  address 

done  yet? 

yes  -  do  next  part 

get  first  word 

save  it 

make  1-1777 

save  M6C  tt 

write  to  CRAM 

get  second  word 

save  it 

save  M6C  # 

point  to  next  address 

write  to  CRAM 

loop  till  done 


Now  the  first  4001  location  are  set  up  to  write  address  pattern 
to  local  storage  locations  0-1023  (decimal).  Now  start  up  the 
port  to  accomplish  this. 


TS36L1:  MOVE I 
LSH 
GO 

MOVE  I 
GO 

MOVE  I 
60 
SETZ 
GO 


1,4001 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

100 

ODELAY 

1, 

LDCSR 


get  address  to  start  up 
position  properly 
write  to  RAR  register 
get  CSR  start  data 
start  up  the  port 
set  up  to  wait  for  100 
for  this  to  complete 
clear  CSR  data 
stop  the  port 


at 


ms 


Now  load  the  CRAM  with  instructions  to  read  each  location 


CAMN 
SETOM 
CAMN 
SETOH 
MOVE  I 
GO 
JFCL 
SETZM 
60 


MBCN,PORTNI 

TSL0D1 

M8CN,P0RTCI 

TSL0D2 

1,T36MB 

TLOAD 

CADDR 
DRCRAM 


NI  port? 

yes   nust  reload  microcode  each  time 

n  (-  c? 

yes  -  must  reload  microcode  each  time 

get  address  of  ucode 

load  it 

error  -  ignore 

clear  CRAM  address 

read  CRAM  location 


L- 


1516 
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SEQ  1529 


6692 

6693 

669A 

6695 

6696 

6697 

6698 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 


010442' 
010443' 
010444' 
010445' 
010446' 
010447' 


350 
303 
254 
137 
260 
254 


01 
01 
00 
01 
17 
00 


00 
00 
00 
00 
00 
00 


010440* 

001777 

010450' 

013113' 

010416* 

010442' 


010450'  474  07  0  00  000000 
010451'  262  17  0  00  010401* 
010452'  263  17  0  00  000000 


010453' 
010455' 


010457' 
010460' 
010461' 
010462' 
010463' 
010464' 
010465' 
010466' 
010467' 


350  00  0 
202  07  0 


137  07 
307  07 
350  00 
137  07 
200  00 
20?  00 
2o<  17 


00 
00 
00 
00 
17 
00 
00 
00 
00 


000007 

011165' 

013114' 

001777 

000000 

013115' 

011165' 

010356' 

000000 


010470'  260000  010472' 
010471'  000000000000* 


010472' 
010473' 
010474' 
010475' 
010476' 
010477' 
010500' 
010501' 
010502' 


200  01 
607  01 
037  00 
037  00 
200  00 
037  04 
607  01 
037  00 
263  17 


00 
00 
00 


0  00 


00 
00 
00 
00 
00 


00/221* 

000200 

013116' 

013132' 

011165' 

000000 

000200 

013135' 

000000 


;  Now  load  CRAW  locations  1-1777  while  inserting  the  local  storage 
;  address  in  the  magic  number  field. 


TS36L2:  AOS 
CAILE 
JRST 
DPS 
60 
JRST 

TS36L3:  SETO 
GET 
RTN 


1,CADDR 

1,1777 

TS36L3 

1,CP0INT  10,CUORDL,29: 

DWCRAM 

TS36L2 

7, 
PARFLG 


Miscellaneous  data 


TS36W0:  BLOCK   2 
TS36W1:  BLOCK   2 


point  to  next  address 
done  yet? 
yes  -  exit 
save  MGC  # 
write  to  CRAM 
loop  till  done 

initialize  start  address 
restore  state  of  parity  flag 
return 


1st  microword 
2nd  microword 


;  Special  routine 
TS36ST 


-  set  up  for  next  local  storage  address 


AOS 

MOVEM 

DPS 

CAIG 

AOS 

DP8 

MOVE 

MOVEM 

RTN 


7,SAVDAT 

7. [POINT 

7M77 

(P) 

7, [POINT 

SAVDAT 

TS36L+2 


10, SAVDAT. 9] 


12,TS36L+1,23] 


;  Error  messages 

MA36:   CALL!TXALL1MA36PN 

LAST! CALL !TXALL!BBPNT 


point  to  next  address 

save  address  for  error  printout 

insert  address  into  left  10  bits 

done  yet? 

no  -  set  up  RTN+2 

set  up  single  step  start  address 

set  up  correct  EBUF  data  (LS  addr 

in  each  side  of  word) 
return 


print  data 

print  sequencer  data 


MA36PN:  MOVE 
TLNN 
TMSGC 
TMSGC 
MOVE 
PNT4 
TLNN 
TMSG 
RTN 


jet  switches 


DFP 
DFP" 

7; 

7; 
7: 
7; 

7 
7 
7 
NO  I 

PROi 
CPU 

229 


1'SCOSW  ;  q«   .  ^.^. 

1,TXTINH  ;  text  inhibit  switch  set? 

<Urote  address  patterns  to  each  local  storage  location. > 

<Error  at  > 

SAVDAT#  ;  get  address 

;  print  it 
1,TXTINH  ;  text  inhibit  switch  set? 

<  (Result  in  EBUF  -  middle  16  bits  indeterminate)> 


r 


1517 


DFPTA8 
DFPTA8 

6738 

6739 

67A0 

67A1 

67A2 

67A3 

67AA 

67A5 

67A6 

67A7 

6748 

67A9 

6750 

6751 

6752 

6753 

675A 

6755 

6756 

6757 
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010503* 
010504' 
010505* 
010506* 
010507* 
010510* 
010511* 
010512* 
010513* 


OQOOOO 
732000 
0001 00 
431000 
400040 
000000 
400100 
000000 

mm 


010514*  000020 

010515*  732000 

010516*  200020 

010517*  431000 

010520'  mm 


OOOQOO 
240340 

wm 

0' 
4 

QOQOOO 
000000 

mm 


000000 
220040 
002004 
005040 

mm 


l-Jul-85  Page  96 

HPROC  Module  Tests 

;  Microcode  to  write  address  pattern  to  each  local,  storage  address 
T36MA:  MWORD   <ADDR=0,CONT.SDO.OR,D=2.SKCN.MGC=0>     ;  0-3777 
<CONT,SOA,OR.D=1.0ENA,LDLM,MGC=0> 
<ADDR=4000JMAP.J=4000>  ;  4000 

<JZ>  ;  4001 


SEQ  1530 


MUORD 
MUORD 
MUORD 
-1 


;  Microcode  to  read  each  local  storage  address  and  place  data  in  E8UF 
T36HB:  MWORD   <ADDR=O,JM,AP.J=2000,SD0.OR,D=2.RDLM,M6C=0>        ;  0-1777 

MWORD   <ADDR=2000.JMAP,J=2000.S0A,OR,D=1.OENA,SELE,M6C=4>  ;  2000 

-1 


1518 
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SEQ  1531 


6758 

6759 

6760 

6761 

6762 

6763 

676A 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

677A 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

678A 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

679A 

6795 

6796 

6797 

6798 

6799 

6800 

6801 

6802 

6803 


010521 • 
010522* 
010523' 
01052A' 
010525' 


010526' 
010527' 
010530' 
010531' 
010532' 


254  00  0  00  010526' 
200A03  000037 
010560'  013U7' 
013155'  013102' 
7 1  nn     777777 


#***»♦*♦*•*»**********♦♦♦******************************♦************* 
*  TEST  37  -  Local  Store  RAM  Mode  Test 

Description:  Data  is  written  and  verified  to  two  local  storage 
locations  alternating  between  using  the  RAM  mode 
bit  and  not. 

Procedure:    Port  Clear 

Load  test  microcode 

Set  start  address  0  „    , . 

Single  step  5  times  -  write  O's  to  LS  0  and  1's 

to  LS  1740  (RAM  mode  bit  not  set),  then  read 

LS  0  (with  RAM  mode  bit  set)  and  put  data  in 

EBUF 
Read  EBUF  and  verify  data  I's 
Single  step  3  times  -  read  LS  0  (RAM  mode  bit 

not  set),  then  read  LS  1740  (with  RAM  mode  bit 

set)  and  put  data  in  EBUF 
Read  EBUF  and  verify  data  O's 

Failure:     — 
f* ******************************************************************* 

Test  data 

TSTU37:  JRST    T637  ;  go  start  test 

MPROC !NDMP!ZMPR0C 137  ;  test  mask 

T37M,,[ASCIZ  -^Local  Store  RAM  Mode  Test*] 
[EXP  M15,MLAST!M14].,[EXP  M2.M13.MLAST1M11] 
-1  ;  failure  test  table 


201 
260 
201 
260 
263 


010533'  400 

010534'  260 

010535'  402 

010536'  201 


00 
17 
01 
17 
17 


15 
17 
00 
06 


00 
00 
00 
00 
00 


000000' 
010335* 
010560' 
010436* 
000000 


00  000000 
00  010337* 
00  010340* 
00  010550' 


;  Start  test 

TG37:   MOVE  I  Z8 

GO  TRACE 

MOVE  I  1.T37M 

GO  TLOAD 
RTN 

;  Initialization 

TL37:   SETZ  ERFLG, 

GO  IPACLR 

SETZM  TSTSU8 

MOVEI  6,TS37 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  address 


r 


r" 


DFPTA8 
DFPTA8 

680A 

6805 

6806 

6807 

6808 

6809 

6810 

6811 

6812 

6813 

68U 

6815 

6816 

6817 

6818 

6819 

6820 

6821 

6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

683A 

6835 
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SEQ  1532 


010537'  260  17  0  00  0103A2* 

0105A0'  254  00  0  00  010547* 

010541'  254  GO  0  00  010537' 

010542'  474  15  0  00  000000 


010543'  027  00  0  00  010555' 

010544'  254  00  0  00  010533' 

010545'  254  00  0  00  010547' 

010546'  322  15  0  00  010537' 


010547'  263  17  0  00  000000 


010550'  100600  000006 

010551'  mm  mm 

010552'  100400  060012 

010553'  000000  000000 

010554'  000000  000000 


010555'  140000  013157' 
010556'  iH.^000  013173* 
010557'  000000000000* 


;  Loop  on  single  step  table  entries 


TA37: 


GO 

JRST 
JRST 
SETO 


BEXEC 
TX37 
TA37 
ERFLG, 


execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  -  tSUF  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA37 
TL37 
TX37 
ERFLG,TA37 


;  End  of  test 

TX37:   RTN 

;  Sstep  table,  with  EBUF  data,  as: 

TS37:   ATABLE   (SSSTRT,6,0.6,-1 ) 

ATABLE   (SSSTRT.4.6,12,0) 

ATABLE   (SSLAST) 
;  Error  messages 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  return 
(CMD.fSteps. Start  addr.End  Addr,EBUF  data) 
;  do  6  single  steps/check  results 
;  do  4  single  steps/check  results 
;  end  of  table 


HA37:   MSG!TXNOT![ASCIZ  /RAM  Mode  bit  failed  -  wrong  local  storage  location  read./] 
MS61TXN0T:CASCIZ  /Result  in  EBUF./] 


LAST! CALL ITXALLIBBPNT 


print  sequencer  data 


r" 


1520 


DFPTA8 
DFPTA8 

6836 

6837 

6838 

6839 

68A0 

6841 

68A2 

68A3 

68A4 

6845 

6846 

6847 

6848 

6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 

6858 

6859 

6860 

6861 

6862 

6863 

6864 

6865 

6866 

6867 

6868 

6869 
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010560' 
010561' 
010562' 
010563' 
010564' 
010565' 
010566' 
010567' 


000000 
442000 
000100 
431000 
000200 
441000 
000300 
471000 


010570'  000400 

010571'  732200 

010572'  000500 

010573'  431000 


010574' 
010575' 
010576' 
010577' 
010600' 
010601' 
010602' 
010603' 
010604' 
010605' 
010606* 


000600 
441000 
000700 
702000 
001000 
702200 
001100 
4u'000 
001200 
000000 

mm 


010000 
200040 
002000 
230340 
001740 
200340 
003740 
230340 


000000 
220340 
002004 
005340 


070000 
200040 
000000 
220340 
001740 
220340 
002004 
005340 
120000 
000040 

mm 


;  Microcode: 

Write  O's  to  LS  0,  1's  to  LS  1740 

T37M:   MUORD   <ADDR=0. JMAP,J=1 ,S0A.AND.D=2.LSAD.MGC=0> 
MUORD   <C0NT,S0A,0R.D=1 ,0ENA.LDLM> 
HWORD   <C0NT.S0A,AND.D=1.LSAD.M6C=1740> 
MUORD   <CONT,SOA,XNOR,D=1,OENA,M6C=1740,LDLM> 

;      Read  LS  0  and  verify  result 

MUORD   <CONT.SD0.OR.D=2,RAM.RDLM.MGC=0> 
MUORD   <CONT,S0A,OR,D=1 ,0ENA.M6C=4.SELE> 

Read  LS  0,  then  LS  1740,  and  verify  result 
MUORD   <JMAP, J=7.S0A,AND,D=1 .LSAD,M6C=0> 
<CONT,SD0.D=2,MGC=0.RDLM> 
<CONT,SD0,D=2,MGC=1740,RAM.RDLM> 
<C0NT,S0A.D=1.0ENA,MGC=4,SELE> 
<JMAP.J=12> 


MUORD 
MUORD 
MUORD 
MUORD 
-1 


0 

1 

2 
3 

;  4 
;  5 


6 

7 

10 

11 

12 


SEQ  1533 


I  1521 
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SEQ  1534 


6870 

6871 

6872 

6873 

687A 

6875 

6876 

6877 

6878 

6879 

6880 

6881 

6882 

6883 

6884 

6885 

6886 

6887 

6888 

6889 

6890 

6891 

6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 


010607'  254  00  0  00  010614' 

010610'  210403  000040 

010611'  010656'  013177' 

010612*  013202'  013003' 

010613'  linn     777777 


010614' 
010615' 
010616' 
010617' 
010620' 


201 
260 
201 
260 
263 


010621'  400 

010622'  260 

010623'  402 

010624'  201 


00 
17 
01 
17 
17 


15 
17 
00 
06 


00 
00 
00 
00 
00 


000000' 
010527* 
010656' 
010531* 
000000 


00  000000 
00  010534* 
00  010535* 
00  010636' 


010625'  260  17  0  00  000000* 

010626'  254  00  0  00  010635' 

0106^7'  254  00  0  00  010625' 

010630'  474  15  0  00  000000 


f**«»***«***** *********************************************** ******** 
*  Test  40  -  Jump  Mux  Test 

Description;  Verify  that  the  JMP  MUX  can  select  the  low  order 
8  bits  from  the  data  on  the  M8US  rather  than  the 
jump  field  of  the  microword. 

Procedure:    Clear  Port 

Load  test  microcode 

Set  start  address  =  0 

Single  step  once  to  initialize  RO 

Set  start  address  =  1 

Single  step  once  to  select  next  address 

Read  LAR  and  verify  address 

Repeat  the  above  3  steps  255  times  for  MBUS  field 
2  to  254. 

Failure:     JMP  MUX  not  selected  properly 

4f******************************************************************** 

Test  data 


TSTU40:   JRST         TG40 

MPROC !  .MBUS !  NDMP !  ZMPROC !  40 
T40M.,[ASCIZ  "Jump  MUX  Test*] 
[EXP  MLAST!M5],,CEXP  MLASTIMIU 

-1 


;  Start  test 

TG40:   MOVE I 
GO 

MOVE  I 
GO 
RTN 

;  Initialization 

TL40:   SET2 
GO 

SETZM 
MOVE  I 


Z8 

TRACE 
1,T40M 
TLOAD 


ERFLG, 
IPACLR 
TSTSUB 
6.TS40 


;  Loop  on  single  step  table  entries 
TA40: 


GO 

JRST 
JRST 
SETO 


SEXEC 
rX40 
TA40 
ERFLG, 


0  start  test 
est  mask 


failure  test  table 


get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  sstep  table  address 


execute  table  entry 
end  of  sstep  "able 
keep  looping  after  call 
error  -  end  address  incorrect 


522 


DFPTA8 
0FPTA8 

6923 
692A 
6925 
6926 
6927 
6928 
6929 
6930 
6931 
6932 
6933 
693A 
6935 
6936 
6937 
6938 
6939 
6940 
6941 
69A2 
69A3 
6944 
6945 
6946 
6947 
6948 
6949 
6950 
6951 
6952 
6953 
6954 
6955 
6956 
6957 
6958 
6959 
6960 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6968 
6969 
6970 
6971 
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SEQ  1535 


;  Handle  error  printouts  and  scope  looping 


010631'  027  00  0 

010632"  254  00  0 

010633'  254  00  0 

010634'  322  15  0 


00  010654' 
00  010621' 
00  010635' 
00  010625' 


010635'  263  17  0  00  000000 


SCORER 
JRST 
JRST 
JUMPE 

;  End  of  test 

TX40:   RTN 


MA40 
TL40 
TX40 
ERFLG,TA40 


;  print  error  message 

;  loop  on  error 

;  altmode  exit 

;  do  next  entry  (if  no  error  yet) 


return 


Single  step  table,  as:  (CMD,#Steps, Start  addr,End  Addr) 


010636' 
010637' 
010640' 
010641' 
010642' 
010643' 


300000 
101700 
400000 
100100 
500000 
000000 


010644' 

000004 

010647' 

040000 

010640' 

000000 


TS40:   STABLE  (SSCALL,TS40IN) 

STABLE  (SSSTRT,*D15,0,4) 

TS40A:  STABLE  (SSCHK,TS40CH) 

STABLE  (SSSTRT, 1,4-0) 

STABLE  (SSJRSTJS46A) 

STABLE  (SSLAST) 


010644'  402  00  0  00  013422' 

010645'  350  00  0  00  013422' 

010646'  263  17  0  00  000000 

010647'  350  01  0  00  013422' 

010650'  305  01  0  00  000377 

010651'  350  00  0  17  000000 

010652'  137  01  0  00  013203' 

010653'  263  17  0  00  000000 


010654'  140000  013204' 
010655'  000000000000* 


TS40IN:  SETZM 
AOS 
RTN 

TS40CH:  AOS 

CAIGE 
AOS 
DPB 
RTN 

;  Error  message 


SAVADD* 
SAVADD 


1.SAVADD 

1,^D255 

(P) 

1, [POINT  12,TS40A+1,35] 


ini't  end  address 
im't  2901  RO 
check  if  done  yet 
do  the  single  steps 
loop  till  done 


init  end  address 

return 

point  to  next  address 

done  yet? 

no  -  set  up  proper  return 

save  end  address 

return 


MA40:   MSGITXNOT.'CASCIZ  /JMP  MUX  not  selected  correctly/3 

LAST! CALL !TXALL!SSPNT         ;  print  sequencer  data 


Test  microcode 


010556' 
010657' 
010660' 
010661' 
010662' 
010663' 
010664' 
010665' 
010666' 
010667' 
010670' 


000000 
442000 
000100 
402000 
000200 
437000 
000300 
432000 
000403 
103010 

mm 


010000 
000040 
130000 
000700 
020000 
000220 
000000 
400340 

210040 

mm 


T40M: 


MUORD 
MUORD 
MWORD 
MUORD 
MUORD 
-1 


<ADDR=0, JMAP,J=1 ,S0A,AND,D=2> 

<LDCT,J=13,S0A.PLUS,D=2,CRY> 

<RPCT,J=2,S0A,0R,D=7> 

<C0NT,S0A,0R,B=1,D=2> 

<JMAP,J=377, SAB, PLUS. A=1,D=3,SKMB,0ENA> 


0 
1 
2 
3 
4 
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MAI? 


523 


0FPTA8 
DFPTA8 

6972 

6973 

697A 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

699A 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 

7003 

7004 

7005 

7006 

7007 

7008 

7009 

7010 

7011 

7012 

7013 

7014 

7015 

7016 

7017 

7018 

7019 

7020 

7021 
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SEQ  1536 


010671' 
010672' 
010673' 
010674' 
010675' 
010676' 


254  00  0  00  010677' 
200403  000041 
000000  013213' 
011324'  011324' 
000000000000* 
V^m    777777 


010677'  201  00  0  00  000000' 

010700'  260  17  0  00  010615* 

010701'  200  07  0  00  030022 

010702'  202  07  0  00  013421' 


010703'  402  00  0  00  010442* 
010704'  400  06  0  00  000000 
010705'  202  06  0  00  010623* 


010706'  400  15  0  00  000000 

010707'  260  17  0  00  011007' 

010710'  202  02  0  00  010413* 

010711'  202  03  0  00  001040* 


#******♦****************♦******************************************** 
*  TEST  41  -  CRAM  Control  Register  Parity  Gern>rators  Test 


Description: 


Procedure; 


Verify  the  parity  generators  which  verify  good 
parity  of  each  word  gated  out  of  the  CRAM  into 
the  CkAM  control  register. 

Port  Clear  .  , 

Load  CRAM  location  0  with  a  data  pattern,  with  good 

parity). 
Single  step  once  and  verify  that  a  CRAM  PE  does  not 

occur. 
Load  CRAM  location  0  with  the  same  data  pattern,  but 

with  bad  parity). 
Single  step  once  and  verify  that  a  CRAM  PE  does  occur. 

Repeat  for  each  data  pattern. 

Failure:     — 

/jf******************************************************************** 


Test  data 


10  start  test 


TSTU41:  JRST    TG41  ;  gc 

MPROC INDMPIZMPROC! 41  ;  test  mask 

0,,CASCIZ  *CRAM  Ctl  Reg  Parity  Generators  Test*] 
CEXP  MLAST!M12].,CEXP  RLAST!Ml2] 
TSTE45  ;  failure  test  table 

•  I  f  m  •  • 


get  address  of  module  start 
handle  trace  output 
get  base  number 
save  it 


;  Start  test 

TG41 :   MOVE I 
GO 
MOVE 
MOVEM 

Z8 

TRACE 
7,RANDBS 
7,0LDRAN# 

;  Initialization 

SETZM 
SETZ 
TL41 :   MOVFf^ 

CADDR 

6, 

6.ISTSUB 

;  Get  data  patt 

ern 

SETZ 
GO 

MOVEM 
MOVEM 

ERFLG, 
ThIRAN 
2,CW0RDL 
3,CU0RDR 

clear  CRAM  address 

initialize  data  pattern  number 

set  up  test  offset 


clear  error  flag 
get  random  data 
save  left  30  bits 
save  right  30  hits 
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524 
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SEQ  1537 


7022 

7023 

702A 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

703A 

7035 

7036 

7037 

7038 

7039 

70A0 

70A1 

70A2 

70A3 

70AA 

704  5 

70A6 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

7064 

7065 

7066 

7067 

7068 

7069 

7070 

7071 

7072 

7073 


O',0712' 
010713' 
010714' 
010715' 
010716' 
010717' 
010720' 
010721' 
010722' 
010723' 
010724' 
010725' 
010726' 
010727' 
010730' 
010731' 
010732' 
010733' 
010734' 
010735' 
010736' 
010737' 
01074C' 


010741' 
010742' 
010743' 
010744' 
010745' 
010746' 
010747' 
010750' 
010751' 
010752' 
010753' 
010754' 
010755' 
010756' 
010757' 
010760' 
010761' 
010762' 
010763' 
010764' 
010765' 
010766' 
010767' 


260 

201 

260 

200 

200 

400 

260 

200 

260 

400 

260 

200 

260 

201 

260 

260 

474 

603 

474 

027 

254 

254 

326 


17 

01 

17 

02 

03 

01 

17 

01 

17 

01 

17 

01 

17 

01 

17 

17 

15 

01 

15 

00 

00 

00 

15 


0  00 
0  00 


260 

2u' 

260 

200 

200 

474 

260 

200 

260 

400 

260 

200 

260 

201 

260 

260 

*f74 

607 

474 

027 

254 

254 

326 


17 

01 

17 

02 

03 

01 

17 

01 

17 

01 

17 

01 

17 

01 

17 

17 

15 

01 

15 

00 

00 

00 

15 


00 
00 
00 
00 


0  GO 
0  00 
0  00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
CO 


0  00 
0  00 


010622* 

000001 

010422* 

010710* 

010711* 

000000 

000000* 

000002 

000353* 

000000 

010714* 

000003 

010722* 

020010 

010430* 

001106* 

000000 

004000 

000000 

010774' 

010712' 

010773' 

010773' 


0  00  010712* 
0  00  000001 
0  00  010724* 
0  00  010715* 
0  00  010716* 
0  00  000000 
0  00  010720* 
0  00  000002 
0  00  010726* 
0  00  000000 
0  00  010743* 
0  00  000003 
0  00  010751* 
0  00  020010 
0  00  010730* 
0  00  010731V 
0  00  000000 
0  00  004000 
0  00  000000 
0  00  010776' 
0  00  010741' 
0  00  010773' 
0  00  010773' 


;  Test  segment  A 


TA41: 


TB41: 


60 

IPACLR 

MOVE  I 

IJ 

GO 

LDRAR 

MOVE 

2.CW0RDL 

MOVE 

3,CW0RDR 

SETZ 

1, 

GO 

CALPAR 

MOVE 

1.2 

GO 

LDCRAM 

SETZ 

1. 

GO 

LDRAR 

MOVE 

1.3 

GO 

LDCRAM 

HOVE  I 

1,^PRUN1SINCYC 

GO 

LDCSR 

GO 

RDCSR 

SETO 

ERFL6. 

TLNE 

1,(CRAMPE) 

SETO 

ERFL6. 

SCOPER 

MA41 

JRST 

TA41 

JRST 

TX41 

JUMPN 

ERFLG.TX41 
B 
IPACLR 

>cgnieni 
GO 

MOVE  I 

1.1 

GO 

LDRAR 

MOVE 

2,CW0RDL 

MOVE 

3.CW0RDR 

SETO 

1. 

GO 

CALPAR 

MOVE 

1.2 

GO 

LDCRAM 

SETZ 

1. 

GO 

LDRAR 

MOVE 

1.3 

GO 

LDCRAM 

MOVE  I 

1,MPRUN!SINCYC 

GO 

LDCSR 

GO 

RDCSR 

SETO 

ERFLG, 

TLNN 

1,(CRAMPE) 

SETO 

ERFLG. 

SCOPER 

MB41 

JRST 

TB41 

JRST 

TX41 

JUMPN 

ERFLG,TX41 

clear  port         ,^  .  , 

set  bit  12  (for  left  30  bits) 

load  RAR  yith  it 

get  left  30  bits 

get  right  30  bits 

set  up  no  force  parity 

calculate  good  parity 

get  left  30  bits 

load  it  ,«  .  . 

clear  bit  12  (fcr  right  30  bits) 

load  address 

get  right  30  bits 

toad  it 

get  proper  CSR  data 

single  step  once 

read  the  CSR  reg  ter 

error 

get  a  CRAM  PE? 

yes  -  set  error  flag 

print  error  message 

loop  on  error 

altmode  exit 

error  yet?  -  yes  -  exit  test 


clear  port 

set  bit  12  (for  left  30  bits) 

load  RAR  with  it 

get  left  30  bits 

get  right  30  bits 

set  up  to  force  bad  parity 

calculate  good  parity 

get  left  30  bits 

toad  it 

clear  bit  12  (for  right  30  bits) 

load  address 

get  right  30  bits 

toad  it 

get  proper  CSR  data 

single  step  once 

read  the  CSR  register 

error 

get  a  CRAM  PE? 

yes  -  set  error  flag 

print  error  message 

loop  on  error 

altmode  exit 

error  yet?  -  yes  -  exit  test 


MA33L 

MA34 

MA34F 

MA35 

MA35F 

MA35F 

MA36 

MA36F 

MA37 

MA4 

MA40 

MA41 

MA4Ph 

MA5 

MA5P^ 

MA6 

MA6P^ 

MA6P^ 

MA7 

HA7PI* 

MA7Pf 

MB41 

MBCN 

MBERF 

MBUS 

MLAS' 


MPER 
MPMB 

npmb; 

HPMB< 
MPMBi 
MPMBI 
MPMBI 
HPNT 

mpnt; 

HPNTi 
MPNTi 
MPROi 


HPRU 
MSG 

NDC6 
NOMP 


NEXM 
NOTU 
ODEL 
OLDR 


f\rnT*o       utrnrt    WCtai  ^'i/  'i\     r\Q .  1 0       1-I..I-BC    Dana    ^(\L 


L- 


1525 
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SEQ  1538 


707A 

7075 

7076 

7077 

7078 

7079 

7080 

7081 

7082 

7083 

708A 

7085 

7086 

7087 

7088 

7089 

7090 

7091 

7092 

7093 

7094 

7095 

7096 

7097 

7098 

7099 

7100 

7101 

7102 

7103 

71 OA 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

71U 

7115 


010770'  350  00  0  00  000006 
010771*  307  06  0  00  001750 
010772'   25A  00  0  00  010705' 


010773'   263  17  0  GO  000000 


01077A' 
010775' 

010776' 
010777' 

011000' 
011001' 
011002' 
011003' 
01100A' 
011005' 
011006' 


011007' 
011010' 
011011' 
011012' 
011013' 
01101A' 
011015' 
011016' 
011017' 
011020* 
011021' 
011022' 


040000 
270000 

040000 
270000 


037 
260 
200 
260 
200 
260 
263 


00 
17 
00 
17 
00 
17 
17 


270  07 
2h'  07 
447  07 
200  02 
270  07 
241  07 
447  07 
200  03 
621  ' 
621 


02 
03 


120  02 
263  17 


013223* 
011000* 

013232' 
011000' 


00 
00 
00 
00 
00 
00 
00 


013240' 
010441* 
010744* 
011070' 
010745* 
011070' 
000000 


0  00  030022 

0  00  nnm 

0  00  013421' 
0  00  000007 
0  00  030022 

0  00  mnt^ 

0  00  013421' 
0  00  000007 
0  00  770000 
0  00  770000 
0  00  011002* 
0  00  000000 


Next  data  pattern 


AOS 

CAIG 

JRS: 

;  End  of  test 

TX41:   RTN 

;  Error  messages 

MA41: 


6.*D1000 
TL41 


set  up  next  test  offset 

done  yet? 

no  -  loop  till  done 


;  return 


MB41: 
M41PNT: 


TXNOTICASCIZ  /CRAM  PE  should  not  have  occurred/3 
LAST! CALL !TXALL!M41PNT         ;  print  error  data 

TXNOTICASCIZ  /CRAM  PE  should  have  occurred/] 
LAST! CALL! TXALLIM41PNT        ;  print  error  data 


TMSGC 

GO 

MOVE 

GO 

MOVE 

GO 

RTN 


<CRAM  data: 

DRCRAM 

CUORDL 

MPNTC 

CUORDR 

MPNTC 


Random  number  generator 


T41RAN:  ADD 
ROT 
EOVB 
MOVE 
ADD 
ROT 
EQVB 
MOVE 
TLZ 
TLZ 
DMOVE 
RTN 


7,RANDBS 

7.-4 

7,0LDRAN 

IJ 

7.RANDBS 

7,-4 

7.0LDRAN 

3.7 

2.770000 

3.770000 

2.CW0RDL 


;  read  '"RAM  data 

;  get   't  half 

;  prif    t 

;  get  right  half 

;  print  it 


modify  number  in  AC 7 

to  create  a  new  number 

put  result  in  AC7  and  OLDRAN 

put  into  AC2 

modify  number  in  AC7 

to  creitf'  a  new  number 

put  result  in  AC7  and  OLDRAN 

put  into  AC3 

clear  left  6  bits 

clear  left  6  bits 

save  the  data 


OVN 

P 

PARFI 

PAT 

PORT! 

PORTI 

RANDI 

RDCRi 

RDCSI 

RDEBI 

RDLAI 

SAVAI 

SAVCI 

SAVCI 
SAVC 
SAVD, 
SAVD- 

sees 

SDAT 
SELL 
SETV 
SEXE 
SHUC 
SINC 
SLAS 
SNEX 
SSCA 
SSCH 
SSJR 
SSLA 
SSPN 
SSST 

T10M 
T10T 
T11W 

Tin 

T12M 
T12T 
T13W 
T13T 
TUF* 
T15l« 
T16^ 
T17^ 
T1P/I 
T20P' 
T21P' 
T22l» 
T23^ 
T24^ 


>  >  «>  vikM     tr  Y»v  . 


f\e\     •«  r\ 


DFPTA8 
DFPTA8 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

71 24 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

71 3A 

7135 

7136 

7137 

7138 

7139 

7U0 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 

7149 

7150 

7151 

7152 

7153 

7154 

7155 

7156 

7157 

7158 

7159 

7160 

7161 

7162 

7163 

7164 
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011023' 
011024' 
011025" 
011026' 
011027' 
011030' 
011031' 
011032' 
011033' 
011034' 
011035' 
011036' 
011037' 
011040' 
011041* 
011042' 
011043* 
011044' 
011045* 
011046' 
011047* 
011050* 
011051* 


200  01  0 
037  00  0 
200  00  0 
242  00  0 


037  04 
200  00 

602  00 
037  00 
606  00 
037  00 

603  01 
037  00 


0 
0 
0 
0 
0 
0 
0 
0 
607  01  0 
037  00  0 
200  00  0 


260  17 
603  01 
037  00 
607  01 
037  00 
200  00 
260  17 
263  17 


011052' 
011053' 
011054* 
011055' 
011056' 
011057' 
011060* 
011061* 
011062* 
011063' 
011064' 
011065' 
011066* 
011067* 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


200  01 
603  01 
037  00 
607  01 
037  00 
200  00 
037  04 
603  01 
037  00 
607  01 
037  00 
200  00 
037  04 
263  17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
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SUBTTL  Miscellaneous  Routines 

01,1,i,*1,1i**1i*ii1i*if  ****************************************************** 

MPNT1  -  Print  CRAM  data  correct/actual  (data  in  SAVCR1,SAVCR2) 

4f*********** ********************************************************* 


SEQ  1539 


010472* 

013243* 

011164* 

777777 

000000 

011164* 

000001 

013246* 

000001 

013250' 

000200 

013252* 

000200 

013255* 

011162* 

011070' 

000200 

013261* 

000200 

013264* 

011163' 

011070* 

000000 


:11023* 
000200 
013270* 
000200 
013273* 
011162* 
000000 
000200 
013277* 
000200 
013302* 
011163* 
000000 
000000 


MPNT1:  MOVE  1,SC0SW 

TMSGC  <CRAM  Loc:  > 

MOVE  SAVCRA 

LSH  -1 

PNT4 

MOVE  SAVCRA 

TRNE  1 

TMSG  <(left)> 

TRNN  1 

TMSG  <(right)> 

TLNE  l.TXTINH 

TMSGC  <CRAM  (C):  > 

TLNN  1,TXTINH 

TMSGC  <CRAM  (Correct) 

MOVE  SAVCR1 

GO  MPNTC 

TLNE  1,TXTINH 

TMSGC  <     (A):   > 

TLNN  1,TXTINH 

TMSGC  <     (Actual) 

MOVE  SAVCR2 

GO  MPNTC 

RTN 


get  switches 

get  address 

position  correctly 

print  it 

get  address 

left  half? 

yes  -  print  it 

right  half? 

yes  -  print  it 

inhibit  text? 

yes 

inhibit  text? 

no 

get  CRAM  data  written 

print  it 

inhibit  text? 

yes 

inhibit  text? 

no 

get  CRAM  data 

print  it 


MPNT2  -  Print  LAF  data  correct/actual  (data  in  SAVCR1 ,SAVCR2) 


MPNT2: 


MOVE 

l.SCOSU 

TLNE 

1,TXTINH 

TMSGC 

<LAR  (C):  > 

TLNN 

1,TXTINH 

TMSGC 

<LAR  (Correct) 

MOVE 

SAVCR1 

PNT4 

TLNE 

1,TXTINH 

TMSGC 

<    (A):  > 

TLNN 

l.TXTINH 

TMSGC 

<    (Actual): 

MOVE 

SAVCR2 

PNT4 

RTN 

get  switches 

full  printout? 

no 

full  printout? 

yes 

get  address 

print  it 

full  printout? 

no 

full  printout? 

yes 

get  address 

print  it 


0FPTA8 
DFPTA8 

7165 

7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

71 7A 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 

7193 

7194 

7195 

7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

7204 

7205 

7206 

7207 

7208 

7209 

7210 

7211 
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011070' 
011072' 
011073' 
011074' 
011075' 
011076' 
011077' 
011100' 
011101' 
011103' 


011104' 
011105' 
011106' 
011107' 
011110' 
011111' 
011112' 
011113' 
011114' 
011115' 
011116' 


261  17 

200  01 
242  01 

201  02 
400  00 
246  00 
037  16 
367  02 

262  17 

263  17 


00 


331 

254  00 
200  00 
607  00 
037  00 
260  17 

255  00 
201 
201 


011121' 
011122' 
011123" 
011124' 
011125' 
011126' 
011127' 
011130' 
011131' 
011132* 


CO  J 

263 


011117'  200 
011120'  603 


00 
00 


254  00 
037  00 
550  01 
037  00 
037  00 

200  01 

201  02 
201  03 
260  17 
263  17 
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/(f***«*********  ***********  t  ******************************************* 

MPNTC  -  Print  cram  half  word  (30  bits  only) 

4f******************************************************************** 


SEQ  1540 


0  00  000001 
0  00  000000 
0  00  000006 
0  00  000012 
0  00  000000 
0  00  000003 
0  00  000003 
0  00  011075' 
0  00  000002 
0  00  000000 


0 
0 
0 
0 
0 
0 
0 

02  0  00 

03  0  00 
17  0 
17  0 


00 
00 
00 
00 
00 
00 
00 


00 
00 


000000* 

011117' 

011052* 

000200 

013306' 

010760* 

000000 

000023 

000023 

001112* 

000000 


00  011106* 
00  000200 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


013317' 

013322' 

011165' 

000001 

013330' 

001670* 

000023 

000023 

011115* 

000000 


MPNTC:  RPUT 
MOVE 
LSH 
MOVE  I 

MPNTCO:  SETZ 
LSHC 
PNTOCS 
S0J6 
RGET 
RTN 


(1.2) 
1,6 
1,6 
2,*D10 

0.3 

2.MPNTC0 
(^,1) 


save  AC'S 

get  data  into  ACl 

position  correctly 

set  up  to  print  ID  digits 

clear  ACl 

shift  digit  into  ACO 

print  it 

loop  till  done 

restore  AC's 

return 


/If*******************************  ************************************* 

MPMBUl  -  Print  M8US  Error  message 
/If******************************************************************** 


MPMBUl:  SKIPL 
JRST 
MOVE 
TLNN 
TMS6C 
GO 
JFCL 
MOVE  I 
MOVE  I 
60 
RTN 

MPMB1A:  MOVE 
7LNE 
JRST 


TMS6C 
HRRZ 
PNTMSG 
TMSGC 
MPMB1B:  MOVE 
MOVE  I 
MOVE  I 


ALFLS  ;  started  up  the  port  ok? 

MPM81A  ;  yes  -  other  message 

SCOSW  ;  get  switches 

TXTINH  ;  text  inhibit  switch  set? 

<Couldn't  start  the  port  properly> 

RDCSR  ;  get  CSR  contents 

;  error 

2,*D19  ;  character  count  so  far 

3,*D19  ;  continuation  line  column  number 

CSRPNT  ;  go  print  in  English 

;  return 

jet  switches 


;  get  swucnes 
;  text  inhibit  switch  set? 
;  yes  -  just  print  what  signal 
was  turned  on 


SCOSW 

TXTINH 

CTMS6C  <Set  > 

PNTMSG  ai 

JRST   MPMB1B] 
<Turned  on  M8US  driver  with  > 

l-SAVDAT  ;  get  ASCIZ  string  address 

ai  ;  print  it 

<'M6US  Error'  should  not  have  occurred> 
1,ALCSR  ;  get  CSR  data 

2,*D19  ;  character  count  so  far 

3,*D19  ;  continuation  line  column  number 

CSRPNT  ;  go  print  in  English 

;  return 


1528 
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SEQ  15A1 


7212 

7213 

72K 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7248 

7249 


011133' 
011134- 
011135' 
011136' 
011137' 
011140' 
011141' 
011142' 
011143' 
011144' 
011145' 

011146' 
011147' 


331  00 

254  00 

200  00 
607  00 
037  00 
260  17 

255  00 

201  02 
201  03 
260  17 
263  17 


200 
603 


00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


011104* 

011146' 

011117* 

000200 

013306' 

011111* 

000000 

000023 

000023 

011131* 

000000 


00  011135* 
00  000200 


011150' 
011151' 
011152' 
011153' 
011154' 
011155' 
011156' 
011157' 
011160' 
011161' 


254  00 
037  00 
550  01 
037  00 
037  00 

200  01 

201  ' 
201 


02 
03 


260  17 


0  00  013340' 
0  00  013322' 

0  00  011165' 

1  00  000001 
0  00  013343' 
0  00  011126* 
0  00  000023 
0  00  000023 

00  011144* 


2o<  17  0  00  000000 


011162'  000000  000000 

011163'  000000  000000 

011164'  000000  000000 

011165'  000000  000000 


#**•********************•******************************************** 

MPMBU2  -  Print  MBUS  Error  message 
#***«**************************************************************** 


MPMBU2:  SKI PL 
JRST 
MOVE 
TLNN 
TMSGC 
GO 
JFCL 
MOVEI 
MOVE  I 
GO 
RTN 

MPMB2A:  MOVE 
TLNE 
JRST 


TMSGC 
HRRZ 
PNTMS6 
TMSGC 
MPMB2B:  MOVE 
MOVEI 
MOVEI 
GO 
RTN 


ALFLS 

MPM62A 

SCOSW 

TXTINH 

<Couldn't  start  the  port 

RDCSR 

2,*D19 
3,*D19 
CSRPNT 


SCOSU 

TXTINH 

CTMSGC 


<Set  > 


PNTMS6  ai 

JRST   MPMB2B] 
<Turned  on  MBUS  driver  w 
1-SAVDAT 

ai 

<'MBUS  Error'  should  have 

l.ALCSR 

2,*D19 

3,*D19 

CSRPNT 


started  up  the  port  ok? 
yes  -  other  message 
get  switches 

text  inhibit  switch  set? 
proper ly> 
get  CSR  contents 
error 

character  count  so  far 
continuation  line  column  number 
go  print  in  English 
return 

?et  switches 
ext  inhibit  switch  set? 
yes  -  just  print  what  signal 
was  turned  on 

th  > 

get  ASCIZ  string  address 
print  it 
occurred> 
get  CSR  data 
character  count  so  far 
continuation  line  column  number 
go  print  in  English 
return 


."Miscellaneous  variables 

SAVCR1:  0 

SAVCR2:  0 

SAVCRA:  0 

SAVDAT:  0 
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7250 
7251 
7252 
7253 
725A 
7255 
7256 
NO  ERRORS  DETECTED 

PROGRAM  BREAK  IS  013423 
CPU  TIME  USED  08:08.087 

229P  CORE  USED 


Miscellaneous  Routines 

/If******************************************************************** 

.  End  of  MPROC  Module  Tests  ....... 

)#******************************************************************** 
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L 


1530 
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DFPTA8 
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SYMBOL  TABLE 

AAPNT 

000000 

ext 

GO 

260740  000000 

MA22LP 

004137* 

ADRPE 

100000  000000 

spd 

INITPI 

004726* 

ext 

MA23 

)04325* 

AEBUF 

013106' 

ext 

IPACLR 

0  0741* 

ext 

MA23L 

)04333' 

AEXEC 

007162' 

ext 

IPAER 

000200  000000 

spd 

MA23LP 

)04330* 

ALCSR 

011155' 

ext 

IPASST 

001057' 

ext 

MA24 

)04537* 

ALFLS 

011133' 

ext 

LAST 

010000  000000 

spd 

MA24L 

)04545* 

BBPNT 

000000 

ext 

LAXER 

000400  000000 

spd 

MA24LP 

)04542* 

BEXEC 

010537' 

ext 

LDCRAM 

0  0755* 

ext 

HA25 

)04731  * 

BUFF 

006664' 

ext 

LDCSR 

010757* 

ext 

MA25L 

04737* 

BUFGEN 

006376* 

ext 

LDRAR 

010753* 

ext 

MA25LP 

04734* 

CI 

00005A 

spd 

LGUC 

000100  OOOCOO 

spd 

MA26 

05107* 

CIO 

000065 

spd 

Ml 

000031 

spd 

MA26L 

05115* 

C11 

000066 

spd 

M10 

)00042 

spd 

MA26LP 

05112' 

C12 

000067 

spd 

Mil 

)00043 
)00044 

spd 

MA27 

05320* 

C13 

000070 

spd 

Ml  2 

spd 

MA27L 

05326* 

C15 

000072 

spd 

Ml  3 

)00045 

spd 

MA27LP 

05323* 

C16 

000073 

spd 

Ml  4 

)00046 

spd 

MA3 

00303* 

C17 

00007A 

spd 

Ml  5 

)00047 

spd 

HA30 

05600' 

C21 

000100 

spd 

M16 

)00050 

spd 

MA30L 

05606' 

C5 

000060 

spd 

Ml  7 

)00051 

spd 

MA30LP 

05603' 

C6 

000061 

spd 

Ml  8 

)00052 

spd 

MA30PN 

05611' 

C7 

000062 

spd 

Ml  9 

)00053 

spd 

HA31 

06070' 

C8 

000063 

spd 

M2 

)00032 

spd 

HA31L 

06076' 

C9 

00006A 

spd 

M3 

)00033 

spd 

MA31L1 

06120* 

CADDR 

010703* 

ext 

M4 

)00034 

spd 

HA31L2 

06130* 

CALL 

200000  000000 

spd 

M41PNT 

)11000* 

HA31LP 

06073* 

CALPAR 

010747* 

ext 

M5 

)00035 

spd 

MA32 

06406* 

CBUF 

0116A5' 

ext 

M6 

)00036 

spd 

MA32L 

06414' 

CBUFSZ 

000315 

spd 

M7 

)00037 

spd 

HA32LP 

06411' 

CEBUF 

013110* 

ext 

M9 

)00041 

spd 

NA33 

06670' 

CHDATA 

0U.-611* 

ext 

MAI 

)00051 ' 

HA33L 

006676' 

CHINIT 

006663* 

ext 

MA10 

)01377' 

HA33LP 

006673' 

CRAMPE 

OOAOOO  000000 

spd 

MA11 

)01477* 

MA34 

007113* 

CSRPNT 

011160* 

ext 

MAI  2 

)01561* 

MA34PN 

007115* 

CWORDL 

013113* 

ext 

MAI  3 

)01707* 

MA35 

007170* 

CWGRDR 

01100A' 

ext 

MAI  4 

)02044  * 
)02052* 

HA35P1 

007174* 
007173' 

ORCRAM 

011001* 

ext 

MA14L 

MA35PN 

owe RAM 

010AA6' 

ext 

MA14LP 

)02047* 

MA36 

010470* 

E1 

000001 

spd 

MAI  5 

)02320; 

MA36PN 

010472* 

f^^ 

000016 

spd 

MA15L 

HA37 

010555' 
000370* 

E15 

000017 

spd 

MA15LP 

)02323' 

MA4 

E16 

000020 

spd 

MAI  6 

)02546' 

MA40 

010654* 
010774* 
000373* 

^V 

000021 

spd 

MA16PN 

02551 ' 

MA41 

E2 

000002 

spd 

MAI  7 

)03372* 

MA4PNT 

E23 

000027 

spd 

MA17L 

)03400* 

HA5 

000474* 

E3 

000003 

spd 

MA17LP 

)03375* 

MA5PNT 

000477* 
000572; 

E4 

000004 

spd 

MA2 

00226' 
)03574' 

MA6 

E6 

000006 

spd 

MA20 

HA6PN0 

E7 

000007 

spd 

MA20L 

)03602' 

03577* 

)03743* 

HA6PNT 

000573* 

f§ 

000010 

spd 

MA20LP 

MA7 

001100* 

E9 

000011 

spd 

MA21 

HA7PN0 

001114* 

ERFLG 

000015 

HA21L 

)0375r 
)03746* 

HA7PNT 

ooiior 

GENCCW 

006666* 

ext 

MA21LP 

MB41 

010776* 

GENEPE 

100000 

spd 

MA22 

)04134* 
004142* 

M6CN 

000016 

GET 

262740  000000 

MA22L 

MBERR   002000  OOOOOO 

r 


spd 


MBUS 

MLAST 

HPER 

MPMBIA 

NPM61B 

NPM62A 

NPMB2B 

HPMBU1 

MP.MBU2 

HPNT1 

HPNT2 

HPNTC 

HPNTCO 

HPROC 

MPRUN 

MSG 

NDCB 

NDMP 

NEXM 

NOTUCO 

ODELAY 

OLDRAN 

OVN 

P 

PARFLG 

PAT 

PNT3 

PNT4 

PNTOEC 

PNTHU 

PNTMS6 

PNTOCS 

PORTCI 

PORTNI 

PUT 

RAND6S 

RDCRAM 

RDCSR 

RDEBUP 

RDLAR 

RTN 

SAVADD 

SAVCR1 

SAVCR2 

SAVCRA 

SAVDA1 

SAVDAT 

SCOPES 

SCOSU 

SDATA 

SELLAR 

SETVEC 

SEXEC 

SHUC 

SINCYC 


010000 
400000 
200000 


200000 

100000 
000200 
000400 
020000 
040000 


000020 


037140 
037200 
037640 
037540 
037000 
037700 


261740 


263740 


027000 


000040 


OOOOOO 

OOOOOO 

OOOOOO 

011117* 

011126* 

011146* 

011155* 

011104* 

011133* 

011023* 

011052* 

011070' 

011075' 

OOOOOO 

000010 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

010426' 

013421' 

OOOOOO 

000017 

010451' 

000014 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

000003 

010433* 

010431' 

OOOOOO 

030022 

000455* 

011140* 

007202* 

004533* 

OOOOOO 

013422* 

011162* 

011163* 

011164* 

007237* 

011165* 

OOOOOO 

011146' 

004725' 

040000 

004727* 

010625' 

OOOOOO 

020000 


SEQ  1543 


spd 
spd 
spd 


spd 
spd 
spd 
spd 
spd 
spd 
spd 
ext 

spd 

ext 


ext 
ext 


ext 
ext 
ext 
ext 


ext 
ext 
spd 
ext 
ext 
spd 
spd 


1531 


DFPTA8 
DFPTA8 

SLAST 

SNEXT 

SSCALL 

SStHK 

SSJRST 

SSLAST 

SSPNT 

SSSTRT 

ITIOM 

I  T10TAB 
T11M 

I  Til  TAB 
T12M 
T12TAB 
T13M 
T13TAB 
TUN 
T15M 
T16M 
T17M 
T1PAT 
T20M 
T21M 
T22M 
T23M 
T24M 
T25M 
T26M 
T27M 
T27SR1 
T27SR2 
T30M 
T30SR1 
T30SRD 
T31M 
T32M 
T33M 
T33SR1 
T33SR2 
T3AM 
T3AMA 
135M 
T36MA 
T36^e 
T37M 
TAOM 
T41RAN 
T6TAB 
T7TAB 
TA1 
TA10 
TA11 
TA12 
TA13 
TAU 
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0113A3' 

ext 

TA15 

002254' 

001056' 

ext 

TA16 

002512* 

000003 

spd 

TA17 

003340' 

000004 
000005 

spd 

TA2 

95Q1§^! 

spd 

TA2G 

003550' 

000000 

spd 

TA21 

003722' 

000000 

ext 

TA22 

QO^U^! 

000001 

spd 

TA23 

004304' 

001400' 

TA24 

004475' 

001372' 

TA25 

004670' 

001500' 

TA26 

005060' 

001475' 

TA27 

005247' 

001562' 

TA3 

000241 ' 

001550' 

TA30 

005534' 

001710' 

TA31 

005767' 

001703' 

TA32 

w^q: 

002060' 

TA33 

)06623' 

002334' 

TA34 

07046' 

002560' 

TA36 

^^W, 

003404' 

TA37 

10537' 

OOC053' 

TA4 

00315' 

003604' 

TA40 

10625' 

003753' 

TA41 

10712' 

004144' 

TA5 

00413' 

004335' 

TA6 

00544' 

004552' 

TA6A 

00562' 

004742' 

TA7 

01052' 

005121' 

TA7A 

01070' 

005333' 

TADDR 

06622'  ext 

005305' 

TBI 

00027' 

Go?307' 

TBI  4 

01757' 

005640' 

TBI  5 

02255' 

005562' 

TB16 

02513' 

005560' 

TBI  7 

03341' 

006140' 

TB1L 

00034' 

006420' 

TB2 

WrP\ 

006702' 

TB20 

03551 ' 

006656' 

T821 

03723' 

006660' 

TB22 

o^lb' 

007122' 

TB23 

04305' 

007130' 

TB24 

0';476' 

007243' 

TB25 

04671 • 

010503' 

TE2^ 

005061 ' 

010514* 

T827 

005250* 

01056C' 

TB2L 

0002 iO' 

010656' 

TB3 

Q0Q?45* 

011007; 

TB30 

005535* 

T8i1 

005770* 

001133' 

TB?? 

Q96341 • 

000014' 

TBii 

006624' 

001345' 

TB4 

000221 ' 

^W- 

TB41 

6  0741' 

TB5 

000417' 

mt- 

TC3 

mti' 

TC4 

SEQ  1544 


TC5 

TCALL 

TCALLC 

TCHECK 

TDATAI 

TDATAO 

TEXEC 

TEXIT 

TGI 

TG10 

T611 

TG12 

TGI  3 

TGI  4 

TGI  5 

TG16 

TGI  7 

TG2 

TG20 

TG21 

TG22 

TG23 

TG24 

TG25 

TG26 

TG27 

TG3 

TG30 

TG31 

TG32 

TG33 

TG34 

TG35 

TG36 

TG37 

TG4 

TG40 

TG41 

TG5 

T66 

T67 

TI6A 

TI7A 

TJRST 

TL10 

TL11 

TL12 

TL13 

TL14 

TL15 

TL16 

TL17 

TL20 

TL21 

TL22 


000443' 
000003 
000004 
00QQ05 
002313' 
002315' 
006624' 
000007 
000011' 
001335* 
001440* 
001515* 
001650* 
001745' 
002243' 
002501 ' 
003327' 
000164' 
003537' 
003711' 
004102' 
004273* 
004464 ' 
004657' 
005047* 
005230* 
000237' 
005523' 
005756' 
006317' 
006612' 
007035' 
007146' 
010334' 
010526* 
000313* 
010614* 
010677' 
000411' 
000520* 
001026* 
000525' 
001033' 
000006 
001342' 
001445' 
)01522' 
01655' 
01752' 
)02250' 
02506' 
Q2334' 
303544' 
003716' 
004107' 


spd 
spd 
spd 


ext 
spd 


spd 


TL23 

TL24 

TL25 

TL26 

TL27 

TL30 

TL31 

TL32 

TL33 

TL34 

TL35 

TL36 

TL37 

TL40 

TL41 

TL6 

TL7 

TLAST 

TLOAD 

TRACE 

TS14 

TS14IN 

TS14RW 

TS15 

TS16 

TS16AD 

TS16AX 

TS17 

TS17PE 

TS20 

TS20PE 

TS21 

TS22 

TS23 

TS24 

TS24DI 

TS24D0 

TS25 

TS25CX 

TS25IA 

TS25IB 

TS26 

TS27 

TS30 

TS31 

TS32 

TS32RD 

TS33 

TS34 

TS34IN 

TS34L 

TS34ST 

TS36 

TS36L 

TS36L0 


004300' 

004471 ' 

004664' 

005054' 

005235' 

005530' 

005763' 

006324* 

006617* 

007042* 

007153* 

010336* 

010533* 

010621* 

010705* 

000541' 

001047' 

000000 

010617' 

010700' 

001770' 

002021 ' 

002031 ' 

002266' 

002524' 

002531' 

002545' 

003352' 

003367' 

003562' 

003571 • 

003734' 

004125' 

004316' 

004507' 

004533' 

004535' 

004702' 

004717' 

004722' 

004725' 

005072' 

005261 ' 

005546' 

006001 • 

006352' 

006373' 

006655' 

007057' 

007067' 

007060* 

007071 ' 

010353' 

010354' 

010402* 


spd 
ext 

ext 


r 


}  1532 


0FPTA8 
0FPTA8 

TS36L1 

TS36L2 

TS36L'5 

TS36LD 

TS36ST 

TS36U0 

TS36W1 

TS37 

TSAO 

TSAOA 

TS40CH 

TSAOIN 

TSL0D1 

TSL002 

TSTART 

TSTC3 

TSTCA 

TSTE45 

TSTEBF 

TSTSUB 

TSTU1 

TSTU10 

TSTU11 

TSTU12 

TSTU13 

TSTUU 

TSTU15 

TSTU16 

TSTU17 

TSTU2 

TSTU20 

TSTU21 

TSTU22 

TSTU23 

TSTU24 

TSTU25 

TSTU26 

TSTU27 

TSTU3 

TSTU30 

TSTU31 

TSTU32 

TSTU33 

TSTU34 

TSTU35 

TSTU36 

TSTU37 

TSTU4 

TSTU40 

TSTUA1 

TSTU5 

TST(J6 

TSTU7 

TTPNT 
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010420 

TX10 

001371' 

.LCCCE 

010442 

Txn 

001474' 

.LCCCP 

010450 

TX12 

001547' 

.LCCEB 

010361 

TX13 

001702' 
001767' 

.LCCER 

010457 

TX14 

.LCCFZ 

010453 

TX15 

?02523' 

.LCCGC 

010455 

TX16 

.LCCIA 

010550 

TX17 

003351 ' 

.LCfLsJ 

010636 

TX2 

000225 ' 

.LCt.^ 

010640 

TX20 

0  )3561 ' 

.I.CCMP 

010647 

TX21 

003733* 

.LCCPP 

010644 

TX22 

004124' 

.LCCXA 

010432 

ext 

TX23 

004315' 

.LCENA 

010434 

ext 

TX24 

004506' 

.LCv'P 

000001 

spd 

TX25 

004701 ' 

.LCJS 

000000 

ext 

TX26 

005071 ' 

.LCONT 

000000 

ext 

TX27 

005260' 

.LCRTN 

000000 

ext 

TX3 

000302' 

.LCRY 

200000 

spd 

TX30 

005545' 

.LD 

010705 

ext 

TX31 

006000' 

.LJ 

OOCOOO 

ent 

TX32 

006351 ' 

.LJMAP 

001325 

ent 

TX33 

006634' 

.LJZ 

001431 

ent 

TX34 

007056' 

.LLDCT 

001507 

ent 

TX35 

007167' 

.LLDLM 

001643 

ent 

TX36 

010352' 

.LL5AD 

001733 

ent 

TX37 

010547' 

.LMGC 

002231 

ent 

TX4 

000367' 

.LOENA 

002467 

ent 

TX40 

010635' 

.LOR 

003315 

ent 

TX41 

010773' 

LPLUS 

000154 

ent 

TX5 

000473' 

.LRAM 

Gu<525 

ent 

TX6 

000571 • 

LRDLM 

003677 

ent 

TX7 

001077' 

LRPCT 

004070 

ent 

TXALL 

060000  000000 

spd 

LSOA 

004261 

ent 

rXNOT 

04C000  000000 

spd 

LS08 

004452 

ent 

TXTINH 

000200 

spi 

LSAB 

004645 

enc 

UDE8UG 

007074' 

ext 

LSOO 

005035 

ent 

USER 

030037 

LSELC 

005216 

ent 

Z8 

000000* 

LSELE 

000230 

ent 

ZMPROC 

000003  000000 

spd    ! 

LSELF 

005512 

ent 

$ARG2 

000001 

LSELM 

005747 

ent 

$8 

000041 

LSELP 

006307 

ent 

$CHR 

000057  455641 

LSKCN 

006603 

ent 

S6ARG 

000000 

LSKM6 

007025 

ent 

XADDR 

000005 

spd    ! 

LXNOR 

007137 

ent 

XML 

000403  772000 

spd 

LXOR 

010326 

ent 

XMR 

103010  210040 
000000 

spd 

MA 

010521 

ent 

.LA 

spd 

MAND 

000305 

ent 

.LADDR 

000100  000000 

spd 

MB 

010607 

ent 

.LAND 

QQOOOO 
)00000 

spJ 

M6AD 

010671 

ent 

.LB 

spd 

MCCAF 

000404 

ent 

.LBAD 

)00000 

spd 

MCCBF 

000510 
001017 

ent 

.LCCAF 

« 

spd 

MCCCA 

ent 

.LCCBF 

spd 

MCCCC 

000000 

ext 

.LCCCA 

)00000 

spd 

MCCCE 

000050 

.LCCCC 

000000 

spd 

MCCCP 

300000  spd 

300000  spd 
)00000  sod 
500000  spd 
500000  spd 
500000  spd 
DOOOOO  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
010000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 

000000  spd 

000001  spd 
002000  spd 
000000  spd 
000000  spd 
QOOOOO  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
000000  spd 
QOOOOO  spd 
000000  spd 
QOOOOO  spd 
QOOOOO  spd 
OOOOCO  spd 
000000  spd 
QOOOOO  spd 
DOO.  :'  spd 
300007  spd 
300017  spd 

300001  spd 
000037  spd 
000037  spd 
Q0QQ37  spd 
500037  spd 
000037  spd 
000037  spd 


SEO  1545 

.MCCEB 

000037 

spd 

.MCCER 

000037 

spd 

.HCCFZ 

000037 

spd 

.MCCGC 

000037 

spd 

.HCCIA 

spd 

.MCCLW 

000037 

spd 

.MCCMB 

000037 

spd 

.MCCMP 

000037 

spd 

.MCCPP 

000037 

spd 

•MCCXA 

000037 

spd 

.MCENA 

000001 

spd 

.HCJP 

000017 

spd 

.HCJ3 

000017 

spd 

.MCONT 

000017 

spd 

.MCRTN 

000017 

spd 

.MCRY 

000001 

spd 

.MD 

000007 

spd 

.MJ 

007777 

spd 

.MJMAP 

000017 

spd 

.MJZ 

000017 

spd 

.MLDCT 

000017 

spd 

.HLDLM 

000037 

spd 

.MLSAD 

000037 

spd 

.MMGf 

001777 

spd 

.MOENA 

000001 

spd 

.MOR 

000007 

spd 

.HPLUS 

000007 

spd 

.MRAM 

000001 

spd 

.MRDLM 

000037 

spd 

.NRPCT 

000017 

spd 

.MSOA 

000007 

spd 

.HS08 

000007 

spd 

.MSAB 

000007 

spd 

.MSDO 

000007 

spd 

.MSELC 

000007 

spd 

.MSELE 

000007 

spd 

.HSELF 

000007 

spd 

.HSELM 

000007 

spd 

.MSELP 

000007 

spd 

.MSKCN 

000037 

spd 

.HSKMB 

000037 

spd 

.MXNOR 

000007 

spd 

.MXOR 

000007 

spd 

.RA     000010 

OOOGOO 

spd 

.RAND   040000 

000000 

spd 

.RB 

400000 

spd 

.RBAD 

000001 

spd 

.RCCA^ 

050000 

spd 

.RCCBF 

060000 

spd 

.RCCCA 

OQOOOO 
030000 

spd 

.RCCCC 

spd 

.RCCCE 

160000 

spd 

.RCCCP 

140000 

spd 

.RCCEB 

040000 

spd 

.RCCER 

100000 

spd 
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SYMBOL  TABLE 


DFPTA8 

MAC 

18-Apr- 
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•RCCFZ 

020000 

spd 

.RCCGC 

010000 

spd 

.RCCIA 

110000 

spd 

.RCCLU 

170000 

spd 

.RCCMB 

120000 

spd 

.RCCMP 

130000 

spd 

.RCCPP 

150000 

spd 

.RCCXA 

070000 

spd 

.RCENA 

OOOAOO 

000000 

spd 

.RCJP 

000060 

spd 

.RCJS 

000020 

spd 

.RCONT 

0003A0 

spd 

.RCRTN 

0002A0 

spd 

.RCRY 

OOOAOO 

spd 

.RD 

001000 

000000 

spd 

.RJ 

000000 

spd 

.RJMAP 

OCCOAO 

spd 

.RJ2 

oc.ioro 

spd 

.RLDCT 

wOOSOO 

spd 

.RLDLM 

230000 

spd 

.RLSAD 

200000 

spd 

.RMGC 

c'ooooo 

spd 

.ROENA 

000000 

spd 

.ROR 

030000 

000000 

spd 

.RPLUS 

000000 

spd 

.RRAM 

00020C 

000000 

spd 

.RRDLM 

220000 

spd 

.RRPCT 

000220 

spd 

•  RSOA 

AOOOOO 

000000 

spd 

.RSOB 

300000 

oonooo 

spd 

.RSA6 

100000 

Ou.'OOC 

spd 

.RSDO 

700000 

000000 

spd 

.RSELC 

Q9';8S9 

spd 

.RSELE 

005000 

spd 

.RSELF 

003000 

spd 

.RSELM 

002000 

spd 

.RSELP 

001000 

spd 

.RSKCN 

2A0000 

spd 

.RSKMB 

210000 

spd 

.RXNOR 

070000 

000000 

spd 

.RXOR 

060000 

000000 

spd 

L- 


L 


SEQ  1546 
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L 


1 ,  . 

5896 











.  — 

AAPNT 

2A# 

AOftPE 

4  74  A 

AEBUF 

25# 

6603 

AEXEC 

24# 

1177 

1295 

1387 

1531 

5§§3 

ALCSR 

2A# 

1179 

1297 

1389 

1533 

7207 

7238 

ALFLS 

2A# 

7186 

7217 

BBPNT 

25* 

5801 

6727 

6835 

BEXEC 

25# 

37A5 

6600 

6807 

BUFF 

22# 

1722 

AA39 

A<*A2 

A710 

A711 

A717 

5298 

5568 

5571 

BUFGEN 

36# 

1719 

5295 

CI 

1619 

5210 

5A92 

CIO 

A885 

cn 

A3A6 

C12 

A6A1 

C13 

3151 

33A3 

3535 

C15 

1619 

C16 

A3A6 

C17 

A6A1 

C21 

A885 

C5 

1619 

C6 

5210 

5A92 

C7 

1619 

3151 

33A3 

A6A1 

5210 

5A92 

C8 

1619 

A3A6 

A885 

C9 
CADDR 

A6A1 
23# 

663 

66A 

912 

913 

6638 

66A2 

6652 

6663 

6690 

6696 

7012 

CALL 

137 

300 

388 

A90 

A91 

610 

611 

716 

965 

1209 

132A 

l^iQ 

1560 

1731 

wri^^ 

1732 

2006 

2007 

223A 

2235 

2832 

2833 

30A0 

30A1 

mi 

3212 

3A03 

3A0A 

3595 

3596 

3822 

3823 

A02? 

A028 

A219 

A220 

hA51 

^ill 

A726 

k727 

5000 

5001 

5307 

5308 

5579 

5580 

5800 

5801 

5896 

5897 

6726 

6727 

6835 

6957 

7088 

7091 

CALPAR 

23# 

7031 

7057 

CBUF 

22ff 

1720 

AAAO 

A715 

5296 

5569 

CBUFSZ 

1720 

AAAO 

A715 

5296 

5569 

CEBUF 

25# 

6605 

CHDATA 

32# 

:738 

CHINIT 

32# 

1721 

AAA1 

A716 

5297 

5570 

CRAMPE 

697 

9A6 

1182 

1300 

70A2 

7068 

CSRPNT 

22# 

727 

976 

7195 

7210 

7226 

72A1 

CUORDL 

23# 
7113 

668 

917 

66A0 

66AA 

6656 

6658 

6661 

6662 

6699 

7020 

7028 

705A 

7095 

CUORDR 

23* 

669 

918 

7021 

7029 

7055 

7097 

DRCRAM 

23* 

6639 

66A3 

6691 

709A 

DUCRAM 

23* 

672 

921 

6659 

666A 

6700 

El 

EH 

E15 

2752 

39A1 

6A8 

297A 

3731 

898 

11A9 

1268 

1361 

1506 

39A1 

E16 

898 

2752 

297A 

E17 

3731 

E2 

3731 

E23 

2167 

A1A6 

E3 

1912 

E/. 

297A 

E6 

2752 

297A 

39A1 

E7 

1912 

39A1 

L 


r 


SEO  1547     i 


E8 

2752 

E9 

2974 

ERFLG 

114 

119 

123 

276 

282 

286 

341 

372 

376 

475 

552 

567 

571 

575 

591 

595 

685 

691 

702 

718 

934 

940 

941 

942 

943 

945 

947 

1187 

1283 

1299 

1301 

1305 

1375 

1391 

1395 

1519 

1930 

1941 

1948 

2185 

2196 

220? 

2770 

2781 

2788 

3187 

3361 

3372 

3379 

3553 

3564 

3571 

3749 

3760 

4175 

4182 

4364 

4381 

4388 

4658 

4669 

4676 

4900 

5507 

5518 

5525 

5738 

5748 

5755 

5873 

5881 

6593 

6912 

6922 

6929 

7018 

7041 

7043 

7047 

7067 

7069 

GENCCW 

32# 

1725 

4445 

4720 

5301 

5573 

GENEPE 

2825 

3033 

INITPI 

32# 

4020 

IPACLR 

31# 

97 

258 

342 

431 

545 

658 

688 

907 

1644 

1707 

1713 

1937 

2192 

2777 

2999 

3176 

3368 

4377 

4665 

4907 

5230 

5241 

5514 

5739 

5874 

6594 

IPAER 

4752 

IPASST 

31  # 

690 

939 

LAST 

137 

300 

388 

491 

611 

716 

965 

1209 

1324 

2833 

3041 

3212 

3404 

3596 

3823 

4028 

4220 

4452 

5897 

6727 

6835 

6957 

7088 

7091 

LAXER 

4750 

LDCRAM 

30# 

115 

277 

278 

351 

355 

446 

467 

7033 

LDCSR 

30# 
6675 

433 
6679 

547 
7039 

560 
7065 

563 

584 

587 

1712 

2826 

LDRAR 

30# 

101 

263 

350 

353 

368 

444 

465 

558 

5235 

5901 

6673 

7027 

7035 

7053 

7061 

LGWC 

4754 

Ml 

75 

237 

MIO 

75 

237 

329 

Mil 

5722 

5858 

6582 

6787 

6899 

Ml  2 

648 

898 

6999 

Ml  3 

5722 

5858 

6582 

6787 

Ml  4 

5722 

5858 

6582 

6787 

Ml  5 

5722 

5858 

6582 

6787 

Ml  6 

75 

237 

329 

420 

535 

Ml  7 

75 

237 

329 

Ml  8 

75 

237 

329 

Ml  9 

75 

237 

329 

M2 

5722 

5858 

6582 

6787 

M3 

1149 

1268 

1361 

1506 

M4 

75 

237 

329 

420 

535 

M41PNT 

7088 

7091 

7093# 

M5 

6899 

M6 

1619 
5210 
1619 
5210 
420 

1912 
5492 
1912 
5492 
535 

2167 

2752 

2974 

3151 

3343 

3535 

3731 

M7 

2167 

2752 

2974 

3151 

3343 

3535 

3731 

M9 

MAI 

120 

136# 

MA10 

1184 

1209# 

MA11 

1302 

1324# 

438 
692 
951 
1535 
2992 
3767 
4911 
6606 
7073 

450 
693 
967 
1539 
3003 
3959 
4918 
6614 

454 
694 
1165 
1637 
3010 
3970 
5226 
6800 

458 
696 
1181 
1648 
3169 
3977 
5245 
6810 

471 
698 
1183 
1655 
3180 
4164 
5252 
6817 

937 
3560 
6801 

1166 
3756 
6913 

1284 
3966 
7025 

1376 
4171 
7051 

1520 
4365 

1420 
4727 

1560 
5001 

1732 
5308 

2007 
5580 

2235 
5801 

7037 
3034 

7059 
4373 

7063 
5237 

5903 

5905 

582 

1710 

2000 

3816 

4371 

SEQ  1548 


$B 


3941 

4146 

4346 

4641 

4885 

3941 

4146 

4346 

4641 

4885 

iMAl2 


1392        1420# 


M^M      m  r  i  f\ 


MAI  2 

1392 

1420# 

MAI  3 

1536 

1560* 

MAU 

1652 

1730# 

MAUL 

1735 

1738# 

MAHLP 

1731 

1734* 

MAI  5 

1945 

2005* 

MA15L 

2010 

2013* 

MA15LP 

2006 

2009* 

MAI  6 

2200 

2233* 

MA16PN 

2234 

2237* 

MAI  7 

2785 

2831# 

MA17L 

2836 

2839* 

MA17LP 

2832 

2835* 

MA2 

283 

299* 

MA20 

3007 

3039* 

MA20L 

3044 

3047* 

MA20LP 

3040 

3043* 

MA21 

3184 

3210* 

MA21L 

3215 

3218* 

MA21LP 

3211 

3214* 

MA22 

3376 

3402* 

MA22L 

3407 

3410* 

MA22LP 

3403 

3406* 

MA23 

3568 

3594* 

MA23L 

3599 

3602* 

MA23LP 

3595 

3598* 

MA2A 

3764 

3821* 

MA2AL 

3826 

3829* 

MA24LP 

3822 

3825* 

MA25 

3974 

4026* 

MA25L 

4031 

4034* 

MA25LP 

4027 

4030* 

MA26 

4179 

4218* 

MA26L 

4223 

:226* 

MA26LP 

4219 

4222* 

MA27 

4385 

4450* 

MA27L 

4455 

4458* 

MA27LP 

4451 

4454* 

MA3 

373 

387* 

MA30 

4673 

4725* 

MA30L 

4730 

4733* 

MA30LP 

4726 

4729* 

MA30PN 

4738# 

HA31 

4915 

4999* 

MA31L 

5004 

5007* 

MA31L1 

5008 

5009    5010 

5011    5012   5013    5014    5015    5026* 

MA31L2 

5016 

5017    5018 

5019   5020   5021    5022    5023    5035* 

MA31LP 

5000 

5003* 

MA32 

5249 

5306* 

MA32L 

5311 

5314* 

MA32LP 

5307 

5310* 

MA33 

5522 

5578* 

MA33L 

5583 

5586* 

SEQ  1549 


L- 


MA33LP        5579        5582* 


ccr.  i«;^n 








— 
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MA33LP 

5579 

5582# 

MA34 

5752 

5800* 

MA3APN 

5800 

5803# 

MA35 

5885 

5895# 

MA35P1 

5900# 

5910 

MA35PN 

5897 

5899* 

MA36 

6611 

6726* 

MA36PN 

6726 

6729# 

MA37 

68U 

6833* 

HAA 

451 

472 

489* 

HAAO 

6926 

6956* 

MAA1 

7044 

7087* 

MA4PNT 

490 

495* 

MAS 

568 

592 

609* 

MA5PNT 

610 

615* 

NA6 

699 

716* 

HA6PN0 

719 

730* 

HA6PNT 

716 

7^8* 

HA7 

948 

965* 

HA7PN0 

968 

979* 

HA7PNT 

965 

967* 

mAi 

7070 

7090* 

NBCN 

5789 

5791 

6631 

6633 

6683 

6685 

nSERR 

1180 

1298 

1390 

1534 

Hbus 

418 

533 

1147 

1266 

1359 

1504 

5720 

6897 

MLAST 

75 

237 

329 

420 

535 

#3? 

898 

1149 

1268 

1361 

1506 

1619 

1912 

2167 

1  lkrl«^  1 

2752 

2974 

3151 

3343 

3535 

3941 

4146 

4346 

4641 

4885 

5210 

5492 

5722 

5858 

6582 

6787 

6899 

6999 

HPER 

4742 

HPMB1A 

7187 

7198* 

NPMB1B 

7202 

7207* 

HPMB2A 

7218 

7229* 

»Pm2B 

7233 

7238* 

Npneui 

1209 

'324 

7186* 

MPMBU? 

1420 

1560 

72^7M 

HPNT1 

137 

300 

388 

7122* 

nPNT2 

491 

611 

7151* 

HPNTC 

7096 

7098 

7137 

7143 

7170* 

HPNTCO 

npRoc 

7174# 
73 

7\77 
235 

327 

418 

533 

646 

896 

1147 

1266 

1359 

1504 

1617 

1910 

2165 

2750 

2972 

j149 

3341 

3533 

3729 

3939 

414^ 

4344 

4639 

4883 

5208 

5490 

5720 

5856 

6580 

6785 

6897 

6997 

nPRUN 

680 

929 

1711 

28<^5 

3033 

4372 

5236 

5902 

6674 

7038 

7064 

nsG 

136 

299 

387 

489 

609 

1730 

2005 

2233 

2831 

3039 

3210 

3402 

3594 

3821 

4026 

4218 

4450 

4725 

4999 

5306 

5578 

5895 

6833 

6834 

6956 

NDCB 
NOMP 

1266 
73 

1504 
235 

327 

41  d 

533 

646 

896 

1147 

1266 

1359 

1504 

1617 

1910 

2i65 

2750 

2972 

3149 

3341 

3533 

3729 

3939 

4144 

4344 

4639 

488: 

5208 

5490 

5720 

5856 

6580 

6785 

6897 

6997 

NEXW 

4748 

NOTWCO 

4746 

ODELAY 

220 

6677 

OLDRAN 

7008M 

7008 

7105 

7109 

SEC  1550 


n\iK 


L7^k 


OVN 

P 

PARFLG 

PAT 

PORTCI 

PORTNI 

RANDBS 

RDCRAM 

RDCSR 

RDEBUF 

RDLAR 

SAVADD 

SAVCR1 

SAVCR2 
SAVCRA 
SAVDA1 
SAVDAT 

SCOSU 

SDATA 

SELLAR 

SETVEC 

SEXEC 

SHUC 

SINCYC 

SLAST 

SNEXT 

SSCALL 

SSCHK 

SSJRST 

SSLAST 

SSPNT 

SSSTRT 

now 

T10TAB 

T11M 

Til  TAB 

T12M 

T12TAB 

T13M 

T13TAB 

TKM 

T15M 

T16M 

T17M 

T1PAT 

T20M 

T21M 

T22M 

T23M 

J2^n 


4758 
2219 

23# 
1716 
2A# 
2A# 
7007 
30# 
30# 
30* 
30# 
69AA# 
107 
579 
117 
100 
5907 
1175 
5804 
36# 
31# 
432 
32# 
26# 
4756 
7038 
31* 
31* 
5763 
5764 
5769 
5770 

26* 
5765 
6939 
1148 
1174 
1267 
1292 
1360 
1384 
1505 
1528 
1618 
1911 
2166 
2751 
106 
2973 
3150 
3342 
3534 
3730 


4010 

670 
5292 
5791 
5789 
7103 

116 

695 
5906 

447 
6944 

118 

590 

280 

262 
5917 
1293 
6715 

720 

681 

546 
4021 
6919 

7064 
733 
689 
5764 
5765 
5770 
5771 
6957 
:766 
6940 
1159 
1192 
1277 
1310 
1369 
1400 
1513 
1544 
1631 
1924 
2179 
2764 

141* 
2986 
3163 
3355 
3547 
3743 


5779 
671 

6633 

6631 

7107 

279 

723 

468 

6945 

269 

615 

370 

366 

5918 

1385 

6716 

730 

930 

562 


^'37 

938 
6622 
6623 
6626 
6627 

5767 
6941 
1213* 
1201* 
1328* 
1319* 
1424* 
1409* 
1564* 
1553* 
1749* 
2026* 
2248* 
2848* 
268 
3054* 
3225* 
3417* 
3609* 
3839* 


5782 
673 

6685 
6683 

369 
944 

564 

6948 

281 

618 

448 

7124 

5927 

1529 

6720 

969 

4016 

586 


740 

6623 
6624 
6627 
6628 


5795 
919 


561 
972 


6718 
920 


585 
7040 


588    1996 


367 
7136 

469 
7127 
5933 
2220* 
6733* 

979 
4019 
2825 


744 


6950 
922 


7066 
3813 


6646 


371 

441 

7156 

7246* 

565 

589 

7248* 

5937* 

2220 

2222 

6733 

7204 

5912 

5922 

7191 

449 
7142 


2228 
7235 
6729 


6647    6704 


7222 


SEQ  1551 


462 
7162 


470 
7247* 


2237    2241 

7249* 

7122    7151 


495    498    555    566 

5774    5777    5784    5804* 
7188    7198    7219    7229 


6937 
6939 
6941 
6829 


5768    5769 


3033 


982 

6938 
6940 

6830 
6624 


986 

6942 
6625 


989 

6943 
6626 


993 


6825 


6826    6827    6828    6829    6938 


$CHR 


/n/  7« 


r 


I 


T25M 

3940 

T26M 

4145 

T27M 

4345 

T27SR1 

4405 

T27SR2 

4414 

T30M 

4640 

TSOSR". 

4708# 

T30SRD 

4692 

T31M 

4884 

T32M 

5209 

T33M 

5491 

T33SR1 

5565# 

T33SR2 

5567# 

T3AM 

5721 

T3AMA 

5787 

T35M 

5857 

T36MA 

6635 

T36NB 

6687 

T37M 

6786 

T40M 

6898 

T41RAN 

7019 

T6TAB 

662 

T7TAB 

911 

TA1 

90# 

TA10 

117U 

TA11 

1289# 

TA12 

1381# 

TA13 

1525# 

TA14 

1644# 

TA15 

1937# 

TA16 

2192# 

TA17 

2777M 

TA2 

251# 

TA20 

2999# 

TA21 

3176# 

TA22 

3368# 

TA23 

3560# 

TA24 

3756# 

TA25 

3966# 

TA26 

4171# 

TA27 

iillltt 

TA3 

341# 

TA30 

Ubt5M 

TA31 

4907* 

TA32 

5241* 

TA33 

5514* 

TA34 

5745* 

TA36 

6600* 

TA37 

6807* 

TA4 

431* 

TA40 

6919* 

TA41 

7025* 

TA5 

545* 

3953 

4043* 

4158 

4235* 

4358 

4472* 

4421 

4428 

4438* 

5549 

4652 

4766* 

4714 

4706* 

4894 

5048* 

5220 

5324* 

5501 

5595* 

5732 

5785 

5788 

5818* 

5867 

5941* 

6741* 

6753* 

6794 

6841* 

6906 

6961* 

7103* 

751* 

1000* 

109 

1185 

1193 

1303 

1311 

1393 

1401 

1537 

1545 

1655 

1948 

2203 

2788 

271 

iOlO 

3187 

3379 

3571 

3767 

3977 

4182 

374 

4676 

4918 

5252 

5525 

574' 

5755 

6602 

6614 

6809 

6817 

SEQ  1552 


4436*   5535    5542    5556 


5786 


5793    5811* 


6921 
7045 


6929 


TA6 

TA6A 

TA7 

TA7A 

TADDR 

TBI 

TBU 

TBI  5 

TBI  6 

TBI  7 

TB1L 

TB2 

TB20 

TB21 

TB22 

TB23 

TB2A 

TB25 

TB26 

TB27 

TB2L 

TB3 

TB30 

TB31 

TB32 

TB33 

TBA 

TBA1 

TBS 

TC? 

TC4 

TC5 

TCALL 


TCALLC 
TCHECK 


TDATAI 
TDATAO 
TEXEC 


685# 

694 

93A# 

943 
26# 
4661 

106# 
1645# 
1938# 
2193# 
2778# 

114# 

268# 
3000# 
31 77# 
3369# 
3561  # 
3757# 
3967* 
4172* 
4378* 

276* 

;666* 

4908* 

5242* 

5515* 

438* 

7051* 

552* 

363* 

458* 

575* 

1665 

1991 

3993 

5262 

5556 

2211 

1667 

1965 

2805 

3390 

3800 

4205 

4687 

4945 

4972 

5264 

5558 

1984 

1991 

26* 


700 
699* 
949 
948* 
1640 
4903 
128 
1647 
1940 
2195 
2780 
121 
291 
3002 
3179 
3371 
3563 
3759 
3969 
4174 
4380 
284 
358 
4668 
4910 
5244 
5517 
452 
7071 
569 
379 
473 
593 
!666 
1992 
3994 
5263 
5557 
2212 
1668 
1966 
2806 
3391 
3801 
4206 
4688 
4946 
4973 
5265 
5559 
1996* 
1999* 
1645 


708 

957 

1933 
5229 


SEQ  1553 


2188 
5232 


2217 
5510 


2773   2995    3172    3364    3556    3752   3962   4167   4368 


4388 


481 

601 

1672 

1673 

1679 

1680 

1687 

1688 

1694 

1695 

1701 

1702 

1984 

2811 

2812 

3027 

3028 

3784 

3785 

3791 

3792 

3799 

3800 

3806 

4001 

4002 

4405 

4406 

4414 

4415 

4421 

4422 

4428 

4429 

4692 

5269 

5270 

5277 

5278 

5284 

5285 

5535 

5536 

5542 

5543 

5549 

3997 
1674 

3998 
1675 

1681 

1682 

1689 

1690 

1696 

1697 

1703 

1704 

1959 

1971 

1972 

1978 

1979 

1985 

1986 

1992 

1993 

2213 

2214 

2799 

2812 

2813 

2819 

2820 

3021 

3022 

3028 

5Q29 

3198 

3199 

3204 

3396 

3397 

3582 

3583 

3588 

3589 

3778 

3779 

3785 

3786 

3792 

3807 

3808 

3988 

3989 

3995 

3996 

4003 

4004 

4193 

4194 

4199 

4212 

4213 

4399 

440( 

4407 

4408 

4416 

4417 

4423 

4424 

4430 

4694 

4695 

47C0 

470 

4929 

4930 

4936 

4937 

4939 

4940 

4942 

4948 

4949 

4952 

495:: 

4955 

4956 

4958 

4959 

4966 

4967 

4969 

4975 

4976 

4978 

4979 

4981 

4982 

4984 

4985 

4987 

4988 

4993 

5271 

5272 

5279 

5280 

5286 

5287 

5537 

5538 

5544 

5545 

5551 

1938 


2193    2778 


3000 


3177 


3369    3561    3757    3967   4172    4378 


1985 
3807 
4693 
5550 


1960 
2800 
3205 
3793 
4200 
4431 
4943 
4970 
4994 
5552 


4666 


4908 

5242 

5515 

TEXIT 

1668 

1669 

1675 

1676 

1966 

1967 

1972 

1973 

2806 

2807 

2813 

2814 

3583 

3584 

3589 

3590 

3989 

3990 

3996 

3997 

4400 

4401 

4408 

4409 

4930 

4931 

4937 

4938 

4956 

4957 

4959 

4960 

4982 

4983 

4985 

4986 

5287 

5288 

5538 

5539 

TGI 

72 

84* 

TGIO 

1146 

1157* 

TG11 

1265 

1275* 

TGI  2 

1358 

1367* 

TGI  3 

1503 

1511* 

TGH 

1616 

1629* 

TGI  5 

1909 

1922* 

TGI  6 

2164 

2177* 

TGI  7 

2749 

2762* 

TG2 

234 

245* 

TG20 

2971 

2984* 

TG21 

3148 

3161* 

TG22 

:340 

3353* 

TG23 

:532 

3545* 

TG2A 

;728 

3741* 

TG25 

3938 

3951* 

TG26 

4143 

4156* 

TG27 

4343 

4356* 

TG3 

326 

336* 

TG30 

4638 

4650* 

TG31 

4882 

4892* 

TG32 

5207 

5218* 

TG33 

5489 

:499* 

TG3A 

5719 

5730* 

TG35 

5855 

5865* 

TG36 

6579 

6588* 

TG37 

6784 

6792* 

TGA 

417 

426* 

TG40 

6896 

6904* 

TGAl 

6996 

7005* 

TG5 

532 

540* 

TG6 

645 

656* 

T67 

895 

905* 

TI6A 

664# 

675 

TI7A 

91 3# 

924 

TJRST 

2215 

2216 

TL10 

1165# 

TL11 

1283* 

TL12 

1375* 

TL13 

1519* 

TLK 

1637* 

1653 

TL15 

1930* 

1946 

1682 
1979 
3022 
3779 
4004 
4417 
4940 
4967 
4988 
5545 


1683 

1690 

1980 

1986 

3023 

3199 

3780 

3/86 

4005 

4194 

4418 

4424 

4941 

4943 

4968 

4970 

4989 

4994 

5546 

5552 

1691 
1987 
3200 
3787 
4195 
4425 
4944 
4971 
4995 
5553 


1697 

1698 

1704 

1705 

1960 

1961 

1993 

1994 

2214 

2215 

2800 

2801 

3205 

3206 

3391 

3392 

3397 

3398 

3793 

3794 

3801 

3802 

3808 

3809 

4200 

4201 

4206 

4207 

4213 

4214 

4431 

4432 

4688 

4689 

4695 

4696 

4946 

4947 

4949 

4950 

4953 

4954 

4973 

4974 

4976 

4977 

4979 

4980 

5265 

5266 

5272 

5273 

5280 

5281 

5559 

5560 

SEQ  1554 


SGAF 


^«    t%F   AA 


15«2 


TL16 

TL17 

TL20 

TL21 

TL22 

TL23 

TL24 

TL25 

TL26 

TL27 

TL30 

TL31 

TL32 

TL33 

TL3A 

TL35 

TL36 

TL37 

TLAO 

TLA1 

TL6 

TL7 

TLAST 


TLOAD 
TRACE 


TSU 

TSUIN 

TSKRW 

TS15 

TS16 

TS16AD 

TS16AX 

TS17 

TS17PE 

TS20 

TS20PE 

TS21 

TS22 

TS23 

TS2A 

TS24DI 

TS2AD0 

TS25 

TS25EX 

TS25IA 

TS25IB 

TS26 

TS27 


2185# 
2770# 
2992# 
3169# 
3361  # 
3553* 
37A9# 
3959# 
A16A# 
4364# 
4658* 
A900# 
5226# 
5507# 
5738# 
5873# 
6593# 
6800* 
6912* 
70U* 
667 
916 
1705 
3809 
5560 
22* 
3954 

2178 

5731 

1638 

1665 

1672 

1931 

2186 

2211 

2221 

2771 

2811 

2993 

3027 

3170 

3362 

3554 

3750 

3784 

3791 

3960 

3997 

3993 

4001 

4165 

4367 


2201 
2786 
3008 
3185 
3377 
3569 
3765 
3975 
4180 
4386 
4674 
4916 
5250 
5523 
5753 
5886 
6612 
6815 
6927 
7079 
679* 
928* 
1706 
3810 
5561 
1160 
4159 
85 
2763 
5866 
1665* 
1707* 
1679 
!958* 
2211* 
2217* 
2229* 
2798* 
2825* 
3020* 
3033* 
3197* 
3389* 
3581* 
3777* 
3799 
3806 
3987* 
4009* 
4015* 
4019* 
4192* 
4398* 


SEQ  1555 


1994 
4005 

1278 
4359 
246 
2985 
6589 


1687 
2215 


1995 
4006 

1370 
4653 
337 
3162 
6793 


2821 
4214 

1514 
4895 
427 
3354 
6905 


1694    1701 


2822 
4215 

1632 
5221 
541 
3546 
7006 


1716* 


3029 
4432 

1925 

5502 

657 

3742 


3030 
4433 

2180 

5733 

906 

3952 


3206 
4701 

2765 
5794 
1158 
4157 


3207 
4702 

2987 
5868 
1276 
4357 


3398 
4995 

3164 
6636 
1368 
4651 


3399 
4996 

3356 
6688 
1512 
4893 


3590 
5288 

3548 
6795 
1630 
5219 


3591 
5289 

3744 
6907 
1923 
5500 


3813* 
3816* 


L. 


r 


1  1543 


TS30 

TS31 

TS32 

TS32RD 

TS33 

TS3A 

TS3A1N 

TS3AL 

TS3AST 

TS36 

TS36L 

TS36L0 

TS36L1 

TS36L2 

TS36L3 

TS36LD 

TS36ST 

TS36U0 

TS36W1 

TS37 

TSAO 

TSAOA 

TSAOCH 

TSAOIN 

TSL0D1 

TSL0D2 

TSTART 


TSTC3 

TSTCA 

TSTE45 

TSTEBF 

TSTSUB 


TSTUI 

TSTU10 

TSTUI 1 

TSTU12 

TSTU13 

TSTUU 

TSTU15 


4659 
4901 
5227 
5262 
5508 
5741 
5763 
5764# 
5764 
6596 
6623# 
6652# 
6654 
6696# 
6698 
6622 
6623 
6641 
6645 
6803 
6915 
6939# 
6939 
6937 
23# 
23# 
1666 
1964 
2804 
3389 
3798 
4204 
4686 
4944 
4971 
5263 
5557 
18# 
18# 
18# 
5904 
2l» 
936 

mi 

4166 
5740 
10 


4686# 
4928# 
5231 
5269 
5535* 
5763* 
5774# 
5769 
5777* 
6622# 
6626 
6665 
6671* 
6701 
6703* 
6631* 
6714* 
6655 
6660 
6825* 
6937* 
6941 
6948* 
6944* 
5790 
5792 
1667 
1965 
2805 
3390 
3799 
4205 
4687 
'945 
4972 
5264 
5558 
1620 
1621 
650 

113 
1171 
2835 
4222 
5875 

1146* 

1150 

1151 

1152 

1616* 

1909* 


SEQ  1556 


5262* 
5277 


5284    5292* 


6719    6721 


6709* 
6710* 


6951 


6632 
6634 
1673 
1970 
2810 
3395 
3805 
4211 
4693 
4947 
4974 
5270 

4347 

4348 

899 

275 
1172 
2994 
4366 
6595 


1265* 

1269 

1270 


6684 
6686 
1674 
1971 
2811 
3396 
3806 
4212 
4694 
4948 
4975 
5271 

4642 
4643 
7000 

343 
1289 
3043 
4454 
6802 


1358* 
1362 


1680 
1977 
2818 
3581 
3987 
4398 
4699 
4951 
4977 
5278 

5211 
5212 


363 
1290 
3171 
4660 
6914 


1503* 


1681 
1978 
2819 
3582 
3988 
4399 
4700 
4952 
4978 
5279 

5493 
5494 


442 
1381 
3214 
4729 
7014 


1688 
1983 
3020 
3587 
3994 
4406 
4928 
4954 
4980 
5285 


443 
1382 
3363 
4902 


1689 

1695 

1696 

1702 

1703 

1958 

1959 

1984 

1990 

1991 

2212 

2213 

2798 

2799 

3021 

3026 

3027 

3197 

3198 

3203 

3204 

3588 

3777 

3778 

3783 

3784 

3790 

3791 

3995 

4002 

4003 

4192 

4193 

4198 

4199 

4407 

4415 

4416 

4422 

4423 

4429 

4430 

4929 

4935 

4936 

4938 

4939 

4941 

4942 

4955 

4957 

4958 

4965 

4966 

4968 

4969 

4981 

4983 

4984 

4986 

4987 

4992 

4993 

5286 

5536 

5537 

5543 

5544 

5550 

5551 

463 
1525 
3406 
5003 


464 
1526 
3555 
5027 


556 

557 

580 

581 

687 

1639 

1734 

1932 

2009 

218/ 

3598 

3751 

3825 

3961 

^919 

5036 

5228 

5310 

5509 

5582 

TSTU16 

11 

1913 

TSTU17 

11 

1914 

TSTU2 

10 

76 

TSTU20 

11 

1915 

TSTU21 

12 

1916 

TSTU22 

12 

1917 

TSTU23 

12 

2172 

TSTU2A 

12 

2757 

TSTU25 

12 

2979 

TSTU26 

12 

3156 

TSTU27 

12 

3348 

TSTU3 

10 

n 

TSTU30 

12 

1622 

TSTU31 

13 

3736 

TSTU32 

13 

1623 

TSTU33 

13 

1624 

TSTU34 

13 

571 9# 

TSTU35 

13 

5723 

TSTU36 

13 

5724 

TSTU37 

13 

5725 

TSTUA 

10 

78 

TSTUAO 

13 

6896# 

TSTUA1 

14 

651 

TSTU5 

10 

79 

TSTU6 

]8 

645# 

TSTU7 

649 

TTPNT 

26# 

1732 

5001 

5308 

TX1 

92 

95 

TX10 

1186 

1187 

Txn 

1304 

1305 

TX12 

1394 

1395 

TX13 

1538 

1539 

TXK 

1646 

'654 

TX15 

1939 

1947 

TX16 

2194 

2202 

TX17 

2779 

2787 

TX2 

253 

256 

TX20 

3001 

3009 

TX21 

:178 

3186 

TX22 

:370 

3378 

TX23 

:562 

3570 

TX24 

:758 

3766 

TX25 

3968 

3976 

TX26 

4173 

4181 

TX27 

4379 

4387 

TX3 

375 

376 

TX50 

4667 

4675 

TX31 

4909 

4917 

TX32 

5243 

5251 

TX33 

"5516 

5524 

TX54 

'J  746 

5754 

TX35 

5887 

5891# 

2164* 
2168 

234# 
2169 
2170 
2171 
2756 
2978 
3155 
3347 
3539 

238 
3540 
3945 
3946 
4151 

5855* 

5859 

5860 

239 

900 
240 

895* 
2007 
5580 

122 
1197* 
1315* 
1405* 
1549* 
1659* 
1952* 
2207* 
2792* 

285 
3014* 
3191* 
3383* 
3575* 
3771* 
3981* 
4186* 
4392* 

383* 
4680* 
4922* 
5256* 
5529* 
5759* 


2749* 


SEO  1557 


2753 

2971* 

2754 

2975 

3148* 

2755 

2976 

3152 

3340* 

2977 

3153 

3344 

3532* 

3154 

3345 

3536 

3728* 

3346 

3537 

3732 

3938* 

3538 

3733 

3942 

4143* 

3734 

3943 

4147 

4343* 

326* 

3735 

3944 

4148 

4349 

4149 

4882* 

4150 

4350 

4644 

4886 

4351 

4645 

4887 

5213 

4638* 

5207* 
5489* 


6579* 
6583 
330 

6996* 
531 


2235 


123 


6784* 
417* 


421 

2833 
132* 


532* 
3041 


3212 


3404 


3596    3823    4028    4220    4452   4727 


286 


295* 


%Al 


L- 


0  15^5 


TX56 

TX37 

TX4 

TXAO 

TXA1 

TX5 

TX6 

TX7 

TXALL 


TXNOT 


TXTINH 

UDEBUG 

USER 

Z8 


ZMPROC 
SARG2 


6601 

6808 

A53 

6920 

70A6 

570 

701 

950 

137 

2833 

5896 

136 

2832 

4219 

683A 

721 

7138 

22# 
4009 

A3# 
2177 
5730 

73 
2750 
5856 
1213# 
1229# 
1332# 
H38* 
U54# 
U70# 
1571# 
1751* 
1771# 
1788* 
1805* 
1822* 
1842* 
1859* 
1873* 
2039* 
2059* 
2077* 
2091* 
2108* 
2125* 
2252* 
2266* 
2280* 
2294* 
2308* 
2322* 
2342* 


6613 

68'.  6 

454 

6928 

^047 

571 

702 

951 

300 

3041 

5897 

299 

3039 

4450 

6956 

731 

7140 

93 

84 
2762 
5865 
235 
2972 
6580 
1213 
1229 
1332 
1438 
1454 
1470 
1571 
1751 
'771 
1788 
1805 
1822 
1842 
1859 
1873 
2039 
2059 
2077 
2091 
2108 
2125 
2252 
2266 
2280 
2294 
2308 
2322 
2342 


6618* 
6821* 

474 
6933* 
7072 

594 

712* 

961* 

388 
3212 
6726 

387 
3040 
4451 
7087 

970 
7152 

254 

245 
2984 
6588 

327 
3149 
6785 
1215* 
1231* 
1424* 
1440* 
1456* 
1473* 
1573* 
1753* 
1773* 
1790* 
1807* 
1824* 
1844* 
1861* 
1875* 
2044* 
2061* 
2079* 
2096* 
2110* 
2127* 
2254* 
2268* 
2282* 
2296* 
2310* 
2327* 
2347* 


SEQ  1558 


475 

7073 
595 


491 
3404 
6727 

489 
3210 
4725 
7090 

980 
7154 
5780 

336 
3161 
6792 

418 
3341 
6897 
1215 
1231 
1424 
1440 
1456 
1473 
1573 
1753 
1773 
1790 
1807 
1824 
1844 
1861 
1875 
2044 
2061 
2079 
2C96 
2110 
2127 
2254 
2268 
2282 
2296 
2310 
2327 
2347 


485* 

7083* 
605* 


611 
3596 
6835 

490 
3211 
4726 

5913 
7158 


426 
3353 
6904 

533 
3533 
6997 
1217* 
1234* 
1426* 
1442* 
1459* 
1475* 
1575* 
1758* 
1775* 
1792* 
1809* 
1826* 
1846* 
1863* 
2026* 
2046* 
2063* 
2081* 
2098* 
2112* 
2129* 
2256* 
2270* 
2284* 
2298* 
2312* 
2329* 
2349* 


716 
3823 
6957 

609 
3402 
4999 

5915 
7160 


540 
3545 
7005 

646 
3729 

1217 
1234 
1426 
1442 
1459 
1475 
1575 
1758 
1775 
1792 
1809 
1826 
1846 
1863 
2026 
2046 
2063 
2081 
2098 
2112 
2129 
2256 
2270 
J284 
2298 
2312 
2329 
2349 


965 
4028 
7088 

610 
3403 
5000 

5923 
7189 


656 
3741 

896 
3939 

1220* 
1236* 
1428* 
1445* 
1461* 
1477* 
1578* 
1760* 
1780* 
1797* 
1814* 
1831* 
1848* 
1865* 
2028* 
2048* 
2065* 
2083* 
2100* 
2117* 
2131* 
2258* 

linn 

2286* 
2300* 
2314* 
2331* 
2351* 


1209 
4220 
7091 
1730 
3594 
5306 

5925 
7199 


905 
3951 

1147 
4144 

1220 
1236 
1428 
1445 
1461 
1477 
1578 
1760 
1780 
1797 
1814 
1831 
1848 
1865 
2028 
2048 
2065 
2083 
2100 
2117 
2131 
2258 

ini 

2286 
2300 
2314 
2331 
2351 


1324 
4452 

1731 
3595 
5307 

5929 
7220 


1157 
4156 

1266 
4344 

1222* 
1238* 
1431* 
1447* 
1463* 
1564* 
1580* 
1762* 
1782* 
1799* 
1816* 
1833* 
1850* 
1867* 
2030* 
2050* 
2067* 
2085* 
2102* 
2119* 
2133* 
2260* 
2274* 
2288* 
2302* 
2316* 
2336* 
2356* 
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5612* 
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5621 

5623* 

5623 

5625* 

5625 
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5627 

5629* 

5638* 

5638 

5640* 
5657* 

5640 
5657 

5642* 

5642 

5644* 

5644 

5646* 
5663* 

5655* 

5655 

5659* 

5659 

5661* 
5678* 

5661 

5669* 

5669 

5674* 

5674 

5676* 

5676 

5678 

5680* 

5686* 

5686 

5688* 

5688 

5690* 

5690 

5811* 

5811 

5813* 

5820* 

5820 

5822* 

5822 

5941* 

5941 

5946* 

5946 

5948* 

5954* 

5954 

5956* 

5956 

5958* 

5958 

5960* 
5974* 

5960 
5974 

5962* 
5976* 

5968* 

5968 

5970* 

5970 

5972* 

5972 

5982* 
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5984* 

5984 

5986* 

5986 

5988* 
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5998* 
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6002 

6004* 

6010* 

6010 

6012* 

6012 

6014* 

6014 

6016* 

6016 
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6024 

6026* 

6026 

6028* 

6028 

6030* 

6030 

6032* 

6038* 

6038 
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6042* 

6042 

6044* 

6044 

6046* 

6052* 

6052 

6054* 

6054 

6056* 

6056 

6058* 

6058 

6060* 
6074* 

6066* 

6066 

6068* 

6068 

6070* 

6070 

6072* 

6072 

6080* 

6080 

6082* 

6082 

6084* 

6084 

6086* 

6086 

6088* 

4076 
4090 
4107 
4246 
4266 
4283 
4300 
4476 
4498 
4518 
4535 
4552 
4569 
4583 
4600 
4776 
4790 
4810 
4824 
4841 
5058 
5072 
5091 
5112 
5130 
5147 
5164 
5326 
5343 
5360 
5374 
5391 
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5428 
5445 
5595 
5612 
5629 
5646 
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5680 
5813 
5948 
5962 
5976 
5990 
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6032 
6046 
6060 
6074 
6088 


4078* 
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4095 

4097* 
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4109 
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4248* 

4248 

4253* 

4253 

4271* 

4271 

4273* 

4273 

4285* 

4285 

4287* 

4287 

4482* 

4302 

4304* 

5304 

4482 

4484* 

4484 

4500* 
4520* 

4500 

4505* 

4505 

4520 

4522* 

4522 

4540* 

4540 

4542* 

4542 

4554* 

4554 

4556* 

4556 

4571* 

4571 

4573* 

4573 

4585* 

4585 

4590* 

4590 

4602* 
4778* 

4602 
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4604 

4778 

4780* 

4780 

4792* 

4792 

4794* 

4794 

4812* 

4812 

4814* 

4814 
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4826 

4831* 

4831 

4843 

4845* 

4845 
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5060 

5062* 

5062 

5079 
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5093* 
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5137* 
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5149 
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5151 
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5166 

5168* 
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5:28* 
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5330 

5:45* 
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5:62* 

5362 
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5:93* 
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5665* 
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6008* 

6008 
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6330* 
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6332* 
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6362 

6364* 
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6461* 
6476* 
6492* 

6467* 
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6470 

6472* 
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6854 
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1238* 

1332* 
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1431* 
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1461* 
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1473 
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1753* 
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1758* 
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1826* 
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1846 

1848* 

1848 
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1859 
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1861 

1863 
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1865 
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1873 
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2026 

2028* 

2028 

2039* 

2039 

2044* 

2044 

2046* 
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2046 

2048* 

2050* 

2059* 
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2061* 

2061 

2063 

2065* 
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2067* 

2077* 

2077 

2079* 

2079 

2081* 

2081 

2083* 

2083 

2085* 

2091* 

2091 

2096* 

2096 

2098* 

2100* 

2  00 

2102* 

2108* 

2108 

2110* 

2110 

2112* 

2117* 

2117 

2119* 

6102 

6104* 

6104 

6106* 

6106 

6116 
6130 

6118* 

6118 

6120* 

6120 

6132* 

6132 

6134* 

6134 

6144 

6146* 

6146 

6148* 

6148 

6158 

6160* 
6183* 

6160 

6162* 
6185* 

6162 

6181 

6183 

6185 

6198 

6200* 

6200 

6202* 

6202 

6212 

6214* 

6214 

6216* 
6230* 

6216 

6226 
6240 

6228* 

6228 

6230 

6242* 

6242 

6244* 

6244 

6254 

6256* 

6256 

6258* 

6258 

6272 

6274* 

6274 

6276* 

6276 

6287 
6303 

6290* 
6305* 
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6292* 

6292 

6305 
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6308 

6319 

6:21* 

6321 
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6323 

6335 

6:37* 

6337 
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6339 

6350 

6:53* 

6353 
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6355 

6366 

6:  68* 

6368 

6371* 

6371 

6382 

6384* 

6384 

6386* 
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6398 

6400* 

6400 

6402* 

6402 

6413 

6416* 

6416 

6418* 

6418 

6429 

6431* 

6431 

6434* 

6434 

6445 

6447* 

6447 

6449* 

6449 

6461 

6463* 

6463 

6465* 

6465 

6476 

6479* 

6479 

6481* 

6481 

6492 

6494* 

6494 

6497* 

6497 

6508 

6510* 

6510 

6512* 

6512 

6524 

6526* 

6526 

6528* 

6528 

6539 

6542* 

6542 

6544* 

6544 

6743 

6745* 

6745 

6747* 

6747 

6845 

6847* 

6847 

6852* 

6852 

6865 

6867* 

6867 

6961* 

6961 

1222 

1224* 

1224 

1227* 

1227 
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1328 

1330* 

1330 

1431 

1433* 

1433 

1435* 

1435 

1447 

1449* 

1449 

1452* 

1452 

1463 

1466* 

1466 

1468* 

1468 

1564 
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1568* 
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1749 
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1764* 
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1769* 
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1784* 
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2684* 
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2696 
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2711* 
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2717 

2848* 
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W^ 
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3286* 

3286 

3288* 
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:423* 
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3425* 
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::427* 

3436* 
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:457* 
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:470 
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3493 
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3613* 
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3621* 
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:643* 

3643 
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J  647* 
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P 
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3693 

:  695* 
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2585 
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2648 
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3309 
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2441* 
2464* 
2484* 
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2850* 
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3111* 
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3246* 
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3466* 
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J839* 
5859* 
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2358 

2:60* 

2360 

2378 

2:83* 

2383 

2401 

2403* 

2403 

2421 

2i*2l» 

2423 

2441 

2446* 

2446 

2464 

2466* 

2466 

2484 

2^S6» 

2486 

2504 

2509* 

2509 

2527 

2529* 

2529 

2547 

2549* 

2549 

2567 

2572if 

2572 

2590 

2592* 

2592 

2610 

2612* 

2612 

2630 

2635* 

2635 

2653 

2655* 

2655 

2673 

2675* 

2675 

2690 

2692* 

2692 

2707 

2709* 

2709 

2850 

2852* 

2852 

2867 

2872* 

2872 

2887 

2889* 

2889 

2904 

2906* 

2906 

2918 

2920* 

2920 

2935 

2937* 

2937 

3063 

3065* 

3065 

3077 

3082* 

3082 

3094 

3096* 

3096 

3111 

:113* 

3113 

3229 

:231* 

3231 

3246 

:248* 

3248 

3263 

:265* 

3265 

3280 

:282* 

328? 

3297 

:299* 

3299 

3311 

::417* 

3417 

3429 

;:431* 

3431 

3446 

:i45i* 

3451 

3466 

::468* 

3468 

:480 

:482* 

3482 

;497 

;499* 

3499 

3615 

:6i7* 

3617 

3632 

;634* 

3634 

:649 

:65i* 

3651 

:666 

:668* 

3668 

■683 

3685* 

3685 

3841* 

3841 

3859 

3861* 

3861 
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3874*   3874 


3876*   3876 


3878*   3878 
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3863 

3865* 

3865 

3870* 

3870 

38??* 

3872 

3874* 

3880# 

3880 

3882* 

3884 

3903* 

3886 

3891* 

3897# 

3897 

3899* 

3899 

3901* 

3901 

3903 

3905* 

4045# 

4045 

4047* 

4047 

4052* 

4052 

4054* 

4054 

4056* 

4065# 

4065 

4067* 

4067 

4069* 

4069 

4074* 

4074 

4076* 

4082# 

4082 

4084* 

4084 

4086 

4088* 

4088 

4090* 

4099# 

4099 

4101* 

4101 

4103 

4105* 

4105 

4107* 

4235* 

4235 

4237* 

4237 

4239 

4244* 

4244 

4246* 

4255* 

4255 

4257* 

4257 

4262* 

4262 

4264* 

4264 

4266* 

4275# 

4275 

4277* 

4277 

4279* 

4279 

4281* 

4281 

4283* 

4292# 

4292 

4294* 

4294 

4296* 

4296 

4298* 

4298 

4300* 

4306* 

4306 

4308* 

4308 

4472* 

4472 

4474* 

4474 

4476* 

4486# 

4486 

4488* 

4488 

4494* 

4494 

4496* 
4513* 

4496 

4498* 

4507* 

4507 

4509* 

4509 

4511* 

4S11 

4513 

4518* 

4524* 

4524 

4526* 

4526 

4531* 

4531 

4533* 

4533 

4535* 

4544* 

4544 

4546* 

4546 

4548* 

4548 

4550* 

4550 

4552* 

4558* 

4558 

4560* 

4560 

4562* 

4562 

4564* 

4564 

4569* 

4575* 

4575 

4577* 

4577 

4579* 

4579 

4581* 

4581 

4583* 

4592* 

4592 

4594* 

4594 

4596* 

4596 

4598* 

4598 

4600* 

4606* 

4606 

4766* 

4766 

4768* 

4768 

4770* 

4770 

4776* 

4782* 

4782 

4784* 

4784 

4786* 

4786 

4788* 

4788 

4790* 

4799* 

4799 

4801* 

4801 

4803* 

4803 

4805* 

4805 

4810* 

4816* 

4816 

4818* 

4820* 

4820 

4822* 

4822 

4824* 

4833* 

4833 

4835* 

4835 

4837* 

4837 

4839* 

4839 

4841* 

4847* 

4847 

5048* 

5048 

5050* 

5050 

5052* 

5052 

5058* 

5064* 

5064 

5066* 

5066 

5068* 

5068 

5070* 

5070 

5072* 

5083* 

5083 

5085* 

5085 

5087* 

5087 

5089* 

5089 

5091* 

5100* 

5100 

5102* 

5102 

5104* 

5  04 

5110* 

5110 

5112* 

5118* 

5118 

5124* 

5124 

5126* 

5126 

5128* 

5128 

5130* 

5139* 

5139 

5141* 

5141 

5143* 

5143 

5145* 

5145 

5147* 

5153* 

5153 

5158* 

5158 

5160* 

5160 

5162* 

5162 

5164* 

5170* 

5170 

5172* 

5172 

5174* 

5174 

5324* 

5324 

5326* 

5332* 

5332 

5337* 

5337 

5339* 

5339 

5341* 

5341 

5343* 

5349* 

5349 

5351* 

5351 

5353* 

5353 

5355* 

5355 

5360* 

5366* 

5366 

5368* 

5368 

5370* 

5370 

5372* 

5372 

5374* 

5383* 

5383 

5385* 

5385 

5387* 

5387 

5389* 

5389 

5391* 

5400* 

5400 

5402* 

5402 

5404* 

5404 

5406* 

5406 

5408* 

5420* 

5420 

5422* 

5422 

5424* 

5424 

5426* 

5426 

5428* 

5434* 

5434 

5436* 

5436 

5441* 

5441 

5443* 

5443 

5445* 

5451* 

5451 

5453* 

5453 

5455* 

5455 

5457* 

5457 

5595* 

5601* 

5601 

5606* 

5606 

5608* 

5608 

5610* 

5610 

5612* 

5621* 

5621 

5623* 

5623 

5625* 

5625 

5627* 

5627 

5629* 

5638* 

5638 

5640* 

5640 

5642* 

5642 

5644* 

5644 

5646* 

5655* 

5655 

5657* 

5657 

5659* 

5659 

5661* 

5661 

5663* 

5669* 

5669 

5674* 

5674 

5676* 

5676 

5678* 

5678 

5680* 

5686* 

5686 

5688* 

5688 

5690* 

5690 

5811* 

5811 

5813* 

5820* 

5820 

5822* 

5822 

5941* 

5941 

5946* 

5946 

5948* 

5954* 

5954 

5956* 

5956 

5958* 

5958 

5960* 

5960 

5962* 

5968* 

5968 

5970* 

5970 

5972* 

5972 

5974* 

5974 

5976* 

5982* 

5982 

5984* 

5984 

5986* 

5986 

5988* 

5988 

5990* 

5996* 

5996 

5998* 

5998 

6000* 

6000 

6002* 

6002 

6004* 

6010* 

6010 

6012* 

6012 

6014* 

6014 

6016* 

6016 

6018* 

6024* 

6024 

6026* 

6026 

6028* 

6028 

6030* 

6030 

6032* 

3874 
3891 
3905 
4056 
4076 
4090 
4107 
4246 
4266 
4283 
4300 
4476 
4498 
4518 
4535 
4552 
4569 
4583 
4600 
4776 
4790 
4810 
4824 
4841 
5058 
5072 
5091 
5112 
5130 
5147 
5164 
5326 
5343 
5360 
5374 
5391 
5408 
5428 
5445 
5595 
5612 
5629 
5646 
5663 
5680 
5813 
5948 
5962 
5976 
5990 
6004 
6018 
6032 


3876* 
3893* 
3907* 
4058* 
4078* 
4095* 
4109* 
4248* 
<»271* 
4285* 
4302* 
4482* 
4500* 
4520* 
4540* 
4554* 
4571* 
4585* 
4602* 
4778* 
4792* 
4812* 
4826* 
4843* 
5060* 
5079* 
5093* 
5114* 
5132* 
5V9* 
5166* 
5328* 
5345* 
5362* 
5379* 
5393* 
5413* 
5430* 
5447* 
5597* 
5614* 
5631* 
5648* 
5665* 
5682* 
5815* 
5950* 
5964* 
5978* 
5992* 
6006* 
6020* 
6034* 


3876 

3893 

3907 

4058 

4078 

4095 

4109 

4248 

4271 

4285 

4302 

4482 

4500 

4520 

4540 

4554 

4571 

4585 

4602 

4778 

4792 

4812 

4826 

4843 

5060 

5079 

5093 

5114 

5132 

5149 

5166 

5328 

5345 

5362 

5379 

5393 

5413 

5430 

5447 

5597 

5614 

5631 

5648 

5665 

5682 

5815 

5950 

5964 

5978 

5992 

6006 

6020 

6034 


3878* 
3895* 
4043* 
4063* 
4080* 
4097* 
4111* 
4253* 
4273* 
4287* 
4304* 
4484* 
4505* 
4522* 
4542* 
4556* 
4573* 
4590* 
4604* 
4780* 
4794* 
4814* 
4831* 
4845* 
5062* 
5081* 
5098* 
5116* 
5137* 
5151* 
5168* 
5330* 
5347* 
5364* 
5381* 
5398* 
5415* 
5432* 
5449* 
5599* 
5616* 
5636* 
5653* 
5667* 
5684* 
5818* 
5952* 
5966* 
5980* 
5994* 
6008* 
6022* 
6036* 


3878 

3895 

4043 

4063 

4080 

4097 

4111 

4253 

4273 

4287 

4304 

4484 

4505 

4522 

4542 

4556 

4573 

4590 

4604 

4780 

4794 

4814 

4831 

4845 

5062 

5081 

5098 

5116 

5137 

5151 

5168 

5330 

5347 

5364 

5381 

5398 

5415 

5432 

5449 

5599 

5616 

5636 

5653 

5667 

5684 

5818 

5952 

5966 

5980 

5994 

6008 

6022 

6036 
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6038* 
6052# 
6066# 
6080# 
6094# 
6108« 
6122* 
6136# 
6150# 
616A« 
6187# 
620A# 
621 8# 
6232# 
62A6# 
6263* 
6278* 
6294* 
6310* 
6326* 
63A1* 
6357* 
6373* 
6389* 
6A04* 
6A20* 
6A36* 
6A52* 
6A67* 
6483* 
6499* 
6515* 
6530* 
6546* 
6753* 
6854* 
6963* 
1213* 
1229* 
1332* 
1438* 
1454* 
1470* 
1571* 
1751* 
1771* 
1788* 
1805* 
1822* 
1842* 
1859* 
1873* 
2039* 


6038 
6052 
6066 
6080 
6094 
6108 
6122 
6136 
6150 
6164 
6187 
6204 
6218 
6232 
6246 
6263 
6278 
6294 
6310 
6326 
6341 
6357 
6373 
6389 
6404 
6420 
6436 
6452 
6467 
6483 
6499 
6515 
6530 
-546 
6753 
6854 
6963 
1213 
1229 
1332 
1438 
1454 
1470 
1571 
1751 
1771 
1788 
1805 
1822 
1842 
1859 
1873 
2039 


6040* 
6054* 
6068* 
6082* 
6096* 
6110* 
6124* 
6138* 
6152* 
6166* 
6189* 
6206* 
6220* 
6234* 
6248* 
6265* 
6281* 
6296* 
6312* 
6328* 
6344* 
6359* 
6375* 
6391* 
6407* 
6422* 
6438* 
6454* 
6470* 
6485* 
6501* 
6517* 
6533* 
6548* 
6755* 
6859* 
6965* 
1215* 
1231* 
1424* 
1440* 
1456* 
1473* 
1573* 
1753* 
1773* 
1790* 
1807* 
1824* 
1844* 
1861* 
1875* 
2044* 


6040 
6054 
6068 
6082 
6096 
6110 
6124 
6138 
6152 
6166 
6189 
6206 
6220 
6234 
6248 
6265 
6281 
6296 
6312 
6328 
6344 
6359 
6375 
6391 
6407 
6422 
6438 
6454 
6470 
6485 
6501 
6517 
6533 
6548 
6755 
6859 
6965 
1215 
1231 
1424 
1440 
1456 
1473 
1573 
1753 
1773 
1790 
1807 
1824 
1844 
1861 
1875 
2044 


6042* 
6056* 
6070* 
6084* 
6098* 
6112* 
6126* 
6140* 
6154* 
6168* 
6194* 
6208* 
6222* 
6236* 
6250* 
6267* 
6283* 
6299* 
6314* 
6330* 
6346* 
6362* 
6377* 
6393* 
6409* 
6425* 
6440* 
6456* 
6472* 
6488* 
6503* 
6519* 
6535* 
6551* 
6841* 
6861* 
6967* 
1217* 
1234* 
1426* 
1442* 
1459* 
1475* 
1575* 
1758* 
1775* 
1792* 
1809* 
1826* 
1846* 
1863* 
2026* 
2046* 


6042 

6044* 

6044 

6046* 

6046 

6048* 

6048 

6050* 

6050 

6056 

6058* 

6058 

6060* 

6060 

6062* 

6062 

6064* 

6064 

6070 

6072* 

6072 

6074* 

6074 

6076* 

6076 

6078* 

6078 

6084 

6086* 

6086 

6088* 

6088 

6090* 

6090 

6092* 

6092 

6098 

6100* 

6100 

6102* 

6102 

6104* 

6104 

6106* 

6106 

6112 

6114* 

6114 

6116* 

6116 

6i18* 

6118 

6120* 

6120 

6126 

6128* 

6128 

6130* 

6130 

61i?* 

6132 

6134* 

6134 

6140 

6142* 

6142 

6144* 

6144 

6146k* 

6146 

6148* 

6148 

6154 

6156* 

6156 

6158* 

6158 

6160* 

6160 

6162* 

6162 

6168 

6173* 

6173 

6181* 

6181 

6183* 

6183 

6185* 

6185 

6194 

6196* 

6196 

6198* 

6198 

6200* 

6200 

6202* 

6202 

6208 

6210* 

6210 

6212* 

6212 

6214* 

6?14 

6216* 

6216 

6222 

6224* 

6224 

6226* 

6226 

6228* 

6c^8 

6230* 

6230 

6236 

6238* 

6238 

6240* 

6240 

6242* 

6242 

6244* 

6244 

6250 

6252* 

6252 

6254* 

6254 

6256* 

6256 

6258* 

6258 

6267 

6269* 

6269 

6272* 

6272 

6274* 

6274 

6276* 

6276 

6283 

6285* 

6285 

6287* 

6287 

6290* 

6290 

6292* 

6292 

6299 

6301* 

6301 

6303* 

6303 

6305* 

6305 

6308* 

6308 

6314 

6317* 

6317 

6319* 

6319 

6321* 

6321 

6323* 

6323 

6330 

6332* 

6332 

6335* 

6335 

6337* 

6337 

6339* 

6339 

6346 

6348* 

6348 

6350* 

6350 

6353* 

6353 

6355* 

6355 

6362 

6364* 

6364 

6366* 

6366 

6368* 

6368 

6371* 

6371 

6377 

6380* 

6380 

6382* 

6382 

6384* 

6384 

6386* 

6386 

6393 

6395* 

6395 

6398* 

6398 

6400* 

6400 

6402* 

6402 

6409 

6411* 

6411 

6413* 

6413 

6416* 

6416 

6418* 

6418 

6425 

6427* 

6427 

6429* 

6429 

6431* 

6431 

6434* 

6434 

6440 

6443* 

6443 

6445* 

6445 

6447* 

6447 

6449* 

6449 

6456 

6458* 

6458 

6461* 

6461 

6463* 

6463 

6465* 

6465 

6472 

6474* 

6474 

6476* 

6476 

6479* 

6479 

6481* 

6481 

6488 

6490* 

6490 

6492* 

6492 

6494* 

6494 

6497* 

6497 

6503 

6506* 

6506 

6508* 

6508 

6510* 

6510 

6512* 

6512 

6519 

6521* 

6521 

6524* 

6524 

6526* 

6526 

6528* 

6528 

6535 

6537* 

6537 

6539* 

6539 

6542* 

6542 

6544* 

6544 

6551 

6741* 

6741 

6743* 

6743 

6745* 

6745 

6747* 

6747 

6841 

6843* 

6843 

6845* 

6845 

6847* 

6847 

6852* 

6852 

6861 

6863* 

6863 

6865* 

6865 

6867* 

6867 

6961* 

6961 

6967 

6969* 

6969 

1217 

1220* 

1220 

1222* 

1222 

1224* 

1224 

1227* 

1227 

1234 

1236* 

1236 

1238* 

1238 

1328* 

1328 

1330* 

1330 

1426 

1428* 

1428 

1431* 

1431 

1433* 

1433 

1435* 

1435 

1442 

1445* 

1445 

1447* 

1447 

1449* 

1449 

1452* 

1452 

1459 

1461* 

1461 

1463* 

1463 

1466* 

1466 

1468* 

1468 

1475 

1477* 

1477 

1564* 

1564 

1566* 

1566 

1568* 

1568 

1575 

1578* 

1578 

1580* 

1580 

1582* 

1582 

1749* 

1749 

1758 

1760* 

1760 

1762* 

1762 

1764* 

1764 

1769* 

1769 

1775 

1780* 

1780 

1782* 

1782 

1784* 

1784 

1786* 

1786 

1792 

1797* 

1797 

1799* 

1799 

1801* 

1801 

1803* 

1803 

1809 

1814* 

1814 

1  16* 

1816 

1818* 

1818 

1820* 

1820 

1826 

1831* 

1831 

1  33* 

1833 

1838* 

1838 

1840* 

1840 

]§^§ 

1848* 

1848 

1  50* 

1850 

1852* 

1852 

1854* 

1854 

1863 

1865* 

1865 

1  67* 

1867 

1869* 

1869 

1871* 

1871 

2026 

2028* 

2028 

2  30* 

2030 

2035* 

2035 

2037* 

2037 

2046 

2048* 

2048 

2  50* 

2050 

2052* 

2052 

2054* 

2054 
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2067*   2067 
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2059* 

2059 

2061* 

2061 
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M^    I 

'083* 

2065 

2067* 

2067 

W, 

2069 

2071* 

2071 

2077# 

2077 

2079* 

2079 

2081* 

2083 

2085* 

2085 

2087 

2089* 

2089 

2091  # 

2091 

2096* 

2096 

2098* 

2098   2100* 

2100 

2102* 

2102 

2104* 

2104 

2106* 
2123* 

2106 

2108# 

2108 
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2110 

2112* 

2112    2 

117* 

2117 

2119* 

2119 

2121* 

2121 

2123 

2125* 

2125 

2127* 

2127 

2129* 

2129   2 

131* 

2131 

2133* 

2133 

2248* 

2250* 

2250 

2252* 

2252 

2254* 

2254 

227^* 

2256   2258* 

2258 

2260* 

2260 

22b2» 

2262 

2264* 

2264 

2266* 

2266 

2268* 

2268 

2270   2 

272M 

2272 

2274* 

2274 

2276lf 

2276 

2278* 

2278 

2280# 

2280 

2282* 

2282 

2284* 

2284    2 

286* 

2286 

2288* 

2288 

2290* 

2290 

2292* 

2292 

2294* 

2294 

2296* 

2296 

2298   2300* 

2300 

2302* 

2302 

2304* 

2304 

2306* 

2306 

2308# 

2308 

2310* 

2310 

2312* 

2312   2 

314* 

2314 

2316* 

2316 

2318* 

2320* 

2320 

2322* 

2322 

2327* 

2327 

2329* 

2329   2331* 

2331 

2336* 

2336 

2338* 

2338 

2340* 

2340 

23A2# 

2342 

2347* 

2347 

2349* 

2349   2351* 

2351 

2356* 

2356 

2358* 

2358 

2360* 

2360 

2365* 

2365 

2367* 

2367 

2369* 

2369   2374* 

2374 

2376* 

2376 

2378* 

2378 

2383* 

2383 

2385# 

2385 

2387* 

2387 

2392* 

2392   2394* 

2394 

2396* 

2396 

2401* 

2401 

2403* 

2403 

2A05# 

2405 

2410* 

2410 

2412* 

2412    2414* 

2414 

2419* 

2419 

2t*2Mt 

2421 

2423* 

2423 

2428* 

2428 

2430* 

2430 

2432* 

2432    2437* 

2437 

2439* 

2439 

2441* 

2441 

2446* 

2446 

2448# 

2448 

2450* 

2450 

2455* 

2455    2457* 

2457 

2459* 

2459 

2464* 

2464 

2466* 

2466 

2468# 

2468 

2473* 

2473 

2475* 

2475    2477* 

2k71 

2482* 

2482 

2484* 

2484 

2486* 

2486 

2491  # 

2491 

2493* 

2493 

2495* 

2495    2500* 

2500 

2502* 

2502 

2504* 

2504 

2509* 

2509 

2511* 

2511 

2513* 

2513 

2518* 

2518    2520* 

2520 

2522* 

2522 

2527* 

2527 

2529* 

2529 

2531* 

2531 

2536* 

2536 

2538* 

2538   2540* 

2540 

2545* 

2545 

25i*7» 

2547 

2549* 

2549 

2554* 

2554 

2556* 

2556 

2558* 

2558   2563* 

2563 

2565* 

2565 

2S670 

2567 

2572* 

2572 

2574* 

2574 

2576* 

2576 

2581* 

2581    2583* 

2583 

2585* 

2585 

2590* 

2590 

2592* 

2592 

2594* 

2594 

2599* 

2599 

2601* 

2601    2603* 

2603 

2608* 

2608 

2610* 

2610 

2612* 

2612 

2617* 

2617 

2619* 

2619 

2621* 

2621    2626* 

2626 

2628* 

2628 

2630* 

2630 

2635* 

2635 

2637* 

2637 

2639* 

2639 

2644* 

2644    2646* 

2646 

2648* 

2648 

2653* 

2653 

2655* 

2655 

2657* 

2657 

2659* 

2659 

2664* 

2664    2666* 

2666 

2671* 

2671 

267ZM 

2673 

2675* 

2675 

2680* 

2680 

2682* 

2682 

2684* 

1%  mi 

2686 

2688* 

2688 

2690* 

2690 

2692* 

2692 

2694* 

2694 

2696* 

ff?^ 

2701* 

2703 

2705* 

2705 

2707* 

2707 

2709* 

2709 

2711* 

2711 

2713* 

2715* 

2715    2717* 

2717 

2848* 

2848 

2850* 

2850 

2852* 

2852 

2857* 

2857 

2859* 

2859 

2861* 

2861    2863* 

2863 

2865* 

2865 

2867* 

2867 

2872* 

2872 

2874* 

2874 

2876* 

2876 

2878* 

2878   2880* 

2880 

2882* 

2882 

2887* 

2887 

2889* 

2889 

2891* 

?8vl 

2893* 

2893 

2895* 

2895    2 

897* 

2897 

2899* 

2899 

2904* 

2904 

2906* 

2906 

2908* 

i908 

2910* 

2910 

2912* 

2912   2 

914* 

2914 

2916* 

2916 

29U^ 

2918 

2920* 

2920 

2925* 

2925 

2927* 

2927 

2929* 

2929   2 

931* 

2931 

2933* 

2933 

2935* 

2935 

2937* 

2937 

2939* 

2939 

2941* 

2941 

3054* 

3054 

056* 

3056 

3058* 

::058 

3063* 

3063 

3065* 

3065 

3067* 

3067 

3069* 

3069 

3071* 

3071 

073* 

3073 

3075* 

3075 

3077* 

3077 

:i082* 

3082 

084* 

3084 

:086* 

3086 

3088* 

3088 

090* 

3090 

3092* 

:092 

3094* 

3094 

3096* 

3096 

098* 

3098 

:i03* 

3103 

3105* 

3105   ; 

107* 

3107 

3109* 

:i09 

jin* 

3111 

3113* 

3113 

115* 

3115 

::il7* 

3117 

3119* 

3119    3 

225* 

3227* 

3227 

3229* 

3229 

3231* 

3231 

233* 

3233 

;:235* 

■235 

3237* 

3237   3 

239* 

3239 

3244* 

3244 

:;246* 

3246 

:  248* 

3248 

250* 

3250 

3252* 

:252 

:254* 

3254    3 

259* 

3259 

3261* 

3261 

::263* 

3263 

3265* 

3265 

267* 

3267 

3269* 

3269 

:  274* 

3274    ^ 

276* 

3276 

3278* 

:278 

:i280* 

3280 

3282* 

3282 

284* 

3284 

3286* 

3286 

:288* 

290* 

3290 

3295* 

;295 

]2970 

3297 

;i299* 

3299 

301* 

3301 

3303* 

3303 

•305* 

3305    ^ 

307* 

3307 

3309* 

::311* 

::417* 

3417 

419* 

3419 

3421* 

3421 

:423* 

3423    3 

425* 

3425 

3427* 

3427 

:429* 

3429 

;:431* 

3431 

436* 

3436 

3438* 

:438 

:440* 

3440    3 

442* 

3442 

3444* 

3444 

:446* 

3446 

3451* 

3451 

453* 

3453 

3455* 

■^55 

:457* 

3457    3 

459* 

3459 

3461* 

3461 

:  466* 

3466 

3468* 

3468 

^W 

I'^N 

::472* 

:472 

;474* 

::474    3 

476* 
493* 

3476 

3478* 

3478 

3480* 

:i480 

3482* 

3482 

487* 

3487 

■^§2* 

:489 

:491* 

:i491    3 

3493 

3495* 

3495 

3497* 

:i497 

499* 

3499 

501* 

3501 

:503* 

3503 

:609* 

:609    3 

611* 

3611 

3613* 

3613 

3615* 

3615 

:617* 

3617 

619* 

:619 

;621* 

3621 

;623* 

;623    3 

628* 

3628 

:630* 

3630 

3632* 

3632 

3634* 

3634 

636* 

3636 

3638* 

3638 

3643* 

3643   3 

645* 

3647* 

3647 

3649* 

3649 

3651* 

3651 

r^ 


SEQ  1568 


9/  C  Oii 


td.I.f\lt 


_7£tJ\ 


XAA-iM 


Xt.*.0 


TAAAif 


7AAZ 


XA*^AM 


X*,^A. 


7AAfl« 


TAAfl 
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3653* 

3653 

3658* 

3658 

3660* 

3670* 

3670 

3672* 

3672 

3674* 

3687* 
3843* 

3687 

3689* 

3689 

:691* 

3843 

3848* 

3848 

J850* 

3863 

3865* 

;;870* 

3880* 

3880 

3882* 

3882 

884* 

3897* 

3897 

3899* 

3899 

3901* 

4045* 

4045 

4047* 

4047 

4052* 

4065* 

4065 

4067* 

4067 

4069* 

4082* 

4082 

4084* 

4084 

4086* 
4103* 
4239* 

4099* 

4099 

4101* 

4101 

4235* 

4235 

4237* 

4237 

4255* 

4255 

4257* 

4257 

4262* 

4275* 

4275 

4277* 

4277 

4279* 

4292* 
4306* 

4292 

4294* 

4294 

4296* 
4472* 

4306 

4308* 

4308 

4486* 

4486 

4488* 

4488 

4494* 

4507* 

4507 

4509* 

4509 

4511* 

4524* 

4524 

4526* 

4526 

4531* 

4544* 

4544 

4546* 

4546 

4548* 

4558* 

4558 

4569* 

4560 

4562* 

4575* 

4575 

4577* 

4577 

4579* 

4592* 

4592 

4594* 

4594 

4596* 
4768* 

4606* 

4606 

4766* 

4766 

4782* 

4782 

4784* 

4784 

4786* 

4799* 

4799 

4801* 

4801 

4803* 

4816* 

4816 

4818* 

4818 

4820* 

4833* 

4833 

4835* 

4835 

4837* 

4847* 

4847 

5048* 

5048 

5050* 

5064* 

5064 

5066* 

5066 

5068* 

5083* 

5083 

5085* 

5085 

5087* 

5100* 

5100 

5102* 

5102 

5104* 

5118* 

5118 

5124* 

5124 

5126* 
5143* 

5139* 

.-139 

5141* 

5141 

5153* 

5153 

5158* 

5158 

5160* 

5170* 

5170 

5172* 

5172 

5174* 

5332* 

5332 

5337* 

5337 

5339* 

5349* 

5349 

5351* 

5351 

5353* 

5366* 

5366 

5368* 

5368 

5370* 

5383* 

5383 

5385* 

5385 

5387* 

5400* 

5400 

5402* 

5402 

5404* 

5420* 

5420 

5422* 

5422 

5424* 

5434* 

5434 

5436* 

5436 

5441* 

5451* 

5451 

5453* 

5453 

5455* 

5601* 

5601 

5606* 
5623* 

5606 

5608* 

5621* 

5621 

5623 

5625* 

5638* 

5638 

5640* 

5640 

5642* 

5655* 

5655 

5657* 

5657 

5659* 

5669* 

5669 

5674* 

5674 

5676* 

5686* 

5686 

5688* 

5690* 

5820* 

5820 

5822* 

5822 

5941* 

5954* 

5954 

5956* 

5956 

5958* 

5968* 

1 

5968 

5970* 

5970 

5972* 

3660 
3674 
3691 
3850 
3870 
3884 
3901 
4052 
4069 
4086 
4103 
4239 
4262 
4279 
4296 
4472 
4494 
4511 
4531 
4548 
4562 
4579 
4596 
4768 
4786 
4803 
4820 
4837 
5050 
5068 
5087 
5104 
5126 
5143 
5160 
5174 
5339 
5353 
5370 
5387 
5404 
5424 
5441 
5455 
5608 
5625 
5642 
5659 
5676 
5690 
5941 
5958 
5972 


3662* 
3679* 

3662 
3679 

;693* 

3693 

;:852* 

3852 

'i872* 

3872 

:  903* 
4054* 

3886 

3903 
4054 

4074* 

4074 

4088* 

4088 

4105* 

4105 

4244* 

4244 

4264* 

4264 

4281* 

4281 

4298* 

4298 

4474* 

4474 

4496* 
4513* 

4496 

4513 

4533* 

4533 

4550* 

4550 

4564* 

4564 

4581* 

4581 

4598* 

4598 

4770* 

4770 

4788* 

4788 

4805* 

4805 

4822* 

4822 

4839* 

4839 

5052* 

5052 

5070* 

5070 

5089* 

5089 

5110* 

5110 

5128* 

5128 

5145* 

5145 

5162* 

5162 

5324* 

5324 

5341* 

5341 

5355* 

5355 

5372* 

5372 

5389* 

5389 

5406* 

5406 

5426* 

5426 

5443* 

5443 

5457* 

5457 

5610* 

5610 

5627* 

5627 

5644* 

5644 

5661* 

5661 

5678* 

5678 

5811* 

5811 

5946* 

5946 

5960* 

5960 

5974* 

5974 

3664* 

3664 

3666* 
3683* 

3666 

3668* 

3668 

:681* 

3681 

3685* 

3685 

;695* 

3695 

3839* 

3839 

3841* 

3841 

3857* 

3857 

3859* 

3859 

3861* 

3861 

"874* 

3874 

3876* 

387( 

3878* 

3878 

J891* 

3891 

3893* 

389' 

3895* 

3895 

3905* 
4056* 

3905 

3907* 

3907 

4043* 

4043 

4056 

4058* 

4058 

4063* 

4063 

4076* 

4076 

4078* 

4078 

4080* 

4080 

4090* 

4090 

4095* 

4095 

4097* 

4097 

4107* 

4107 

4109* 

4109 

4111* 

4111 

4246* 

4246 

4248* 

4248 

4253* 

4253 

4266* 

4266 

4271* 

4271 

4273* 

4273 

4283* 

4283 

4285* 

4285 

4287* 

4287 

4300* 

4300 

4302* 

4302 

4304* 

4304 

4476* 

4476 

4482* 

4482 

4484* 

4484 

4498* 

4498 

4500* 

4500 

4505* 

4505 

4518* 

4518 

4520* 

4520 

4522* 

4522 

4535* 

4535 

4540* 

4540 

4542* 

4542 

4552* 

4552 

4554* 

4554 

4556* 

4556 

4569* 

4569 

4571* 

4571 

4573* 

4573 

4583* 

4583 

4585* 

4585 

4590* 

4590 

4600* 

4600 

m 

4602 

%i 

4604 

4776* 

4776 

4778 

4780 

4790* 

4790 

4792* 

4792 

4794* 

4794 

4810* 

4810 

4812* 

4812 

4814* 

4814 

4824* 

4824 

4826* 

4826 

4831* 

4831 

4841* 

4841 

4843* 

4843 

4845* 

4845 

5058* 

5058 

5060* 

5060 

5062* 

5062 

5072* 

5072 

5079* 

5079 

5081* 

5081 

5091* 

5091 

5093* 

5093 

5098* 

5098 

5112* 

5112 

5114* 

5114 

5116* 

5116 

5130* 

5130 

5132* 

5132 

5137* 

5137 

5147* 

5147 

5149* 

5149 

5151* 

5151 

5164* 

5164 

5166* 

5166 

5168* 

5168 

5326* 

5326 

5328* 

5328 

5330* 

5330 

5343* 

5343 

5345* 

5347* 

5347 

5360* 

5360 

5362* 

5362 

5364* 

5364 

5374* 

5374 

5379* 

5379 

5381* 

5381 

5391* 

5391 

5393* 

5393 

5398* 

5398 

5408* 

5408 

5413* 

5413 

5415* 

5415 

5428* 

5428 

5430* 

5430 

5432* 

5432 

5445* 

5445 

5447* 

5447 

5449* 

5449 

5595* 

5595 

5597* 

5597 

5599* 

5599 

5612* 

5612 

5614* 

5614 

5616* 

5616 

5629* 

5629 

5631* 

5631 

5636* 

5636 

5646* 

5646 

5648* 

5648 

5653* 

5653 

5663* 

5663 

5665* 

5665 

5667* 

5667 

5680* 

5680 

5682* 

5682 

5684* 

5684 

5813* 

5813 

5815* 

5815 

5818* 

5818 

5948* 

5948 

5950* 

5950 

5952* 

5952 

5962* 

5962 

5964* 

5964 

5966* 

5966 

5976* 

5976 

5978* 

5978 

5980* 

5980 

SEQ  1569 


.LC 


.LC 


.LC 
.LC 


.LC 
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XADDR 


5982* 

5982 

5984* 

5996* 

5996 

5998* 

6010* 

6010 

6012* 

6024* 

6024 

6026* 

6038* 

6038 

6040* 

6052* 

6052 

6054* 

6066* 

6066 

6068* 

6080* 

6080 

6082* 

6094* 

6094 

6096* 

6108* 

6103 

6110* 

6122* 

6122 

6124* 

6136* 

6136 

6138* 

6150* 

6150 

6152* 

6164* 

6164 

6166* 

6187* 

6187 

6189* 

6204* 

6204 

6206* 

6218* 

6218 

6220* 

6232* 

6232 

6234* 

6246* 

6246 

6248* 

6263* 

6263 

6265* 

6278* 

6278 

6281* 

6294* 

6294 

6296* 

6310* 

6310 

631 2# 

6326* 

6326 

6328* 

6341* 

6341 

6344* 

6357* 

6357 

6359* 

6373* 

6373 

6375* 

6389* 

6389 

6391* 

6404* 

6404 

6407* 

6420* 

6420 

6422* 

6436* 

6436 

6438* 

6452* 

6452 

6454* 

6467* 

6467 

6470* 

6483* 

-483 

6485* 

6499* 

6499 

6501* 

6515* 

6515 

6517* 

6530* 

6530 

6533* 

6546* 

6546 

6548* 

6753* 

6753 

£755* 

6854* 

6854 

6859* 

6963* 

6963 

6965* 

1213* 

1213 

1215 

1229 

1229* 

1231 

1332 

1332* 

1424* 

14L3 

1438* 

1440 

1454 

1454* 

1456 

1470 

1470* 

1473 

1571 

1571* 

1573 

1751 

r/'51* 

1?53 

1771 

1771* 

1773 

1788 

1788* 

1790 

1805 

1805* 

1807 

1822 

1822* 

1824 

5984 

5986* 
6000* 

5986 

5988* 

5988 

5990* 

5990 

5992* 

5992 

5994* 

5994 

5998 

6000 

6002* 

6002 

6004* 

6004 

6006* 
6020* 
6034* 

6006 

6008* 

6008 

6012 

6014* 

6014 

6016* 

6016 

6018* 

6018 

6020 

6022* 

6022 

6026 

6028* 

6028 

6030* 

6030 

6032* 

6032 

6034 

6036* 

6036 

6040 

6042* 

6042 

6044* 

6044 

6046* 

6046 

6048* 

6048 

6050* 

6050 

6054 

6056* 

6056 

6058* 

6058 

6060* 

6060 

6062* 
6076* 

6062 

6064* 

6064 

6068 

6070* 

6070 

6072* 

6072 

6074* 

6074 

6076 

6078* 

6078 

6082 

6084* 

6084 

6086* 

6086 

6088* 

6088 

6090* 

6090 

6092* 

6092 

6096 

6098* 

6098 

6100* 

6100 

6102* 

6102 

6104* 

6104 

nm 

6106 

6110 

6112* 

6112 

6114* 

6114 

6116* 

6116 

6118* 

6118 

6120 

6124 

6126* 

6126 

6128* 

6128 

6130* 

6130 

6132* 

6132 

6134* 

6134 

6138 

6140* 

6140 

6142* 

6142 

6144* 

6144 

6146* 

6146 

6148* 

6148 

6152 

6154* 

6154 

6156* 
6173* 

6156 

6158* 

6158 

6160* 

6160 

6162* 

6162 

6166 

6168* 

6168 

6173 

6181* 

6181 

6183* 

6183 

6185* 

6185 

6189 

6194* 

6194 

6196* 

6196 

6198* 

6198 

6200* 

6200 

6202* 

6202 

6206 

6208* 

6208 

6210* 

6210 

6212* 

6212 

6214* 

6214 

6216* 

6216 

6220 

6222* 

6222 

6224* 

6224 

6226* 

6226 

6228* 

6228 

6230* 

6230 

6234 

6236* 

6236 

6238* 

6238 

6240* 

6240 

6242* 

6242 

6244* 

6244 

6248 

6250* 

6250 

6252* 

6252 

6254* 

6254 

6256* 

6256 

6258* 

6258 

6265 

6267* 

6267 

6269* 

6269 

6272* 

6272 

6274* 

6274 

6276* 

6276 

6281 

6283* 

6283 

6285* 

6285 

6287* 

6287 

6290* 

6290 

6292* 

6292 

6296 

6299* 

6299 

6301* 

6301 

6303* 

6303 

6305* 

6305 

6308* 

6308 

6312 

6314* 

6314 

6317* 

6317 

6319* 

6319 

6321* 

6321 

6323* 

6323 

6328 

6330* 

6330 

6332* 

6332 

6335* 

6335 

6337* 

6337 

6339* 

6339 

6344 

6346* 

6346 

6348* 

6348 

6350* 

6350 

6353* 

6353 

6355* 

6355 

6359 

6362* 

6362 

6364* 

6364 

6366* 

6366 

6368* 

6368 

6371* 

6371 

6375 

6377* 

6377 

6380* 

6380 

6382* 

6382 

6384* 

6384 

6386* 

6386 

6391 

6393* 

6393 

6395* 

6395 

6398* 

6398 

6400* 

6400 

6402* 

6402 

6*97 

6409* 

6409 

6411* 

6411 

6413* 

6413 

6416* 

6416 

6418* 

6418 

cf*22 

6425* 

6425 

6427* 

6427 

6429* 

6429 

6431* 

6431 

6434* 

6434 

6438 

6440* 

6440 

6443* 

6443 

6445* 

6445 

6447* 

6447 

6449* 

6449 

6454 

6456* 

6456 

6458* 

6458 

6461* 

6461 

6463* 

6463 

6465* 

6465 

6470 

6472* 

6472 

6474* 

6474 

6476* 

6476 

6479* 

6479 

6481* 

6481 

6485 

6488* 

6488 

6490* 

6490 

6492* 

6492 

6494* 

6494 

6497* 

6497 

6501 

6503* 

6503 

6506* 

6506 

6508* 

6508 

6510* 

6510 

6512* 

6512 

6517 

6519* 

6519 

6521* 

6521 

6524* 

6524 

6526* 

6526 

6528* 

6528 

6^" 

6535* 

6535 

6537.y 

6537 

6539* 

6539 

6542* 

6542 

6544* 

6544 

6548 

6551* 

6551 

6741* 

6741 

6743* 

6743 

6745* 

6745 

6747* 

6747 

^IP 

6841* 

6841 

6843* 

6843 

6845* 

6845 

6847* 

6847 

6852* 

6852 

6859 

6861* 

6861 

6863* 

6863 

6865* 

865 

6867* 

6867 

6961* 

6961 

6965 

6967* 

6967 

6969*? 

6969 

1215* 

1217 

1217* 

1220 

1220* 

1222 

1222* 

1224 

1224* 

1227 

1227* 

1231* 

1234 

1234* 

1236 

1236* 

1238 

1238* 

1328* 

1328 

1330 

1330* 

1424 

1426 

1426* 

1428 

1428* 

1431 

1431* 

1433 

1433* 

1435 

1435* 

1440* 

1442 

1442* 

1445 

1445* 

1447 

1447* 

1449 

1449* 

1452 

1452* 

1456* 

1459 

1459* 

1461 

1461* 

1463 

1463* 

1466 

1466* 

1468 

1468* 

1473* 

1475 

1475* 

1477 

1477* 

1564* 

1564 

1566 

1566* 

1568 

1568* 

1573* 

1575 

1575* 

1578 

1578* 

1580 

1580* 

1582 

1582* 

1749* 

1749 

1753* 

1758* 

1758 

1760 

1760* 

1762 

1762* 

1764 

1764* 

1769* 

1769 

1773* 

1775 

1775* 

1780* 
1797* 

1780 

1785 

1782* 

1784 

1784* 

1786 

1786* 

1790* 

1792 

1792* 

1797 

1799 

1799* 

1801 

1801* 

1803 

1803* 

1807* 

!i^l 

1809* 

1814* 

1814 

1816 

1816* 

1818 

1818* 

1820 

1820* 

1824* 

1826* 

1831* 

1831 

1833 

1833* 

1838* 

1838 

1840 

1840* 

SEQ  1570 


I 


I  t    f%   A*  «Ar~A  KAr>Au 


r 


L_ 


r 
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18^2 

1842* 

1859* 

1859 

1873 

1873* 

2039 

2039* 

2059* 

2059 

20:'7^ 

2077 

2091 

2091* 

2108 

2108* 

2125 

2125* 

2252 

2252* 

2266 

2266* 

2280 

2280* 

2294 

2294* 

2308 

2308* 

2322 

;>322* 

2342 

2342* 

2365* 

2365 

2385 

2385# 

2405 

2405* 

2428* 

2428 

2448 

2448* 

2468 

2468* 

2491  ¥ 

2491 

2511 

2511* 

2531 

2531* 

2554* 

2554 

25'4 

2574* 

2594 

259t  ' 

2617* 

261 

2637 

263 

2657 

265/* 

2680* 

2680 

2694 

'694* 

2711 

J711* 

2857* 

?857 

2874 

2874V 

2891 

2891* 

2908 

2908* 

2925* 

2925 

2939 

29^^# 

3067 

30.'* 

3084 

3084* 

3098 

3098* 

3115 

3115* 

3233 

3233* 

3250 

3250* 

3267 

3267* 

5284 

3284* 

3301 

3301* 

3419* 

5419 

3436* 

3436 

3453 

3453* 

3470 

3470* 

1844 

1861 

1875 

2044* 

2061 

2079 

2096* 

2110 

2127 

2254 

2260 

2282 

2296 

2310 

2327* 

2347^ 

2567 

2387 

2410* 

2430 

2450 

2473* 

2493 

2513 

2556* 

2556 

2576 

2599* 

2619 

2639 

26^9 

2ti^ 

2696 

2713 

2859 

2876 

2893 

2910 

2927 

2941 

3069 

3086 

3103* 

3117 

3235 

3252 

3269 

3286 

3303 

3421 

3438 

3^55 

3472 


"*"" 

~ "■" 

1844* 

1846 

1846* 

1848 

1848* 

1850 

1861* 

1863 

1865* 

1865 

1865* 

1867 

1875* 

2026* 

2026 

2028 

2028* 

2050 

2044 

2046 

?04b* 

2048 

2048* 

2050 

2061* 

2063 

2065* 

2065 

2065* 

2067 

2079* 

2081 

2081* 

2085 

2085* 

2085 

2096 

2098 

2098* 
2112* 

2100 

11??' 

2102 

2110* 

2112 

2117* 

2127* 

2129 

2129* 

2151 

2131* 

2155 

2254* 

2256 

2256* 

2258 

2258* 

2260 

2268* 

2270 

2270* 

2272 

2272* 

2274 

2282* 

2284 

2284* 

2286 

2286* 

2288 

2296* 

2298 

2298* 

2500* 

2302 

2310* 

2512 

2512* 

2514 

2314* 

2516 

2327 

2529 

2529* 

2551 

2551* 

2356* 

2347 

2549 

2349* 

2551 

2551* 

2556* 

2367* 

2369 

2569* 

2574* 

2574 

2376 

2387* 

2592* 

2592 

2594 

2594* 

2596 

2410 

2412 

2412* 

2414 

2414* 

2419* 

2430* 

2432 

2432* 

2i>57tt 

2457 

2439 

2450* 

2455* 

2455 

2457 

2457* 

2459 

2473 

2475 

2475* 

2^77 

;'477* 

2482* 

2493* 

2495 

2495* 

2500* 

2500 

2502 

2513* 

2516* 

2518 

2520 

2520* 

2522 

2536 

2538 

2558* 

2540 

2540* 

2545* 

2556* 

255P 

2558;? 

2565* 

2565 

2565 

2576* 

2581* 

2581 

2585 

2585* 

2585 

2599 

2601 

2601* 

2605 

2605* 

2608* 

2619* 

2621 

2621* 

2626* 

2626 

2628 

2659* 

2644* 

2644 

2646 

2646* 

2648 

2659* 

266-* 

2664 

2666 

2666* 

2671* 

2682* 

2684 

2684* 

2686 

2686* 

2688 

2696* 

2701* 

2701 

2705 

2705* 

2705 

2713* 

2715 

2715* 

27\7 

2717* 

2848* 

2859* 

2861 

2861* 

2865 

2865* 

2865 

2876* 

2878 

2878* 

2880 

2880* 

2882 

2893* 

2895 

2895* 

2897 

2897* 

2899 

2910* 

2912 

2912* 

2914 

2914* 

2916 

2927* 

2929 

2929* 

2951 

2951* 

2955 

2941* 

5054* 

5054 

3056 

5056* 

5058 

306<:fc 

5071 

5071* 

5075 

5075* 

5075 

5086. 

5088 

5088* 

3090 

5090* 

5092 

3105 

5105 

5105* 

3107 

5107* 

5109 

5117* 

3119 

3119* 

3225* 

5225 

5227* 

5235* 

5257 

5257* 

52^9 

5239* 

5244* 

525t* 

5254 

5254* 

5259* 

5259 

5261 

5269* 

5274* 

5274 

5276 

5276* 

5278 

5286* 
5505* 

5288 

5288* 

5290 

;290* 

5295* 

3505 

;505* 

:507* 

3509 

5421* 

5425 

::425* 

5425 

]i425* 

5427 

5458* 

5440 
5457 

]440* 

:442 

;442* 

5444 
5461 

5455* 

5457* 

J459 

545^* 

5472* 

5474 

5474* 

5476 

5476* 

5478 

1850* 

1867* 

2050* 

2050* 

2067* 

2085* 

2102* 

2119* 

2155* 

2260* 

2274* 

2288* 

2502* 

2516* 

2356 

2556 

2575* 

2596* 

2419 

2459* 

2459* 

2482 

2502* 

2522* 

2545 

2565* 

2585* 

2608 

2628* 

2648* 

2671 

2688* 

2705* 

2848 

2865* 

2882* 

2899* 

2916* 

2955* 

5058* 

5075* 

5092* 

5109* 

3227 

5244 

5261* 

5278* 

5295 

5509* 

5427* 

5444* 

5461* 

5478* 


1852 

1852* 

i869 

1869* 

2055* 

2055 

2052 

2052* 

2069 

2069* 

2087 

imn 

2104 

2'\^i^n 

2121 

2121* 

2248* 

2248 

2262 

2262* 

2276 

2276* 

2290 

2290* 

2504 

2504* 

2518 

2518* 

2558 

2558* 

2558 

2558* 

2578 

2578* 

2401* 

2401 

2421 

2421* 

2441 

2441* 

2464* 

2464 

2484 

2484* 

2504 

2504* 

2527* 

2527 

2547 

2547* 

2567 

2567* 

2590* 

2590 

2610 

2610* 

2650 

2650* 

2655* 

2655 

2675 

2675* 

2690 

2690* 

2707 

2707* 

2850 

2850* 

2867 

2867* 

2887* 

2887 

2904* 

2904 

2918 

2918* 

2955 

2955* 

5065* 

5065 

5077 

5077* 

5094 

5094* 

3111 

;:ill* 

5229 

5229* 

5246 

5246* 

5265 

:i265* 

:i280 

5280* 

;:297 

;297* 

5511 

:3ii* 

;i429 

1429* 

J446 

:446* 

:466* 

:466 

5480 

5480* 

1854 
1871 
2057 
2054 
2071 
2089 

2125 

2250 

2264 

2278 

2292 

2506 

2520 

2540 

2560 

2585* 

2405 

2425 

2446* 

2466 

2486 

2509* 

2529 

2549 

2572* 

2592 

2612 

2655* 

2655 

2675 

2692 

2709 

2852 

2872* 

2889 

2906 

2920 

2957 

5065 

5082* 

5096 

5115 

5251 

5248 

5265 

5282 

5299 

5417* 

5451 

5451* 

5468 

5482 


1854* 

1871* 

2057* 

2054* 

2071* 

2089* 

2106* 

2125* 

2250* 

2264* 

2278* 

2292* 

2506* 

2520* 

2540* 

2560* 

2585 

2405* 

2425* 

2446 

2466* 

2486* 

2509 

2529* 

2549* 

2572 

2592* 

2612* 

2655 

2655* 

2675* 

2692* 

2709* 

2852* 

2872 

2889* 

2906* 

2920* 

2957* 

5065* 

5082 

5096* 

5115* 

5251* 

5248* 

5265* 

5282* 

5299* 

5417 

5451* 

5451 

5468* 

5482* 


r' 
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;0  1559 




487* 

3487 

3489 

3489* 

3491 

3491* 

3493    3 

493* 

3495 

495* 

3497 

501 

;:50U 

3503 

;503* 

3609* 

3609 

3611* 

611 

3613 

' 

613* 

3615 

619 

:1619* 

3621 

:621* 

3623 

3623* 

3628*   3628 

3630 

■630* 

3632 

636 

;636# 

3638 

3638* 

5643* 

3643 

3645    3645* 

3647 

3647* 

3649 

653 

;653# 

3658* 

3658 

3660 

;;660* 

m,  ] 

ni' 

3681 

664* 

3666 

670 

3670# 

3672 

3672* 

3674 

::674* 

681* 

3683 

687 

3687# 

;i689 
::848* 

3689* 
3848 

3691 
3850 

;i691* 

m  ] 

693* 
852* 

695 
857* 

■ 

695* 
857 

3839* 

38A3 

3843# 

:850* 

' 

3859 

3863 

3863* 

3865* 

3870* 

:i870 

1672        : 

872* 

;:874 

:874* 

3876 

3880 

3880* 

'882 

3882* 

3884 

3884* 

3886    3886* 

'891* 

::891 

3893 

3897 

3897# 

3899 

3899* 

3901 

3901* 

3903    3903* 

3905 

3905* 

3907 

40A5 

4045* 

4047 

4047* 

4052* 

4052 

4054    4054* 

4056 

4056* 

4058 

A065 

4065« 

4067 

4067* 

4069 

4069* 

4074*   4074 

4076 

4076* 

4078 

4082 

4082* 

4084 

4084* 

4086 

4086* 

4088    4088* 

4090 

4090* 

4095* 

A099 

4099* 

4101 

4101* 

4103 

4103* 

4105    4105* 

4107 

4107* 

4109 

4235* 

4235 

4237 

4237* 

4239 

4239* 

4244*   4244 

4246 

4246* 

4248 

4255 

4255* 

4257 

4257* 

4262* 

4262 

4264    4264* 

m 

4266* 
4283* 

4271* 

4275 

4275# 

4277 

4277* 

4279 

4279* 

4281    4281* 

4285 

^292» 

4292 

4294 

4294* 

4296 

4296* 

4298    4298* 

4300 

4300* 

4302 

4306 

4306* 

4308 

4308* 

4472* 

4472 

4474    4474* 

4476 

4476* 

4482* 

^^§^ 

4486* 

4488 

4488* 

4494* 

4494 

4496    4496* 

4498 

4498* 

4500 

4507 

4507* 

4509 

4509* 

4511 

4511* 

4513    4513* 

4518* 

4518 

4520 

4524 

4524* 

4526 

4526* 

4531* 

4531 

4533    4533* 

4535 

4535* 

4540* 

4544 

4544* 

4546 

4546* 

4548 

4548* 

4550    4550* 

4552 

4552* 

4554 

*558 

4558* 

4560 

4560* 

4562 

4562* 

4564    4564* 

4569* 

4569 

4571 

4575 

4575* 

4577 

4577* 

4579 

4579* 

4581    4581* 

4583 

4583* 

4585 

4592 

4592* 

4594 

4594* 

4596 

4596* 

4598    4598* 

4600 

4600* 

4602 

4606 

4606* 

4766* 

4766 

4768 

4768* 

4770    4770* 

4776* 

4776 

4778 

4782 

4782* 

4784 

4784* 

4786 

4786* 

4788    4788* 

4790 

4790* 

4792 

4799# 

4799 

4801 

4801* 

4803 

4803* 

4805    4805* 

4810* 

4810 

4812 

4816 

4816* 

4818 

4818* 

4820 

4820* 

4822   4822* 

4824 

4824* 

4826 

4833 

^§33'' 

4835 

4835* 

4837 

4837* 

4839    4839* 

4841 

4841* 

4843 

4847 

4847* 

5048* 

5048 

5050 

5050* 

5052    5052* 

5058* 

5058 

5060 

5064 

5064* 

5C66 

5066* 

5068 

5068* 

5070    5070* 

5072 

5072* 

5079* 

5083 

5083* 

5085 

5085* 

5087 

5087* 

5089    5089* 

5091 

5091* 

5093 

5100 

5100* 

5102 

5102* 

5104 

5104* 

5110*   5110 

5112 

5112* 

5114 

5118 

5118* 

5124* 

5124 

5126 

5126* 

5128    5128* 

5130 

5130* 

5132 

5139 

5139* 

5141 

5141* 

5143 

5143* 

5145    5145* 

5147 

5147* 

5149 

5153 

5153* 

5158* 

5158 

5160 

5160* 

5162    5162* 

5164 

5164* 

5166 

5170 

5170* 

5172 

5172* 

5174 

5174* 

5324*   5324 

5326 

5326* 

5328 

5332 

5332* 

5337* 

5337 

5339 

5339* 

5341    5341* 

5343 

5343* 

5345 

5349 

5349* 

5351 

5351* 

5353 

5353* 

5355    5355* 

5360* 

5360 

5362 

5366 

5366* 

5368 

5368* 

5370 

5370* 

5372    5372* 

5374 

5374* 

5379* 

5383 

5383* 

5385 

5385* 

5387 

5387* 

5389    5389* 

5391 

5391* 

5393 

5400 

1^89' 

5402 

5402* 

5404 

5404* 

5406    5406* 

5408* 

5413* 

5420# 

5420 

5422 

5422* 

5424 

5424* 

5426    5426* 

5428 

5428* 

5430 

5434 

5434* 

5436 

5436* 

5441* 

5441 

5443    5443* 

5445 

5445* 

5447 

5451 

5451* 

5453 

5453* 

5455 

5455* 

5457    5457* 

5595* 

5595 

5597 

^601 

5601* 

5606* 

5606 

5608 

5608* 

5610    5610* 
5627   5627* 

5612 

5612* 

5614 

562 1# 

5621 

5623 

5623* 

5625 

5625* 

5629 

5629* 

5631 

5638 

5638* 

5640 

5640* 

5642 

5642* 

5644    5644* 

5646 
5663 

5646* 

5648 

5655 

5655* 

5657 

5657* 

5659 

5659* 

5661    5661* 
5678    5678* 

5663* 
5680* 

5665 

5669 

5669* 

5674* 

5674 

5676 

5676* 

5680 

5682 

3497* 

3499 

::615* 

3617 

:632* 

3634 

J649* 

3651 

3666* 

3668 

3685 

'  859* 

3841 

3861 

3876* 
3893* 

3878 

3895 

3907* 

4043* 

4058* 

4063* 

4078* 

4080 

4095 

4097 

4109* 

4111 

4248* 

4253* 

4271 

4273 

4285* 

4287 

4302* 

4304 

4482 

4484 

4500* 

4505* 

4520* 

4522 

4540 

4542 

4554* 

4556 

4571* 

4573 

4585* 

4590* 

4602* 

4604 

4778* 

4780 

4792* 

4794 

4812* 

4814 

4826* 

4831* 

4843* 

4845 

5060* 

5062 

5079 

5081 

5093* 

5098* 

5114* 
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4292# 

4292 

4294* 

4294 

4296* 

4296 

4298* 

4298 

4306# 

4306 

4308* 

4308 

4472* 

4472 

4474* 

4474 

4486« 

4486 

4488* 

4488 

4494* 

4494 

4496* 

4496 

4507* 

4507 

4509* 

4509 

4511* 

4511 

4513* 

4513 

4524« 

4524 

4526* 

4526 

4531* 

4531 

4533* 

4533 

4544# 

4544 

4546* 

4546 

4548* 

4548 

4550* 

4550 

4558# 

4558 

4560* 

4560 

4562* 

4562 

4564* 

4564 

4575* 

4575 

4577* 

4577 

4579* 

4579 

4581* 

4581 

4592* 

4592 

4594* 

4594 

4596* 

4596 

4598* 

4598 

4606# 

4606 

4766* 

4766 

4768* 

4768 

4770* 

4770 

4782# 

4782 

4784* 

4784 

4786* 

4786 

4788* 

4788 

4799* 

'■799 

4801* 

4801 

4803* 

4803 

4805* 

4805 

481 6# 

4816 

4818* 

4818 

4820* 

4820 

4822* 

4822 

4833# 

4833 

4835* 

4835 

4837* 

4837 

4839* 

4839 

4847* 

4847 

5048* 

5048 

5050* 

5050 

5052* 

5052 

5064# 

5064 

5066* 

5066 

5068* 

5068 

5070* 

5070 

5083# 

5083 

5085* 

5085 

5087* 

5087 

5089* 

5089 

5100# 

5100 

5102* 

5102 

5104* 

5104 

5110* 

5118# 

5118 

5124* 

5124 

5126* 

5126 

5128* 

5128 

5139* 

5139 

5141* 

5141 

5143* 

5143 

5145* 

5145 

5153# 

5153 

51 :8* 

5158 

5160* 

5160 

5162* 
5324* 

5162 

5170* 

5170 

5172* 

5172 

5174* 

5174 

5324 

5332* 

5332 

5337* 

5337 

5339* 

5339 

5341* 

5341 

5349* 

5349 

5351* 

5351 

5353* 

5353 

5355* 

5355 

5366* 

5366 

5368* 

5363 

5373* 

5370 

5372* 

5372 

5383* 

5383 

5385* 

5385 

5387* 

5387 

5389* 

5389 

5400* 

5400 

5402* 

5402 

5404* 

5404 

5406* 

5406 

5420* 

5420 

5422* 

5422 

5424* 

5424 

5426* 
5443* 

5426 

5434* 

5434 

5436* 

5436 

5441* 

5441 

5443 

5451* 

5451 

5453* 

5453 

5455* 

5^55 

5457* 

5457 

5601* 

5601 

5606* 

5606 

5608* 

5608 

5610* 

5610 

3427* 

3427 

429* 

3429 

3431* 

3431 

444* 

3444 

446* 

3446 

3451* 

3451 

; 

461* 

3461 

:;466* 

3466 

3468* 

3468 

:478* 

3478 

::480* 

3480 

3482* 

3482 

• 

495* 

3495 

j:497* 

3497 

3499* 

3499 

< 

613* 

3613 

::615* 

3615 

3617* 

3617 

• 

630* 
647* 

3630 

632* 

3632 

3634* 

3634 

' 

3647 

! 

649* 

3649 

3651* 

3651 

] 

664* 
681* 

3664 

:666* 

3666 

3668* 

3668 

' 

3681 

3683* 

3685* 

3685 

:695* 

3695 

3839* 

3839 

3841* 

3841 

3857* 

3857 

3859* 

3859 

3861* 

3861 

874* 

3874 

3876* 

3876 

3878* 

3878 

891* 

3891 

3893* 

3893 

3895* 

3895 

3905* 

3905 

3907* 

3907 

4043* 

4043 

4056* 

4056 

4058* 

4058 

4063* 

4063 

4076* 

4076 

4078* 

4078 

4080* 

4080 

4090* 

4090 

4095* 

4095 

4097* 

4097 

4107* 

4107 

4109* 

4109 

4111* 

4111 

4246* 

4246 

4248* 

4248 

4253* 

4253 

4266* 
4283* 

4266 

4271* 

4271 

4273* 

4273 

4283 

4285* 

4285 

4287* 

4287 

4300* 

4300 

4302* 

4302 

4304* 

4304 

4476* 

4476 

4482* 

4482 

4484* 

4484 

4498* 

4498 

4500* 

4500 

4505* 

4505 

4518* 

4518 

4520* 

4520 

4522* 

4522 

4535* 

4535 

4540* 

4540 

4542* 

4542 

4552* 

4552 

4554* 

4554 

4556* 

4556 

4569* 

4569 

4571* 

4571 

4573* 

4573 

4583* 

4583 

4585* 

4585 

4590* 

4590 

4600* 

4600 

4602* 

4602 

4604* 

4604 

4776* 

4776 

4778* 

4778 

4780* 

4780 

4790* 

4790 

4792* 

4792 

4794* 

4794 

4810* 

4810 

4812* 

4812 

4814* 

4814 

4824* 

4824 

4826* 

4826 

4831* 

4831 

4841* 

4841 

4843* 

4843 

4845* 

4845 

5058* 

5058 

5060* 

5060 

5062* 

5062 

5072* 

5072 

5079* 

5079 

5081* 

5081 

5091* 

5091 

5093* 

5093 

5098* 

5098 

5112* 

5112 

5114* 

5114 

5116* 

5116 

5130* 

5130 

5132* 

5132 

5137* 

5137 

5147* 

5147 

5149* 

5149 

5151* 

5151 

5164* 

5164 

5166* 

5166 

5168* 

5168 

5326* 
5343* 

5326 

5328* 

5328 

5330* 

5330 

5343 

5345* 

5345 

5347* 

5347 

5360* 

5360 

5362* 

5362 

^364* 

5364 

5374* 

5374 

5379* 

5379 

'1381* 

5581 

5391* 

5391 

5393* 

5393 

5398* 

3398 

5408* 

5408 

5413* 

5413 

5415* 

5415 

5428* 

5428 

5430* 

5430 

5432* 

5432 

5445* 

5445 

5447* 

5447 

5449* 

5449 

5595* 

5595 

5597* 

5597 

5599* 

5599 

5612* 

5612 

56U* 

5614 

5616* 

5616 

SEQ  1575 


.LSELI 


.LSEL 
.LSELI 

.LSEL 
.LSKCI 


.LSKMI 
.LXNOI 


.LXOR 
.MA 


.HAND 


.MB 


5621* 


5621 


5623* 


5623 


5625* 

5^4?i> 


5625 
564? 


5627* 
5644* 


5627 
5644 


5629* 
5646* 


5629 
5646 


5631* 
5648* 


5631 
5648 


5636* 
5653* 


5636 
3653 


SEQ  1576 


5621  # 

5621 

5623* 

5623 

5625* 

5625 

5638# 

5638 

5640* 

5640 

5642* 

5642 

5655# 

5655 

5657* 

5657 

5659* 

5659 

5669# 

5669 

5674* 

5674 

5676* 

5676 

5686# 

5686 

5688* 

5690* 

5690 
5941 

5820# 

5820 

5822* 

5822 

5941* 

5954# 

5954 

5956* 

5956 

5958* 

5958 

S968« 

5968 

5970* 

5970 

5972* 

5972 

5982# 

5982 

5984* 

5984 

5986* 

600§ 

5996# 

5996 

5998* 

5998 

6000* 

601 0« 

6010 

6012* 

6012 

6014* 

6014 

6024# 

6024 

6026* 

6026 

6028* 

6028 

6038# 

6038 

6040* 

6040 

6042* 

6042 

6052* 

6052 

6054* 

6054 

6056* 

6056 

6066# 

6066 

6068* 

6068 

6070* 

6070 

6080# 

6080 

6082* 

6082 

6084* 

6084 

6094* 

6094 

6096* 

6096 

6098* 

6098 

6108« 

6108 

6110* 

6110 

6112* 

6112 

6122*> 

6122 

o124* 

6124 

6126* 

6  26 

6136# 

6136 

6138* 

6138 

6140* 

6U0 

6150# 

6150 

6152* 

6152 

6154* 

6154 

6164# 

6164 

6166* 

6166 

6168* 

6168 

6187# 

6187 

6189* 

6189 

6194* 

6194 

6204# 

6204 

6206* 

6208* 

6208 

621 8# 

6218 

6220* 

6220 

6222* 
6236* 

6222 

6232# 

6232 

6234* 

6234 

6236 

6246# 

6246 

6248* 

6248 

6250* 

6250 

6263# 

6263 

6265* 

6265 

6267* 

6267 

6278# 

6278 

6281* 

6281 

6283* 

6283 

6294# 

6.94 

6296* 

6296 

6299* 

6299 

631 0# 

6310 

6312* 

6312 

6314* 

6314 

6326# 

6326 

6328* 

6328 

6330* 

6330 

6341* 

<S341 

6344* 

6344 

6346* 

6346 

6357* 

o357 

6359* 

6359 

6362* 
6377* 

6362 

6373* 

6373 

6375* 

6375 

6377 

6389* 

6389 

6391* 

6391 

6393* 

6393 

6404^' 

6404 

6407* 

6407 

6409* 

6409 

6420* 

6420 

6422* 

6422 

6425* 

6425 

6436# 

6436 

6438* 

6438 

6440* 

6440 

6452* 

6452 

6454* 

6454 

6456* 

6456 

6467* 

6467 

6470* 

6470 

6472* 

6472 

6483* 

64^ 

6485* 

6485 

6488* 

6488 

6499* 

6^ 

6501* 

6501 

6503* 

6503 

6515* 

(i'..:> 

65  u» 

6517 

6519* 

6519 

6530* 

6530 

6533* 

6533 

6535* 

6535 

6546* 

6546 

6548* 

6548 

6551* 

6551 

6753* 

6753 

6755* 

6755 

6841* 

6841 

6854* 

6854 

6859* 

6859 

6861  * 

6861 

6963* 

6963 

6965* 

fc'»65 

6967* 

6967 

XMR 

1213* 

1213 

1215* 

;.;15 

1217* 

1217 

1229* 

1229 

1231* 

1231 

1234* 

1234 

1332* 

1332 

1424* 

1424 

1426* 

1426 

1438* 

1438 

1440* 

UAO 

1442* 

1442 

5627* 
5644* 
5661* 
5678* 
5811* 
5946* 
5960* 
5974; 
5988* 
6002* 
6016* 
6030* 
6044* 
6058* 
6072* 
6086* 
6100* 
6114* 
6128* 
6142* 
6156* 
6173* 
6196* 
6210* 
6224* 
6238* 
6252* 
6269* 
6285* 
6301* 
6317* 
6332* 
6348* 
6364* 
6380* 
6395* 
6411* 
6427* 
6443* 
6458* 
6474* 
6490* 
6506* 
6521* 
6537* 
6741* 
6843* 
6863* 
6969* 
1220* 
1236* 
1428* 
1445* 


5627 
5644 
5661 
5678 
5811 
5946 
5960 
5974 
5988 
6002 
6016 
6030 
6044 
6058 
6072 
6086 
6100 
6114 
6128 
6142 
6156 
6173 
6196 
6210 
6224 
6238 
6252 
6269 
6285 
6301 
6317 
6332 
6348 
6364 
6380 
6395 
6411 
6427 
64H3 
6458 
6474 
6490 
6506 
6521 
6537 
6741 
6843 
6863 
6969 
1220 
1236 
1428 
1445 


5629* 
5646* 
5663* 
5680* 
5813* 
5948* 
5962* 
5976* 
5990* 
6004* 
6018* 
6032* 
6046* 
6060* 
6074* 
6088* 
6102* 
6116* 
6130* 
6144* 
6158* 
6181* 
6198* 
6212* 
6226* 
6240* 
6254* 
6272* 
6287* 
6303* 
6319* 
6335* 
6350* 
6366* 
6382* 
6398* 
6413* 
6429* 
6445* 
6461* 
6476* 
6492* 
6508* 
6524* 
6539* 
6743* 
6845* 
6865* 

1222* 
1238* 
1431* 
1447* 


5629 
5646 
5663 
5680 
5813 
5948 
5962 
5976 
5990 
6004 
6018 
6032 
6046 
6060 
6074 
6088 
6102 
6116 
6130 
6144 
6158 
6181 
6198 
6212 
6226 
6240 
6254 
6272 
6287 
6303 
6319 
6335 
6350 
6366 
6382 
6398 
6413 
6429 
6445 
6461 
6476 
6492 
6508 
6524 
6539 
6743 
6845 
6865 

1222 
1238 
1431 
1447 


5631* 
5648* 
5665* 
5682* 
5815* 
5950* 
5964* 
5978* 
5992* 
6006* 
6020* 
6034* 
6048* 
6062* 
6076* 
6090* 
6104* 
6118* 
6132* 
6146* 
6160* 
6183* 
6200* 
6214* 
6228* 
6242* 
6256* 
6274* 
6290* 
6305* 
6321* 
6337* 
6353* 
6368* 
6384* 
6400* 
6416* 
6431* 
6447* 
6463* 
6479* 
6494* 
6510* 
6526* 
6542* 
6745* 
6847* 
6867* 

1224* 
1328* 
1433* 
1449* 


5631 
5648 
5665 
5682 
5815 
5950 
5964 
5978 
5992 
6006 
6020 
6034 
6048 
6062 
6076 
6090 
6104 
6118 
6132 
6146 
6160 
6183 
6200 
6214 
6228 
6242 
6256 
6274 
6290 
6305 
6321 
6337 
6353 
6368 
6384 
6400 
6416 
6431 
6447 
6463 
6479 
6494 
6510 
6526 
6542 
6745 
6847 
6867 

1224 
1329 
1433 
1449 


5636* 
5653* 
5667* 
5684* 
5818* 
5952* 

5980* 
5994* 
6008* 
6022* 
6036* 
6050* 
6064* 
6078* 
6092* 
6106* 
6120* 
6134* 
6148* 
6162* 
6185* 
6202* 
6216* 
6230* 
6244* 
6258* 
6276* 
6292* 
6308* 
6323* 
6339* 
6355* 
6371* 
6386* 
6402* 
6418* 
6^34* 
6449* 
6465* 
6481* 
6497* 
6512* 
6S28* 
6544* 
6747* 
6852# 
6961* 

1227* 
1330* 
1435* 
1452* 


5636 

3653 

5667 

5684 

5818 

5952 

5966 

5980 

5994 

6008 

6022 

6036 

6050 

6064 

6078 

6092 

6106 

6120 

6134 

6148 

6162 

6185 

6202 

6216 

6230 

6244 

6258 

6276 

6292 

6308 

6323 

6339 

6355 

6371 

6386 

6402 

6418 

6434 

6449 

6465 

6481 

6497 

6512 

6528 

6544 

6747 

6852 

6961 

1227 
1330 
1435 
H52 


SEQ  1576 


.HBAD 

.HCCA 
.«CCB 
.MCCC 

.«CCC 
.*.CCC 

.k:cc 

.«CCE 
.HCCE 
.MCCF 


.MCCC 


.HC( 
.«CCl 

.HCC^ 

.HCCF 
.MCC) 


1454*      1454        1456*      1456        1459*      1459        1461*      1461         1463*       1463        1466*      1466        1468*      1468 

'•— ""  ■"-*>  ..t^.. 1±22. ^iteti i/TC 1/770  1/77  IcZ/il  1  Ci^/  MiLLM  1  CiLX  1CZ.P«  ICXQ 


ccn    1C77 


K54# 

1454 

1456* 
1473* 

1456 
1473 

U70# 

1470 

1571* 

1571 

1573* 

1573 

1751* 

1751 

1753* 

1753 

1771* 

1771 

1773* 

1773 

1788# 

1788 

1790* 

1790 

1805* 
1822* 

1805 

1807* 

ii?I 

1822 

1824* 

li59# 

1842 

1844* 

1844 

1859 

1861* 

1861 

1873# 

1873 

1875* 

1875 

2039* 

2039 

2044* 

2044 

2059# 

2059 

2061* 

2061 

2077# 

2077 

2079* 

2079 

2091* 

2091 

2096* 

2096 

2108* 

2108 

2110* 

2110 

2125* 

2125 

2127* 

2127 

2252* 

2252 

2254* 

2254 

2266* 

2266 

2268* 

2268 

2280# 

2280 

2282* 

2282 

2294* 

2294 

2296* 

2296 

2308* 

2308 

2310* 

2310 

Wli 

2322 

2327* 

2327 

2342 

2347* 

2347 

2365* 

2365 

2367* 

2567 

2385* 

2385 

2387* 

2387 

2405* 

2405 

2410* 

2410 

2428# 

2428 

2430* 

2430 

2448* 

2448 

2450* 

2450 

2468* 

2468 

2473* 

2473 

2491* 

2491 

2493* 

2493 

2511* 

2511 

2513* 

2513 

2531* 

'531 

2536* 

2536 

2554* 

i554 

2556* 

2556 

2574* 

2574 

2576* 

2576 

2594* 

2594 

2599* 

2599 

2617* 

2617 

2619* 

2619 

2637* 

2637 

2639* 

2639 

2657* 

2657 

2659* 

2659 

2680* 

2680 

2682* 

2682 

2694* 

2694 

2696* 
2713* 

m 

2711* 

2711 

2857* 

2857 

2859* 

2859 

2874* 

2874 

2876* 

2876 

2891* 

2891 

2893* 

2893 

2908* 

2908 

2910* 

2910 

2925* 

2925 

2927* 

2927 

2939* 

2939 

2941* 

2941 

3067* 

3067 

3069* 

3069 

3084* 

3084 

3086* 

:086 

3098* 

3098 

3103* 

3103 

3115* 

3115 

3117* 

3117 

3233* 

3233 

3235* 

3235 

1459* 
1475* 
1575* 
1758* 
1775* 
1792* 
1809* 
1826* 

]^^ 

]026* 
046* 
063* 
081* 
i098* 
2112* 
2129* 
1256* 
J270* 
]84* 
98* 
Jl2* 
>329* 
349* 
369* 
i392* 
2412* 
2432* 
2455* 
2475* 
2495* 
2518* 
2538* 
2558* 
2581* 
2601* 
2621* 
2644* 
2664* 
2684* 
2701* 
2715* 
2861* 
2878* 
2895* 
2912* 
2929* 
3054* 
3071* 
3088* 
3105* 
3119* 
3237* 


1459 

1461* 
1477* 

1461 

1463* 

1463 

1466* 

1475 

1477 

1564* 
1580* 

1564 

1566* 

1575 

1578* 

1578 

1580 

1582* 

1758 

1760* 
1780* 
1797* 

1760 

1762* 
1782* 

1762 

1764* 

1775 

1780 

1782 

1784* 

1792 

1797 

1799* 

1799 

1801* 

im 

1814* 
1831* 

1814 
1831 

1816* 
1833* 

1816 
1833 

M 

i| 

1848* 

1848 

1850* 
1867* 
2030* 

1850 

1852* 

1865* 
io48* 

1865 

1867 

1869* 
2035* 

2028 

2030 

2046 
2063 

2048 

2050* 

2050 

2052* 

2083* 

2065 

2067* 

2067 

2069* 

2081 

2083 

2085* 

2085 

2087* 

2098 

2100* 
2117* 

2100 

2102* 

2102 

2104* 

2112 

2117 

2119* 

2119 

2121* 

2129 

2131* 

2131 

2133* 

2133 

2248* 

2256 

2258* 

2258 

2260* 

2260 

2262* 

2270 

2272* 

2272 

2274* 

2274 

2276* 

2284 

2286* 

2286 

2288* 

2288 

2290* 

2298 

2300* 

2300 

2302* 

2302 

2304* 

2312 

2314* 

2314 

2316* 

?316 

2318* 

i|29 

2331* 

2331 

2336* 

2336 

2338* 

2349 

2351* 

2351 

2356* 

2356 

2358* 

2369 

2374* 

2374 

2376* 

2376 

2378* 

2392 

2394* 

2394 

2396* 

2396 

2401* 

2412 

2414* 

2414 

2419* 

2419 

2421* 

2432 

2437* 

2437 

2439* 

2439 

2441* 

2455 

2457* 

2457 

2459* 

2459 

2464* 

2475 

2477* 

2477 

2482* 

2'*82 

2484* 

2495 

2500* 

2500 

2502* 

2502 

2504* 

2518 

2520* 

2520 

2522* 

2522 

2527* 

2538 

2540* 

2540 

2545* 

2545 

2547* 

2558 

2563* 

2563 

2565* 

2565 

2567* 

2581 

2583* 

2583 

2585* 

2585 

2590* 

2601 

2603* 

2603 

2608* 

2608 

2610* 

2621 

2626* 

2626 

2628* 

2628 

2630* 

2644 

2646* 

2646 

2648* 

2648 

2653* 

2664 

2666* 
2703* 

2666 

2671* 

2671 

2673* 

2684 

2686 

2688* 

2688 

2690* 
2707* 

2701 

2703 

2705* 

2705 

2715 

2717* 

2717 

2848* 

2848 

2850* 

2861 

2863* 

2863 

2865* 

2865 

2867* 

2878 

2880* 

2880 

2882* 

2882 

2887* 

2895 

2897* 

2897 

2899* 

2899 

2904* 

2912 

2914* 

2914 

2916* 

2916 

2918* 

2929 

2931* 

2931 

2933* 

2933 

2935* 

3054 

3056* 

3056 

3058* 

3058 

3063* 

3071 

3073* 

3073 

3075* 

3075 

!077* 

3088 

3090* 

3090 

3092* 

3092 

3094* 

3105 

3107* 

3107 

3109* 

3109 

3111* 

3119 

3225* 

3225 

3227* 

3227 

3229* 

3237 

3239* 

3239 

3244* 

3244 

3246* 

1466 

1566 

1582 

1764 

1784 

1801 

1818 

1838 

1852 

1869 

2035 

2052 

2069 

2087 

2104 

2121 

2248 

2262 

2276 

2290 

2304 

2318 

2338 

2358 

2378 

2401 

2421 

2441 

2464 

2484 

2504 

2527 

2547 

2567 

2590 

2610 

2630 

2653 

2673 

2690 

2707 

2850 

2867 

2887 

2904 

2918 

2935 

3063 

3077 

3094 

3111 

3229 

3246 


1468* 

1468 

1568* 

1568 

1749* 

1749 

1769* 
1786* 
1803* 

1769 

1786 

1803 

1820* 

1820 

1840* 

1840 

1854* 

1854 

1871* 

1871 

2037* 

2037 

2054* 

2054 

2071* 

2071 

2089* 

2089 

l\% 

2106 

2123 

2250* 

2250 

2264* 

2264 

2278* 

2278 

2292* 

2292 

2306* 

2306 

2320* 

2320 

2340* 

2340 

2360* 

2360 

2383* 

2383 

2403* 

2403 

2423* 

2423 

2446* 

2446 

2466* 

2466 

2486* 

2486 

2509* 

2509 

2529* 

2529 

2549* 

2549 

2572* 

2572 

2592* 

2592 

2612* 

2612 

2635* 

2635 

2655* 

2655 

2675* 

2675 

2692* 

2692 

2709* 

2/09 

2852* 

2852 

2872* 

2872 

2889* 

2889 

2906* 

2906 

2920* 

2920 

2937* 

2937 

3065* 

3065 

:082* 

3082 

:096* 

3096 

:113* 

3113 

:231* 

]i231 

3248* 

3248 

SEO  1577 


.MCJf 


.MCJ! 


.HCOl 


MR 


3250*   3250   3252*   3252    5254*   ^254    3259*   3259   3261*   3261    3263*   3263   3265*   3265 


f*re\     ir^a 


.MCR 


3250* 

3250    3 

252* 

3252 

3254* 

1254 

259* 

3259   3 

278* 

3261 

3263* 

3263 

3265* 

3265 

267* 

32t7   : 

269* 

3269 

:274* 

1274 

276* 

3276 

3278 

3280* 

3280 

282* 

3282 

328A* 
3301* 

3284    I 

286* 

;288* 

3288 

290* 

3290   ; 

295* 

3295 

3297 

299* 

3299 

3301    ! 

303* 

3303 

3305* 

3305 

307* 
A25* 

3307   : 

309* 

3309 

:311* 

;A17* 

3A17 

3A19* 

3A19   3A21* 

3421 

3423* 

3A23 

3A25    3427* 

3427 

:A29* 

3429 

A31* 

3A31 

3A36* 

3A36   3A38* 

3438 

3440* 

3A40 

AA2* 
A59* 

3442   34AA* 

3444 

J446* 

3446 

A51* 

3A51 

3A53* 

3A53    3 

455* 

3455 

3457* 

3A57 

3A59   3 

461* 
A78* 

3461 

3466* 
3480* 

:466 

3 

1 

A68* 
A82* 

3A68 

3A70* 

3A70    ! 

472* 

!A72 

3474* 

3A74 

A76* 
A93* 

::A76 

3478 

3480 

1 

3A82 

3A87* 

3A87    3A89* 

3489 

:491* 

3A91 

:iA93   ! 

A95* 

3495 

3497* 

3497 

A99* 

3A99 

'SOI* 

3501    3503* 

3503 

;609* 

:609 

' 

611* 

::611    3 

613* 

3613 

3615* 

3615 

::617* 

3617 

3619* 

3619   3621* 

3621 

3623* 

3623 

:628* 

3628   3630* 

3630 

3632* 

3632 

:  63A* 

363A 

3636* 

3636   3638* 

3638 

3643* 

36A3 

36A5* 

3645   36A7* 

3647 

3649* 

3649 

;65i* 

3651 

3653* 

3653    3658* 

3658 

3660* 

3660 

3662* 

3662   366A* 

3664 

3666* 

3666 

3668* 

3668 

3670* 

3670    3672* 

3672 

3674* 

367A 

3679* 

3679   3681* 

3681 

3683* 

3683 

685* 

3685 

3§8^* 

3687    3689* 

3689 

3691* 

3691 

3693* 

3693   3695* 

3695 

3839* 

3839 

8A1* 

38A1 

38A3# 

38A3    38A8* 

3848 

3850* 

3850 

3852   3857* 

3657 

3859* 

3859 

3861* 

3861 

3863* 

3863    3865* 

3865 

3870* 

3870 

3872* 

:872   3 

87A* 

3874 

3876* 

3876 

3878* 

3878 

3880* 

3880    3882* 

3882 

3884* 

388A 

3886* 
3903* 

3886   : 

891* 

3891 

3893* 

3893 

3895* 

3895 

3897* 

3897    3899* 

3899 

3901* 

3901 

3903   3905* 

3905 

3907* 

3907 

A0A3* 

4043 

40A5* 

A0A5    A0A7* 

4047 

4052* 

A052 

A05A* 

4054    4056* 

4056 

A058* 

4058 

A063* 

A063 

A065* 

4065    A067* 

4067 

A069* 

4069 

A07A* 

4074    4076* 

4076 

4078* 

4078 

A080* 

A080 

A082* 

4082    408A* 

4084 

A086* 

4086 

A088* 

4088    4090* 

4090 

4095* 

4095 

A097* 

A097 

A099* 

4099    4101* 

4101 

A 103* 
A239* 

A103 

A105* 

4105    4107* 

4107 

4109* 

4109 

A111* 

A111 

A235# 

4235    4237* 

4237 

A239 

A2AA* 

42AA    4246* 

4246 

4248* 

A2A8 

A253* 

A253 

A255* 

4255    4257* 

4257 

A262* 

A262 

A26A* 

4264    4266* 

4266 

4271* 

A271 

A273* 

A273 

A275* 

4275    4277* 

4277 

4279* 

5279 

A281* 

4281    A283* 

4283 

4285* 

A285 

A287* 

A287 

A292* 

4292    4294* 

4294 

4296* 

A296 

A298* 

4298    4300* 

4300 

A302* 

A302 

A304* 

4304 

A306* 

4306    4308* 

4308 

4A72* 

A472 

AA7A* 

4474    4476* 

A476 

A482* 

AA82 

AA8A* 

4A8A 

AA86* 

4486    4488* 

4488 

4494* 

4494 

AA96* 
A513* 

4496    4498* 

4498 

4500* 

A500 

A505* 

4505 

A507* 

4507    4509* 

4509 

4511* 

4511 

4513    A518* 

4518 

4520* 

A520 

A522* 

A522 

A52A# 

4524    4526* 

4526 

4531* 

A531 

A533* 

4533    4535* 

4535 

4540* 

A540 

A5A2* 

A5A2 

A5AA* 

4544    4546* 

4546 

4548* 

A5A8 

A550* 

4550    4552* 

4552 

4554* 

A554 

A556* 

A556 

A558* 

4558    4560* 

4560 

4562* 

A562 

A56A* 

4564    4569* 

4569 

4571* 

A571 

A573* 

A573 

A575* 

'•575    4577* 

4577 

4579* 

A579 

A581* 

4581    4583* 

4583 

A585* 

A585 

A590* 

A  590 

A592* 

4592    4594* 

4594 

4596* 

4596 

A598* 

4598    4600* 

4600 

4602* 

A602 

A60A* 

A60A 

A606* 

4606    4766* 

4766 

A768* 

4768 

A770* 

4770    4776* 

4776 

4778* 

A778 

A780* 

A  780 

A782* 

4782    4784* 

4784 

A786* 
A803* 

4786 

A788* 

4788    4790* 

4790 

4792* 

A792 

A79A* 

A79A 

A  799* 

4799    4801* 

4801 

4803 

A805* 

4805    4810* 

4810 

481 2* 

A812 

A81A* 

A81A 

A816* 

4816    4818* 

^§1§ 

4820* 
4837* 

A820 

4822* 

4822    482A* 

4824 

4826* 
4843* 

A826 

A831* 

A831 

A833* 

4833    4835* 

4835 

A837 

4839* 

4839    4841* 

4841 

A8A3 

A8A5* 

A8A5 

A8A7* 

4847    5048* 

5048 

5050* 

5050 

5052* 

5052   5058* 

5058 

5060* 

5060 

5062* 

5062 

506A* 

5064    5066* 

5066 

5068* 

5068 

5070* 

507C    5072* 

5072 

5079* 

5079 

5081* 

5081 

5083* 

5083    5085* 

5085 

5087* 

5087 

5089* 

5089    5091* 

5091 

5093* 

5093 

5098* 

5098 

5100* 

5100    5  02* 

5102 

5104* 

5110* 

5110   5112* 

5112 

5114* 

511A 

5116* 

5116 

5118* 

5118    512A* 

5124 

5126* 

5126 

5128* 

5128   5130* 

5130 

5132* 

5132 

5137* 

5137 

5139* 

5139    5141* 

5141 

51A3* 

5143 

5145* 

5145    5147* 

5147 

5149* 

5149 

5151* 

5151 

5153* 

5153    5158* 

5158 

5160* 

5160 

5162* 

5162    5164* 

5164 

5166* 

5166 

5168* 

5168 

5170* 

5170    5172* 

nil 

5174* 

5174 

532A* 

5324    5326* 

5326 

5328* 

5328 

5330* 

5330 

5332* 

5332    5337* 

5337 

5339* 

5339 

5341* 

5341    5343* 

53'»3 

5345* 

5345 

53A7* 

53A7 

53A9* 

5349    5351* 

5351 

5353* 

5353 

5355* 

5355    5360* 

5360 

5362* 

536A* 

5364 

11^^^ 

5366   5368* 

5368 

5370* 

5370 

5372* 

5372   537A* 

5374 

5379* 

5379 

5381* 

5381 

5383* 

5383    5385* 

5385 

5387* 

5387 

5389* 

5389   5391* 

5391 

5393* 

5393 

5398* 

5398 

5A00* 

5A00    5402* 

5A02 

5404* 

5404 

5406* 

5A06   5408* 

5A08 

5413* 

5413 

5A15* 

5A15 

SEQ  1578 


.MCR^ 


.MD 


SA2Q*   SA20    5A22*   5A22    5A2A*   5A2A    5A26*   5A2$   5A28*   5A28    5A30*   5430    5A32*   5A32 


r" 


5A20* 

5420 

5422* 

5422 

5424* 

5424 

5426* 
5443* 

5426 

5428* 

5428 

5434* 

5434 

5436* 
5453* 

5436 

5441* 

5441 

5443 

5445* 

5445 

5451* 

5451 

5453 

5455* 

5455 

5457* 

5457 

5595* 

5595 

5601* 

5601 

5606* 
5623* 

5606 

5608* 

5608 

5610* 

5610 

5612* 

5612 

5621* 

5621 

5623 

5625* 

5625 

5627* 

5627 

5629* 

5629 

5638* 

5638 

5640* 

5640 

5642* 

5642 

5644* 

5644 

5646* 
5680* 

5646 

5655* 

5655 

5657* 

5657 

5659* 

5659 

mii 

5661 
5678 

5663 

5669* 

5669 

5674* 

5674 

5676* 

5676 

5680 

5686* 

5686 

5688* 

5688 

5690* 

5690 

5811* 

5811 

5813* 

5813 

5820* 

5820 

5822* 

5822 

5941* 

5941 

5946* 

5946 

5948* 

5948 

5954* 

5954 

5956* 

5956 

5958* 

5958 

5960* 

5960 

5962* 

5962 

5968* 

5968 

5970* 

5970 

5972* 

5972 

5974* 

5974 

5976* 

5976 

5982* 

5982 

5984* 

5984 

5986* 

5986 

5988* 

5988 

5990* 

5990 

5996* 

5996 

5998* 

5998 

6000* 

6000 

6002* 

6002 

6004* 

6004 

6010* 

6010 

6012* 

6012 

6014* 

6014 

6016* 

6016 

6018* 

6018 

6024* 

6024 

6026* 

6026 

6028* 

6028 

6030* 

6030 

6032* 

6032 

6038* 

6038 

6040* 

6040 

6042* 

6042 

6044* 

6044 

6046* 

6046 

6052* 

6052 

6054* 

6054 

6056* 

6056 

6058* 

6058 

6060* 

6060 

6066* 

6066 

6068* 

6068 

6070* 

6070 

6072* 

6072 

6074* 

6074 

6080* 

6080 

6082* 

6082 

6084* 

6084 

6086* 

6086 

6088* 

6088 

6094* 

6094 

6096* 

6096 

6098* 

6098 

6100* 

6100 

6102* 

6102 

6108* 

6108 

6110* 

6110 

6112* 

6112 

6114* 

6114 

6116* 

6116 

6122* 

6122 

6124* 

6124 

6126* 

6126 

6128* 

6128 

6130* 

6130 

6136* 

6136 

6138* 

6138 

6140* 

6140 

6142* 

6142 

6144* 

6144 

6150* 

6150 

6152* 

6152 

6154* 

6154 

6156* 

6156 

6158* 

6158 

6164* 

6164 

6166* 

6166 

6168* 

6168 

6173* 

6173 

6181* 

6181 

6187* 

6187 

6189* 

6189 

6194* 

6194 

6196* 

6196 

6198* 

6198 

6204* 

6204 

6206* 

6206 

6208* 

6208 

6210* 

6210 

6212* 

6212 

6218* 

6218 

6220* 

6220 

6222* 

6222 

6224* 

6224 

6226* 

6226 

6232* 

6232 

6234* 

6234 

6236* 

6236 

6238* 

6238 

6240* 

6240 

6246* 

6246 

6248* 

6248 

6250* 

6250 

6252* 

6252 

6254* 

6254 

6263* 

6263 

6265* 

6265 

6267* 

6267 

6269* 

6269 

6272* 

6272 

6278* 

6278 

6281* 

6281 

6283* 

6283 

6285* 

6285 

6287* 

6287 

6294* 

5294 

6296* 

6296 

6299* 

6299 

6301* 

6301 

6303* 

6303 

6310* 

6310 

6312* 

6312 

6314* 

6314 

6317* 

6317 

6319* 

6319 

6326* 

6326 

6328* 

6328 

6330* 

6330 

6332* 

6332 

6335* 

6335 

6341* 

6341 

6344* 

6344 

6346* 

6346 

6348* 

6348 

6350* 

6350 

6357* 

6357 

6359* 

6359 

6362* 

6362 

6364* 

6364 

6366* 

6366 

6373* 

6373 

6375* 

6375 

6377* 

6377 

6380* 

6380 

6382* 

6382 

6389* 

6389 

6391* 

6391 

6393* 

6393 

6395* 

6395 

6398* 

6398 

6404* 

6404 

6407* 

6407 

6409* 

6409 

6411* 

6411 

6413* 

6413 

6420* 

6420 

6422* 

6422 

6425* 

6425 

6427* 

6427 

6429* 

6429 

6436* 

6436 

6438* 

6438 

6440* 

6440 

6443* 

6443 

6445* 

6445 

6452* 

6452 

6454* 

6454 

6456* 

6456 

6458* 

6458 

6461* 

6461 

6467* 

6467 

6470* 

6470 

6472* 

6472 

6474* 

6474 

6476* 

6476 

6483* 

6^83 

6485* 

6485 

6488* 

6488 

6490* 

6490 

6492* 

6492 

6499* 

6499 

6501* 

6501 

6503* 

650J 

6506* 

6506 

6508* 

6508 

6515* 

6515 

6517* 

6517 

6519* 

6519 

6521* 

6521 

6524* 

6524 

6530* 

6530 

6533* 

6533 

6535* 

6535 

6537* 

6537 

6539* 

6539 

6546* 

6546 

6548* 

6548 

6551* 

6551 

6741* 

6741 

6743* 

6743 

6753* 

6753 

6755* 

6755 

6841* 

6841 

6843* 

684: 

6845* 

6845 

6854* 

6854 

6859* 

6859 

6861* 

6861 

6863* 

6863 

6865* 

6865 

6963* 

6963 

6965* 

6965 

6967* 

6967 

6969* 

6969 



5430* 

5430 

5432* 

5432 

5447* 

5447 

5449* 

5449    SEQ  1579 

5597* 

5597 

5599* 

5599 

5614* 

5614 

5616* 

5616 

5631* 

5631 

5636* 
5653* 

5636 

5648* 

5648 

5653 

5665* 
5682* 

5665 

5667* 

5667 

5682 

5684* 

5684 

5815* 

5815 

5818* 

5818 

5950* 

5950 

5952* 

5952 

5964* 

5964 

5966* 

5966 

5978* 

5978 

5980* 

5980 

5992* 

5992 

5994* 

5994 

6006* 

6006 

6008* 

6008 

6020* 

6020 

6022* 

6022 

6034* 

6034 

6036* 

6036 

6048* 

6048 

6050* 

6050 

6062* 

6062 

6064* 

6064 

6076* 

6076 

6078* 

6078 

6090* 

6090 

6092* 

6092 

6104* 

6104 

6106* 

6106 

6118* 

6118 

6120* 

6120 

6132* 

6132 

6134* 

6134 

6146* 

6146 

6148* 

6148 

6160* 

6160 

6162* 

6162 

6183* 

6183 

6185* 

6185 

6200* 

6200 

6202* 

6202 

6214* 

6214 

6216* 

6216 

6228* 

6228 

6230* 

6230 

6242* 

6242 

6244* 

6244 

6256* 

6256 

6258* 

6258 

6274* 

6274 

6276* 

6276 

6290* 

6290 

6292* 

6292 

6305* 

6305 

6308* 

6308 

6321* 

6321 

6323* 

6323 

6337* 

6337 

6339* 

6339 

6353* 

6353 

6355* 

6355 

6368* 

6368 

6371* 

6371 

6384* 

6384 

6386* 

6386 

6400* 

6400 

6402* 

6402 

6416* 

6416 

6418* 

6418 

6431* 

6431 

6434* 

6434 

6447* 

6447 

6449* 

6449 

6463* 

6463 

6465* 

6465 

6479* 

6479 

6481* 

6481 

6494* 

6494 

6497* 

6497 

6510* 

6510 

6512* 

6512 

6526* 

6526 

6528* 

6528 

6542* 

6542 

6544* 

6544 

6745* 

6745 

6747* 

6747 

6847* 

6847 

6852* 

6852 

6867* 

6867 

6961* 

6961 

I   A 


^f^LL 


IBAA 


i««;? 


IRAS 


1867 


1873        ?1Q?        2104        2110        2123        2125 


2131 


2686        2688 


1567 


.LA 


.LADDR 


.LAND 


.LB 


18AA 

269A 

3111 

3495 

4080 

4583 

5151 

5682 

5972 

6000 

6028 

6056 

6084 

6112 

6140 

6181 

6308 

6371 

6434 

6497 

1213 

2035 

2392 

2518 

2644 

3082 

3609 

4074 

4540 

5137 

5653 

6961 

1838 

2410 

2536 

2664 

3870 

4590 

5946 

1838 

2686 

3105 

3489 

4074 

4575 

5143 

5676 

5970 

5998 

6026 

6054 

6082 

6110 


1846 

1852 

1865 

1867 

1873 

2102 

2104 

2707 

2709 

2715 

2910 

2912 

2918 

2931 

3117 

3231 

3280 

3282 

3288 

3301 

3303 

3501 

3664 

3666 

3672 

3685 

3687 

3693 

4082 

4088 

4101 

4103 

4109 

4277 

4279 

4596 

4598 

4604 

4816 

4818 

4824 

4837 

5164 

5166 

5172 

5426 

5428 

5434 

5447 

5688 

5948 

5950 

5952 

5954 

5956 

5958 

5974 

5976 

5978 

5980 

5982 

5984 

5986 

6002 

6004 

6006 

6008 

6010 

60^ 

6014 

6030 

6032 

6034 

6036 

6038 

60^2 

6042 

6058 

6060 

6062 

6064 

6066 

6068 

6070 

6086 

6088 

6090 

6092 

6094 

6096 

6098 

6114 

6116 

6118 

6120 

6122 

6]2A 

6126 

6142 

6144 

6146 

6148 

6150 

61" 

6154 

6183 

6185 

6187 

6263 

6267 

HU 

6276 

6312 

6317 

6321 

6326 

6330 

6335 

6339 

6375 

6380 

6384 

6389 

6393 

6398 

6402 

6438 

6443 

6447 

6452 

6456 

6461 

6465 

6501 

6506 

6510 

6515 

6519 

6524 

6528 

1328 

1424 

1564 

1749 

1758 

1769 

VM 

2044 

2059 

2077 

2096 

2117 

2248 

2327 

2401 

2410 

2419 

2428 

2437 

m^ 

2455 

2527 

2536 

2545 

2554 

2563 

2572 

2581 

2653 

2664 

2671 

2680 

2701 

2848 

2857 

3103 

3225 

3227 

3244 

3259 

3274 

3295 

3611 

3628 

3643 

3658 

3679 

3839 

3848 

4095 

4235 

4244 

4253 

4262 

4271 

4292 

4569 

4590 

4766 

4776 

4799 

^§1S 

4831 

5158 

5324 

5337 

5360 

5379 

5398 

5413 

5674 

5811 

5941 

5946 

6173 

6181 

6194 

1859 

2065 

2096 

2117 

2327 

2336 

2347 

2419 

2423 

2437 

2446 

2455 

2464 

2473 

2545 

2554 

2563 

2572 

2581 

2590 

2599 

2680 

2701 

2889 

2904 

2925 

3082 

3103 

3891 

4043 

4052 

4063 

4074 

4095 

4235 

4776 

4810 

4831 

5137 

5158 

5402 

5420 

6841 

6845 

6859 

6961 

1840 

1844 

1859 

1861 

1865 

2096 

2098 

2701 

2703 

2707 

2904 

2906 

2910 

2925 

3109 

3229 

3274 

3276 

3280 

3295 

3297 

3493 

3658 

3660 

3664 

3679 

3681 

5685 

4076 

4080 

4095 

4097 

4101 

4271 

4273 

4590 

4592 

4596 

4810 

4812 

4816 

4831 

5158 

5160 

5164 

5420 

5422 

5426 

5441 

5680 

5946 

5948 

5950 

5952 

5954 

5956 

5972 

5974 

5976 

5978 

5980 

5982 

5984 

6000 

6002 

6004 

6006 

6008 

6012 

6012 

6028 

6030 

6032 

6034 

6036 

6038 

60^0 

6056 

6058 

6060 

6062 

6064 

6066 

6068 

6084 

6086 

6088 

6090 

6092 

6094 

6096 

6112 

6114 

6116 

6118 

6120 

6122 

6124 

2110 

2123 

2125 

2131 

2686 

2688 

2933 

2939 

3088 

3090 

3096 

3109 

3309 

3423 

3472 

3474 

3480 

3493 

3876 

3878 

3884 

3897 

3899 

3905 

4285 

4298 

4300 

4306 

4575 

4577 

4839 

4845 

5110 

5124 

5143 

5145 

5449 

5455 

5659 

5661 

5667 

5680 

5960 

5962 

5964 

5966 

5968 

5970 

5988 

5990 

5992 

5994 

5996 

5998 

6016 

6018 

6020 

6022 

6024 

6026 

6044 

6046 

6048 

6050 

6052 

6054 

6072 

6074 

6076 

6078 

6080 

6082 

6100 

6102 

6104 

6106 

6108 

6110 

6128 

6130 

6132 

6134 

6136 

6138 

6156 

6158 

6160 

6162 

6164 

6166 

6281 

6285 

6290 

6294 

6299 

6303 

6344 

6348 

6353 

6357 

6362 

6366 

6407 

6411 

6416 

6420 

6425 

6429 

6470 

6474 

6479 

6483 

6488 

6492 

6533 

6537 

6542 

6546 

6969 

1797 

1814 

1831 

1838 

1859 

2026 

2336 

2347 

2356 

2365 

2374 

2383 

2464 

2473 

2482 

2491 

2500 

^59? 

2590 

2599 

2608 

2617 

2626 

2635 

2872 

2887 

2904 

2925 

3054 

3063 

3417 

3419 

3436 

3451 

3466 

3487 

3857 

3870 

3891 

4043 

4052 

4063 

4472 

4482 

4494 

4505 

4518 

4531 

5048 

5058 

5079 

5098 

5110 

5124 

5420 

5441 

5595 

5606 

5621 

5636 

6263 

6741 

6745 

6753 

6755 

6841 

2356 

2365 

2374 

2383 

2392 

2^01 

2482 

2491 

2500 

2509 

2518 

2527 

2608 

2617 

2626 

2635 

2644 

2653 

3274 

3295 

3466 

3487 

3658 

5679 

4237 

4244 

4271 

4292 

4540 

4569 

5441 

5606 

5621 

5653 

5674 

5811 

2102 

2117 

2119 

2123 

2680 

2682 

2927 

2931 

3082 

3084 

3088 

3103 

3301 

3421 

3466 

3468 

3472 

3487 

3870 

3872 

3876 

3891 

3893 

3897 

4277 

4292 

4294 

4298 

4569 

4571 

4833 

4837 

5114 

5128 

5137 

5139 

5443 

5447 

5653 

5655 

5659 

5674 

5958 

5960 

5962 

5964 

5966 

5968 

5986 

5988 

5990 

5992 

5994 

5996 

6014 

6016 

6018 

6020 

6022 

6024 

6042 

6044 

6046 

6048 

6050 

6052 

6070 

6072 

6074 

6076 

6078 

6080 

6098 

6100 

6102 

6104 

6106 

6108 

6126 

6128 

6130 

6132 

6134 

6136 

SEQ  1580 


.MJM 


.MJ2 
.MLC 


.ML[ 
.ML! 
.MM( 


6138        6140        6142        6144 


6146 


6148        6150        6152        6154        615$        6158        6160        6162        6164 


fcn     1C01 


.LBAD 

.LCCAF 
.LCCBF 
.LCCCA 

.LCCCC 
.LCCCE 
.LCCCP 
.LCCEB 
.LCCER 
.LCCFZ 


.LCCGC 


.LCCIA 
.LCCLW 
.LCCMB 
.LCCMP 
.LCCPP 
.LCCXA 
.LCENA 


.LCJP 


6138 

6166 

6220 

6248 

6292 

6332 

6375 

6418 

6458 

6501 

6544 

1217 

1575 

3237 

3429 

1751 

5640 

2850 

5330 

4768 

3056 

2079 

2329 

6357 

6483 

1848 

2874 

3880 

5663 

4045 

5599 

4237 

4474 

5050 

3621 

1751 

2052 

2859 

3237 

3621 

4056 

4524 

5147 

5640 

6357 

6483 

1751 

2052 

2859 

3237 

3621 

4056 

4524 


6140 
6194 
6222 
6250 
6294 
6337 
6377 
6420 
6463 
6503 
6546 
1224 
1582 
3252 
3444 
1762 

2865 
5353 
4784 
3075 
3841 
2340 
6366 
6492 
1869 
2891 
3901 
5684 
4056 
5614 
4246 
4486 
.'^102 

1762 
2061 
2865 
3252 
3636 
4067 
4554 
5168 
5646 
6366 
6492 
1762 
2061 
2865 
3252 
3636 
4067 
4554 


6142 
6196 
6224 
6252 
6296 
6339 
6382 
6422 
6465 
6508 
6548 
1231 
6168 
3259 


2880 
5372 
4803 

3850 
2664 
6375 
6501 
2028 
2897 
4084 

4067 
5629 
4255 
4498 
5116 

1773 
2069 
2874 
3259 
3643 
4084 
4579 
5330 
5663 
6375 
6501 
1773 
2069 
2874 
3259 
3643 
4084 
4579 


6144 
6198 
6226 
6254 
6301 
6341 
6384 
6427 
6467 
6510 
6967 
1238 
6173 
3263 


6146 

6148 

6200 

5202 

6228 

6230 

6256 

6265 

6303 

6305 

6346 

6348 

6386 

6391 

6429 

6431 

6472 

6474 

6512 

651/ 

1773    1784 


3071 
5391 


3859 
2673 
6384 
6510 
2037 
2914 
4105 


5646 
4264 
4511 
5130 

1784 
2079 
2880 
3263 
3647 
4105 
4600 
5353 
5684 
6384 
6510 
1784 
2079 
2880 
3263 
3647 
4105 
4600 


1332 
3267 
1790 


3863 
6267 
6393 
6519 
2046 
2935 
4281 


4524 


1790 
2083 
2891 
3267 
3651 
4237 
4768 
5372 
6267 
6393 
6519 
1790 
2083 
2891 
3267 
3651 
4237 
4768 


1428 
3451 
1801 


6150 
6204 
6232 
6267 
6310 
6350 
6393 
6436 
6476 
6519 

1435 

3455 

1807 


6152 
6206 
6234 
6269 
6312 
6355 
6395 
6438 
6481 
6521 


6154 
6208 
6236 
6274 
6314 
6357 
6400 
6440 
6483 
6526 


1442    1449 


3459 
1818 


3636 
1824 


6156 
6210 
6238 
6276 
6319 
6359 
6402 
6445 
6485 
6528 

1456 

3643 

4554 


6158 
6212 
6240 
6278 
6321 
6364 
6404 
6447 
6490 
6530 


6160 
6214 
6242 
6283 
6323 
6366 
6409 
6449 
6492 
6535 


6162 
6216 
6244 
6285 
6328 
6368 
6411 
6454 
6494 
6537 


1463    1470    1477 


3647 
4780 


3651 
5398 


5610 


6164 
6218 
6246 
6287 
6330 
6373 
6413 
6456 
6499 
6539 

1568 


5625 


SEQ  1581 


6276 

6285 

6402 

6411 

6528 

6537 

2052 

2061 

3065 

3092 

4302 

4579 

6294 
6420 
6546 
2069 
3113 
4600 


6303 
6429 

6312 
6438 

6321 
6447 

6330 
6456 

6339 
6465 

6348 
6474 

2083 
3284 
4820 

2106 
3305 
4841 

2127 
3476 
5147 

2690 
3497 
5168 

2711 
3668 
5430 

2859 
3689 
5451 

.MOI 


.HOI 


1801 

2106 

2897 

3284 

3668 

4246 

4780 

5391 

6276 

6402 

6528 

1801 

2106 

2897 

3284 

3668 

4246 

4780 


1807 
2127 
2914 
3305 
3689 
4255 
4784 
5398 
6285 
6411 
6537 
1807 
2127 
2914 
3305 
3689 
4255 
4784 


1818 

1824 

1848 

1869 

2028 

2037 

2046 

2329 

2340 

2664 

2673 

2690 

2711 

2850 

2935 

3056 

3065 

3071 

3075 

3092 

3113 

3429 

3444 

3451 

3455 

3459 

3476 

349/ 

3841 

3850 

3859 

3863 

3880 

3901 

4045 

4264 

4281 

4302 

4474 

4486 

4498 

4511 

4803 

4820 

4841 

5050 

5102 

5116 

5130 

5430 

5451 

5599 

5610 

5614 

5625 

5629 

6294 

6303 

6312 

6321 

6330 

6339 

6348 

6420 
6546 
1818 

6429 

6438 

6447 

6456 

6465 

6474 

1824 

1848 

1869 

2028 

2037 

2046 

2340 

2664 

2673 

2690 

2711 

2850 

2935 

3056 

3065 

3071 

3075 

3092 

3113 

429 

3444 

3451 

3455 

3459 

5^76 

3497 

:841 

3850 

3859 

3863 

3880 

3901 

4045 

4264 

4281 

4302 

4474 

4486 

4498 

4511 

4803 

4820 

4841 

5050 

5102 

5116 

5130 

.«p 


«;i^7 


K^Aa 


«;7xn 


«;t«5X 


«;^7? 


5391 


5398    5430 


5451 


5599 


5610   5614    5625    562? 


t 


1569 


.LCJS 


.LCONT 


.LCRTN 
.LCRY 


.LD 


5U7 

5168 

56A0 

5646 

6357 

6366 

6483 

6492 

Ills 

3246 

5387 

598A 

5986 

6026 

6028 

6068 

6070 

6110 

6112 

6152 

6154 

6210 

6212 

6238 

6240 

1215 

1222 

1573 

1580 

1859 

1861 

2119 

2125 

2419 

2428 

25A5 

2554 

2662 

2688 

2918 

2925 

3229 

3231 

3421 

3423 

3613 

3615 

3870 

3872 

4095 

4097 

4542 

4548 

4801 

4810 

5137 

5139 

5441 

5443 

5676 

5682 

5988 

5994 

6072 

6078 

6156 

=162 

6317 

6319 

6380 

6382 

6443 

6445 

6506 

6508 

6847 

6852 

3261 

3265 

1840 

1861 

2430 

2439 

2:56 

2565 

2906 

2927 

4273 

4294 

1760 

1762 

1816 

1818 

1865 

1867 

2112 

2117 

2347 

2349 

2410 

2412 

2473 

2475 

2536 

2538 

5330 

5663 

6375 

6501 

3419 

5948 

5990 

6032 

6074 

6116 

6158 

6214 

6242 

1229 

1760 

1867 

2131 

2437 

2563 

2694 

2927 

3233 

3425 

3617 

3878 

4103 

4558 

4812 

5145 

5449 

5688 

6000 

6084 

6263 

6326 

6389 

6452 

6515 

6854 

3269 

2098 

2448 

2574 

3084 

4571 

1764 

1820 

1869 

2119 

2356 

2419 

2482 

2545 


5353 

5684 

6384 

6510 

3438 

5950 

5992 

6034 

6076 

6118 

6160 

6216 

6244 

1236 

1771 

1873 

2327 

2446 

2572 

2701 

2933 

3235 

3427 

3619 

3884 

4109 

4560 

4818 

5151 

5455 

5813 

6006 

6090 

6265 

6328 

6391 

6454 

6517 

6861 

3453 

2119 

2457 

2583 

3105 

4592 

1771 

1822 

1871 

2123 

2358 

2421 

2484 

2547 


5372 

6267 

6393 

6519 

3611 

5954 

5996 

6038 

6080 

6122 

6164 

6218 

6246 

1330 

1782 

2050 

2336 

2455 

2581 

2703 

2939 

3248 

3440 

3632 

3891 

4271 

4562 

4824 

5158 

5597 

5815 

6012 

6096 

6272 

6335 

6398 

6461 

6524 

6863 

3457 

2338 

2466 

2592 

3276 

4812 

1773 

1838 

1873 

2125 

2365 

2428 

2491 

2554 


5391 

6276 

6402 

6528 

3630 

5956 

5998 

6040 

6082 

6124 

6166 

6220 

6248 

1426 

1788 

2065 

2338 

2464 

2590 

2709 

3069 

3250 

3442 

3634 

3893 

4273 

4569 

4831 

5160 

5608 

5820 

6018 

6102 

6274 

6337 

6400 

6463 

6526 

6865 

3461 

2349 

2475 

2601 

3297 

4833 

1775 

1840 

1875 

2127 

2367 

2430 

2493 

2556 


5398 

6285 

6411 

6537 

4484 

5960 

6002 

604'. 

6036 

6128 

6194 

6222 

6250 

1433 

1799 

2067 

2347 

2473 

2599 

2715 

3082 

3274 

3466 

3658 

3899 

4279 

4571 

4833 

5166 

5623 

5822 

6024 

6108 

6281 

6344 

6407 

6470 

6533 

6967 

3645 

2358 

2484 

2610 

3468 

5139 

1782 

1844 

2065 

2129 

2374 

2437 

2500 

2563 


5430 
6294 
6420 
6546 
4496 
5962 
6004 
6046 
6088 
6130 
6196 
6224 
6252 
1440 
1805 
2085 
2356 
2482 
2608 
2863 
3084 
3276 
3468 
3660 
3905 
4285 
4577 
4839 
5172 
5638 
5946 
6030 
6114 
6283 
6346 
6409 
6472 
6535 

3649 
2367 
2493 
2619 
3489 
5160 
1784 
1846 
2096 
2131 
2376 
2439 
2502 
2565 


5451 
6303 
6429 

4507 
5966 
6008 
6050 
6092 
6134 
6198 
6226 
6254 
1447 
1816 
2089 
2365 
2491 
2617 
2878 
3090 
3282 
3474 
3666 
4054 
4292 
4583 
4845 
5389 
5644 
5952 
6036 
6120 
6290 
6353 
6416 
6479 
6542 

3653 
2376 
2502 
2628 
3660 
5422 
1786 
1848 
2098 
2133 
2383 
2446 
2509 
2572 


5599 
6312 
6438 

4520 
5968 
6010 
6052 
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1792 
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6503 
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5066 

5110 

5379 

5621 

6181 

6350 

6476 

6867 

5941 

2121 

2466 

2592 

3278 

4573 

5424 

6272 

6398 

6524 

6200 

6228 

6256 

1433 

1780 

1869 

2110 

2889 

3111 

3423 

3687 

4084 

4522 

4600 

5062 

5100 

5339 

5451 

5813 

6204 

6232 


2254 
2282 
2310 
2396 
2522 
2648 

m 

3446 

3848 

4069 

4287 

4533 

4794 

5068 

5118 

5393 

5627 

6183 

6359 

6485 

6961 

6747 

2349 

2475 

2601 

3299 

4594 

5445 

6281 

6407 

6533 

6202 

6230 

6841 

1440 

1782 

1873 

2125 

2891 

3113 

3425 

3689 

4088 

4531 

4604 

5064 

5110 

5349 

5455 

5815 

6206 

6234 


2256 
2284 
2312 
2405 
2531 
2659 
2882 
3094 
3478 
3852 
4086 
4304 
4535 
4799 
5070 
5124 
5400 
5631 
6185 
6368 
6494 
6969 

2358 
2484 
2610 
3470 
4778 
5657 
6290 
6416 
6542 
6204 
6232 
6845 
1447 
1788 
2035 
2127 
2895 
3117 
3440 
3693 
4103 
4533 
4778 
5066 
5112 
5362 
5597 
5818 
6208 
6236 


2258 
2286 
2314 
2414 
2540 
2666 
2887 
3098 
3482 
3857 
4090 
4308 
4540 
4805 
5072 
5132 
5413 
5636 
6187 
6377 
6503 


2367 
2493 
2619 
3491 
4814 
5678 
6299 
6425 
6743 
6206 
6234 
6859 
1454 
r97 
2037 
2131 
2912 
3229 
3474 
3878 
4105 
4540 
4790 
5068 
5114 
5368 
5608 
5820 
6210 
6238 


2260 
2288 
2316 
2423 
2549 
2675 
2893 
3115 
3499 
3861 
4107 
4472 
4556 
4822 
5079 
5149 
5415 
5642 
6189 
6386 
6512 


2376 
2502 
2628 
3662 
4835 
6963 
6308 
6434 
6843 
6208 
6236 

1461 
1799 
2044 
2688 
2914 
3231 
3476 
3880 
4109 
4542 
4794 
5070 
5124 
5381 
5623 
5822 
6212 
6240 


2262 
2290 
2318 
2432 
2558 
2692 
2899 
3119 
3503 
3865 
4111 
4476 
4581 
4826 
5081 
5153 
5432 
5648 
6269 
6395 
6521 


2385 
2511 
2637 
3683 
5141 

6317 
6443 
6847 
6210 
6238 

1468 
1805 
2050 
2690 
2918 
3233 
3480 
3884 
4253 
4548 
4801 
5072 
5126 
5389 
5638 
6181 
6214 
6242 


2264 
2292 
2220 
2441 
2567 
2696 
2916 
3239 
3623 
3882 
4235 
4482 
4585 
4843 
5083 
5170 
5436 
5665 
6278 
6404 
6530 


2394 
2520 
2646 
3874 
5162 

6326 
6452 

6212 
6240 

1475 
1814 
2059 
2694 
2933 
3248 
3495 
3899 
4262 
4558 
4818 
5079 
5128 
5402 
5644 
6183 
6216 
6244 


2266 
2294 
2322 
2450 
2576 
2713 
2920 
3244 
3628 
3886 
4239 
4488 
4602 
4847 
5085 
5174 
5453 
5669 
6287 
6413 
6539 


2403 
2529 
2655 
3895 
5326 

6335 
6461 

6214 
6242 

1566 
1816 
2065 
2709 
2935 
3282 
3497 
3901 
4279 
4560 
4820 
5081 
5145 
5404 
5661 
6185 
6218 
6246 


2268 
2296 
2331 
2459 
2585 
2717 
2937 
3254 
3638 
3903 
4244 
4494 
4606 
5048 
5087 
5324 
5457 
5686 
6296 
6422 
6548 


2412 
2538 
2684 
4078 
5339 

6344 
6470 

6216 
6244 

1573 
1822 
2067 
2711 
2939 
3284 
3501 
3905 
4281 
4562 
4824 
5083 
5147 
5413 
5663 
6187 
6220 
6248 


2270 
2298 
2342 
2468 
2594 
2848 
2941 
3286 
3670 
3907 
4248 
4500 
4766 
5052 
5089 
5332 
5595 
5690 
6305 
6431 
6745 


2421 
2547 
2705 
4099 
5349 

6353 
6479 

6218 
6246 

1580 
1831 
2077 
2715 
3065 
3288 
3613 
4052 
4285 
4564 
4839 
5085 
5151 
5415 
5667 
6194 
6222 
6250 


2172 
2:00 
2351 
2477 
2603 
2852 
3054 
3290 
3674 
4043 
4253 
4505 
4770 
5058 
5091 
5337 
5601 
5811 
6314 
6440 
6753 


2430 
2556 
2908 
4275 
5362 

6362 
6488 

6220 
6248 

1758 
1846 
2085 
2859 
3069 
3303 
3632 
4054 
4300 
4577 
4841 
5087 
5166 
5428 
5682 
6196 
6224 
6252 


SEQ  1585 


.R 
.R 
i  .R 
!  .R 
.R 
.R 


J 


.1 


zim 


a'ia/. 


Q  1573 


.LOENA 


.LOR 


.LPLUS 


.LRAM 


.LRDLM 


6254 

6256 

6299 
6341 

6301 
6344 

6386 

6425 

6427 

6467 

6470 

6508 

6512 

6741 

6743 

1215 

\m 

2340 

3495 

3666 

4818 

4839 

5822 

6181 

6344 

6353 

6470 

6479 

6865 

6969 

1846 

1852 

2715 

2863 

3231 

3282 

3693 

3878 

4285 

4300 

5060 

5062 

5093 

5114 

5688 

5813 

5978 

5982 

6020 

6024 

6062 

6066 

6104 

6108 

6146 

6150 

6208 

6210 

6236 

6238 

6272 

6274 

6314 

6317 

6355 

-359 

6398 

6400 

6440 

6443 

6481 

6485 

6524 

6526 

6852 

6854 

1840 

1844 

2394 

2403 

2520 

2529 

2646 

2655 

3109 

3276 

3876 

3893 

4596 

4812 

5659 

5676 

6263 

6326 

6328 

6389 

6391 

6452 

6454 

6515 

6517 

1222 

1426 

6346 
6389 
6431 
6472 
6515 
6753 
1433 
2688 
3687 
5110 
6183 
6362 
6488 

1867 
2878 
3288 
3884 
4306 
5064 
5128 
5815 
5984 
6026 
60^8 
6110 
6152 
6212 
6240 
6278 
6319 
6362 
6404 
6445 
6488 
6530 
6965 
1861 
2412 
2538 
2671 
3280 
3897 
4816 
5680 
6272 
6335 
6398 
6461 
6524 
1447 


62^5 
6308 
6350 
6391 
6434 
6476 
6517 
6755 
1440 
2709 
3878 
5124 
6185 
6371 
6497 

1873 

2895 

3303 

3899 

4560 

5066 

5145 

5820 

5988 

6030 

6072 

6114 

6156 

6214 

6242 

6281 

6323 

6364 

6407 

6449 

6490 

6533 

6967 

1865 

2421 

2547 

2682 

3297 

4076 

4833 

5952 

6274 

6337 

6400 

6463 

6526 

1454 


6269 
6310 
6353 
6395 
6436 
6479 
6521 
6841 
1461 
2889 
3899 
5145 
6187 
6380 
6506 

2104 
2912 
3309 
3905 
4562 
5068 
5151 
5822 
5990 
6032 
6074 
6116 
6158 
62i6 
6244 
628. 
6326 
6368 
6409 
6452 
6494 
6535 

2098 
2430 
2556 
2686 
3301 
4080 
4837 
6963 
6281 
6344 
6407 
6470 
6533 
1461 


6272 
6314 
6355 
6398 
6440 
6481 
6524 
6845 
1468 
2912 
4052 
5166 
6263 
6389 
6515 

2110 

2918 

3421 

4082 

4577 

5070 

5166 

5948 

5994 

6036 

6078 

6120 

6162 

6218 

6246 

6287 

6328 

6371 

6413 

6454 

6497 

6539 

2102 
2439 
2565 
2703 
3468 
4097 
5139 
6969 
6283 
6346 
6409 
6472 
6535 
1468 


6274 
6317 
6359 
6400 
6443 
6485 
6526 
6847 
1475 
2933 
4063 
5402 
6272 
6398 
6524 

2125 
2933 
3423 
4088 
4583 
5072 
5172 
5954 
5996 
6038 
6080 
6122 
6164 
6220 
6248 
6290 
6332 
6373 
6416 
6458 
6499 
6542 

2119 
2448 
2574 
2707 
3472 
4101 
5143 

6290 
6353 
6416 
6479 
6542 
1475 


6278 
6319 
6362 
6404 
6445 
6488 
6530 
6852 
1566 
3090 
4082 
5428 
6281 
6407 
6533 

2131 
2939 
3474 
4103 
4598 
5079 
5428 
5958 
6000 
6042 
6084 
6126 
6194 
6222 
6250 
6292 
6335 
6377 
6418 
6461 
6503 
6544 

2123 
2457 
2583 
2906 
3489 
4273 
5160 

6292 
6355 
6418 
6481 
6544 
1573 


6251 
6323 
6364 
6407 
6449 
6490 
6533 
6854 
1580 
3111 
4103 
5449 
6290 
6416 
6542 

2340 
3069 
3480 
4109 
4604 
5081 
5434 
5960 
6002 
6044 
6086 
6128 
6196 
6224 
6252 
6296 
6337 
6380 
6422 
6463 
6506 
6548 

2338 
2466 
2592 
2910 
3493 
4277 
5164 

6299 
6362 
6425 
6488 
6852 
^^«0 


6283 
6326 
6368 
6409 
6452 
6494 
6535 
6859 
1846 
3231 
4279 
5661 
6299 
6425 
6743 

2657 
3090 
3495 
4253 
4818 
5083 
5449 
5964 
6006 
6048 
6090 
6132 
6198 
6226 
6254 
6299 
6341 
6382 
6425 
6467 
6508 
6741 

2349 
2475 
2601 
2927 
3660 
4294 
5422 

6301 
6364 
6427 
6490 
6863 
5813 


6287 
6328 
6371 
6413 
6454 
6497 
6539 
6861 
1867 
3282 
4300 
5682 
6308 
6434 
6755 

2673 
3096 
3501 
4255 
4824 
5085 
5455 
5966 
6008 
6050 
6092 
6134 
6200 
6228 
6256 
6301 
6344 
6386 
6427 
6470 
6512 
6743 

2358 
2484 
2610 
2931 
3664 
4298 
5426 

6308 
6371 
6434 
6497 


6290 
6332 
6373 
6416 
6458 
6499 
6542 
6863 
2104 
3303 
4562 
5811 
6317 
6443 
6843 

2688 
3111 
3666 
4262 
4839 
5087 
5661 
5970 
6012 
6054 
6096 
6138 
6202 
6230 
6263 
6305 
6346 
6389 
6431 
6472 
6515 
6753 

2367 
2493 
2619 
3084 
3681 
4571 
5443 

6310 
6373 
6436 
6499 


6292 
6335 
6377 
6418 
6461 
6503 
6544 
6865 
2125 
3423 
4577 
5815 
6326 
6452 
6847 

2694 
3117 
3672 
4264 
4845 
5089 
5667 
5972 
6014 
6056 
6098 
6140 
6204 
6232 
6265 
6308 
6350 
6391 
6434 
6476 
6517 
6755 

2376 
2502 
262P 
306'3 
36f5 
45?  5 
5447 

6317 
6380 
6443 
6506 


6296 
6337 
6380 
6422 
6463 
6506 
6548 

2329 
3474 
4598 
5818 
6335 
6461 
6854 

2709 
3229 
3687 
4279 
5058 
5091 
5682 
5976 
6018 
6060 
6102 
6144 
6206 
6234 
6269 
6310 
6353 
6395 
6436 
6479 
6521 
6843 

c3«5 
2511 
2637 
3105 
3872 
4592 
5655 

6319 
6382 
6445 
6508 


r 


SEQ  1586 


.1 


5820   6265    6274    6283 


74 


6292 

6301 

6310 

6319 

6328 

6337 

6346 

6355 

6364 

6418 

6427 

6436 

6445 

6454 

6463 

6472 

6481 

6490 

6544 

6753 

6852 

6861 

6863 

.LRPCT    1844 

1865 

2102 

2123 

2657 

2671 

2686 

2707 

2910 

3472 

3493 

3664 

3685 

3876 

3897 

4080 

4101 

4277 

4788 

4816 

4837 

5143 

5164 

5328 

5341 

5351 

5364 

5659 

5680 

6965 

.LSOA    1846 

1852 

1867 

1873 

2065 

2104 

2110 

2125 

2131 

2709 

2715 

2863 

2878 

2895 

2912 

2918 

2933 

2939 

3231 

3282 

3288 

3303 

3309 

3423 

3474 

3480 

3495 

3878 

3884 

3899 

3905 

4043 

4052 

4063 

4082 

4088 

4255 

4264 

4279 

4285 

4300 

4306 

4562 

4577 

4583 

4845 

5110 

5124 

5145 

5151 

5166 

5172 

5402 

5428 

5682 

5688 

5811 

5815 

5822 

5948 

5950 

5952 

5954 

5966 

5968 

5970 

5972 

5974 

5976 

5978 

5980 

5982 

5994 

5996 

5998 

6000 

6002 

6004 

6006 

6008 

6010 

6022 

6024 

6026 

6028 

6030 

6032 

6034 

6036 

6038 

6050 

6052 

6054 

6056 

6058 

6060 

6062 

6064 

6066 

6078 

6080 

6082 

6084 

6086 

6088 

6090 

6092 

6094 

6106 

6108 

6110 

6112 

6114 

6116 

6118 

6120 

6122 

6134 

6136 

6138 

6140 

6142 

6144 

6146 

6148 

6150 

6162 

6164 

6166 

6181 

6183 

6185 

6187 

6263 

6272 

6326 

6335 

6344 

6353 

6362 

6371 

6380 

6389 

6398 

6452 

6461 

6470 

6479 

6488 

6497 

6506 

6515 

6524 

6843 

6845 

6847 

6854 

6859 

6865 

6961 

6963 

6965 

.LSOB    1840 

1861 

2098 

2119 

2682 

2703 

2906 

2927 

3084 

3660 

3681 

3872 

3893 

4076 

4097 

4273 

4294 

4571 

5422 

5443 

5655 

5676 

•LSAB    1844 

1865 

2102 

2123 

2329 

2338 

2349 

2358 

2367 

2421 

2430 

2439 

2448 

2457 

2466 

2475 

2484 

2493 

2547 

2556 

2565 

2574 

2583 

2592 

2601 

2610 

2619 

2686 

2707 

2910 

2931 

3088 

3109 

3280 

3301 

3472 

4080 

4101 

4246 

4277 

4298 

4575 

4596 

4816 

4837 

5680 

5818 

6267 

6276 

6285 

6294 

6303 

6312 

6321 

6375 

6384 

6393 

6402 

6411 

6420 

6429 

6438 

6447 

6501 

6510 

6519 

6528 

6537 

6546 

6969 

.LSDO    1838 

1859 

2096 

2117 

2327 

2336 

2347 

2356 

2365 

2419 

2428 

2437 

2446 

2455 

2464 

2473 

2482 

2491 

2545 

2554 

2563 

2572 

2581 

2590 

2599 

2608 

2617 

2680 

2701 

2889 

2904 

2925 

3U82 

3103 

3229 

3233 

3487 

3658 

3679 

3870 

3891 

4074 

4095 

4253 

4262 

4590 

4776 

4810 

4831 

5058 

5060 

5062 

5064 

5066 

5083 

5085 

5087 

5089 

5091 

5093 

5112 

5114 

5126 

5606 

5621 

5653 

5674 

5813 

5820 

5946 

6194 

6196 

6208 

6210 

6212 

6214 

6216 

6218 

6220 

6222 

6224 

6236 

6238 

6240 

6242 

6244 

6246 

6248 

6250 

6252 

6278 

6283 

6287 

6292 

6296 

6301 

6305 

6310 

6314 

6341 

6346 

6350 

6355 

6359 

6364 

6368 

6373 

6377 

6404 

6409 

6413 

6418 

6422 

6427 

6431 

6436 

6440 

6467 

6472 

6476 

6481 

6485 

6490 

6494 

6499 

6503 

6530 

6535 

6539 

6544 

6548 

6741 

6753 

6852 

6861 

.LSELC    1760 

1771 

1782 

1788 

1799 

1805 

1816 

4531 

4790 

4794 

5326 

5339 

5349 

5362 

5368 

5389 

6373 

6382 

6391 

6400 

6409 

6499 

6508 

6517 

65?6 

6535 

SEQ  1587 

2931 

3088 

3109 

3280 

3301 

4298 

4546 

4552 

4575 

4596 

5370 

5383 

5406 

5426 

5447 

2340 

2657 

2673 

2688 

2694 

3069 

3090 

3096 

3111 

3117 

3501 

3666 

3672 

3687 

3693 

4103 

4109 

4235 

4237 

4244 

4598 

4604 

4818 

4824 

4839 

5434 

5449 

5455 

5661 

5667 

5956 

5958 

5960 

5962 

5964 

5984 

5986 

5988 

5990 

5992 

6012 

6014 

6016 

6018 

6020 

6040 

6042 

6044 

6046 

6048 

6068 

6070 

6072 

6074 

6076 

6096 

6098 

6100 

6102 

6104 

6124 

6126 

6128 

6130 

6132 

6152 

6154 

6156 

6158 

6160 

6281 

6290 

6299 

6308 

6317 

6407 

6416 

6425 

6434 

6443 

6533 

6542 

6743 

6755 

6841 

6967 

3105 

3276 

3297 

3468 

3489 

4592 

4812 

4833 

5139 

5160 

2376 

2385 

2394 

2403 

2412 

2502 

2511 

2520 

2529 

2538 

i 

2628 

2637 

2646 

2655 

2671 

3493 

3664 

3685 

3876 

3897 

5143 

5164 

5426 

5447 

5659 

6330 

6339 

6348 

6357 

6366 

6456 

6465 

6474 

6483 

6492 

2374 

2383 

2392 

2401 

2410 

2500 

2509 

2518 

2527 

2536 

2626 

2635 

2644 

2653 

2664 

3274 

3295 

3421 

3425 

3466 

4271 

4292 

4540 

4560 

4569 

5068 

5070 

5072 

5079 

5081 

5128 

5137 

5158 

5420 

5441 

6198 

6200 

6202 

6204 

6206 

6226 

6228 

6230 

6232 

6234 

6254 

6256 

6265 

6269 

6274 

6319 

6323 

6328 

6332 

6337 

6382 

6386 

6391 

6395 

6400 

6445 

6449 

6454 

6458 

6463 

6508 

6512 

6517 

6521 

6526 

6863 

4542 

4548 

4558 

4564 

4778 

5404 

5413 

5597 

5608 

5623 

.RJ 


75 


5638 
^P\f         1P?Q    1236_^1433    1440 


1447    1454 


1461 


1468   1475   1846   1848   1852   1867   1869 


SEQ  1588 


75 


.LSELE 


.LSELF 
.LSELM 

.LSELP 
.LSKCN 


.LSKMB 
.LXNOR 


.LXOR 
.MA 


.MAND 


.rW 


5638 

1229 

1873 

2125 

2891 

3113 

3666 

4063 

4562 

5147 

5682 

5114 

1330 

3632 

3233 

4253 

6377 

6503 

6969 

2329 

6016 

6100 

6267 

6393 

6519 

1844 

2694 

3111 

349S 

4080 

4583 

5151 

5682 

5972 

6000 

6028 

6056 

6084 

6112 

6140 

6181 

63C8 

6371 

6434 

6497 

1838 

24^0 

2536 

2664 

3870 

4590 

5946 

1638 


1236 
2035 
2127 
2895 
3117 
3668 
4065 
4577 
5151 
5684 
5128 
1566 
4509 
3425 
4262 
6386 
6512 

4246 

6022 

6106 

6276 

6402 

6528 

1846 

2707 

3117 

3501 

4082 

4596 

5164 

5688 

5974 

6002 

6030 

6058 

6086 

6114 

6142 

6183 

6312 

6375 

6438 

6501 

1859 

2419 

2545 

2680 

3891 

4776 

6841 

1840 


1433 
2037 
2131 
2912 
3282 
3672 
4082 
4579 
5166 
5688 
5402 
1573 
4522 
3613 
6269 
6395 
6521 

5818 

6028 

6112 

6285 

6411 

6537 

1852 

2709 

3231 

3664 

4088 

4598 

5166 

5948 

5976 

6004 

6032 

6060 

6088 

6116 

6144 

6185 

6317 

6380 

6443 

6506 

2065 

2428 

2554 

2701 

4043 

4810 

6845 

1844 


1440 

1447 

1454 

H61 

Xi^A 

2044 

2050 

2059 

2065 

2Q67 

2688 

2690 

2694 

2709 

2711 

2914 

2918 

2933 

2935 

2939 

3284 

3288 

3303 

5305 

3309 

3687 

3689 
4088 

3693 

3878 

3880 

4084 

4103 

4105 

4109 

4583 

4598 

4600 

4604 

4818 

5168 

5172 

5428 

5430 

5434 

5815 

5822 

6181 

6183 

6185 

1580 

1758 

1769 

1780 

1797 

4533 
5112 
6278 

4540 
5126 
6287 

4560 

4801 

5100 

6296 

6305 

63]^ 

6404 

6413 

6422 

6431 

6440 

6530 

6539 

6548 

6741 

5950 

5956 

5962 

5968 

5974 

6034 

6040 

6046 

6052 

6058 

6118 

6124 

6130 

6136 

6^2 

6294 

6303 

6312 

6321 

6330 

6420 

6429 

6438 

6447 

6456 

6546 

1865 

1867 

1873 

2102 

2104 

2715 

2910 

2912 

29  8 

2931 

3280 

3282 

3288 

3301 

3303 

3666 

3672 

3685 

3687 

3693 

4101 

4103 

4109 

4277 

4279 

4604 

4816 

4818 

4824 

4837 

5172 

5426 

5428 

5434 

5^^7 

5950 

5952 

5954 

5956 

5958 

5978 

5980 

5982 

5984 

5986 

6006 

6008 

6010 

6012 

6014 

6034 

6036 

6038 

6040 

60A2 

6062 

6064 

6066 

6068 

6070 

6090 

6092 

6094 

6096 

6098 

6118 

6120 

6122 

6124 

6126 

6146 

6148 

6150 

6152 

6154 

6187 

6263 

6267 

6272 

6276 

6321 

6326 

6330 

6335 

6339 

6384 

6389 

6393 

6398 

6402 

6447 

6452 

6456 

6461 

6^65 

6510 

6515 

6519 

6524 

6528 

2096 

2117 

2327 

2336 

2347 

2437 

2446 

2455 

2464 

2473 

2563 

2572 

2581 

2590 

2599 

2889 

2904 

2925 

3082 

3103 

4052 

4063 

4074 

4095 

4235 

4831 

5137 

5158 

5402 

5420 

6859 

6961 

1859 

1861 

1865 

2096 

2098 

1475 
2077 
2715 
3065 
3474 
3884 
4279 
4820 
5449 
6187 

1814 
5110 

6323 
6449 


5980 
6064 
6148 
6339 
6465 

2110 
2933 
3309 
3876 
4285 
4839 
5449 
5960 
5988 
6016 
6044 
6072 
6100 
6128 
6156 
6281 
6344 
6407 
6470 
6533 
2356 
2482 
2608 
3274 
4237 
5441 

2102 


1846 
2085 
2859 
3069 
3476 
3899 
4281 
4824 
5451 
6755 

1822 
5124 

6332 
6458 


5986 
6070 
6154 
6348 
6474 

2123 
2939 
3423 
3878 
4298 
4845 
5455 
5962 
5990 
6018 
6046 
6074 
6102 
6130 
6158 
6285 
6348 
6411 
6474 
6537 
2365 
2491 
2617 
3295 
4244 
5606 


1848 

1852 

2089 

2104 

2863 

2874 

3090 

3092 

3480 

3495 

3901 

3905 

4285 

4300 

4839 

4841 

5455 

5661 

6854 

6865 

1867 
2106 
2878 
3096 
3497 
4052 
4302 
4845 
5663 


1869 
2110 
2889 
3111 
3501 
4054 
•♦306 
5145 
5667 


SEQ  1588 


3231 
5415 

6341 
6467 


5992 
6076 
6160 
6357 
6483 

2125 
3088 
3472 
3884 
4300 
5110 
5659 
5964 
5992 
6020 
6048 
6076 
6104 
6132 
6160 
6290 
6353 
6416 
6479 
6542 
2374 
2500 
2626 
3466 
4271 
5621 


3248 
5644 

6350 
6476 


5998 
6082 
6166 
6366 
6492 

2131 
3090 
3474 
3897 
4306 
5124 
5661 
5966 
5994 
6022 
6050 
6078 
6106 
6134 
6162 
6294 
6357 
6420 
6483 
6546 
2383 
2509 
2635 
3487 
4292 
5653 


3423    3440 


6359 
6485 


6004 
6088 
6847 
6375 
6501 

2686 
3096 
3480 
3899 
4575 
5143 
5667 
5968 
5996 
6024 
6052 
6080 
6108 
6136 
6164 
6299 
6362 
6425 
6488 
6969 
2392 
2518 
2644 
3658 
4540 
5674 


2117   2119   2123   2680 


6368 
6494 


6010 
6094 

6384 
6510 

2688 
3109 
3493 
3905 
4577 
5145 
5680 
5970 
5998 
6026 
6054 
6082 
6110 
6138 
6166 
6303 
6366 
6429 
6492 

2401 
2527 
2653 
367V 
4569 
5811 

2682 


.Rjm 


.RJZ 
.RLD 


576 


2686 
3105 


701 
109 


2703 
3229 


|707 
5274 


m 


m 


r 


SEO  1589 


576 


.MBAD 

.MCCAF 
.RCCBF 
.«CCCA 

.WCCCC 
.'-.CCCE 
.KCCCP 
.MCCEB 
.MCCER 
.MCCFZ 


.MCCGC 


,HCCIA 
.«CCLW 
„MCCMB 
.HCCMP 
.MCCPP 
.MCCXA 
.MCENA 


5^ 

5998 

6026 

6054 

6082 

6110 

6138 

6166 

6220 

6248 

6292 

6332 

6375 

6418 

6'.:3 

6501 

6544 

1217 

1575 

3237 

3429 

1751 

:''.o 

28!>0 
5330 
4768 
3056 
2079 
2329 
6357 
6483 
1848 
2874 
3880 
5663 
4045 
5599 
4237 
4474 
5050 
3621 
1751 
2052 
2859 
3237 
3621 


2701 

3109 

3493 

4076 

4590 

5158 

5680 

5972 

6000 

6028 

6056 

6084 

6112 

6140 

6194 

6222 

6250 

6294 

6337 

6377 

6420 

6463 

6503 

6546 

1224 

1582 

3252 

3444 

1762 

2865 
5355 
4784 
5075 
3841 
2340 
6366 
6492 
1869 
2891 
3901 
5684 
4056 
5614 
4246 
4486 
5102 

1762 
2061 
2865 
3252 
3636 


2703 
3229 
3658 
4080 
4592 
5160 
5946 
5974 
6002 
6030 
6058 
6086 
6114 
6142 
6196 
6224 
625? 
6296 
6339 
6382 
6422 
6465 
6508 
6548 
1231 
6168 
3259 

1773 

2880 
5372 
4803 

3850 
2664 
6375 
6501 
2028 
2897 
4084 

4067 
5629 
4255 
4498 
5116 

1773 
2069 
2874 
3259 


2707 
3274 
3660 
4095 
4596 
5164 
5948 
5976 
6004 
6032 
6060 
6088 
6116 
6144 
6198 
6226 
6254 
6301 
6341 
6384 
6427 
6467 
6510 
6967 
1238 
6173 
3263 

1784 

3071 
5391 


3859 
2673 
6384 
6510 
2037 
2914 
4105 


56/.  6 
4264 
4511 
5130 

1784 
2079 
2880 
3263 
3647 


2904 
V76 

mt 

2910 
3295 

w 

3664 

3679 

3681 
4271 

q?3 

4)97 

4101 

4)10 

4812 

4816 

4831 

5420 

542? 

5426 

5441 

5950 

5952 

5954 

5956 

5978 

5980 

5982 

5984 

6006 

6008 
6036 

6010 

60^ 

6034 

6038 

6040 

6062 

6064 

6066 

6096 

6090 

6092 

6094 

6118 

6120 

6122 

6124 

6146 

6148 

6150 

6152 

6200 

6202 

6204 

6206 

6228 

6230 

6232 

6234 

6256 

6265 

6267 

6269 
6112 

6303 

6305 

6310 

6346 

6348 

6350 

6355 

6386 

6391 

6393 

6395 

6429 

6431 

6436 

6438 

6472 

6474 

6476 

6481 

6512 

6517 

6519 

6521 

1332 
3267 
1790 


3863 
6267 
6393 
6519 
2046 
2935 
4281 


4524 


1790 
2083 
2891 
3267 
3651 


1428 
3451 
1801 


6276 
6402 
6528 
2052 
3065 
4302 


1801 
2106 
2897 
3284 
3668 


6285 
6411 
6537 
2061 
3092 
4579 


1807 
2127 
2914 
3305 
3689 


1442 
3459 
1818 


6294 
6420 
6546 
2069 
3113 
4600 


29^7 
3301 
3870 
4277 
4833 
5443 
5958 
5986 
6014 
6042 
6070 
6098 
6126 
6154 
6208 
6236 
6274 
6314 
6357 
6400 
6440 
6483 
6526 

1449 

3636 

1824 


5303 
6429 

2083 
3284 
4820 


483/ 

5447 

5960 

5988 

6016 

6044 

6072 

6100 

6128 

6156 

6210 

6238 

6276 

6319 

6359 

6402 

6445 

6485 

6528 

1456 

3643 

4554 


6312 
6438 

2106 
3305 
4841 


3082 
3466 
3876 
4294 
5114 
5653 

5962 
5990 
6018 
6046 
6074 
6102 
6130 
6158 
6212 
6240 
6278 
6321 
6364 
6404 
6447 
6490 
6530 

1463 

3647 

4780 


6321 
6447 

2127 
3476 
5147 


3084 
3468 
3891 
4298 
5128 
5655 
5964 
5992 
6020 
6048 
6076 
6104 
6132 
6160 
6214 
6242 
6283 
6323 
6366 
6409 
6449 
6492 
6535 

1470 

3651 

5398 


3088 
3472 
3893 
4569 
5137 
5659 
5966 
5994 
6022 
6050 
6078 
6106 
6134 
6162 
6216 
6244 
6285 
6328 
6368 
6411 
6454 
6494 
6537 

1477 


3103 
3487 
3897 
4571 
5139 
5674 
5968 
5996 
6024 
6052 
6080 
6108 
6136 
6164 
6218 
6246 
6287 
6330 
6373 
6413 
6456 
6499 
6539 

1568 


SEC  1589 


.RLDI 
.RLS) 
.RMGl 


5610    5625 


6330 
6456 

2690 
3497 
5168 


6339 
6465 

2711 
3668 
5430 


6348 
6474 

2859 
3689 

5451 


.ROE 


.ROR 


1818 

1824 

1848 

1869 

2028 

2037 

2046 

2340 

2664 

2673 

2690 

2711 

2850 

2935 

3056 

3065 

:i071 

3075 

3092 

3113 

3429 

]444 

3451 

:;455 

3459 

3476 

3497 

3841 

3850 

3859 

3863 

3880 

3901 

4045 

577 


4056 

ACTA 


mi 


4084 

/.C7Q 


4105 


AR 


4246 
A7«n 


4255 

L7RL 


m 


4281 
48?0 


4302 
4841 


4474 
5050 


4486 
5102 


4498 

5116 


4511 
5130 


SEQ  1590 


577 


4056 

4067 
4554 

tm 

4105 

4237 

ii2^b 

4524 

\m 

4768 
5372 

4780 

5147 

5168 

5330 

5391 

5640 

5646 
6366 

5663 

5684 

6267 

6276 

6357 

6375 

6384 

6393 

6402 

6483 

6492 

6501 

6510 

6519 

6528 

.MCJP    1751 

1762 

1773 

1784 

1790 

1801 

2052 

2069 

2079 

2083  • 

2106 

2859 
3237 

2865 

2874 

2880 
3263 

2891 

2897 

3252 

3259 

3267 

3284 

3621 

3636 

3643 

3647 

3651 

3668 

'.056 

4067 

4084 

4105 

4237 

Ult^t 

4524 

4554 

4579 

4600 

4768 

4780 

5147 

5168 

5330 

5353 

5372 

5391 

5640 

5646 

5663 

5684 

6267 

6276 

6357 

6366 

6375 

6384 

6393 

6402 

6483 

6492 

6501 

6510 

6519 

6528 

.MCJS    3227 

3246 

3419 

3438 

3611 

3630 

5385 

5387 

5948 

5950 

5954 

5956 

5984 

5986 

5990 

5992 

5996 

5998 

6026 

6028 

6032 

6034 

6038 

6040 

6068 

6070 

6074 

6076 

6080 

6082 

6110 

6112 

6116 

6118 

6122 

6124 

6152 

6154 

6158 

6160 

6164 

6166 

6210 

6212 

6214 

6216 

6218 

6220 

6238 

6240 

6242 

6244 

6246 

6248 

.MCONT    1215 

1222 

1229 

236 

1330 

1426 

1573 

1580 

1760 

1771 

1782 

1788 

1859 

1861 

1867 

1873 

2050 

mi 

2119 

2125 

2131 

2327 

2336 

2419 

2428 

2437 

2446 

2455 

2464 

2545 

2554 

2563 

2572 

2581 

2590 

2682 

?688 

2694 

2701 

2703 

2709 

2918 

2925 

2927 

2933 

2939 

3069 

3229 

;231 

3233 

3235 

3248 

:i250 

3421 

:423 

3425 

3427 

3440 

3442 

3613 

:6i5 

3617 

3619 

3632 

3634 

3870 

3872 

3878 

3884 

3891 

3893 

4095 

4097 

4103 

4109 

4271 

4273 

4542 

4548 

4558 

4560 

4562 

4569 

4801 

4810 

4812 

4818 

4824 

4831 

5137 

5139 

5145 

5151 

5158 

5160 

5441 

5443 

5449 

5455 

5597 

5608 

5676 

5682 

5688 

5813 

5815 

5820 

5988 

5994 

6000 

6006 

6012 

6018 

6072 

6078 

6084 

6090 

6096 

6102 

6156 

6162 

6263 

6265 

6272 

6274 

6317 

6319 

6326 

6328 

6335 

6337 

6380 

6382 

6389 

6391 

6398 

6400 
6463 

6443 

6445 

6452 

6454 

6461 

6506 

6508 

6515 

6517 

6524 

6526 

6847 

6852 

6854 

6861 

^'7 

6865 
3461 

.MCRTN    3261 

3265 

3269 

3453 

4255 
4784 
5398 
6285 
6411 
6537 
1807 
2127 
2914 
3305 
3689 
4255 
4784 
5398 
6285 
6411 
6537 
4484 
5960 
6002 
6044 
6086 
6128 
6194 
6222 
6250 
1433 
1799 
2067 
2347 
2473 
2599 
2715 
3082 
3274 
3466 
3658 
3899 
4279 
4571 
4833 
5166 
5623 
5822 
6024 
6108 
6281 
6344 
6407 
6470 
6533 
6967 
3645 


F" 


4264 

4281 

4302 

4474 

4486 

4498 

4511 

4803 
5430 

4820 

4841 

5050 

5102 

nil 

5130 

5451 

5599 

5610 

5614 

5629 
6348 

6294 

6303 

6312 

6321 

6330 

6339 

6420 
6546 

1§18 

6429 

6438 

6447 

6456 

6465 

6474 

1824 
2340 

1848 

1869 
2673 
3071 

2028 

2037 

2046 

2329 

2664 

2690 

2711 

2850 

2935 

3056 

3065 
3451 

3075 

3092 

3113 

3429 

3444 

3455 

3459 

3476 

3497 

3841 

3850 

3859 

3863 

3880 

3901 

4045 

4264 

4281 

4302 

4474 

4486 

4498 

4511 

4803 
5430 

4820 

4841 
5599 

5050 

5102 

5116 

5130 

5451 

5610 

5614 

5625 

5629 

6294 

6303 

6312 

6321 

6330 

6339 

6348 

6420 
6546 
4496 

6429 

6438 

6447 

6456 

6465 

6474 

4507 

4520 

5343 

5345 

5347 

5366 

5962 

5966 

5968 

5972 

5974 

5978 

5980 

6004 

6008 

6010 

6014 

6016 

6020 

6022 

6046 

6050 

6052 

6056 

6058 

6062 

6064 

6088 

6092 

6094 

6098 

6100 

6104 

6106 

6130 

6134 

6136 

6140 

6142 

6146 

6148 

6196 

6198 

6200 

6202 

6204 

6206 

6208 

6224 

6226 

6228 

6230 

6232 

6234 

6236 

6252 

6254 

6256 

1440 

1447 

1454 

1461 

1468 

1475 

1566 

1805 

1816 

1822 

1838 

1840 

1846 

1852 

2085 
2356 

2089 

2096 

2098 

2104 

2110 

2117 

2365 

2374 

2383 

2392 

2401 

2410 

2482 

2491 

2500 

2509 

2518 

2527 

2536 

2608 

2617 

2626 

2635 

2644 

2653 

2680 

2863 

2878 

2889 

2895 

2904 

2906 

2912 

3084 

3090 

3096 

3103 

3105 

3111 

3117 

3276 

3282 

3295 

3297 

3303 

3309 

3468 

;474 

:;480 

3487 

3489 

3495 

3501 

3660 

3666 

3672 

3679 

3681 

3687 

3693 

3905 

4054 

4065 

4074 

4076 

4082 

4088 

4285 
4577 

4292 

4294 
4590 

4300 

4306 

4509 

4522 

4583 

4592 

4598 

4604 

4790 

^839 

4845 
5389 

5100 

5112 

5114 

5126 

5128 

5172 

5402 

5420 

5422 

5428 

5434 

5638 

5644 

5653 

5655 

5661 

5667 

5674 

5946 

5952 

5958 

5964 

5970 

5976 

5982 

6030 

6036 

6042 

6048 

6054 

6060 

6066 

6114 

6120 

6126 

6132 

6138 

6144 

6150 

6283 
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6234 
6859 
1454 
1797 
2037 
2131 
2912 


6210 
6238 
6285 
6348 
6411 
6474 
6537 

1238 
1463 
1764 
1850 
2077 
2260 
2288 
2316 
2423 
2549 
2675 
2893 
3115 
3499 
3861 
4107 
4472 
4556 
4822 
5079 
5149 
5415 
5642 
6189 
6386 
6512 


2376 
2502 
2628 
3662 
4835 
6963 
6308 
6434 
6843 
6208 
6236 

1461 
1799 
2044 
2688 
2914 


6212 
6240 
6287 
6350 
6413 
6476 
6539 

1328 
1466 
1769 
1854 
2081 
2262 
2290 
2318 
2432 
2558 
2692 
2899 
3119 
3503 
3865 
4111 
4476 
4581 
4826 
5081 
5153 
5432 
5648 
6269 
6395 
6521 


2385 
2511 
2637 
3683 
5141 

6317 
6443 
6847 
6210 
6238 

1468 
1805 
2050 
2690 
2918 


6214 
6242 
6294 
6357 
6420 
6483 
6546 

1332 
1470 
1775 
1871 
2087 
2264 
2292 
2320 
2441 
2567 
2696 
2916 
3239 
3623 
3882 
4235 
4482 
4585 
4843 
5083 
5170 
5436 
5665 
6278 
6404 
6530 


2394 
2520 
2646 
3874 
5162 

6326 
6452 

6212 
6240 

1475 
1814 
2059 
2694 
2933 


6216 
6244 
6296 
6359 
6422 
6485 
6548 

1424 
1473 
1780 
1875 
2091 
2266 
2294 
2322 
2450 
2576 
2713 
2920 
3244 
3628 
3886 
4239 
4488 
4602 
4847 
5085 
5174 
5453 
5669 
6287 
6413 
6539 


2403 
2529 
2655 
3895 
5326 

6335 
6461 

6214 
6242 

1566 
1816 
2065 
2709 
2935 


6218 
6246 
6303 
6366 
6429 
6492 
6745 

1428 
1477 
1786 
2026 
2108 
2268 
2296 
2331 
2459 
2585 
2717 
2937 
3254 
3638 
3903 
4244 
4494 
4606 
5048 
5087 
5324 
5457 
5686 
6296 
6422 
6548 


2412 
2538 
2684 
4078 
5339 

6344 
6470 

6216 
6244 

1573 
1822 
2067 
2711 
2939 


6220 
6248 
6305 
6368 
6431 
6494 
6753 

1431 

1564 

1792 

2030 

2112 

2270 

2298 

2342 

2468 

2594 

2848 

2941 

3286 

3670 

3907 

4248 

4500 

4766 

5052 

5089 

5332 

5595 

5690 

6305 

6431 

6745 


2421 
2547 
2705 
4099 
5349 

6353 
6479 

6218 
6246 

1580 
1831 
2077 
2715 
3065 


6222 
6250 
6312 
6375 
6438 
6501 
6755 

1435 
1568 
1797 
2035 
2129 
2272 
2300 
2351 
2477 
2603 
2852 
3054 
3290 
3674 
4043 
4253 
4505 
4770 
5058 
5091 
5337 
5601 
5811 
6314 
6440 
6753 


2430 
2556 
2908 
4275 
5362 

6362 
6488 

6220 
6248 

1758 
1846 
2085 
2859 
3069 


SEQ  15y3  ■ 


CON 


1C01 


3090     3Q92      3096      \m      3U3     I!!  J     3???     5?3]      I?!'      I?S§      l?il     \m      llfl     \W, 


<:fq  15QA 


1581 


.MOENA 


.HOR 


.MPLUS 


3090 

3305 

3666 

4063 

4302 

4579 

4845 

5089 

5168 

5430 

5684 

6198 

6226 

6254 

6299 

6341 

6382 

6425 

6467 

6508 

6741 

1215 

2340 

3495 

4818 

5822 

6344 

6470 

6865 

1846 

2715 

3231 

3693 

4285 

5060 

5093 

5688 

5978 

6020 

6062 

6104 

6146 

6208 

6236 

6272 

6314 

6355 

6398 

6440 

6481 

6524 

6852 

1840 


3092 

3096 

3111 

3113 

V^l 

l?i? 

3231 

3309 

3421 

3423 

3425 

3440 

3474 

3476 

3668 

3672 

3687 

3689 

3693 

3878 

3880 

4065 

4082 

4084 

4088 

4103 

4105 

4109 

4306 

4509 

4522 

4531 

4533 

4540 

4542 

4583 

4598 

4600 

4604 

ii77B 

4790 

4794 

5058 

5060 

5062 

5064 

5066 

5068 

5070 

5091 

5093 

5100 

5110 

5112 

5114 

5124 

5172 

5326 

5339 

5349 

5362 

5368 

5381 

5434 

5449 

5451 

5455 

5597 

5608 

5623 

5688 

5811 

5813 

5815 

5818 

5820 

5822 

6200 

6202 

6204 

6206 

6208 

6210 

6212 

6228 

6230 

6232 

6234 

6236 

6238 

6240 

6256 

6263 

6265 

6269 

6272 

6274 

6278 

6301 

6305 

6308 

6310 

6314 

6317 

6319 

6344 

6346 

6350 

6353 

6355 

6359 

6362 

6386 

6389 

6391 

6395 

6398 

6400 

6404 

6427 

6431 

6434 

6436 

6440 

6443 

6445 

6470 

6472 

6476 

6479 

6481 

6485 

6488 

6512 

6515 

6517 

6521 

6524 

6526 

6530 

6743 

6753 

6755 

6841 

6845 

6847 

6852 

1426 

1433 

1440 

1461 

1468 

1475 

1566 

2673 

2688 

2709 

2889 

2912 

2933 

3090 

3666 

3687 

3878 

3899 

4052 

4063 

4082 

4839 

5110 

5124 

5145 

5166 

5402 

5428 

6181 

6183 

6185 

6187 

6263 

6272 

6281 

6353 

6362 

6371 

6380 

6389 

6398 

6407 

6479 
6969 
1852 

6488 

6497 

6506 

6515 

6524 

6533 

1867 

1873 

2104 

2110 

2125 

2131 

2863 

2878 

2895 

2912 

2918 

2933 

2939 

3282 

3288 

3303 

3309 

3421 

3423 

3474 

^878 

3884 

3899 

3905 

4082 

4088 

4103 

"300 

4306 

4560 

4562 

4577 

4583 

4598 

5062 

5064 

5066 

5068 

5070 

5072 

5079 

5114 

5128 

5145 

5151 

5166 

5172 

542 

5813 

5815 

5820 

5822 

5948 

5954 

595 

5982 

5984 

5988 

5990 

5994 

5996 

600 

6024 

6026 

6030 

6032 

6036 

6038 

60^2 

6066 

6068 

6072 

6074 

6078 

6080 

6084 

6108 

6110 

6114 

6116 

6120 

6  22 

6126 

6150 

6152 

6156 

6158 

6162 

6164 

6194 

6210 

6212 

6214 

6216 

6218 

6220 

6222 

6238 

6240 

6242 

6244 

6246 

6248 

6250 

6274 

6278 

6281 

6283 

6287 

6290 

6292 

6317 

6319 

6323 

6326 

6328 

6332 

6335 

6359 

6362 

6364 

6368 

6371 

6373 

6377 

6400 

6404 

6407 

6409 

6413 

6416 

64  8 

6443 

6445 

6449 

6452 

6454 

6^58 

6^^l 

6485 

6488 

6490 

6494 

6497 

6499 

6503 

6526 

6530 

6533 

6535 

6539 

6542 

6544 

6854 

6965 

6967 

1844 

1861 

1865 

2098 

2102 

2119 

2123 

3233 

3248 

3282 

3284 

3288 

3303 

3480 

3495 

3497 

3501 

3613 

3632 

3884 

3899 

3901 

3905 

4052 

4054 

4253 

4262 

4279 

4281 

4285 

4300 

4548 

4558 

4560 

4562 

4564 

4577 

4801 

4818 

4820 

4824 

4839 

4841 

5072 

5079 

5081 

5083 

5085 

5087 

5126 

5128 

5145 

5147 

5151 

5166 

5389 

5402 

5404 

5413 

5415 

5428 

5638 

5644 

5661 

5663 

5667 

5682 

6181 

6183 

6185 

6187 

6194 

6196 

6214 

6216 

6218 

6220 

6222 

6224 

6242 

6244 

6246 

6248 

6250 

6252 

6281 

6283 

6287 

6290 

6292 

6296 

6323 

6326 

6328 

6332 

6335 

6337 

6364 

6368 

6371 

6373 

6377 

6380 

6407 

6409 

6413 

6416 

6418 

6422 

6449 

6452 

6454 

6458 

6461 

6463 

6490 

6494 

6497 

6499 

6503 

6506 

6533 

6535 

6539 

6542 

6544 

6548 

6854 

6859 

6861 

6863 

6865 

1580 

1846 

1867 

2104 

2125 

2329 

3111 

3231 

3282 

3303 

3423 

3474 

4103 

4279 

4300 

4562 

4577 

4598 

5449 

5661 

5682 

5811 

5815 

5818 

6290 

6299 

6308 

6317 

6326 

6335 

6416 

6425 

6434 

6443 

6452 

6461 

6542 

6743 

6755 

6843 

6847 

6854 

2340 

2657 

2673 

2688 

2694 

2709 

3069 

3090 

3096 

3111 

3117 

3229 

3480 

3495 

3501 

3666 

3672 

3687 

4109 

4253 

4255 

4262 

4264 

4279 

4604 

4818 

4824 

4839 

4845 

5058 

5081 

5083 

5085 

5087 

5089 

5091 

5434 

5449 

5455 

5661 

5667 

5682 

5960 

5964 

5966 

5970 

5972 

5976 

6002 

6006 

6008 

6012 

6014 

6018 

6044 

6048 

6050 

6054 

6056 

6060 

6086 

6090 

6092 

6096 

6098 

6102 

6128 

6132 

6134 

6138 

6140 

6144 

6196 

6198 

6200 

6202 

6204 

6206 

6224 

6226 

6228 

6230 

6232 

6234 

6252 

6254 

6256 

6263 

6265 

6269 

6296 

6299 

6301 

6305 

6308 

6310 

6337 

6341 

6344 

6346 

6350 

6353 

6380 

6382 

6386 

6389 

6391 

6595 

6422 

6425 

6427 

6431 

6434 

6436 

6463 

6467 

6470 

6472 

6476 

6479 

6506 

6508 

6512 

6515 

6517 

6521 

6548 

6741 

6743 

6753 

6755 

6843 

SEQ  1594 


2338   2349   2358   2367   2376   2385 


2394 


2403 


2412    2421    2430   243?   2448   2457   24$6    ^475    g484   ?4?3   ^502 


2511 


r 


ecn    1CQC 


1582 


.MRAM 


.MRDLM 


.MRPCT 


.MSOA 


.Msoe 

.MSAB 


.MSDO 


239A 

2403 

2520 

2529 

2646 

2655 

3109 

3276 

3876 

3893 

A  596 

4812 

5659 

5676 

6263 

6265 

6326 

6328 

6389 

6391 

6452 

6454 

6515 

6517 

1222 

1426 

6292 

6301 

6418 

6427 

6544 

6753 

1844 

1865 

3472 

3493 

4788 

4816 

5659 

5680 

1846 

1852 

2709 

2715 

3231 

3282 

3878 

3884 

4255 

4264 

4845 

5110 

5682 

5688 

5966 

5968 

5994 

5996 

6022 

6024 

6050 

6052 

6078 

6080 

6106 

6108 

6134 

5136 

6162 

6164 

6326 

6335 

6452 

6461 

6843 

6845 

1840 

1861 

3660 

3681 

5422 

5443 

1844 

1865 

2421 

2430 

2547 

2556 

2686 

2707 

4080 

4101 

5680 

5818 

6375 

6384 

6501 

6510 

1838 

1859 

2419 

2428 

2545 

2554 

2680 

2701 

2412 

2538 

2671 

3280 

3897 

4816 

5680 

6272 

6335 

6398 

6461 

6524 

1447 

6310 

6436 

6852 

2102 

3664 

4837 

6965 

1867 

2863 

3288 

3899 

4279 

5124 

5811 

5970 

5998 

6026 

6054 

6082 

6110 

6138 

6166 

6344 

6470 

6847 

2098 

3872 

5655 

2102 

2439 

2565 

2910 

4246 

6267 

6393 

6519 

2096 

2437 

2563 

2889 


2421 
2547 
2682 
3297 
4076 
4833 
5952 
6274 
6337 
6400 
6463 
6526 
1454 
6319 
6445 
6861 
2123 
3685 
5143 

1873 
2878 
3303 
3905 
4285 
5145 
5815 
5972 
6000 
6028 
6056 
6084 
6112 
6140 
6181 
6353 
6479 
6854 
2119 
3893 
5676 
2123 
2448 
2574 
2931 
4277 
6276 
6402 
6528 
2117 
2446 
2572 
2904 


2430 
2556 
2686 
3301 
4080 
4837 
6963 
6281 
6344 
6407 
6470 
6533 
1461 
6328 
6454 
6863 
2657 
3876 
5164 

2065 
2895 
3309 
4043 
4300 
5151 
5822 
5974 
6002 
6030 
6058 
6086 
6114 
6142 
6183 
6362 
6488 
6859 
2682 
4076 

2329 
2457 
2583 
3088 
4298 
6285 
6411 
6537 
2327 
2455 
2581 
2925 


2439 
2565 
2703 
3468 
4097 
5139 
6969 
6283 
6346 
6409 
6472 
6535 
1468 
6337 
6463 

2671 
3897 
5328 

2104 
2912 
3423 
4052 
4306 
5166 
5948 
5976 
6004 
6032 
6060 
6088 
6116 
6144 
6185 
6371 
6497 
6865 
2703 
4097 

2338 
2466 
2592 
3109 
4575 
6294 
6420 
6546 
2336 
2464 
2590 
3082 


2448 
2574 
2707 
3472 
4101 
5143 

6290 
6353 
6416 
6479 
6542 
1475 
6346 
6472 

2686 
4080 
5341 

2110 
2918 
3474 
4063 
4562 
5172 
5950 
5978 
6006 
6034 
6062 
6090 
6118 
6146 
6187 
6380 
6506 
6961 
2906 
4273 

2349 
2475 
2601 
3280 
4596 
6303 
6429 
6969 
2347 
2473 
2599 
3103 


2457 
2583 
2906 
3489 
4273 
5160 

6292 
6355 
6418 
6481 
6544 
1573 
6355 
6481 

2707 
4101 
5351 

2125 
2933 
3480 
4082 
4577 
5402 
5952 
5980 
6008 
6036 
6064 
6092 
6120 
6148 
6263 
6389 
6515 
6963 
2927 
4294 

2358 
2484 
2610 
3301 
4816 
6312 
6438 

2356 
2482 
2608 
3229 


2466 
2592 
2910 
3493 
4277 
5164 

6299 

6425 
6488 
6852 
1580 
6364 
6490 

2910 
4277 
5364 

2131 
2939 
3495 
4088 
4583 
5428 
5954 
5982 
6010 
6038 
6066 
6094 
6122 
6150 
6272 
6398 
6524 
6965 
3084 
4571 

2367 
2493 
2619 
3472 
4837 
6321 
6447 

2365 
2491 
2617 
3233 


2475 
2601 
2927 
3660 
4294 
5422 

6301 
6364 
6427 
6490 
6863 
5813 
6373 
6499 

2931 
4298 
5370 

2340 
3069 
3501 
4103 
4598 
5434 
5956 
5984 
6012 
6040 
6068 
6096 
6124 
6152 
6281 
6407 
6533 
6967 
3105 
4592 

2376 
2502 
2628 
3493 
5143 
6330 
6456 

2374 
2500 
2626 
3274 


'484 

1610 

931 

5426 

6308 
6371 
6434 
6497 

5820 
6382 
6508 

3088 
4546 
5383 

2657 
3090 
3666 
4109 
4604 
5449 
5958 
5986 
6014 
6042 
6070 
6098 
6126 
6154 
6290 
6416 
6542 

3276 
4812 

2385 
2511 
2637 
3664 
5164 
6339 
6465 

2383 
2509 
2635 
3295 


6310 
6373 
6436 
6499 

6265 
6391 
6517 

3109 
4552 
5406 

2673 
3096 
3672 
4235 
4818 
5455 
5960 
5988 
6016 
6044 
6072 
6100 
6128 
6156 
6299 
6425 
6743 

3297 
4833 

2394 
2520 
2646 
3685 
5426 
6348 
6474 

2392 
2518 
2644 
3421 


2502 
2628 
3088 
3685 
4575 
5447 

6317 
6380 
6443 
6506 

6274 
6400 
6526 

3280 
4575 
5426 

2688 

3111 
3687 
4237 
4824 
5661 
5962 
5990 
6018 
6046 
6074 
6102 
6130 
6158 
6308 
6434 
6755 

3468 
5139 

2403 
2529 
2655 
3876 
5447 
6357 
6483 

2401 
2527 
2653 
3425 


2511 
2637 
3105 
3872 
4592 
5655 

6319 
6382 
6445 
6508 

6283 
6409 
6535 

3301 
4596 
5447 

2694 
3117 
3693 
4244 
4839 
5667 
5964 
5992 
6020 
6048 
6076 
6104 
6132 
6160 
6317 
6443 
6841 

3489 
5160 

2412 
2538 
2671 
3897 
5659 
63)66 
6492 

2410 
2536 
2664 
3466 


SEQ  1595 


FII 


I — 


-^LR? 


^ftSR 


^679 


3870 


3891 


4074 


4095   4253   4262   4271    4292   4540   4560   456? 


>rM  *cr\^ 


L_ 


I 


1583 


.MSELC 
.MSELE 


.MSELF 
.HSELM 

.MSELP 
.MSKCN 


.HSKMB 
.MXNOR 


.nxoR 

.RA 


3^87 

A590 

5083 

5606 

6208 

6236 

6278 

63A1 

6A04 

6A67 

6530 

1760 

4790 

5638 

1229 

1873 

2125 

2891 

3113 

3666 

4063 

4562 

5147 

5682 

5114 

1330 

3632 

3233 

4253 

6377 

6503 

6969 

2329 

6016 

6100 

6267 

6393 

6519 

1844 

2694 

3111 

3495 

4080 

4583 

5151 

5682 

5972 

6000 

6028 

6056 

6084 

6112 

6140 


3658 
4776 
5085 
5621 
6210 
6238 
6283 
6346 
6409 
6472 
6535 
1771 
4794 

1236 
2035 
2127 
2895 
3117 
3668 
4065 
4577 
5151 
5684 
5128 
1566 
4509 
3425 
4262 
6386 
6512 

4246 
r022 
6106 
6276 
6402 
6528 
1846 
2707 
3117 
3501 
4082 
4596 
5164 
5688 
5974 
6002 
6030 
6058 
6086 
6114 
6142 


3679 
4810 
5087 
5653 
6212 
6240 
6287 
6350 
6413 
6476 
6539 
1782 
5326 

1433 
2037 
2131 
2912 
3282 
3672 
4082 
4579 
5166 
5688 
5402 
1573 
4522 
3613 
6269 
6395 
6521 

5818 
6028 
6112 
6285 
6411 
6537 
1852 
2709 
3231 
3664 
4088 
4598 
5166 
5948 
5976 
6004 
6032 
6060 
6088 
6116 
6144 


3870 
4831 
5089 
5674 
6214 
6242 
6292 
6355 
6418 
6481 
6544 
1788 
5339 

1440 
2044 
2688 
2914 
3284 
3687 
4084 
4583 
5168 
5815 

1580 
4533 
5112 
6278 
6404 
6530 

5950 
6034 
6118 
6294 
6420 
6546 
1865 
2715 
3280 
3666 
4101 
4604 
5172 
5950 
5978 
6006 
6034 
6062 
6090 
6118 
6146 


3891 
5058 
5091 
5813 
6216 
6244 
6296 
6359 
6422 
6485 
6548 
1799 
5349 

1447 
2050 
2690 
2918 
3288 
3689 
4088 
4598 
5172 
5822 

1758 
4540 
5126 
6287 
6413 
6539 

5956 
6040 
6124 
6303 
6429 

1867 
2910 
3282 
3672 
4103 
4816 
5426 
5952 
5980 
6008 
6036 
6064 
6092 
6120 
6148 


4074 
5060 
5093 
5820 
6218 
6246 
6301 
6364 
6427 
6490 
6741 
1805 
5362 

1454 
2059 
2694 
2933 
3303 
3693 
4103 
4600 
5428 
6181 

1769 
4560 

6296 
6422 
6548 

5962 
6046 
6130 
6312 
6438 

1873 
2912 
3288 
3685 
4109 
4818 
5428 
5954 
5982 
6010 
6038 
6066 
6094 

6150 


4095 
5062 
5112 
5946 
6220 
6248 
6305 
6368 
6431 
6494 
6753 
1816 
5368 

1461 
2065 
2709 
2935 
3305 
3878 
4105 
4604 
5430 
6183 

1780 
4801 

6305 
6431 
6741 

5968 
6052 
6136 
6321 
6447 

2102 
2918 
3301 
3687 
4277 
4824 
5434 
5956 
5984 
6012 
6040 
6068 
6096 
6124 
6152 


4253 
5064 
5114 
6194 
6222 
6250 
6310 
6373 
6436 
6499 
6852 
1831 
5381 


1468 
2067 
2711 
2939 
3309 
3880 
4109 
4818 
5434 
6185 

1797 
5100 

6314 
6440 


5974 
6058 
6142 
6330 
6456 

2104 
2931 
3303 
3693 
4279 
4837 
5447 
5958 
5986 
6014 
6042 
6070 
6098 
6126 
6154 


4262 
5066 
5126 
6196 
6224 
6252 
6314 
6377 
6440 
6503 
6861 
4531 
5389 

1475 
2077 
2715 
3065 
3474 
3884 
4279 
4820 
5449 
6187 

1814 
5110 

6323 
6449 


5980 
6064 
6148 
6339 
6465 

2110 
2933 
3309 
3876 
4285 
4839 
5449 
5960 
5988 
6016 
6044 
6072 
6100 
6128 
6156 


4271 
5068 
5128 
6198 
6226 
6254 
6319 
6382 
6445 
6508 
6863 
4542 
5404 

1846 
2085 
2859 
3069 
3476 
3899 
4281 
4824 
5451 
6755 

1822 
5124 

6332 
6458 


5986 
6070 
6154 
6348 
6474 

2123 
2939 
3423 
3878 
4298 
4845 
5455 
5962 
5990 
6018 
6046 
6074 
6102 
6130 
6158 


4292 
5070 
5137 
6200 
6228 
6256 
6323 
6386 
6449 
6512 

4548 
5413 

1848 
2089 
2863 
3090 
3480 
3901 
4285 
4839 
5455 
6854 

3231 
5415 

6341 
6467 


5992 
6076 
6160 
6357 
6483 

2125 
3088 
3472 
3884 
4300 
5110 
5659 
5964 
5992 
6020 
6048 
6076 
6104 
6132 
6160 


4540 
5072 
5158 
6202 
6230 
6265 
6328 
6391 
6454 
6517 

4558 
5597 

1852 
2104 
2874 
3092 
3495 
3905 
4300 
4841 
5661 
6865 

3248 
5644 

6350 
6476 


5998 
6082 
6166 
6366 
6492 

2131 
.■.090 
3474 
3897 
4306 
5124 
5661 
5966 
5994 
6022 
6050 
6078 
6106 
6134 
6162 


4560 
5079 
5420 
6204 
6232 
6269 
6332 
6395 
6458 
6521 

4564 
5608 

1867 
2106 
2878 
3096 
3497 
4052 
4302 
4845 
5663 


4569 
5081 
5441 
6206 
6234 
6274 
6337 
6400 
6463 
6526 

4778 
5623 

1869 
2110 
2889 
3111 
3501 
4054 
'.306 
5145 
5667 


r 


SEQ  1596 


3423    3440 


6359 
6485 


6004 
6088 
6847 
6375 
6501 

2686 
3096 
3480 
3899 
4575 
5143 
5667 
5968 
5996 
6024 
6052 
6080 
6108 
6136 
6164 


6368 
6494 


6010 
6094 

6384 
6510 

2688 
3109 
3493 
3905 
4577 
5145 
5680 
5970 
5998 
6026 
6054 
6082 
6110 
6138 
6166 


Gl 
G( 


L^ 


/:1Q1 


iL1B7 
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A1«7 


r~ 


k7AT 


h->h7 


(OT? 


6276 


6281 


6285 


6290   6294   6399   6303 


L. 


Q  158A 


.RAND 


.RB 


.RBAD 

.RCCAF 
.RCCBF 
.RCCCA 

.RCCCC 
.RCCCE 
.RCCCP 
.RCCEB 
.RCCER 
.RCCFZ 


.RCCGC 


6181 

6508 

6371 

6A3A 

6A97 

1838 

2A10 

2536 

266A 

3870 

4590 

59A6 

1838 

2686 

3105 

3489 

4074 

4575 

5143 

5676 

5970 

5998 

6026 

6054 

6082 

6110 

6138 

6166 

S220 

c?48 

6292 

6332 

6375 

6418 

6458 

6501 

6544 

1217 

1575 

3237 

3429 

1751 

5640 

2350 

5330 

4768 

3056 

2079 

2329 

6357 

6483 

1848 

2874 


6183 

6312 

6375 

6438 

6501 

1859 

2419 

2545 

2680 

3891 

4776 

6841 

1840 

2701 

3109 

3493 

4076 

4590 

5158 

5680 

5972 

6000 

6028 

6056 

6084 

6112 

6140 

6194 

6222 

6250 

6294 

6337 

^377 

-420 

6463 

6503 

6546 

1224 

1582 

3252 

3444 

1762 

2865 
5353 
4784 
3075 
3841 
2340 
6366 
6492 
1869 
2891 


6185 

6317 

6380 

6443 

6506 

2065 

2428 

2554 

2701 

4043 

4810 

6845 

1844 

2703 

3229 

3658 

4080 

4592 

5160 

5946 

5974 

6002 

6030 

6058 

6086 

6114 

6142 

6196 

6224 

6252 

6296 

6339 

6382 

6422 

6465 

6508 

6548 

12^1 

6168 

3259 

1773 

2880 
5372 
4803 

3850 
2664 
6375 
6501 
2028 
2897 


6187 

6321 

6384 

6447 

6510 

2096 

2437 

2563 

2889 

4052 

4831 

6859 

1859 

2707 

3274 

3660 

4095 

4596 

5164 

5948 

5976 

6004 

6032 

6060 

6088 

6116 

6144 

6198 

6226 

6254 

6301 

6341 

6384 

6427 

6467 

6510 

6967 

1238 

6173 

3263 


6i§5 

6326 

6389 

6452 

6515 

2117 

2446 

2572 

2904 

4063 

5137 

6961 

1861 

2904 

3276 

3664 

4097 

4810 

5420 

5950 

5978 

6006 

6034 

6062 

6090 

6118 

6146 

6200 

6228 

6256 

6303 

6346 

6386 

6429 

6472 

6512 

1332 

3267 


1734    1790 

3071 
5391 


6i§7 
6330 
6393 
6456 
6519 
2327 
2455 
2581 
2925 
4074 
5158 

1865 
2906 
3280 
3679 
4101 
4812 
5422 
5952 
5980 
6008 
6036 
6064 
6092 
6120 
6148 
6202 
6230 
6265 
6305 
6348 
6391 
6431 
6474 
6517 

1428 

3451 

1801 


6272 
6335 
6398 
6461 
6524 
2336 
2464 
2590 
3082 
4095 
5402 

2096 

2910 

3295 

3681 

4271 

4816 

5426 

5954 

5982 

6010 

6038 

6066 

6094 

6122 

6150 

6204 

6232 

6267 

6310 

6350 

6393 

6436 

6476 

6519 

1435 

3455 

1807 


6276 
6339 
6402 
6465 
6528 
2347 
2473 
2599 
3103 
4235 
5420 

2098 
2925 
3297 
3685 
4273 
4831 
5441 
5956 
5984 
6012 
6040 
6068 
6096 
6124 
6152 
6206 
6234 
6269 
6312 
6355 
6395 
6438 
6481 
6521 

1442 

3459 

1818 


6281 
6344 
6407 
6470 
6533 
2356 
2482 
2608 
3274 
4237 
5441 

2102 

2927 

3301 

3870 

4277 

4833 

5443 

5958 

5986 

6014 

6042 

6070 

6098 

6126 

6154 

6208 

6236 

6274 

6314 

6357 

6400 

6440 

6483 

6526 

1449 

3636 

1824 


6285 
6348 
6411 
6474 
6537 
2365 
2491 
2617 
3295 
4244 
5606 

2117 

2931 

3421 

3872 

4292 

4837 

5447 

5960 

5988 

6016 

6044 

6072 

6100 

6128 

6156 

6210 

6238 

6276 

6319 

6359 

6402 

6445 

6485 

6528 

1456 

3643 

4554 


629 

635 

6416 

6479 

6542 

2374 

2500 

2626 

3466 

4271 

5621 


2119 
3082 
3466 
3876 
4294 
5114 
5653 
5962 
5990 
6018 
6046 
6074 
6102 
6130 
6158 
6212 
6240 
6278 
6321 
6364 
6404 
6447 
6490 
6530 

1463 

3647 

4780 


6294 
6357 
6420 
6483 
6546 
2383 
2509 
2635 
3487 
4292 
5653 

2123 
3084 
3468 
3891 
4298 
5128 
5655 
5964 
5992 
6020 
6048 
6076 
6104 
6132 
6160 
6214 
6242 
6283 
6323 
6366 
6409 
6449 
6492 
6535 

1470 

3651 

5398 


6299 
6362 
6425 
6488 
6969 
2392 
2518 
2644 
3658 
4540 
5674 

2680 
3088 
3472 
3893 
4569 
5137 
5659 
5966 
5994 
6022 
6050 
6078 
6106 
6134 
6162 
6216 
6244 
6285 
6328 
6368 
6411 
6454 
6494 
6537 


6303 
6366 
6429 
6492 

2401 
2527 
2653 
3679 
4569 
5811 

2682 
3103 
3487 
3897 
4571 
5139 
5674 
5968 
5996 
6024 
6052 
6080 
6108 
6136 
6164 
6218 
6246 
6287 
6330 
6373 
6413 
6456 
6499 
6539 


r 


SEQ  1597 


Ml 


1477    1568 


5610    5625 


3859 
2673 
6384 
6510 
2037 
2914 


3863 
6267 
6393 
6519 
2046 
2935 


6276 
6402 
6528 
2052 
3065 


6285 
6411 
6537 
2061 
3092 


6294 
6420 
6546 
2069 
3113 


6303 
6429 

2083 
3284 


6312 
6438 

2106 
3305 


6321 
6447 

2127 
3476 


6330 
6456 

2690 
3497 


6339 
6465 

2711 
3668 


6348 
6474 

2859 
3689 


■vnn/N 


/  7f»") 


/.  C7Q 


/.Ann 


/.aon 


LRLl  tilL?         SUA    S430    5451 


Q  1585 


3880 
5663 

3901 
5684 

4084 

4105 

4281 

.RCCIA 

4045 

4056 

4067 

.RCCLW 

5599 

5614 

5629 

5646 

.RCCMB 

4237 

4246 

4255 

4264 

.RCCMP 

4474 

4486 

4498 

4511 

4524 

.RCCPP 

5050 

5102 

5116 

5130 

.RCCXA 

3621 

.RCENA 

1751 

1762 

1773 

1784 

1790 

2052 

2061 

2069 

2079 

2083 

2859 

2865 

2874 

2880 

2891 

3237 

3252 

3259 

3263 

3267 

3621 

3636 

3643 

3647 

3651 

4056 

4067 

4084 

4105 

'^IK 

4524 

4554 

4579 

4600 

4768 

5147 

5168 

5330 

5353 

5372 

5640 

5646 

5663 

5684 

6267 

6357 

6366 

6375 

6384 

6393 

6483 

6492 

6501 

6510 

651? 

.RCJP 

1751 

1762 

1773 

1784 

1790 

2052 

2061 

2069 

2079 

2083 

2859 

2865 

2874 

2880 

2891 

3237 

3252 

3259 

3263 

3267 

3621 

3636 

3643 

3647 

3651 

4056 

4067 

4084 

4105 

4237 

4524 

4554 

4579 

4600 

4768 

5147 

5168 

5330 

5353 

5372 

5640 

5646 

5663 

5684 

6267 

6357 

6366 

6375 

6384 

6393 

6483 

6492 

6501 

6510 

6519 

.RCJS 

3227 

3246 

3419 

3438 

3611 

5385 

5387 

5948 

5950 

5954 

5984 

5986 

5990 

5992 

5996 

6026 

o028 

6032 

6034 

6038 

6068 

6070 

6074 

6076 

6080 

6110 

6112 

6116 

6118 

6122 

6152 

6154 

6158 

6160 

6164 

6210 

6212 

6214 

6216 

6218 

6238 

6240 

6242 

6244 

Hi^ 

.RCONT 

1215 

1222 

1229 

1236 

1330 

1573 

1580 

1760 

1771 

1782 

1859 

1861 

1867 

1873 

2050 

2119 

2125 

2131 

2327 

2336 

2419 

2428 

2437 

2446 

2^55 

2545 

2554 

2563 

2572 

2581 

2682 

2688 

2694 

2701 

2703 

2918 

2927 

2933 

2939 

3229 

::231 

3233 

3235 

3248 

3421 

:423 

3^25 

3427 

3440 

:613 

:615 

3617 

3619 

3632 

3870 

:872 

3878 

3884 

3891 

4095 

4097 

4103 

4109 

4271 

4542 

4548 

4558 

4560 

4562 

L. 


4302    4579    4600    4820    4841    5147    5168    5430    5451 


SEO  1598 


1801 

2106 

2897 

3284 

3668 

4246 

4780 

5391 

6276 

6402 

6528 

1801 

2106 

2897 

3284 

3668 

4246 

4780 

5391 

6276 

6402 

6528 

3630 

5956 

5998 

6040 

6082 

6124 

6166 

6220 

6248 

1426 

1788 

2065 

2338 

2464 

2590 

2709 

3069 

3250 

3442 

3634 

3893 

4273 

4569 


1807 

2127 

2914 

3305 

3689 

4255 

4784 

5398 

6285 

6411 

6537 

1807 

2127 

2914 

3305 

3689 

4255 

4784 

5398 

6285 

6411 

6537 

4484 

5960 

6002 

6044 

6086 

6128 

6194 

6222 

6250 

1433 

1799 

2067 

2347 

2473 

2599 

2715 

3082 

3274 

3466 

3658 

3899 

4279 

4571 


1818 

1824 

1848 

1869 

2028 

2037 

2046 

2329 

2340 

2664 

2673 

2690 

2711 

2850 

2935 

3056 

3065 

3071 

3075 

3092 

3113 

3429 

3444 

:45; 

3455 

3459 

3476 

3497 

3841 

3850 

3859 

3863 

3880 

3901 

^9^5 

4264 

4302 

4474 

4486 

4498 

4511 

4803 

4820 

4841 

5050 

5102 

5116 

5130 

5430 

5451 

5599 

5610 

5614 

5625 

5629 

6294 

6303 

6312 

6321 

6330 

6339 

6348 

6420 
6546 
1818 

6429 

6438 

6447 

6456 

6465 

6474 

1824 

1848 

1869 

2028 

2037 

2046 

2329 

2340 

2664 

2673 

2690 

2711 

2850 

2935 

3056 

3065 

3071 

3075 

3092 

3113 

3429 

3444 

3451 

3455 

3459 

3476 

3497 

3841 

3850 

3859 

3863 

3880 

3901 

4045 

4264 

4281 

4302 

4474 

4486 

4498 

4511 

4803 

4820 

4841 

5050 

5102 

5116 

5130 

5430 

5451 

5599 

5610 

5614 

5625 

5629 

6294 

6303 

6312 

6321 

6330 

6339 

6348 

6420 
6546 
4496 

6429 

6438 

6447 

6456 

6465 

6474 

4507 

4520 

5343 

5345 

5347 

5366 

5962 

5966 

5968 

5972 

5974 

5978 

5980 

6004 

6008 

6010 

6014 

6016 

6020 

6022 

6046 

6050 

6052 

6056 

6058 

6062 

6064 

6088 

6092 

6094 

6098 

6100 

6104 

6106 

6130 

6134 

6136 

6140 

6142 

6146 

6148 

6196 

6198 

6200 

6202 

6204 

6206 

6208 

6224 

6226 

6228 

6230 

6232 

6234 

6236 

6252 

6254 

6256 

1440 

1447 

1454 

1461 

1468 

1475 

1566 

1805 

1816 

1822 

1838 

1840 

1846 

1852 

2085 

2089 

2096 

2098 

2104 

2110 

2117 

2356 

2365 

2374 

2383 

2392 

2401 

2410 

2482 

2491 

2500 

2509 

2518 

2527 

2536 

2608 

2617 

2626 

2635 

2644 

2653 

2680 

2863 

2878 

2889 

2895 

2904 

2906 

2912 

3084 

3090 

3096 

3103 

3105 

3111 

3il7 

3276 

3282 

3288 

3295 

3297 

3303 

3309 

3468 

3474 

3480 

3487 

3489 

3495 

3501 

3660 

3666 

3672 

3679 

3681 

3687 

3693 

3905 

4054 

4065 

4074 

4076 

4082 

4088 

4285 

4292 

4294 

4300 

4306 

4509 

4522 

4577 

4583 

4590 

4592 

4598 

4604 

4790 
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/  0/.  C 
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EQ  1586 


4801 

4810 

5137 

5139 

5441 

5443 

5676 

5682 

5988 

5994 

6072 

6078 

6156 

6162 

6317 

6319 

6380 

6382 

6443 

6445 

6506 

6508 

6847 

6852 

RCRTN    3261 

3265 

RCRY     1840 

1861 

2430 

2439 

2556 

2565 

2906 

2927 

4273 

4294 

RD      1760 

1762 

1816 

1818 

1865 

1867 

2112 

2117 

2347 

2349 

2410 

2412 

2473 

2475 

2536 

2538 

2599 

2601 

2657 

2664 

2707 

2709 

2893 

2895 

2935 

2937 

3098 

3103 

:274 

3276 

:309 

<311 

:482 

3487 

:  658 

3660 

:693 

3695 

:90i 

3903 

4090 

4095 

4255 

4262 

4300 

4302 

4558 

4560 

4598 

4600 

4822 

4824 

5064 

5066 

5112 

5114 

5160 

5164 

5400 

5402 

5449 

5451 

5640 

5642 

5684 

5686 

5954 

5956 

5982 

5984 

4812 

5145 

5449 

5688 

6000 

6084 

62§3 

6326 

6389 

6452 

6515 

6854 

3269 

2098 

2448 

2574 

3084 

4571 

1764 

1820 

1869 

2119 

2356 

2419 

2482 

2545 

2608 

2671 

2711 

2904 

2939 

3105 

3280 

3421 

3489 

3664 

3870 

3905 

4097 

4264 

4304 

4562 

4602 

4826 

5068 

5124 

5166 

5404 

5453 

5653 

5688 

5958 

5986 


4818 
5151 
5455 
5813 
6006 
6090 

6328 

6391 

6454 

6517 

6861 

3453 

2119 

2457 

2583 

3105 

4592 

1771 

1822 

1871 

2123 

2358 

2421 

2484 

2547 

2610 

2673 

2713 

2906 

2941 

3109 

3282 

3423 

3493 

3666 

3872 

3907 

4101 

4271 

4306 

4569 

4604 

4831 

5070 

5126 

5168 

5420 

5455 

5655 

5690 

5960 

5988 


4824 

5158 

5597 

5815 

6012 

6096 

6272 

6335 

6398 

6461 

6524 

6863 

3457 

2338 

2466 

2592 

3276 

4812 

1773 

1838 

1873 

2125 

2365 

2428 

2491 

2554 

2617 

2680 

2715 

2910 

3065 

3111 

3284 

3425 

3495 

3668 

3876 

4043 

4103 

4273 

4308 

4571 

4606 

4833 

5072 

5128 

5170 

5422 

5457 

5659 

5811 

5962 

5990 


4831 

5160 

5608 

5820 

6018 

6102 

6274 

6337 

6400 

6463 

6526 

6865 

3461 

2349 

2475 

2601 

3297 

4833 

1775 

1840 

1875 

2127 

2367 

2430 

2493 

2556 

2619 

2682 

2717 

2912 

3067 

3113 

3286 

3427 

3497 

3670 

3878 

4052 

4105 

4277 

4540 

4575 

4776 

4837 

5079 

5137 

5172 

5426 

5606 

5661 

5813 

5964 

5992 


4833 

4839 

5166 
5623 

5172 

5638 

5822 

5946 

6024 

6030 

6108 

6114 

6281 

6283 

6344 

6346 

6407 

6409 

6470 

6472 

6533 

6535 

6967 

3645 

3649 

2358 

2367 

2484 

2493 

2610 

2619 

3489 

5139 

5160 

1782 

1784 

1844 

1846 

2065 

2096 

2129 

2131 

2374 

2376 

2437 

2439 

2500 

2502 

2563 

2565 

2626 

2628 

2686 

2688 

2859 

2861 

2914 

2916 

3069 

3082 

3115 

3117 

3288 

3290 

3442 

3466 

3499 

3501 

3672 

3674 

3880 

3882 

4063 

4074 

4107 

4109 
4281 

4279 

4542 

4544 

4577 

4579 

4778 

4780 

4839 

484' 

5081 

508; 

5139 

514: 

5174 

5343 

5428 

5430 

5608 

5610 

5665 

5815 

5818 

5966 

5968 

5994 

5996 

4845 
5389 

5100 

5112 

5114 

5126 

5128 

5402 

5420 

5422 

5428 

5434 

5644 
5952 

5653 

5655 

5661 

5667 

5674 

5958 

5964 

5970 

5976 

5982 

6036 
6120 

6042 

6048 

6054 

6060 

6066 

6126 

6132 

6138 

6U^ 

6150 

6290 
6353 
6416 

6292 

6299 

6301 

6308 
6371 
6434 

§IIQ 

6355 
6418 

6362 
6425 

6364 
6427 

6373 
6436 

6479 

6481 

6488 

6490 

6497 

6499 

6542 

6544 

6741 

6743 

6843 

6845 

3653 

4564 

5408 

6258 

6551 

2376 

2385 

2394 

2403 

2412 

2421 

2502 

25  1 

2520 

2529 

2538 

2547 

2628 

2637 

m 

2655 

2682 

2703 

3660 

3681 

3893 

4076 

4097 

5422 

5443 

5655 

5676 

5952 

6963 

1786 

1788 

1799 

1801 

1803 

1805 

1848 

1850 

1852 

1854 

1859 

1861 

2098 

2102 

2104 

2106 

21Q8 

2110 

2133 

2327 

2329 

2336 

2338 

2340 

2383 

2385 

2392 

2394 

2401 

2403 

2446 

2448 

2455 

2457 

2464 

2^66 

2509 

2511 

2518 

2520 

2527 

2529 

2572 

2574 

2581 

2583 

2590 

2592 

2635 

2637 

2644 

2646 

2653 

l^ll 

2690 

2692 

2694 

2696 

2701 

2703 

2863 

2874 

2876 

2878 

2889 

2891 

2918 

2920 

2925 

2927 

2931 

2933 

3084 

3088 

3090 

3092 

3094 

3096 

3119 

3229 

3231 

3233 

3235 

3250 

3295 

3301 

3303 

3305 

3307 

3468 

'472 

3474 

3476 

3478 

3480 

3503 

3613 

3615 

3617 

3619 

3634 

3679 

3681 

3685 

3687 

3689 

1691 

3884 

3886 

3891 

3893 

3897 

3899 

4076 

4080 

4082 

4084 

4086 

4088 

4111 

4237 

4244 

4246 

4253 

4283 

4285 

4287 

4292 

4294 

4298 

4546 

4548 

4550 

4552 

4554 

4556 

4581 

4583 

4585 

4590 

4592 

4596 

4782 

4810 

4812 

4816 

4818 

4820 

4843 

4845 

4847 

5058 

5060 

5062 

5085 

5087 

5089 

5091 

5093 

5110 

5145 

5147 

5149 

5151 

5153 

5158 

5345 

5347 

5366 

5385 

5387 

5598 

5432 

5434 

5436 

5441 

5443 

5447 

5612 

5621 

5625 

5627 

5638 

5669 

5674 

5676 

5680 

5682 

5820 

5822 

5946 

5948 

5950 

5952 

5970 

5972 

5974 

5976 

5978 

5980 

5998 

6000 

6002 

6004 

6006 

6008 

SEQ  1599 


87 


6010 

6012 

6014 

6016 

6018 

6020 

6022 

6024 

6026 

6038 

6040 

6042 

6044 

6046 

6048 

6050 

6052 

6054 

6066 

6068 

6070 

6072 

6074 

6076 

6078 

6080 

6082 

609A 

6096 

6098 

6100 

6102 

6104 

6106 

6108 

6110 

6122 

6124 

6126 

6128 

6130 

6132 

6134 

6136 

6138 

6150 

6152 

6154 

6156 

6158 

6160 

6162 

6164 

6166 

6196 

6198 

6200 

6202 

6204 

6206 

6208 

6210 

6212 

6224 

6226 

6228 

6230 

6232 

6234 

6236 

6238 

6240 

6252 

6254 

6256 

6263 

6265 

6267 

6269 

6272 

6274 

6287 

6290 

6292 

6294 

6296 

6299 

6301 

6303 

6305 

6319 

6321 

6323 

6326 

6328 

6330 

6332 

6335 

6337 

6350 

6353 

6355 

6357 

6359 

6362 

6364 

6366 

6368 

6382 

6384 

6386 

6389 

6391 

6393 

6395 

6398 

6400 

6A13 

6416 

6418 

6420 

6422 

6425 

6427 

6429 

643i 

6A45 

6447 

6449 

6452 

6454 

6456 

6458 

6461 

6463 

6476 

6479 

6481 

6483 

6485 

6488 

6490 

6492 

6494 

6508 

6510 

6512 

6515 

6517 

6519 

6521 

6524 

6526 

6539 

6542 

6544 

6546 

6548 

6741 

6743 

6753 

6755 

6854 

6859 

6861 

6863 

6865 

6961 

6963 

6965 

6967 

.RJ 

1213 

1217 

1220 

1224 

1227 

1231 

1234 

1238 

1328 

1438 

1442 

1445 

1449 

1452 

1456 

1459 

1463 

1466 

1571 

1575 

1578 

1582 

1749 

1751 

1753 

1758 

1762 

1784 

1786 

1790 

1792 

1797 

1801 

1803 

1807 

1809 

1831 

1833 

1842 

1844 

1848 

1850 

1854 

1863 

1865 

2030 

2035 

2037 

2039 

2044 

2046 

2048 

2052 

2054 

2077 

2079 

2081 

2083 

2087 

2091 

2100 

2102 

2106 

2129 

2133 

2248 

2250 

2252 

2254 

2256 

2258 

2260 

2272 

2274 

2276 

2278 

2280 

2282 

2284 

2286 

2288 

2300 

2302 

2304 

2306 

2308 

2310 

2312 

2314 

2316 

2340 

2342 

2349 

2351 

2358 

2360 

2367 

2369 

2376 

2403 

2405 

2412 

2414 

2421 

2423 

2430 

2432 

2439 

2466 

2468 

2475 

2477 

2484 

2486 

2493 

2495 

2502 

2529 

?531 

2538 

2540 

2547 

2549 

2556 

2558 

2565 

2592 

i594 

2601 

2603 

2610 

2612 

2619 

2621 

2628 

2655 

2657 

2659 

2664 

2666 

2671 

2673 

2675 

2684 

2707 

2711 

2713 

2717 

2848 

2850 

2852 

2857 

2859 

2876 

2880 

2882 

2887 

2891 

2893 

2897 

2899 

2908 

2931 

2935 

2937 

2941 

3054 

3056 

3058 

3063 

3065 

3086 

3088 

3092 

3094 

3098 

3107 

3109 

3113 

3115 

3246 

3252 

3254 

3259 

3263 

3267 

3278 

3280 

3284 

3307 

3311 

3419 

3429 

3431 

3436 

3438 

3444 

3446 

3476 

3478 

3482 

3491 

3493 

3497 

3499 

3503 

3611 

3638 

3643 

3647 

3651 

3662 

3664 

3668 

3670 

3674 

3839 

3841 

3843 

3848 

3850 

3852 

3857 

3859 

3861 

3882 

3886 

3895 

3897 

3901 

3903 

3907 

4043 

4045 

4067 

4069 

4078 

4080 

4084 

4086 

4090 

4099 

4101 

4239 

4244 

4246 

4248 

4253 

4255 

4257 

4262 

4264 

4287 

4296 

4298 

4302 

4304 

4308 

4472 

4474 

4476 

4496 

4498 

4500 

4505 

4507 

4511 

4513 

4518 

4520 

4540 

4544 

4546 

4550 

4552 

4554 

4556 

4573 

4575 

4600 

4602 

4606 

4766 

4768 

4770 

4776 

4778 

4780 

4794 

4799 

4803 

4805 

4814 

4816 

4820 

4822 

4826 

5048 

5050 

5052 

5058 

5060 

5062 

5064 

5066 

5068 

6028 

6030 

6C32 

60:4 

6036 

6056 

6058 

6060 

6062 

6064 

6084 

6086 

6088 

6090 

6092 

6112 

6114 

6116 

6118 

6120 

6140 

6142 

6144 

6146 

6148 

6181 

6183 

6185 

6187 

6194 

6214 

6216 

6218 

6220 

6222 

6242 

6244 

6246 

6248 

6250 

6276 

6278 

6281 

6283 

6285 

6308 

6310 

6312 

6314 

6317 

6339 

6341 

6344 

6346 

6348 

6371 

6373 

6375 

6377 

6380 

6402 

6404 

6407 

6409 

6411 

6434 

6436 

6438 

6440 

6443 

6465 

6467 

6470 

6472 

6474 

6497 

6499 

6501 

6503 

6506 

6528 

6530 

6533 

6535 

6537 

6841 

6843 

6845 

6847 

f352 

6969 

1332 

1424 

1428 

1431 

1435 

1470 

1473 

1477 

1564 

1568 

1764 

1769 

1773 

1775 

1780 

1814 

1818 

1820 

1824 

1826 

1869 

1871 

1875 

2026 

2028 

2059 

2061 

2063 

2069 

2071 

2108 

2112 

2121 

2123 

2127 

2262 

2264 

2266 

2268 

2270 

2290 

2292 

2294 

2296 

2298 

2318 

2320 

2322 

2329 

2331 

2378 

2385 

2387 

2394 

2396 

2441 

2448 

2450 

2457 

2459 

2504 

2511 

2513 

2520 

2522 

2567 

2574 

2576 

2583 

2585 

2630 

2637 

2639 

2646 

2648 

2686 

2690 

2692 

2696 

2705 

2861 

2865 

2867 

2872 

2874 

2910 

2914 

2916 

2920 

2929 

3067 

3071 

3073 

3075 

3077 

3119 

3227 

3237 

3239 

3244 

3286 

3290 

3299 

3301 

3305 

3451 

3455 

3459 

3470 

3472 

3621 

3623 

3628 

3630 

3636 

3683 

3685 

3689 

3691 

3695 

3863 

3865 

3874 

3876 

3880 

4047 

4052 

4056 

4058 

4063 

4105 

4107 

4111 

4235 

4237 

4266 

4275 

4277 

4281 

4283 

4482 

4484 

4486 

4488 

4494 

4524 

4526 

4531 

4533 

4535 

4579 

4581 

4585 

4594 

4596 

4782 

4784 

4786 

4788 

4792 

4835 

4837 

4841 

4843 

4847 

5070 

5072 

5079 

5081 

5083 

SEQ  1600 


MWOR 


1 


88 


5085 
5141 

5087 
5143 

5089 
5147 

5091 
5149 

5093 
5153 

5098 
5162 

5102 
5164 

5104   5110   5116   5118   5124   5130   5132 


5168   5170   5174   5324   5326   5328 


5330 


SEQ  1601 


88 


.RJMAP 


.RJZ 
.RLDCT 


5085 

5087 

5089 

5141 

5143 

5147 

5332 

5337 

5339 

5366 

5368 

5370 

5404 

5406 

5413 

5595 

5599 

5601 

5640 

5642 

5646 

5811 

5818 

5948 

5984 

5986 

5990 

6026 

6028 

6032 

6068 

6070 

6074 

6110 

6112 

6116 

6152 

6154 

6158 

6196 

6198 

6200 

6224 

6226 

6228 

6252 

6254 

6256 

6314 

6321 

6323 

6377 

6384 

6386 

6440 

6447 

6449 

6503 

6510 

6512 

6841 

6859 

6867 

1213 

1217 

1220 

1438 

1442 

1445 

1571 

1575 

1578 

1803 

1809 

1814 

2039 

2044 

2048 

2133 

2248 

2250 

2274 

2276 

2278 

2302 

2304 

2306 

2360 

2369 

2378 

2486 

2495 

2504 

2612 

2621 

2630 

2857 

?861 

2867 

3058 

i063 

3067 

3307 

3311 

3431 

3691 

3695 

3839 

4047 

4052 

4058 

4257 

4262 

4266 

4513 

4518 

4526 

4776 

4782 

4786 

5060 

5062 

5064 

5093 

5098 

5104 

5355 

5360 

5374 

5606 

5612 

5616 

5818 

6168 

6173 

6323 

6332 

6341 

6449 

6458 

6467 

6755 

6841 

6859 

3225 

3417 

3609 

1842 

1863 

2100 

2439 

2448 

2457 

2565 

2574 

2583 

2929 

3086 

3107 

5091 

5149 

5341 

5372 

5415 

5606 

5648 

5950 

5992 

6034 

6076 

6118 

6160 

6202 

6230 

6267 

6330 

6393 

6456 

6519 

6961 

1224 

1449 

1582 

18?0 

2054 

2252 

2280 

2308 

2387 

2513 

2639 

2872 

3073 

3436 

3843 

4063 

4283 

4531 

4792 

5066 

5110 

5379 

5621 

6181 

6350 

6476 

6867 

5941 

2121 

2466 

2592 

3278 


5093 

5153 

5343 

5374 

5424 

5610 

5657 

5954 

5996 

6038 

6080 

6122 

6164 

6204 

6232 

6269 

6332 

6395 

6458 

6521 

6963 

1227 

1452 

1749 

1826 

2059 

2254 

2282 

2310 

2396 

2522 

2648 

2876 

3077 

3446 

3848 

4069 

4287 

4533 

4794 

5068 

5118 

5393 

5627 

6183 

6359 

6485 

6961 

6747 

2349 

2475 

2601 

3299 


5098 

5162 

5345 

5379 

5426 

5612 

5659 

5956 

5998 

6040 

6082 

6124 

6166 

6206 

6234 

6276 

6339 

6402 

6465 

6528 

6965 

1231 

1456 

1753 

1831 

2063 

2256 

2284 

2312 

2405 

2531 

2659 

2882 

3094 

3478 

3852 

4086 

4304 

4535 

4799 

5070 

5124 

5400 

5631 

6185 

6368 

6494 

6969 

2358 
2484 
2610 
3470 


5102 

5164 

5347 

5381 

5430 

5614 

5663 

5960 

6002 

6044 

6086 

6128 

6168 

6208 

6236 

6278 

6341 

6404 

6467 

65i0 

6969 

1234 

1459 

1758 

1833 

2071 

2258 

2286 

2314 

2414 

2540 

2666 

2887 

3098 

3482 

3857 

4090 

4308 

4540 

4805 

5072 

5132 

5413 

5636 

6187 

6377 

6503 


2367 
2493 
2619 
3491 


5104 
5168 
5349 
5383 
5432 
5616 
5665 
5962 
6004 
6046 
6088 
6130 
C173 
6210 
6238 
6285 
6348 
6411 
6474 
6537 

1238 
1463 
1764 
1850 
2077 
2260 
2288 
2316 
2423 
2549 
2675 
2893 
3115 
3499 
3861 
4107 
4472 
4556 
4822 
5079 
5149 
5415 
5642 
6189 
6386 
6512 


2376 
2502 
2628 
3662 


5110 
5170 
5351 
5385 
5436 
5621 
5669 
5966 
6008 
6050 
6092 
6134 
6181 
6212 
6240 
6287 
6350 
6413 
6476 
6539 

1328 
1466 
1769 
1854 
2081 
2262 
2290 
2318 
2432 
2558 
2692 
2899 
3119 
3503 
3865 
4111 
4476 
4581 
4826 
5081 
5153 
5432 
5648 
6269 
6395 
6521 


2385 
2511 
2637 
3683 


5116 
5174 
5353 
5387 
5445 
5625 
5678 
5968 
6010 
6052 
6094 
6136 
6183 
6214 
6242 
6294 
6357 
6420 
6483 
6546 

1332 
1470 
1775 
1871 
2087 
2264 
2292 
2320 
2441 
2567 
2696 
2916 
3239 
3623 
3882 
4235 
4482 
4585 
4843 
5083 
5170 
5436 
5665 
6278 
6404 
6530 


2394 
2520 
2646 
3874 


5118 
5324 
5355 
5391 
5447 
5627 
5680 
5972 
6014 
6056 
6098 
6140 
6185 
6216 
6244 
6296 
6359 
6422 
6485 
6548 

1424 
1473 
1780 
1875 
2091 
2266 
2294 
2322 
2450 
2576 
2713 
2920 
3244 
3628 
3886 
4239 
4488 
4602 
4847 
5085 
5174 
5453 
5669 
6287 
6413 
6539 


2403 
2529 
2655 
3895 


5124 
5326 
5360 
5393 
5451 
5629 
5684 
5974 
6016 
6058 
6100 
6142 
6187 
6218 
6246 
6303 
6366 
6429 
6492 
6745 

1428 
1477 
1786 
2026 
2108 
2268 
2296 
2331 
2459 
2585 
2717 
2937 
3254 
3638 
3903 
4244 
4494 
4606 
5048 
5087 
5324 
5457 
5686 
6296 
6422 
6548 


2412 
2533 
2684 
4078 


5130 
5328 
5362 
5398 
5453 
5631 
5686 
5978 
6020 
6062 
6104 
6146 
6189 
6220 
6248 
6305 
6368 
6431 
6494 
6753 


1431 
1564 
1792 
2030 
2112 
2270 
2298 
2342 
2468 
2594 
2848 
2941 
3286 
3670 
3907 
4248 
4500 
4766 
5052 
5089 
5332 
5595 
5690 
6305 
6431 
6745 


2421 
2547 
2705 
4099 


5132 
5330 
5364 
5400 
5457 
5636 
5690 
5980 
6022 
6064 
6106 
6148 
6194 
6222 
6250 
6312 
6375 
6438 
6501 
6755 

1435 
1568 
1797 
2035 
2129 
2272 
2300 
2351 
2477 
2603 
2852 
3054 
3290 
3674 
4043 
4253 
4505 
4770 
5058 
5091 
5337 
5601 
5811 
6314 
6440 
6753 


2430 
2556 
2908 
4275 


SEQ  1601 


PNT3 
PNT^ 
PNTt 
PNT^ 
PNT^ 


PNT( 

PUT 

RGE 

RPU' 

RTN 


589 


4296 
5368 


4544 
5381 


4550 
5404 


4573 
5424 


4594 
5445 


4778 
5657 


4814 
5678 


4835   5141    5162   5326   5339    5349   5362 


Z717 


iLTO/L 


A.77«C 


A7ZZ 


AXfiJ 


A^AP 


SEQ  1602     ! 


589 


A296 
5368 

4544 

4550 

4573 

4594 

4778 

5381 

5404 

5424 

5445 

5657 

.RLDLM    5811 

5818 

6263 

6272 

6281 

6290 

63^1 

6380 

6389 

6398 

6407 

6^]^ 

6A/7 

6506 

6515 

6524 

6533 

6542 

.RLSAD    619A 

6196 

6198 

6200 

6202 

6204 

6222 

6224 

6226 

6228 

6230 

6232 

6250 

6252 

6254 

6256 

6841 

6845 

.RMGC    1229 

1236 

1330 

1433 

1440 

1447 

1760 

1769 

1771 

1780 

^H 

1788 

1848 

1852 

1867 

1869 

1873 

2035 

2089 

2104 

2106 

2110 

2125 

2127 

2863 
3090 

2874 

2878 

2889 

2891 
3113 

2895 

3092 

3096 

3111 

3117 

3305 

3309 

3421 

3423 

3425 

3440 

3668 

3672 

3687 

3689 

3693 

4063 

4065 

4082 

4084 

4088 

^191 

4302 

4306 

4509 

4522 

4531 

4533 

4579 

458] 

459R 

4600 

4604 

4778 

4845 

5058 

5060 

5062 

5064 

5066 

5089 

5091 

5093 

5100 

5110 

HH 

5168 

5172 

5326 

5339 

5349 

5362 

5430 

5434 

5449 

5451 

5455 

5597 

5684 

5688 

5811 

5813 

5815 

5818 

6198 

6200 

6202 

6204 

6206 

6208 

6226 

6228 

6230 

6232 

6234 

6236 

6254 

6256 

6263 

6265 

6269 

6272 

6299 

6301 

6305 

6308 

6310 

6314 

6341 

6344 

6346 

6350 

6353 

6355 

6382 

6386 

6389 

6391 

6395 

6398 

6425 

6427 

6431 

6434 

6436 

6440 

6467 

6470 

6472 

6476 

6479 

6^81 

6508 

6512 

6515 

6517 

6521 

6524 

6741 

-743 

6753 

6755 

6841 

6845 

.ROE^A    1215 

1426 

1433 

1440 

1461 

1468 

2340 

2673 

2688 

2709 

2889 

2912 

3495 

3666 

3687 

3378 

3899 

4052 

4818 

4839 

5110 

5124 

'.145 

5166 

5822 

6181 

6183 

6185 

<E 

6^63 

6344 

6353 

6362 

6371 

6380 

6389 

6470 

6479 

6488 

6497 

6506 

6515 

6865 

6969 

.ROR     1846 

1852 

1867 

1873 

2104 

2110 

2715 

2863 

2878 

2895 

2912 

2918 

3231 

3282 

3288 

3303 

3309 

m\ 

3693 

3878 

3884 

3899 

3905 

^9§i 

4285 

4300 

4306 

4560 

^562 

4577 

5060 

5062 

5064 

5066 

5068 

5070 

5093 

5114 

5128 

5145 

5151 

5166 

5688 

5813 

5?15 

5820 

5822 

5948 

5978 

5982 

5  34 

5988 

5990 

5994 

6020 

6024 

6026 

6030 

6032 

6036 

6062 

6066 

6068 

6072 

6074 

6078 

4814 

5678 

6299 

6425 

6743 

6206 

6234 

6859 

1454 

1797 

2037 

2131 

2912 

3229 

3474 

3878 

4105 

4540 

4790 

5068 

5114 

5368 

5608 

5820 

6210 

6238 

6274 

6317 

6359 

6400 

6443 

6485 

6526 

6847 

1475 

2933 

4063 

5402 

6272 

6398 

6524 

2125 
2933 
3423 
4088 
4583 
5072 
5172 
5954 
5996 
6038 
6080 


4835 
6963 
6308 
6434 
6843 
6208 
6236 

1461 

1799 

2044 

2688 

2914 

3231 

3476 

3880 

4109 

4542 

4794 

5070 

5124 

5381 

5623 

5822 

6212 

6240 

6278 

6319 

6362 

6404 

6445 

6488 

6530 

6852 

1566 

3090 

4082 

5428 

6281 

6407 

6533 

2131 
2939 
3474 
4103 
4598 
5079 
5428 
5958 
6000 
6042 
6084 


5141    5162    5326    5339    5349    5362 


6317 
6443 
6847 
6210 
6238 

1468 
1805 
2050 
2690 
2918 
3233 
3480 
3884 
4253 
4548 
4801 
5072 
5126 
5389 
5638 
6181 
6214 
6242 
6281 
6323 
6364 
6407 
6449 
6490 
6533 
6854 
1580 
3111 
4103 
5449 
6290 
6416 
6542 

2340 
3069 
3480 
4109 
4604 
5081 
5434 
5960 
6002 
6044 
6086 


6326 
6452 

6212 
6240 

1475 
1814 
2059 
2694 
2933 
3248 
3495 
3899 
426? 
4558 
4818 
5079 
5128 
5402 
5644 
6183 
6216 
6244 
6283 
6326 
6368 
6409 
6452 
6494 
6535 
6859 
1846 
3231 
4279 
5661 
6299 
6425 
6743 

2657 
3090 
3495 
4253 
4318 
5083 
5449 
5964 
6006 
6048 
6090 


6335 
6461 

6214 
6242 

1566 

1816 

2065 

2709 

2935 

3282 

3497 

3901 

4279 

4560 

4820 

5081 

5145 

5404 

5661 

6185 

6218 

6246 

6287 

6328 

6371 

6413 

6454 

6497 

6539 

6861 

1867 

3282 

4300 

5682 

6308 

6434 

6755 

2673 
3096 
3501 
4255 
4824 
5085 
5455 
5966 
6008 
6050 
6092 


6344 
6470 

6216 
6244 

1573 

1822 

2067 

2711 

2939 

3284 

3501 

3905 

4281 

4562 

4824 

5083 

5147 

S413 

5663 

6187 

6220 

6248 

6290 

6332 

6373 

6416 

6458 

6499 

6542 

6863 

2104 

3303 

4562 

5811 

6317 

6443 

6843 

2688 
3111 
3666 
4262 
4839 
5087 
5661 
5970 
6012 
6054 
6096 


6353 
6479 

6218 
6246 

1580 

1831 

2077 

2715 

3065 

3288 

3613 

4052 

4285 

4564 

4839 

5085 

5151 

5415 

5667 

6194 

6222 

6250 

6292 

6335 

6577 

6418 

6461 

6503 

6544 

6865 

2125 

3423 

4577 

5815 

6326 

6452 

6847 

2694 
3117 
3672 
4264 
4845 
5089 
5667 
5972 
6014 
6056 
6098 


6362 
6488 

6220 
6248 

1758 
1846 
2085 
2859 
3069 
3303 
3632 
4054 
4300 
4577 
4841 
5087 
5166 
5428 
5682 
6196 
6224 
6252 
6296 
6337 
6380 
6422 
6463 
6506 
6548 

2329 
3474 
4598 
5818 
6335 
6461 
6854 

2709 
3229 
3687 
4279 
5058 
5091 
5682 
5976 
6018 
6060 
6102 


SEO  1602 


SCOF 


STAE 
TMS( 


TMS( 
TTAi 


590 


6104 


6108 
f>150 


6110 
6152 


6114 
6156 


6116 
6158 


6120 
6162 


6122 
6164 


6126 
6194 


6128 
6196 


6132 
6198 


6134 
6200 


6138 
6202 


6140 
6204 


6144 
6206 


SEO  1603 


DFP 
OFP 


590 


6104 

6108 

6146 

6150 

^210 

6236 
6272 

6238 

6274 

63U 

6317 

6355 

6359 

6398 

6400 

6440 

6443 

6A81 

6485 

6524 

6526 

6852 

6854 

.RPLUS    1840 

1844 

2394 

2403 

2520 

2529 

2646 
3109 

2655 

3276 

3876 

3893 

4596 

4812 

5659 

5676 

.RRAM    6263 

6265 

6326 

6328 

6389 

6391 

6452 

6454 

6515 

6517 

.RRDLM    1222 

1426 

6292 

6301 

6418 

6427 

65  ^ 

6753 

.RRPCT    1844 

1865 

3472 

3493 

4788 

4816 

5659 

5680 

.RSOA     1846 

'852 

2709 

2715 

3231 

3282 

3878 

3884 

4255 

4264 

4845 

5110 

5682 

5688 

5966 

5968 

5994 

5996 

6022 

6024 

6050 

6052 

6078 

6080 

6106 

6108 

6134 

6136 

6162 

6164 

6326 

6335 

6452 

6461 

6843 

6845 

.RS06     1840 

1861 

3660 

3681 

6110 

6114 

6152 

6156 

6212 

6214 

6240 

6242 

6278 

6281 
6323 

6319 

6362 

6364 

6404 

6407 

6445 

6449 

6488 

6490 

6530 

6533 

6965 

6967 

1861 

1865 

2412 

2421 

2538 

2547 

2671 

2682 

3280 

3297 

3897 

4076 

4816 

4833 

5680 

5952 

6272 

6274 

6335 

6337 

6398 

6400 
6463 

6461 

6524 

6526 

1447 

1454 

6310 

6319 

6436 

6445 

6852 

6861 

2102 

2123 

3664 

3685 

4837 

5143 

6965 

1867 

1873 

2863 

2878 

3288 

3303 

3899 

3905 

4279 

4285 

5124 

5145 

5811 

5815 

5970 

5972 

5998 

6000 

6026 

6028 

6054 

6056 

6082 

6084 

6110 

6112 

6138 

6140 

6 '66 

6181 

6.^44 

6353 

6h.'0 

6479 

6847 

6854 

2098 

2119 

3872 

3893 

6116 
6158 
6216 
6244 
6283 
6326 
6368 
6409 
6452 
6494 
6535 

2098 
2430 
2556 
2686 
3301 
4080 
4837 
6963 
6281 
6344 
6407 
6470 
6533 
1461 
6328 
6454 
6863 
2657 
3876 
5164 

2065 
2895 
3309 
4043 
4300 
5151 
5822 
5974 
6002 
6030 
6058 
6086 
6114 
6142 
6183 
6362 
6488 
6859 
2682 
4076 


6120 

6122 

6126 

6162 

6164 
6220 

6194 

6218 

6222 

6246 

6248 

6250 

6287 

6290 

6292 
6335 

6328 

6332 

6371 

6373 

6377 

6413 

6416 

6418 

6454 

6458 

6461 
6503 

6497 

6499 

6539 

6542 

6544 

2102 

2119 

2123 

2439 

2448 

2457 

2565 

2574 

2583 

2703 

2707 

2906 

3468 

3472 

3489 

h097 

4101 

4273 

5139 

5143 

5160 

6969 

6283 

6290 

6292 

6346 

6353 

6355 

6409 

6416 

6418 

6472 

6479 

6481 

6535 

6542 

6544 

1468 

1475 

1573 

6337 

6346 

6355 

6463 

6472 

6481 

2671 
3897 
5328 

2104 
2912 
3423 
4052 
4306 
5166 
5948 
5976 
6004 
6032 
6060 
6088 
6116 
6144 
6185 
6371 
6497 
6865 
2703 
4097 


2686 
4080 
5341 

2110 
2918 
3474 
4063 
4562 
5172 
5950 
5978 
6006 
6034 
6062 
6090 
6118 
6146 
6187 
6380 
6506 
6961 
2906 
4273 


2707 
4101 
5351 

2125 
2933 
3480 
4082 
4577 
5402 
5952 
5980 
6008 
6036 
6064 
6092 
6120 
6148 
6263 
6389 
6515 
6963 
2927 
4294 


6128 
6196 
6224 
6252 

6337 
6380 
6422 
6463 
6506 
6548 

2338 
2466 
2592 
2910 
3493 
4277 
5164 

6299 
6362 
6425 
6488 
6852 
1580 
6364 
6490 

2910 
4277 
5364 

2131 
2939 
3495 
4088 
4583 
5428 
5954 
5982 
6010 
6038 
6066 
6094 
6122 
6150 
6272 
6398 
6524 
6965 
3084 
4571 


2349 
2475 
2601 
2927 
3660 
4294 
5422 

6301 
6364 
6427 
6490 
6863 
5813 
6373 
6499 

2931 
4298 
5370 

2340 
3069 
3501 
4103 
4598 
5434 
5956 
5984 
6012 
6040 
6068 
6096 
6124 
6152 
6281 
6407 
6533 
6967 
3105 
4592 


6134 
6200 
6228 
6256 
6301 
6344 
6386 
6427 
6470 
6512 
6743 

2358 
2484 
2610 
2931 
3664 
4298 
5426 

6308 
6371 
6434 
6497 

5820 
6382 
6508 

3088 
4546 
5383 

2657 
3090 
3666 
4109 
4604 
5449 
5958 
5986 
6014 
6042 
6070 
6098 
6126 
6154 
6290 
6416 
6542 

3276 
4312 


6138 
6202 
6230 
6263 
6305 
6346 
6389 
6431 
6472 
6515 
6753 

2367 
2493 
2619 
3084 
3681 
4571 
5443 

6310 
6373 
6436 
6499 

6265 
6391 
6517 

3109 
4552 
5406 

2673 
3096 
3672 
4235 
4818 
5455 
5960 
5988 
6016 
6044 
6072 
6100 
6128 
6156 
6299 
6425 
6743 

3297 
4833 


6140 
6204 
6232 
6265 
6308 
6350 
6391 
6434 
6476 
6517 
6755 

2376 
2502 
2628 
3088 
3685 
4575 
5447 

6317 
6380 
6443 
6506 

6274 
6400 
6526 

3280 
4575 
5426 

2688 
3111 
3687 
4237 
4824 
5661 
5962 
5990 
6018 
6046 
6074 
6102 
6130 
6158 
6308 
6434 
6755 

3468 

5139 


6144 
6206 
6234 
6269 
6310 
6353 
6395 
6436 
6479 
6521 
6843 

2385 
2511 
2637 
3105 
3872 
4592 
5655 

6319 
6382 
6445 
6508 

6283 
6409 
6535 

3301 
4596 
5447 

2694 
3117 
3693 
4244 
4839 
5667 
5964 
5992 
6020 
6048 
6076 
6104 
6132 
6 1 60 
6317 
6443 
6841 

3489 
5160 


SEO  1603 


DFP 
OFP 


1591 


5422 
1  a/.  /. 


5443 


5655 


5676 


?^PQ 


?^^8 


?349 


2358 


2367   2376   2385   2394    2403   2412 


SEQ  1604 


OFF 


r" 


r" 


591 


.RSAB 


5A43    5655 

1865 

2A3C 


.RSDO 


.RSELC 
.RSELE 


.RSELF 
.RSELM 

.RSELP 
.RSKCN 


.RSKMB 
.RXNOR 


.RXOR 


m 

6501 
1838 
2A19 
25A5 
2680 
3487 
4590 
5083 
5606 
6208 
6236 
6278 
6541 
6404 
6467 
6530 
1760 
4790 
5638 
1229 
1873 
2125 
2891 
3113 
3666 
4063 
4562 
5147 
5682 
5114 
1330 
3632 
3233 
4253 
6377 
6503 
6969 
2329 
6016 
6100 
6267 
6393 
6519 


_  50 
2556 
2707 
4101 
^918 
6384 
6510 
1859 
2428 
2554 
2701 
3658 
4776 
5085 
5621 
6210 
6238 
6283 
6346 
6409 
6472 
6535 
1771 
4794 

1236 
2035 
2127 
2895 
3117 
3668 
'065 
4577 
5151 
5684 
5128 
1566 
4509 
3425 
4262 
6386 
6512 

4246 
6022 
6106 
6276 
6402 
6528 


2102 
2439 
2565 
2910 
4246 
6267 
6393 
6519 
2096 
2437 
2563 
2889 
3679 
4810 
5087 
5653 
6212 
6240 
6287 
6350 
6413 
6476 
6539 
1782 
5326 

1433 
2037 
2131 
2912 
3282 
3672 
4082 
4579 
5166 
5688 
5402 
1573 
4522 
3613 
6269 
6395 
6521 

5818 
6028 
6112 
6285 
6411 
6537 


5676 
2123 
2448 
2574 
2931 
4277 
6276 
6402 
6528 
2117 
2446 
2572 
2904 
3870 
4831 
5089 
5674 
6214 
6242 
6292 
6355 
6418 
6481 
6544 
1788 
5339 

1440 
2044 
2688 
2914 
3284 
3687 
4084 
4583 
5168 
5815 

1580 
4533 
5112 
6278 
6404 
6530 

5950 
6034 
6118 
6294 
6420 
6546 


2329 

2457 

2583 

3088 

4298 

6285 

6411 

6537 

2327 

2455 

2581 

2925 

3891 

5058 

5091 

5813 

6216 

6244 

6296 

6359 

6422 

6485 

6548 

1799 

5349 

1447 
2050 
2690 
2918 
3288 
3689 
4088 
4598 
5172 
5822 

1758 
4540 
5126 
6287 
6413 
6539 

5956 
6040 
6124 
6303 
6429 


2338 
2466 
2592 
3109 
4575 
6294 
6420 
6546 
2336 
2464 
2590 
3082 
4074 
5060 
5093 
5820 
6218 
6246 
6301 
6364 
6427 
6490 
6741 
1805 
5362 

1454 
2059 
2694 
2933 
3303 
3693 
4103 
4600 
5428 
6181 

1769 
4560 

6296 
6422 
6548 

5962 
6046 
6130 
6312 
6438 


2349 

2475 

2601 

3280 

4596 

6303 

6429 

6969 

2347 

2473 

2599 

3103 

4095 

5062 

5112 

5946 

6220 

6248 

6305 

6368 

6431 

6494 

6753 

1816 

5368 

1461 
2065 
2709 
2935 
3305 
3878 
4105 
4604 
5430 
6183 

1780 
4801 

6305 
6431 
6741 

5968 
6052 
6136 
6321 
6447 


2358 
2484 
2610 
3301 
4816 
6312 
6438 

2356 
2482 
2608 
3229 
4253 
5064 
5114 
6194 
6222 
6250 
6310 
6373 
6436 
6499 
6852 
1831 
5381 

1468 
2067 
2711 
2939 
3309 
3880 
4109 
4818 
5434 
6185 

1797 
5100 

6314 
6440 


5974 
6058 
6142 
6330 
6456 


2367 
2493 
2619 
3472 
4837 
6321 
6447 

2365 
2491 
2617 
3233 
4262 
5066 
5126 
6196 
6224 
6252 
6314 
6377 
6440 
6503 
6861 
4531 
5389 

1475 
2077 
2715 
3065 
3474 
3884 
4279 
4820 
5449 
6187 

1814 
5110 

6323 
6449 


5980 
6064 
6148 
6339 
6465 


2376 
2502 
2628 
3493 
5143 
6330 
6456 

2374 
2500 
2626 
3274 
4271 
5068 
5128 
6198 
6226 
6254 
6319 
6382 
6445 
6508 
6863 
4542 
5404 

1846 
2085 
2859 
3069 
3476 
3899 
4281 
4824 
5451 
6755 

1822 
5124 

6332 
6458 


2385 
2511 
2637 
3664 
5164 
6339 
6465 

2383 
2509 
2635 
3295 
4292 
5070 
5137 
6200 
6228 
6256 
6323 
6386 
6449 
6512 

4548 
5413 

1848 
2089 
2863 
3090 
3480 
3901 
4285 
4839 
5455 
6854 

3231 
5415 

6341 
6467 


5986 

5992 

6070 

6076 

6154 

6160 

6348 

6357 

6474 

6483 

2394 
2520 
2646 
3685 
5426 
6348 
6474 

2392 
2518 
2644 
3421 
4540 
5072 
5158 
6202 
6230 
6265 
6328 
6391 
6454 
6517 

4558 
5597 

1852 
2104 
2874 
3092 
3495 
3905 
4300 
4841 
5661 
6865 

3248 
5644 

6350 
6476 


5998 
6082 
6166 
6366 
6492 


2403 
2529 
2655 
3876 
5447 
6357 
6483 

2401 
2527 
2653 
3425 
4560 
5079 
5420 
6204 
6232 
6269 
6332 
6395 
6458 
6521 

4564 
5608 

1867 
2106 
2878 
3096 
3497 
4052 
4302 
4845 
5663 


3423 


6359 
6485 


6004 
6088 
6847 
6375 
6501 


2412 
2538 
2671 
3897 
5659 
6366 
6492 

2410 
2536 
2664 
3466 
4569 
5081 
5441 
6206 
6234 
6274 
6337 
6400 
6463 
6526 

4778 
5623 

1869 
2110 
2889 
3111 
3501 
4054 
4306 
5145 
5667 


3440 


6368 
6494 


6010 
6094 

6384 
6510 


SEO  1604 


DFP 
DFP 


159? 


ATABLE 


5763 

^  -41  » 


5764 


5765 

ni7 


5767 


5769 

1000 


5770 

100^ 


w^ 


?7 


6623 


66; 

1? 


1?^4 


6627 
1236 


6825 
1238 


6827 
1328 


6829 

1330 


SEQ  1605 


DFF 


1592 


ATABLE    5763 

5764 

5765 

5767 
1220 

CALC     1213 

1215 

1217 

1332 

1424 

1426 

1428 

K5A 

1456 

1459 

l^^l 

1571 

1573 

1575 

1578 

1771 

1773 

1775 

1780 

1805 

1807 

1809 

^h 

18A2 

1844 

1846 

1848 

1873 

1875 

2026 

2028 

2059 

2061 

2063 

2065 

2091 

2096 

2098 

2100 

2125 

2127 

2129 

2131 

2266 

2268 

2270 

mi 

2294 

2296 

2298 

2300 

2322 

2327 

2329 

2331 

2365 

2367 

2369 

2374 

2405 

2410 

2412 

2414 

2448 

2450 

2455 

2457 

2491 

2493 

2495 

2500 

2531 

2536 

2538 

25^0 

2574 

2576 

2581 

2583 

2617 

2619 

2621 

2626 

2657 

2659 

2664 

2666 

2694 

2696 

2701 

2703 

2857 

2859 

2861 

2863 

2891 

2893 

2895 

2897 

2925 

2927 

2929 

2931 

3067 

3069 

3071 

5073 

3098 

3103 

3105 

3107 

3233 

3235 

3237 

3239 

3267 

3269 

3274 

3276 

3301 

3303 

3305 

3307 

3436 

3438 

3440 

3442 

3470 

<472 

3474 

3476 

3501 

3503 

3609 

3611 

3636 

3638 

3643 

36A5 

3670 

3672 

3674 

3679 

3843 

3848 

3850 

3852 

3880 

3882 

3884 

5886 

4045 

4047 

4052 

4054 

4082 

4084 

4086 

4088 

4235 

4237 

4239 

4244 

4275 

4277 

4279 

4281 

4306 

4308 

4472 

4474 

4507 

4509 

4511 

4513 

4544 

4546 

4548 

4550 

4575 

4577 

4579 

4581 

4606 

4766 

4768 

4770 

4799 

4801 

4803 

^805 

4833 

4835 

4837 

4839 

5064 

5066 

5068 

5070 

5100 

5102 

5104 

5110 

5139 

5141 

5143 

5145 

5769 

5770 

6622 

6623 

1222 

1224 

1227 

1229 

1431 

1433 

1435 

1438 

1463 

1466 

1468 

1470 

1580 

1582 

1749 

1751 

1784 

1786 

1788 

1816 

1818 

1820 

1822 

1850 

1852 

1854 

1859 

2030 

2035 

?037 

2039 

2067 

2069 

2071 

2077 

2102 

2104 

2106 

2108 

2133 

2248 

2250 

2252 

2274 

2276 

2278 

2280 

2302 

2304 

2306 

2308 

2336 

2338 

2340 

2342 

2376 

2378 

2383 

2385 

2419 

2421 

2423 

2^?§ 

2459 

2464 

2466 

2468 

2502 

2504 

2509 

2511 

2545 

2547 

2549 

2554 

2585 

2590 

2592 

2594 

2628 

2630 

2635 

2637 

2671 

2673 

2675 

2680 

2705 

2707 

2709 

2711 

2865 

2867 

2872 

2874 

2899 

2904 

2906 

2908 

2933 

2935 

2937 

2939 

3075 

3077 

3082 

3084 

3109 

3111 

3113 

3115 

3244 

3246 

3248 

3250 

3278 

3280 

3282 

3284 

3309 

3311 

3417 

3419 

3444 

3446 

3451 

3^53 

3478 

3480 

3482 

3487 

3613 

3615 

3617 

3619 

3647 

3649 

3651 

3653 

3681 

3683 

3685 

3687 

3857 

3859 

3861 

3863 

3891 

3893 

3895 

3897 

4056 

4058 

4063 

4065 

4090 

4095 

4097 

^09? 

4246 

4248 

4253 

4255 

4283 

4285 

4287 

4292 

4476 

4482 

4484 

4486 

4518 

4520 

4522 

4524 

4552 

4554 

4556 

4558 

4583 

4585 

4590 

4592 

4776 

4778 

4780 

4782 

4810 

4812 

4814 

4816 

4841 

4843 

4845 

^8A7 

5072 

5079 

5081 

5083 

5112 

5114 

5116 

5118 

5147 

5149 

5151 

5153 

ni'i 

6626 

1234 

1440 

1442 

1473 

1475 

1753 

1758 

1790 

1792 

1824 

1826 

1861 

1863 

2044 

2046 

2079 

2081 

2110 

2112 

2254 

2256 

2282 

2284 

2310 

2312 

2347 

2349 

2387 

2392 

2430 

2432 

2473 

2475 

2513 

2518 

2556 

2558 

2599 

2601 

2639 

2644 

ini 

2684 

2715 

2B76 

2878 

2910 

2912 

2941 

3054 

3086 

3088 

3117 

3119 

3252 

3254 

3286 

3288 

3421 

3423 

3455 

3457 

3489 

3491 

3621 

3623 

3658 

3660 

3689 

3691 

3865 

3870 

3899 

3901 

4067 

4069 

4101 

4103 

4257 

4262 

4294 

4296 

4488 

4494 

4526 

4531 

4560 

4562 

4594 

4596 

4784 

4786 

4818 

4820 

5048 

5050 

5085 

5087 

5124 

5126 

5158 

5160 

6627 

6825 

1236 

1238 

1445 

1447 

1477 

1564 

1760 

1762 

1797 

1799 

1831 

1833 

1865 

1867 

2048 

2050 

2083 

2085 

2117 

2119 

2258 

2260 

2286 

2288 

2314 

2316 

2351 

2356 

2394 

2396 

2437 

2439 

2477 

2482 

2520 

2522 

2563 

2565 

2603 

2608 

2646 

2648 

m 

2688 

2848 

2880 

2882 

2914 

2916 

3056 

3058 

3090 

3092 

3225 

3227 

3259 

3261 

3290 

3295 

3425 

3427 

3459 

3461 

3493 

3495 

3628 

3630 

3662 

3664 

3693 

3695 

3872 

3874 

3903 

3905 

4074 

4076 

4105 

4107 

4264 

4266 

4298 

4300 

4496 

4498 

4533 

4535 

4564 

4569 

4598 

4600 

4788 

4790 

4822 

4824 

5052 

5058 

5089 

5091 

5128 

5130 

5162 

5164 

6827 

1328 

1449 

1566 

1764 

1801 

1838 

1869 

2052 

2087 

2121 

2262 

2290 

2318 

2358 

2401 

2441 

2484 

2527 

2567 

2610 

2653 

2690 

2850 

2887 

2918 

3063 

3094 

3229 

3263 

3297 

3429 

3466 

3497 

3632 

3666 

3839 

3876 

3907 

4078 

4109 

4271 

4302 

4500 

4540 

4571 

4602 

4792 

4826 

5060 

5093 

5132 

5166 


6829 

1330 

1452 

1568 

1769 

1803 

1840 

1871 

2054 

2089 

2123 

2264 

2292 

2320 

2360 

2403 

2446 

2486 

2529 

2572 

2612 

2655 

2692 

2852 

2889 

2920 

3065 

3096 

3231 

3265 

3299 

3431 

3468 

3499 

3634 

3668 

3841 

3878 

4043 

4080 

4111 

4273 

4304 

4505 

4542 

4573 

4604 

4794 

4831 

5062 

5098 

5137 

5168 


SEQ  1605 


DFF 
DFP 


1Cu7 


5170    5172    517A    5J24    532§   5328 


5330 


5332 

C7ZZ 


5337 

C7iL0 


5339 

CT7n 


5341 
«:775 


5343 

«;77A 


5345 


5347 


<;FQ  1606 


DF 


15V3 


-  ■■ —  

5170 

5172 

5349 

5351 

5383 

5385 

5420 

5422 

5451 

5453 

5621 

5623 

5655 

5657 

5686 

5688 

5954 

5956 

5982 

5984 

6010 

6012 

6038 

6040 

6066 

6068 

6094 

6096 

6122 

6124 

6150 

6152 

6187 

6189 

6218 

6220 

6246 

6248 

6278 

6281 

6310 

6312 

6341 

6344 

6373 

6375 

6404 

6407 

6436 

6438 

6467 

6470 

6499 

6501 

6530 

6533 

6753 

6755 

6963 

6965 

CONCAT    1213 

1215 

1332 

1424 

1454 

1456 

1571 

'573 

1771 

1773 

1805 

1807 

1842 

1844 

1873 

1875 

2059 

2061 

2091 

2096 

2125 

2127 

2266 

2268 

2294 

2296 

2322 

2327 

2365 

2367 

2405 

2410 

2448 

2450 

2491 

2493 

2531 

2536 

2574 

2576 

2617 

2619 

2657 

2659 

2694 

2696 

5174 

5324 

5326 

5328 

5330 

5332 

5337 

5339 

5341 

5343 

5345 

5347 

5353 

5355 

5360 

5362 

5364 

5366 

5368 

5370 

5372 

5374 

5379 

5381 

5387 

5389 

5391 

5393 

5398 

5400 

5402 

5404 

5406 

5408 

5413 

5415 

5424 

5426 

5428 

5430 

5432 

5434 

5436 

5441 

5443 

5445 

5447 

5449 

5455 

5457 

5595 

5597 

5599 

5601 

5606 

5608 

5610 

5612 

5614 

5616 

5625 

5627 

5629 

5631 

5636 

5638 

5640 

5642 

5644 

5646 

5648 

5653 

5659 

5661 

5663 

5665 

5667 

5669 

5674 
5822 

5676 

5678 

5680 

5682 

5684 

5690 

5811 

5813 

5815 

5818 

5820 

5941 

5946 

5948 

5950 

5952 

5958 

5960 

5962 

5964 

5966 

5968 

5970 

5972 

5974 

5976 

5978 

5980 

5986 

5988 

5990 

5992 

5994 

5996 

5998 

6000 

6002 

6004 

6006 

6008 

6014 

6016 

6018 

6020 

6022 

6024 

6026 

6028 

6030 

6032 

6034 

6036 

6042 

6044 

6046 

6048 

6050 

6052 

6054 

6056 

6058 

6060 

6062 

6064 

6070 

6072 

6074 

6076 

6078 

6080 

6082 

6084 

6086 

6088 

6090 

6092 

6098 

6100 

6102 

6104 

6106 

6108 

6110 

6112 

6114 

6116 

6118 

6120 

6126 

6128 

6130 

6132 

6134 

6136 

6138 

6140 

6142 

6144 

6146 

6148 

6154 

6156 

6158 

6160 

6162 

6164 

6166 

6168 

6173 

6181 

6183 

6185 

6194 

6196 

6198 

6200 

6202 

6204 

6206 

6208 

6210 

6212 

6214 

6216 

6222 

6224 

6226 

6228 

6230 

6232 

6234 

6236 

6238 

6240 

6?42 

6244 

6250 

6252 

6254 

6256 

6258 

6263 

6265 

6267 

6269 

6272 

6274 

6276 

6283 

6285 

6287 

6290 

6292 

6294 

6296 

6299 

6301 

6303 

6305 

6308 

6314 

6317 

6319 

6321 

^7->' 

6326 

6328 

6330 

6332 

6335 

6337 

6339 

6346 

6348 

6350 

6353 

1     J 

6357 

6359 

6362 

6364 

6366 

6368 

6371 

6377 

6380 

6382 

6384 

6j86 

6389 

6391 

6393 

6395 

6398 

6400 

6402 

6409 

6411 

6413 

6416 

6418 

6420 

6422 

6425 

6427 

6429 

6431 

6434 

6440 

6443 

6445 

6447 

6449 

6452 

6454 

6456 

6458 

6461 

6463 

6465 

6472 

6474 

6^76 

6479 

6481 

6483 

6485 

6488 

6490 

6492 

6494 

6497 

6503 

6506 

6508 

6510 

6512 

6515 

6517 

6519 

6521 

6524 

6526 

6528 

6535 

6537 

6539 

6542 

6544 

6546 

6548 

6551 

6741 

6743 

6745 

6747 

6841 

6843 

6845 

6847 

6852 

6854 

6859 

6861 

6863 

6865 

6867 

6961 

6967 

6969 

1217 

1220 

1222 

1224 

1227 

1229 

1231 

1234 

1236 

1238 

1328 

1330 

1426 

1428 

1431 

1433 

1435 

1438 

1440 

1442 

1445 

1447 

1449 

1452 

1459 

1461 

1463 

1466 

1468 

1470 

1473 

1475 

1477 

1564 

1566 

1568 

1575 

1578 

1580 

1582 

1749 

1751 

1753 

1758 

1760 

1762 

1764 

1769 

1775 

1780 

1782 

1784 

1786 

1788 

1790 

1792 

1797 

1799 

1801 

1803 

1809 

1814 

1816 

1818 

1820 

1822 

1824 

1826 

1831 

1833 

1838 

1840 

1846 

1848 

1850 

1852 

1854 

1859 

1861 

1863 

1865 

1867 

1869 

1871 

2026 

2028 

2030 

2035 

2037 

2039 

2044 

2046 

2048 

2050 

2052 

2054 

2063 

2065 

2067 

2069 

2071 

2077 

2079 

2081 

2083 

2085 

2087 

2089 

2098 

2100 

2102 

2104 

2106 

2108 

2110 

2112 

2117 

2119 

2121 

2123 

2129 

2131 

2133 

2248 

2250 

2252 

2254 

2256 

2258 

2260 

2262 

2264 

2270 

2272 

2274 

2276 

2278 

2280 

2282 

2284 

2286 

2288 

2290 

2292 

2298 

2300 

2302 

2304 

2306 

2308 

2310 

2312 

2314 

2316 

2318 

2320 

2329 

2331 

2336 

2338 

2340 

2:, J 

2347 

2349 

2351 

2356 

2358 

2360 

2369 

2Z7t^ 

2376 

2378 

2383 

2385 

2387 

2392 

2394 

2396 

2401 

2403 

2412 

2414 

2419 

2421 

2423 

2428 

2430 

2432 

2437 

2439 

2441 

2446 

2455 

2i^57 

2459 

2464 

2466 

2468 

2473 

2475 

2477 

2482 

2484 

2^86 

2495 

2500 

2502 

2504 

2509 

2511 

2513 

2518 

2520 

2522 

2527 

2529 

2538 

2540 

2545 

2547 

2549 

2554 

2556 

2558 

2563 

2565 

2567 

2572 

2581 

2583 

2585 

2590 

2592 

2594 

2599 

2601 

2603 

2608 

2610 

2612 

2621 

2626 

2628 

2630 

2635 

2637 

2639 

2644 

2646 

2648 

2653 

2655 

2664 

l^'kk 

2671 

2673 

2675 

2680 

2682 

2684 

2686 

2688 

2690 

2692 

2701 

2703 

2705 

2707 

2709 

2711 

2713 

2715 

2717 

2848 

2850 

''852 

SEQ  1606 


DF 
DF 


1594 


?§f^ 

2857 

2859 

2861 

->onc 

?§S5 

iaaa 

l§S 

m 

5ona 

2878 

501 P 

2880   2882   2887   2889 

501 A     501 /i     501  fl     5050 

..„...l 


<F0   Mn? 


L 


159A 


>857 
891 
925 
5067 
i098 
3233 
3267 
3301 
3A36 
3470 
3501 
3636 
3670 
38A3 
3880 
4045 
4082 
4235 
4275 
4306 
4507 
4544 
4575 
4606 
4799 
4833 
5064 
5100 
5139 
5170 
5349 
5383 
5420 
5451 
5621 
5655 
5686 
5954 
5982 
6010 
6038 
6066 
6094 
6122 
6150 
6187 
6218 
6246 
6278 
6310 
6341 
6373 
6404 


2859 

2861 

2863 

2893 

2895 

2897 

2927 

2929 

2931 

3069 

3071 

5073 

3103 

3105 

3107 

3235 

3237 

3239 

3269 

3274 

5276 

3303 

3305 

3307 

3438 

3440 

3442 

3472 

3474 

3476 

3503 

3609 

3611 

3638 

3643 

3645 

3672 

3674 

3679 

3848 

3850 

3852 

3882 

38S4 

3886 

4047 

4052 

4054 

4084 

4086 

4088 

4237 

4239 

5244 

4277 

4279 
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6337 

6339 

6359 

6362 

6364 

6366 

6368 

6371 

6391 

6393 

6395 

6398 

6400 

6402 

6422 

6425 

6427 

6429 

6431 

6434 

6454 

6456 

6458 

6461 

6463 

6465 

6485 

6488 

6490 

6492 

6494 

6497 

6517 

6519 

6521 

6524 

6526 

6528 

6548 

6551 

6741 

6743 

6745 

6747 

6859 

6861 

6863 

6865 

6867 

6961 

277 

278 

279 

337 

342 

350 

444 

446 

447 

465 

467 

468 

582 

584 

585 

587 

588 

657 

907 

921 

937 

939 

944 

972 

1295 

1368 

1370 

1376 

1387 

1512 

1710 

1712 

1713 

1719 

1721 

1725 

2192 

2193 

2763 

2765 

2777 

2778 

3176 

3177 

3354 

3356 

3368 

3369 

3813 

3816 

3952 

3954 

3966 

3967 

4365 

4371 

4373 

4377 

4378 

4441 

4893 

4895 

4907 

4908 

5008 

5009 

5018 

5019 

5020 

5021 

5022 

5023 

5297 

5301 

5500 

5502 

5514 

5515 

5868 

5874 

5880 

5901 

5903 

5905 

6659 

6664 

6673 

6675 

6677 

6679 

6907 

6913 

6919 

7006 

7019 

7025 

7053 

7057 

7059 

7061 

7063 

7065 

SEQ  1609 
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D 


r" 
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7094 


7096 
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7195 
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UZl        llVi.      7241 


ecn    IXin 
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MFLD 


7066 

7094 

7096 

7098 

7137 

7143 

7191 

7195 

7210 

7222 

7226 

7241 

1213# 

1213 

1215* 

1215 

1217* 

1217 

1220* 

1220 

1222 

1224* 

1224 

1227* 

1227 

1229# 

1229 

1231* 

1231 

1234* 

1234 

1236* 

1236 

1238* 

1238 

1328* 

1328 

1330* 

1330 

1332# 

1332 

1424* 

1424 

1426* 

1426 

1428* 

1428 

1431* 

1431 

1433* 

1433 

1435* 

1435 

K38# 

1438 

1440* 

1440 

1442* 

1442 

1445* 

1445 

1447* 

1447 

1449* 

1449 

1452* 

1452 

K54# 

1454 

1456* 

1456 

1459* 

1459 

1461* 

1461 

1463* 

1463 

1466* 

1466 

1468* 

1468 

K70# 

1470 

1473* 

1473 

1475* 

1475 

1477* 

1U77 

1564* 

1564 
1580 

1582* 

1566 

1568* 

1568 

1571# 

1571 

1573* 

1573 

1575* 

1575 

1578* 

1578 

1580* 

1582 

1749* 

1749 

1751# 

1751 

1753* 

1753 

1758* 

1758 

1760* 

1760 

1762* 

1762 
1782 

1764* 

1764 

1769* 

1769 

1771# 

1771 

1773* 

1773 

1775* 

1775 

1780* 

1780 

1782* 

1784* 

1784 

1786* 

1786 

1788# 

1788 

1790* 

1790 

1792* 

1792 

1797* 

1797 

1799* 

1799 

1801* 

1801 

1303* 

1803 

1805# 

1805 

1807* 

1807 

1809* 

1809 

1814* 

1814 

1816* 

;i^^ 

1818* 

1818 

1820* 

1820 

1822* 

1822 

1824* 

1824 

1826* 

1826 

1831* 

1831 

1833* 

1838* 

1838 

1840* 

1840 

18A2# 

1842 

1844* 

1844 

1846* 

1846 

1848* 

1848 

1850* 

1850 

1852* 

1852 

1854* 

1854 

1859* 

1859 

1861* 

1861 

1863* 

1863 

1865* 

1865 

1867* 

1867 

1869* 

1869 

1871* 

1871 

1873* 

1873 

1875* 

1875 

2026* 

2026 

2028* 

2028 

2030* 

2030 

2035* 

2035 

2037* 

2037 

2039* 

2039 

2044* 

2044 

2046* 

2046 

2048* 

2048 

2050* 

2050 

2052* 

2052 

2054* 

2054 

2059* 

2059 

2061* 

2061 

2063* 

2063 

2065* 

2065 

2067* 

2067 

2069* 

2069 

2071* 

2071 

2077* 

2077 

2079* 

2079 

2081* 

2081 

2083* 

2083 

2085* 

2085 

2087* 

2087 

2089* 

2089 

2091* 

2091 

2096* 

2096 

2098* 

2098 

2100* 

2100 

2102* 

2102 

2104* 

2104 

2106* 

2106 

2108* 

2108 
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2112* 

2112 

2117* 

2117 

2119* 

2119 

2121* 

2121 

2123* 

2123 

2125* 

2125 

2127* 

2127 

2129* 

2129 

2131* 

2131 

2133* 

2133 

22^60 

2248 

2250* 

2250 

2252* 

2252 

2254* 

2254 

2256* 

2256 

2258* 

2258 

2260* 

2260 

2262M 

2262 

2264* 
2278* 

2264 

2266« 

2266 

2268* 

2268 

2270* 

2270 

2272M 

2272 

2274* 

2274 

2276* 

2276 

2278 

2280* 

2280 

2282* 

2282 

2284* 

2284 

22B6M 

22B6 

2288* 

2288 

2290* 

2290 

2292* 

2292 

229A# 

2294 

2296* 

2296 

2298* 

2298 

2300* 

2300 

2302* 

2302 

2304* 

2304 

2306* 

2306 

2308* 

2308 

2310* 

2310 

2312* 

2312 

2314* 

2314 

2316* 

2316 

2318* 

2318 

2320* 

2320 

2322# 

2322 

2327* 

2327 

2329* 

2329 

2331* 

2331 

2336* 

2336 

2338* 

2338 

2340* 

2340 

23A2# 

2342 

2347* 

2347 

2349* 

2349 

2351* 

2351 

2356* 

2356 

2358* 

2358 

2360* 

2360 

2365* 

2365 

2367* 

2367 

2369* 

2369 

2l7i,M 

2374 

2376* 

2376 

2378* 

2378 

2383* 

2383 

2385* 

2385 

2387* 

2387 

2392* 

2392 

259^M 

2394 

2396* 

2396 

2401* 

2401 

2403* 

2403 

2A05* 

2405 

2410* 

2410 

2412* 

2412 

2tiM*M 

2414 

2419* 

2419 

2421* 

2421 

2423* 

2423 

2A28* 

^428 

2430* 

2430 

2432* 

2432 

2knH 

2437 

2439* 

2439 

2441* 

2441 

2446* 

2446 

2448* 

i448 

2450* 

2450 

2455* 

2455 

2k^7tl 

2457 

2459* 

2459 

2464* 

2464 

2466* 

2466 

2468* 

2468 

2473* 

2473 

2475* 

2475 

2i*77M 

2^77 

2482* 

2482 

2484* 

2484 

2486* 

2486 

2491* 

2491 

2493* 

2493 

2495* 

2495 

2500* 

2500 

2502* 

2502 

2504* 

2504 

2509* 

2509 

2511* 

2511 

2513* 

2513 

2518* 

2518 

2520* 

2520 

2522* 

2527* 

2527 

2529* 

2529 

2531* 

2531 

2536* 

2536 

2538* 

2538 

2540* 

2540 

2545* 

2545 

2547* 

2547 

2549* 

2549 

2554* 

2554 

2556* 

2556 

2558* 

255  1 

2563* 

2563 

2565* 

2565 

2567* 

2567 

2572* 

2572 

2574* 

2574 

2576* 

2576 

2581* 

258 

2583* 

2583 

2585* 

2585 

2590* 

2590 

2592* 

2592 

2594* 

2594 

2599* 

2599 

2601* 

260 

2603* 

2603 

2608* 

2608 

2610* 

2610 

2612* 

2612 

2617* 

2617 

2619* 

2619 

2621* 

2621 

2626* 

2626 

2628* 

2628 

26^0* 

2630 

2635* 

2635 

2637* 

2637 

2639* 

2639 

2644* 

2644 

2t'*b» 

2646 

2648* 

2648 

2633* 

2653 

2655* 

2655 

2657* 

2657 

2659* 

2659 

2664* 

2664 

2666M 

2666 

2671* 

2671 

2673* 

2673 

2675* 

2675 

2680* 

2680 

2682* 

2682 

2684* 

2684 

2686* 

2686 

2688* 

2688 

2690* 

2690 

2692* 

2692 

2694* 

2694 

2696* 

2696 

2701* 

2701 

2703* 

2703 

2705* 

2705 

2707* 

2707 

2709* 

2709 

2711* 

2711 

2713* 

2713 

2715* 

2715 

27170 

2717 

2848* 

2848 

2850* 

2850 

2852* 

2852 

2857* 

2857 

2859* 

2859 

2861* 

2861 

2863* 

2863 

2865* 

2865 

2867* 

2867 

2872* 

2872 

2874* 

2874 

2876* 

2876 

2878* 

2878 

2880* 

2880 

2882* 

2882 

2887* 

2887 

2889* 

2889 

2891* 

2891 

2893* 

2893 

2895* 

2895 

2897* 

2897 

2899* 

2899 

2904* 

2904 

2906* 

2906 

2908* 

2908 

2910* 

2910 

2912* 

2912 

2914* 

2914 

2916* 

2916 

2918* 

2913 

2920* 

2920 

2925* 

2925 

2927* 

2927 

2929* 

2929 

2931* 

2931 

2933* 

2933 

2935* 

2935 

2937* 

2937 

2939* 

2939 

2941* 

2941 

3054* 

3054 

3056* 

3056 

3058* 

3058 

3063* 

3063 

3065* 

3065 

SEQ  1610 
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3073*       3073 


3075*       3075 


3077*       3077 


308P*       3082 


3067* 

3067 

3069* 

3069 

3071* 

3071 

3073* 

3073 

3075* 

30/5 

3077* 

3077 

3082* 

3082 

3084* 

3084 

;086* 
:i03* 

3086 

3088* 

3088 

;090* 

;090 

3092* 

3092 

3094* 

3094 

::096* 
;:i13* 

3096 

SEQ  1611 
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3098 

3103 

3105* 

3105 

:107* 

M07 

3109* 

3109 

3111* 

3111 

;:113 

3115* 

3115 

3117* 

3117 

3119* 

3119 

:225* 

3225 

3227* 

3227 

3229* 

3229 

:231* 

:231 

3233* 

3233 

3235* 

3235 

3237* 

3237 

:239* 

;:239 

::244* 

3244 

3246* 

!248* 

:248 

3250* 

3250 

3252* 

3252 

3254* 

•254 

:259* 

:261* 

3261 

3263* 

3263 

:265* 

;265 

1^67* 

3267 

32^9* 
3286* 

3269 

3274* 

;274 

3276* 

3276 

J278* 

3280* 

3280 

;282* 

;282 

3284* 

3284 

3286 

3288* 

288 

:290* 

3290 

:295* 

3295 

3297* 

3297 

299* 

:299 

301* 

3301 

3303* 

3303 

3305* 

305 

3307* 

:309* 

3309 

3311* 

3311 

:417* 

;417 

i419* 

3419 

:421* 

3421 

3423* 

3423 

3425* 

3425 

:427* 

3427 

3429* 

3429 

:431* 

3431 

'436* 

3436 

;438* 

3438 

3440* 

3440 

3442* 

3442 

:444* 

3444 

3446* 

3446 

:451* 

3451 

3453* 

3453 

3455* 

3455 

3457* 

3457 

J459* 

3459 

3461* 

3461 

3466* 

3466 

:468* 

3468 

3470* 

3470 

;!472* 

3472 

3474* 

3474 

;476* 

3476 

;478* 

3478 

3480* 

3480 

:482* 

3482 

3487* 

3487 

:!489* 

3489 

3491* 

3491 

:i493* 

3493 

:495* 

3495 

3497* 

3497 

:499* 

3499 

3501* 

3501 

;:503* 

3503 

3609* 

:609 

::611* 

3611 

;613* 

3613 

3615* 

3615 

:617* 

3617 

3619* 

3619 

3621* 

3621 

3623* 

3623 

j;628* 

3628 

;630* 

3630 

3632* 

3632 

:634* 

3634 

3636* 

3636 

;638* 

3638 

3643* 

3643 

;:645* 

3645 

3647* 

3647 

3649* 

3649 

:651* 

3651 

3653* 

3653 

;658* 

3658 

3660* 

3660 

1662* 

3662 

3664* 

3664 

3666* 

3666 

:  668* 

3668 

3670* 

3670 

;672* 

3672 

3674* 

3674 

:679* 

3679 

3681* 

3681 

3683* 

3683 

3685* 

:i685 

3687* 

3687 

;i689* 

3689 

3691* 

3691 

:693* 

3693 

3695* 

3695 

3839* 

3839 

3841* 

;:841 

3843* 

3M 

;i848* 

3848 

3850* 

3850 

3852* 

3852 

3857* 

3857 

3859* 

3859 

3861* 

:;86i 

3863* 

3863 

3865* 

3865 

3870* 

3870 

3872* 

3872 

3874* 

3874 

3876* 

3876 

3878* 

:878 

3880* 

3880 

3882* 

3882 

3884* 

3884 

mi 

3886 

3891* 

3891 

3893* 

3893 

3895* 

3895 

1 

3897* 

3897 

3899* 

3899 

3901* 

3901 

3903 

3905* 

3905 

3907* 

3907 

4043* 

4043 

' 

4045* 

4045 

4047* 

4047 

4052* 

4052 

4054* 

4054 

4056* 

4056 

4058* 

4058 

4063* 

4063 

4065* 

4065 

4067* 

4067 

4069* 

4069 

i*07^M 

4074 

4076* 

4076 

4078* 

4078 

4080* 

4080 

t 

4082* 

4082 

4084* 

4084 

4086* 

4086 

4088* 

4088 

4090* 

4090 

4095* 
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4097* 

4097 

j 

4099* 

4099 

4101* 

4101 

4103* 

4103 

4105* 

4105 

4107* 

4107 

4109* 

4109 

4111* 

4111 

4235* 

4235 

4237* 

4237 

4239* 

4239 

4244* 

4244 

4246* 

4246 
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4262* 
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4264* 
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1 
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1 
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i 
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4472 

4474* 

4474 

4476* 

4476 

4482* 

4482 

4484* 

4484 

t 

4486* 

'486 

4488* 

4488 
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4505 

i 

4507* 

4507 

4509* 

4509 

4511* 

4511 

4513* 

4513 

4518* 

4518 

4520* 

4520 

4522* 

4522 

! 

4524* 

4524 

4526* 

4526 

4531* 

4531 

4533* 

4533 

4535* 

4535 

4540* 

4540 

4542* 

4542 

4544* 

4544 

4546* 

4546 

4548* 

4548 

4550* 

4550 

4552* 

4552 

4554* 

4554 

4556* 

4556 

4558* 

4558 

4560* 

4560 

4562* 

4562 

4564* 

4564 

4569* 

4569 

4571* 

4571 

4573* 

4573 

4575* 

4575 

4577* 

4577 

4579* 

4579 

4581* 

4581 

4583* 
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4782 
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4784 
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4790* 

4790 

4792* 

4792 

4794* 

4794 

4799* 

4799 

4801* 

4801 

4803* 

4803 

4805* 

4805 

4810* 

4810 

4812* 

4812 

4814* 

4814 

4816* 

4816 

4818* 

4818 

4820* 

4820 

4822* 

4822 

4824* 

4824 

4826* 

4826 

4831* 

4831 

4833* 

4833 

4835* 

4835 

4837* 

4837 

4839* 

4839 

4841* 

4841 

4843* 

4843 

4845* 

4845 

4847* 

4847 

5048* 

5048 

5050* 

5050 

5052* 

5052 

5058* 

5058 

5060* 

5060 

5062* 

5062 

5064* 

5064 

5066* 

5066 

5068* 

5068 

5070* 

5070 

5072* 

5072 

5079* 

5079 

5081* 

5081 

1 

5083* 

5083 

5085* 

5085 

5087* 

5087 

5089* 

5089 

5091* 
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5102* 

5102 

5104* 

5104 

5110* 

5110 

5112* 

5112 

5114* 

5114 

5116* 

5116 

1 

5118* 

5118 

5124* 

5124 

5126* 

5126 

5128* 

5128 

5130* 

5130 

5132* 

5132 

5137* 

5137 

1 

1 

5139* 

5139 

5141* 

5141 

5143* 

5143 

5145* 

5145 

5147* 

5147 

5149* 

5149 

5151* 

5151 

i 

5153* 

5153 

5158* 

5158 

5160* 

5160 

5162* 

5162 

5164* 

5164 
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5168* 
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i 
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5170 
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5332* 

5332 

5337* 

5337 

5339* 

5339 

5341* 

5341 

5343* 

5349# 

5349 

5351* 

5351 

5353* 

5353 

5355* 

5355 

5360* 
5374* 

5366# 

5366 

5368* 

5368 
5385 

5370* 

5370 

5372* 

5372 

5383# 

5383 

5385* 

5387* 

5387 

5389* 

5389 

5391* 

5400* 

5400 

5402* 

5404* 

5404 

5406* 

5^.6 

5408* 

5420* 

5420 

5422* 

5422 

5424* 

5424 

5426* 

5428* 

5434# 

5434 

5436* 
5453* 

5436 

5441* 

5441 

5443* 

5443 

5445* 

5451* 

5451 

5453 

5455* 

5455 

5457* 

5457 

5595* 

5601* 

5601 

5606* 
5623* 

5608* 

5608 

5610* 

5610 

5612* 

5621* 

5621 

5623 

5625* 

5625 

5627* 

5627 

5629* 

5638* 

5638 

5640* 

5640 

5642* 

5642 

5644* 

5644 

5646* 

5655* 

5655 

5657* 

5657 

5659* 

5659 

5661* 

5661 

5663* 

5669* 

5669 

5674* 

5674 

5676* 

5676 

5678* 

5678 

5680* 
5813* 

5686* 

5686 

5688* 

5688 

5690* 

5690 

5811* 

5811 

5820* 

5820 

5822* 

5822 

5941* 

5941 

5946* 

5946 

5948* 

5954* 

5954 

5956* 

5956 

5958* 

5958 

5960* 

5960 

5962* 

5968* 

5968 

5970* 

5970 

5972* 

5972 

5974* 

5974 

5976* 

5982* 

5982 

5984* 

5984 

5986* 

5986 

5988* 

5988 

5990* 

5996* 

5996 

5998* 

5998 

6000* 

6000 

6002* 

6002 

6004* 

6010* 

6010 

6012* 

6012 

6014* 

6014 

6016* 

6016 

6018* 

6024* 

6024 

6026* 

6026 

6028* 

6028 

6030* 

6030 

6032* 

6038* 

6038 

6040* 

6040 

6042* 

6042 

6044* 

6044 

6046* 

6052* 

6052 

6054* 

6054 

6056* 

6056 

6058* 

6058 

6060* 
6074* 

6066* 

6066 

6068* 

6068 

6070* 

6070 

6072* 

6072 

6080* 

6080 

6082* 

6082 

6084* 

6084 

6086* 

6086 

6088* 

6094* 

6094 

6096* 

6096 

6098* 

6098 

6100* 

6100 

6102* 

6108* 

6108 

6110* 

6110 

6112* 

6112 

6114* 

6114 

6116* 

6122* 

6122 

6124* 

6124 

6126* 

6126 

6128* 

6128 

6130* 

6136* 

6136 

6138* 

6138 

6140* 

6140 

6142* 

6142 

6144* 

6150* 

6150 

6152* 

6152 

6154* 

6154 

6156* 

6156 

6158* 

6164* 

6164 

6166* 

6166 

6168* 

6168 

6173* 

6173 

6181* 

6187* 

6187 

6189* 

6189 

6194* 

6194 

6196* 

6196 

6198* 

6204* 

6204 

6206* 

6206 

6208* 

6208 

6210* 

6210 

6212* 

6218* 

o218 

6220* 

6220 

6222* 

6222 

6224* 

6224 

6226* 

6232* 

6232 

6234* 

6234 

6236* 

S236 

6238* 

6238 

6240* 

6246* 

6246 

6248* 

6248 

6250* 

o250 

6252* 

6252 

6254* 

6263* 

6263 

6265* 

6265 

6267* 

0267 

6269* 

6269 

6272* 

6278* 

6278 

6281* 

6281 

6283* 

6283 

6285* 

6285 

6287* 

6294* 

6294 

6296* 

6296 

6299* 

6299 

6301* 

6301 

6303* 

6310* 

6310 

6312* 

6312 

6314* 

6314 

6317* 

6317 

6319* 

6326* 

6326 

6328* 

6328 

6330* 

6330 

6332* 

6332 

6335* 

6341* 

6341 

6344* 

6344 

6346* 

6346 

6348* 

6348 

6350* 

6357* 

6357 

6359* 

6359 

6362* 

6362 

6364* 

6364 

6366* 

6373* 

6373 

6375* 

6375 

6377* 

6377 

6380* 

6380 

6382* 

6389* 

6389 

6391* 

6391 

6393* 

6393 

6395* 

6395 

6398* 

6404* 

6404 

6407* 

6407 

6409* 

6409 

6411* 

6411 

6413* 

6420* 

6420 

6422* 

6422 

6425* 

6425 

6427* 

6427 

6429* 

6436* 

6436 

6438* 

6438 

6440* 

6440 

6443* 

6443 

6445* 

6452* 

6452 

6454* 

6454 

6456* 

6456 

6458* 

6458 

6461* 

6467* 

6467 

6470* 

6470 

6472* 

6472 

6474* 

6474 

6476* 

6483* 

6483 

6485* 

6485 

6488* 

6488 

6490* 

6490 

6492* 

6499* 

6499 

6501* 

6501 

6503* 

6503 

6506* 

6506 

6508* 

6515* 

— . 

6515 

6517* 

6517 

6519* 

6519 

6521* 

6521 

6524* 

5343 

5345* 

5345 

5347* 

5347 

5360 
5374 

5362* 
5379* 

5362 

5364* 

5364 

5379 

5381* 

5381 

5391 

5393* 

5393 

5398* 

5398 

5408 

5413* 

5413 

5415* 

5415 

5428 

5430* 

5430 

5432* 

5432 

5445 

5447* 

5447 

5449* 

5449 

5595 

5597* 

5597 

5599* 

5599 

5612 

5614* 

5614 

5616* 

5616 

5629 

5631* 

5631 

5636* 

5636 

5646 

5648* 

5648 

5653* 

5653 

5663 

5665* 

5665 

5667* 

5667 

5680 

5682* 

5682 

5684* 

5684 

5813 

5815* 

5815 

5818* 

5818 

5948 

5950* 

5950 

5952* 

5952 

5962 

5964* 
5978* 

5964 

5966* 

5966 

5976 

5978 

5980* 

5980 

5990 

5992* 

5992 

5994* 

5994 

6004 

6006* 

6006 

6008* 

6008 

6018 

6020* 

6020 

6022* 

6022 

6032 

6034* 

6034 

6036* 

6036 

6046 

6048* 

6048 

6050* 

6050 

6060 

6062* 

6062 

6064* 

6064 

6074 

6076* 

6076 

6078* 

6078 

6088 

6090* 

6090 

6092* 

6092 

6102 

6104* 

6104 

6106* 

6106 

6116 

6118* 

6118 

6120* 

6120 

6130 

6132* 

6132 

6134* 

6134 

6144 

6146* 

6146 

6148* 

6148 

6158 

6160* 

6160 

6162* 

6162 

6181 

6183* 

6183 

6185* 

6185 

6198 

6200* 

6200 

6202* 

6202 

6212 

6214* 

6214 

6216* 

6216 

6226 

6228* 

6228 

6230* 

6230 

6240 

6242* 

6242 

6244* 

6244 

6254 

6256* 

6256 

6258* 

6258 

6272 

6274* 

6274 

6276* 

6276 

6287 

6290* 

6290 

6292* 

6292 

6303 

6305* 

6305 

6308* 

6308 

6319 

6321* 

6321 

6323* 

6323 

6335 

6337* 

6337 

6339* 

6339 

6350 

6353* 

6353 

6355* 

6355 

6366 

6368* 

6368 

6371* 

6371 

6382 

6384* 

6384 

6386* 

6386 

6398 

6400* 

6400 

6402* 

6402 

6413 

6416* 

6416 

6418* 

6418 

6429 

6431* 

6431 

6434* 

6434 

6445 

6447* 

6447 

6449* 

6449 

6461 

6463* 

6463 

6465* 

6465 

6476 

6479* 

647^, 

6481* 

6481 

6492 

6494* 

6494 

6497* 

6497 

6508 

6510* 

6510 

6512* 

6512 

6524 

6526* 

6526 

6528* 

6528 

SEO  1612 


bOO 


MUORD 


6530# 

65A6* 

6753# 

6854# 

6963* 

1213 

1332 

USA 

1571 

1771 

1805 

18A2 

1873 

2059 

2091 

2125 

2266 

2294 

2322 

2365 

2405 

2448 

2491 

2531 

2574 

2617 

2657 

2694 

2857 

2891 

2925 

3067 

3098 

3233 

3267 

3301 

3436 

3470 

3501 

3636 

3670 

3843 

3880 

4045 

4082 

4235 

4275 

4306 

4507 

4544 

4575 

4606 

4799 


6530 
6546 
6753 
6854 
6963 
1215 
1424 
1456 
1573 
1773 
1807 
1844 
1875 
2061 
2096 
2127 
2268 
2296 
2327 
2367 
2410 
2450 
2493 
2536 
2576 
2619 
2659 
2696 
2859 
2893 
2927 
3069 
3103 
<235 
3269 
3303 
3438 
3472 
3503 
3638 
3672 
3848 
3882 
4047 
4084 
4237 
4277 
4308 
4509 
4546 
4577 
4766 
4801 


6533* 

6548* 

6755* 

6859* 

6965* 

1217 

1426 

1459 

1575 

1775 

1809 

1846 

2026 

2063 

2098 

2129 

2270 

2298 

2329 

2369 

2412 

2455 

2495 

2538 

2581 

2621 

2664 

2701 

2861 

2895 

2929 

3071 

3105 

3237 

3274 

3305 

3440 

3474 

3609 

3643 

3674 

3850 

3884 

4052 

4086 

4239 

4279 

4472 

4511 

4548 

4579 

4768 

4803 


6533 
6548 
6755 
6859 
6965 
1220 
1428 
1461 
1578 
1780 
1814 
1848 
2028 
2065 
2100 
2131 
2272 
2300 
2331 
2374 
2414 
2457 
2500 
2540 
2583 
2626 
2666 
2703 
2863 
2897 
2931 
3073 
3107 
3239 
3276 
3307 
3442 
3476 
3611 
3645 
3679 
3852 
3886 
4054 
4088 
4244 
4281 
4474 
4513 
4550 
4581 
4770 
4805 


6535* 

6551* 

6841* 

6861* 

6967* 

1222 

1431 

1463 

1580 

1782 

1816 

1850 

2030 

2067 

2102 

2133 

2274 

2302 

2336 

2376 

2419 

2459 

2502 

2545 

2585 

2628 

2671 

2705 

2865 

2899 

2933 

3075 

3109 

3244 

3278 

3309 

3444 

3478 

3613 

3647 

3681 

3857 

3891 

4056 

4090 

4246 

4283 

4476 

4518 

4552 

4583 

4776 

4810 


6535 
6551 
6841 
6861 
6967 
1224 
1433 
1466 
1582 
1784 
1818 
1852 
2035 
2069 
2104 
2248 
2276 
2304 
2338 
2378 
2421 
2464 
2504 
2547 
2590 
2630 
2673 
2707 
2867 
2904 
2935 
3077 
3111 
3246 
3280 
3311 
3446 
3480 
3615 
3649 
3683 
3859 
3893 
4058 
4095 
4248 
4285 
4482 
4520 
4554 
4585 
4778 
4812 


6537* 

6741* 

6843* 

6863* 

6969* 

1227 

1435 

1468 

1749 

1786 

1820 

1854 

2037 

2071 

2106 

2250 

2278 

2306 

2340 

2383 

2423 

2466 

2509 

2549 

2592 

2635 

2675 

2709 

2872 

2906 

2937 

3082 

3113 

3248 

3282 

3417 

3451 

3482 

3617 

3651 

3685 

3861 

3895 

4063 

4097 

4253 

4287 

4484 

4522 

4556 

4590 

4780 

4814 


6537 
6741 
6843 
6863 
6969 
1229 
1438 
1470 
1751 
1788 
1822 
1859 
2039 
2077 
2108 
2252 
2280 
2308 
2342 
2385 
2428 
2468 
2511 
2554 
2594 
2637 
2680 
2711 
2874 
2908 
2939 
3084 
3115 
3250 
3284 
3419 
3453 
3487 
3619 
3653 
3687 
3863 
3897 
4065 
4099 
4255 
4292 
4486 
4524 
4558 
4592 
4782 
4816 


6539* 

6539 

6542* 

6542 

6544* 

6544 

6743* 

6743 

6745* 

6745 

6747* 

6747 

6845* 

6845 

6847* 

6847 

6852* 

6852 

6865* 

6865 

6867* 

6867 

6961* 

6961 

1231 

1234 

1236 

1238 

1328 

1330 

1440 

1442 

1445 

1447 

1449 

1452 

1473 

1475 

1477 

1564 

1566 

1568 

1753 

1758 

1760 

1762 

1764 

1769 

1790 

1792 

1797 

1799 

1801 

1803 

1824 

1826 

1831 

1833 

1838 

1840 

1861 

1863 

1865 

1867 

1869 

1871 

2044 

2046 

2048 

2050 

2052 

2054 

2079 

2081 

2083 

2085 

2087 

2089 

2110 

2112 

2117 

2119 

2121 

2123 

2254 

2256 

2258 

2260 

2262 

2264 

2282 

2284 

2286 

2288 

2290 

2292 

2310 

2312 

2314 

2316 

2318 

2320 

2347 

2349 

2351 

2356 

2358 

2360 

2387 

2392 

2394 

2396 

2401 

2403 

2430 

2432 

2437 

2439 

2441 

2446 

2473 

2475 

2477 

2482 

2484 

2486 

2513 

2518 

2520 

2522 

2527 

2529 

2556 

2558 

2563 

2565 

2567 

2572 

2599 

2601 

2603 

2608 

2610 

2612 

2639 

2644 

2646 

2648 

2653 

2655 

2682 

2684 

2686 

2688 

2690 

2692 

2713 

2715 

2717 

2848 

2850 

2852 

2876 

2878 

2880 

2882 

2887 

2889 

2910 

2912 

2914 

2916 

2918 

2920 

2941 

3054 

3056 

3058 

3063 

3065 

3086 

3088 

3090 

3092 

3094 

3096 

3117 

3119 

3225 

3227 

3229 

3231 

3252 

3254 

3259 

3261 

3263 

3265 

3286 

3288 

3290 

3295 

3297 

3299 

3421 

3423 

3425 

3427 

3429 

3431 

3455 

3457 

3459 

3461 

3466 

3468 

3489 

3491 

3493 

3495 

349^ 

3499 

3621 

3623 

3628 

3630 

363 

3634 

3658 

3660 

3662 

3664 

366b 

3668 

3689 

3691 

3693 

3695 

3839 

3841 

3865 

3870 

3872 

3874 

3876 

3878 

3899 

3901 

3903 

3905 

3907 

4043 

4067 

4069 

4074 

4076 

4078 

4080 

4101 

4103 

4105 

4107 

4109 

4111 

4257 

4262 

4264 

4266 

4271 

4273 

4294 

4296 

4298 

4300 

4302 

4S04 

4488 

4494 

4496 

4498 

4500 

4505 

4526 

4531 

4533 

4535 

4540 

4542 

4560 

4562 

4564 

4569 

4571 

4573 

4594 

4596 

4598 

4600 

4602 

4604 

4784 

4786 

4788 

4790 

4792 

4794 

4818 

4820 

4822 

4824 

4826 

4831 

SEQ  1613 


DFP^ 
DFPl 


601 


4833 
5064 


4835 
5066 


4837 
5068 


4839 
5070 


4841 
5072 


4843 
5079 

C11/. 


4845 
5081 


4847 
5083 


5048 
5085 


5050 
5087 


5052 
5089 


5058 
5091 


5060 
5093 


5062 
5098 


SEQ  1614 


DFP 
DFP 


'1 


601 


PNT3 

PNT4 

PNTDEC 

PNTHW 

PNTMSG 


PNTOCS 

PUT 

RGET 

RPUT 

RTN 


4833 
5064 
5100 
5139 
5170 
5349 
5383 
5420 
5451 
5621 
5655 
5686 
5954 
5982 
6010 
6038 
6066 
6094 
6122 
6150 
6187 
6218 
6246 
6278 
6310 
6341 
6373 
6404 
6436 
6467 
6499 
6530 
6753 
6963 
5031 
497 
745 
2242 
500 
991 
2238 
3603 
4460 
4755 
5587 
7093 
7201 
5805 
670 
7178 
7170 
132 
996 


4835 
5066 
5102 
5141 
5172 
5351 
5385 
5422 
5453 
5623 
5657 
5688 
5956 
5984 
6012 
6040 
6068 
6096 
6124 
6152 
6189 
6220 
6248 
6281 
6312 
6344 
6375 
6407 
6438 
6470 
6501 
6533 
6755 
=965 
5040 
617 
994 
5928 
502 
995 
2240 
3829 
4462 
4757 
5588 
7123 
7203 
7176 
919 


295 
1161 


4837 

5068 

5104 

5143 

5174 

5353 

5387 

5424 

5455 

5625 

5659 

5690 

5958 

5986 

6014 

6042 

6070 

6098 

6126 

6154 

6194 

6222 

6250 

6283 

6314 

6346 

6377 

6409 

6440 

6472 

6503 

6535 

6841 

6967 

734 

5934 
620 
1738 
2243 
3830 
4464 
4759 
5589 
7129 
7205 

6646 


383 

1197 


4839 

5070 

5110 

5145 

5324 

5355 

5389 

5426 

5457 

5627 

5661 

5811 

5960 

5988 

6016 

6044 

6072 

6100 

6128 

6156 

6196 

6224 

6252 

6285 

6317 

6348 

6380 

6411 

6443 

6474 

6506 

6537 

6843 

6969 

738 


622 
1739 
2839 
3831 
4466 
5007 
5803 
7131 
7206 


4841 

5072 

5112 

5147 

5326 

5360 

5391 

5428 

5595 

5629 

5663 

5813 

5962 

5990 

6018 

6046 

6074 

6102 

6130 

6158 

6198 

6226 

6254 

6287 

6319 

6350 

6382 

6413 

6445 

6476 

6508 

6539 

6845 


741 


722 
1740 
2840 
3832 
4733 
5024 
5806 
7133 
7221 


7170    7171 


485 
1279 


503 
1315 


4843 

5079 

5114 

5149 

5328 

5362 

5393 

5430 

5597 

5631 

5665 

5815 

5964 

5992 

6020 

6048 

6076 

6104 

6132 

6160 

6200 

6228 

6256 

6290 

6321 

6353 

6384 

6416 

6447 

6479 

6510 

6542 

6847 


983 


732 
1741 
2841 
3833 
4735 
5026 
5914 
7135 
7231 


605 
1371 


4845 

4847 
5083 

5048 

5050 

5052 

5081 

5085 

5087 

5089 

5  16 

5  18 

5124 

5126 

5128 

5  51 

5158 

51§0 

5162 

5330 

5:32 

5337 

5339 

53^ 

5364 

5:66 

5368 

5370 

5372 

\i^1 

5402 

5404 

5406 
5443 

5432 

5436 

5441 

5599 

5601 

5606 

5608 

5610 

5636 

5638 

5640 

5642 

56^^ 

5667 

5669 

5674 

5676 

5678 

5818 

582) 

5822 

59^ 

5946 

5966 

596) 

5970 

5972 

5974 

5994 

5996 

5998 

6000 

6002 

6022 

6024 

6026 

6028 

6030 

6050 

6052 

6054 

6056 

6058 

6078 

6080 

6082 

6084 

6086 

6106 

6108 

6110 

6112 

6114 

6134 

6136 

6138 

6140 

6142 

6162 

6164 

6166 

6168 

6173 

6202 

6204 

6206 

6208 

6210 

6230 

6232 

6234 

6236 

6238 

6258 

6263 

6265 

6267 

$i6? 

6292 

6294 

6296 

6299 

6301 

6323 

6326 

6328 

6330 

6332 

6355 

6357 

6359 

6362 

6364 

6386 

6389 

6391 

6393 

6395 

6418 

6420 

6422 

6425 

6427 

6449 

6452 

6454 

6^56 

6458 

6481 

6483 

6485 

6488 

6^90 

6512 

6515 

6517 

6519 

6521 

6544 

6546 

6548 

6551 

6741 

6852 

6854 

6859 

6861 

6863 

987 


736 
1742 
2842 
4034 
4736 
5032 
5916 
7139 
7232 


623 

1405 


990 


739 
1743 
3047 
4035 
4741 
5035 
5924 
7141 
7234 


712 
1515 


5921 


742 
2013 
3048 
4037 
4743 
5041 
5926 
7153 
7236 


728 
1549 


735 
1633 


747 
1659 


5058 

5091 

5130 

5164 

5343 

5374 

5408 

5^45 

5612 

5646 

5680 

5948 

5976 

6004 

6032 

6060 

6088 

6116 

6144 

6181 

6212 

6240 

6272 

6303 

6335 

6366 

6398 

6429 

6461 

6492 

6524 

6743 

6865 


5060 
5093 
5132 
5166 
5345 
5379 
5413 
5447 
5614 
5648 
5682 
5950 
5978 
6006 
6034 
6062 
6090 
6118 
6146 
6183 
6214 
6242 
6274 
6305 
6337 
6368 
6400 
6431 
6463 
6494 
6526 
6745 
6867 


5062 

5098 

5137 

5168 

5347 

5381 

5415 

5449 

5616 

5653 

5684 

5952 

5980 

6008 

6036 

6064 

6092 

6120 

6148 

6185 

6216 

6244 

6276 

6308 

6339 

6371 

6402 

6434 

6465 

6497 

6528 

6747 

6961 


SEQ  1614 


DFP1 
DFPl 


6734    7126    7157    7163 


746 

971 

981 

985 

988 

2014 

2015 

2016 

2018 

2020 

3218 

3219 

3410 

3^11 

3602 

4226 

4227 

4228 

4229 

4458 

4745 

4747 

4749 

4751 

4753 

5314 

5315 

5316 

5317 

5586 

5930 

5932 

6731 

6732 

6/'36 

7155 

7159 

7161 

7190 

7200 

7237 

961 
1714 


977 
1726 


984 
1736 


1602 


1926 
2837 

*-7/  C 


1952 
2988 

7771 


1997 
3014 

7B1/. 


2001 
3035 

TB17 


2011 
3045 


2181 

3165 


207 
_191 


2224 
3216 


4017 


2239 
3383 
4022 


244 
.408 
4032 


2766 
3549 
4160 


n 


2792  2827 
3575  3600 
4186   4224 


SEQ  1615 


OFP 
DFP 


■1 


1602 


SCOPER 


i  STABLE 
TMSG 


TMSGC 
TTABLE 


1926 
2837 
37A5 
4360 
50A2 
5869 
7083 
120 
1945 
5522 
6937 
500 
2013 
3048 
4036 
4745 
5316 
722 
5916 
7159 
1665 
1689 
1964 
1991 
2806 
3029 
3398 
3786 
3987 
4193 
4400 
4429 
4928 
4946 
4966 
4980 
5263 
5287 
5556 


1952 
2988 
3771 
4392 
5222 
5891 
7099 

283 
2200 
5752 
6938 

502 
2014 
3218 
4226 
4747 
5317 

732 
5926 
7161 
1666 
1690 
1965 
1992 
2810 
3197 
3581 
3790 
3988 
4194 
4405 
4430 
4929 
'•947 
4967 
4981 
5264 
5288 
5557 


1997 
3014 
3814 
4446 
5256 
5935 
7114 
373 
2785 
5885 
6939 
620 
2015 
3219 
4227 
4749 
5586 
736 
5930 
7190 
1667 
1694 
1966 
1993 
2811 
3198 
3582 
3791 
3989 
4198 
4406 
4431 
4930 
4948 
4968 
4982 
5265 
5535 
5558 


m 

5817 
4456 
5302 
6607 
7144 

451 
3007 
6611 
6940 

622 
2016 
3410 
4228 
4751 
5587 

739 
5932 
7200 
1668 
1695 
1970 
1994 
2812 
3199 
i583 
3792 
3993 
4199 
4407 
4432 
4935 
4949 
4969 
4983 
5269 
5536 
5559 


2011 
3045 
3827 
4654 
5312 
6618 
7164 

472 
3184 
6814 
6941 

742 
2017 
3411 
4229 
4753 
5588 

971 
6731 
7203 
1672 
1696 
1971 
2211 
2813 
3203 
3587 
3793 
3994 
4200 
4408 
4686 
4936 
4951 
4970 
4984 
5270 
5537 
5560 


2181 
3165 
3955 
4680 
5503 
6705 
7179 

568 
3376 
6926 
6942 

746 
2019 
3602 
4458 
4755 
5589 

981 
6732 
7206 
1673 
1697 
1972 
2212 
2818 
3204 
3588 
3798 
3995 
4204 
4414 
4687 
4937 
4952 
4971 
4985 
5271 
5538 


22Q7 

3191 
3981 
4721 
5529 
6722 
7196 
592 
3568 
7044 

991 
2238 
3603 
4459 
4757 
5924 

985 
7093 
7221 
1674 
1701 
1977 
2213 
2819 
3205 
3589 
3799 
3996 
4205 
4415 
4688 
4938 
4953 
4972 
4986 
5272 
5542 


11^^ 
3216 

4011 

4731 

5574 

6737 

7211 

699 

3764 

7070 

995 
2240 
3829 
4461 
4759 
6736 

988 
7123 
7231 
1675 
1702 
1978 
2214 
2821 
3206 
3590 
3800 
3997 
4206 
4416 
4692 
4939 
4954 
4973 
4987 
5277 
5543 


4017 
4740 
5584 
6796 
7227 
948 
3974 


1733 
2243 
3830 
4463 
5007 
7129 
4741 
7133 
7234 
1679 
1703 
1979 
2215 
3020 
3389 
3777 
3801 
4001 
4211 
4417 
4693 
4940 
4955 
4974 
4988 
5278 
5544 


2239 

4760 
5734 
6821 
7242 
1184 
4179 


1739 

2839 

3831 

4465 

5024 

7131 

5032 

7135 

7237 

1680 

1704 

1983 

2798 

3021 

3390 

3778 

3805 

4002 

4212 

4421 

4694 

4941 

4956 

4975 

4992 

5279 

5545 


2244 
3408 
4032 
4896 
5759 
6908 

1302 
4385 


1740 
2840 
3832 
4733 
5026 

5041 
7139 

1681 
1705 
1984 
2799 
3022 
3391 
3779 
3806 
4003 
4213 
4422 
4695 
4942 
4957 
4976 
4993 
5280 
5549 


2766 
3549 
4160 
4922 
5775 
6933 

1392 
4673 


1741 
2841 
3833 
4734 
5035 

5803 
7141 

1682 
1958 
1985 
2800 
3026 
3395 
3783 
3807 
4004 
4214 
4423 
4699 
4943 
4958 
4977 
4994 
5284 
5550 


2792 
3575 
4186 
5005 
5796 
6946 

1536 
4915 


1742 
2842 
4034 
4736 
5314 

5806 
7153 

1687 
1959 
1986 
2804 
3027 
3396 
3784 
3808 
4005 
4398 
4424 
4700 
4944 
4959 
4978 
4995 
5285 
5551 


2827 
3600 
4224 
5033 
5807 
6952 

1652 
5249 


1743 
3047 
4035 
4743 
5315 

5914 
7155 

1688 
1960 
1990 
2805 
3028 
3397 
3785 
3809 
4192 
4399 
4428 
4701 
4945 
4965 
4979 
5262 
5286 
5552 


r" 


SEQ  1615 


DFP 
DFP 


1603 
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ige 
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CBUS  MODULE  TESTS 


SEQ  1616 


iDFF 
iDFF 


r 


DFPTA9 
DFPTA9 

1 


) 


? 


5 


19 


34 
35 
36 
37 
38 
39 


MACRO  X53B(1242)  09:A2  l-Jul-85  Page  1 


MAC 


18-Apr-85  11:00 


CBUS  MODULE  TESTS 

TITLE   DFPTA9 

SUBTTL  C3US  MODULE  TESTS 

SALL 

SEARCH  DFPTA.MONSYM 

INTERN'S 

ENTRY  TSTC1.TSTC2JSTC3,TSTC4,TSTC5.TSTC6,''STC7,TSTC10 

ENTRY  TSTC     JSTCl2.TSTC13.TStCUJSTC15,TSTCl6,TSTC17.TSTC20 

ENTRY  TSTC21   TSTC22  TSTC23  TSTC24:TSTC25,TSTC26,TSTC27,TSTC30 

ENTRY  TSTC31.TSTC32.TSTC33,TSTC3AJSTC35JSTC36,TSTC37 

EXTERN's 

EXTERN  TSTCAO.TSTCAI 
EXTERN's  located  in  DFPTA1.MAC  (Mainline  code..) 

EXTERN  UDEBUG, BUFF. CBUF,TLOAD,CSRPNT, TRACE. TSTSUB,0DELAY,TSL0D1,TSLOD2 
EXTERN  BEXEC.BBPNT.TEXEC.TTPNT.TEBUFC.TEBUFA.UDEBUG.PORTCI.PORTNI 
EXTERN  CEXEC.CCPNT.CPAT.CSTATF.CEBUFA.CDERR.CLEN 

EXTERN's  located  in  DFPTAI.MAC  (Port  Device  Handling  Routines  module) 

EXTERN  LDRAR.LDCSR.RDEBUF.RDCSR.IPACLR.IPASRT.SNEXT.SDATA 
EXTERN  CHINJT.GENCCW 

EXTERN's  located  in  OFPTAU.MAC  (Utility  Routines  module) 

EXTERN  PAT8UF.BUFC0M.SC0SW.BUFGEN 

#♦*♦♦♦♦♦»**»♦»*•*****»♦♦♦♦**♦♦*•***************•************♦♦♦****•* 

19   -  Address  for  use  in  DDT 


SEQ  1616 


DFF 
DFP 


000000' 


29: 


;  address  of  00000' 


DFPTA9  MACRO  X53B(12A2)  09:A2 
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CBUS  MODULE  TESTS 


SEQ  1617 


DF 
DF 


r 


|DFPTA9     MACRO  X53B(12A2)  09:42     1-JuL 
DFPTA9     MAC  18-Apr-85  11:00 


-85  Page  2 

CBUS  MODULE  TESTS 


r 


SEQ  1617 


DFF 
OFF 


6? 
6A 
65 
66 
67 
68 
69 
70 
71 

n 

73 
74 
75 
76 
11 
78 
79 
80 
81 
82 
83 
84 
85 
P6 


000000* 
000001 • 
000002' 
000003' 
000004' 
000005' 
000006' 
000007' 
000010' 


000011' 
000012' 
000013' 
000014- 
000015' 


254  00 

110604 

000152' 

012707' 

000000 

000000 

Ou.'OOO 

000000 

mill 


0  00  oooon 

000001 

012703' 

012713' 

000637' 

003034' 

001044' 

001152' 

mill 


201 
260 
201 
260 
263 


000016'  400 
000017'  260 
^00020'  402 
C'COo?!'  201 


00 
17 
01 
17 
17 


15 
17 
00 
06 


00 
00 
00 
00 
00 


000000' 
000000* 
000152' 
000000* 
000000 


00  000000 
00  000000* 
00  000000* 
00  000033' 


#•*»»•»****•*«**♦****♦♦♦♦*♦*♦*♦****•********•**********♦************♦ 

•  Test  1  -  Fmtr  Data  Loopback 

Description:  This  test  does  simple  data  loopback  over  the  MBUS 
th-ough  the  CBUF,  through  the  Fmtr,  through  the 
CMUX  and  back  to  the  MBOS. 

Procedure:    Port  Clear 
Set  RAR  to  0 
Execute  single  steps 
Read  EBUF,  verify  data  is  correct 

Repeat  with  each  data  pattern: 
D's 
I's 

floating  I's 
floating  O's 

Failure:     — 

4f**»t*** **♦••******** ************************************************ 

Test  data 

TSTC1:  JRST    TGI  ;  go  start  test 

CBUS!M6US1NDMP!NDCB1ZCBUS!1     ;  test  mask 
T1M,,CASCIZ  *Fmtr  Data  Loopback*J     „  ,  ^    ,,^^^ 
CEXP  C20.Cl8.C23,MLAST!C24l.CEXP  C12,C8.C3.C4,MLAST!C2] 
TSTC2  ;  failure  test  table 

TSTC11 
TSTC3 
TSTC4 
-1 


;  Start  test 
TGI: 


MQVEI  Z9 

GO  TRACE 

MOVE]  I.TIM 

GO  TLOAD 
RTN 


;  Initialization 
TL1: 


SETZ  ERFLG. 

GO  IPACLR 

SETZM  TSTSUB 

MOVEI  6.TS1 


aet  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  add'-ess 


i  DFPTA9 

! hPPTAQ 


MACRO  X53B(1242)  09:42 

MAT      IR-Anr-RS  11 :00 


1-Jul-85  Page  3 

CBUS  MODULE  TESTS 


SEQ  1618 


DF 
DF 


DFPTA9  MACRO  X53B(1242)  09:42  1-Jul-85  Page  3  ___^  ^^^^^ 
DFPTA9  MAC    18-Apr-85  11 :00       CBUS  MODULE  TESTS 


SEQ  1618 


DFI 
DPI 


91 

000022' 

92 

000023' 

93 

000024' 

9A 

000025' 

95 

96 

97 

98 

000026' 

99 

000027- 

100 

000030' 

101 

000031 ' 

102 

103 

10A 

105 

000032' 

106 

107 

108 

109 

000033' 

110 

000034' 

111 

000035' 

112 

000036' 

113 

000037' 

IK 

000040' 

115 

000041' 

116 

000042' 

117 

000043' 

118 

000044' 

119 

000045' 

120 

000046' 

121 

000047' 

122 

000050' 

123 

000051 ' 

124 

000052' 

125 

000053' 

126 

000054' 

127 

000055' 

128 

000056' 

129 

000057' 

130 

000060' 

131 

000061 ' 

132 

000062' 

133 

000063' 

134 

000064' 

135 

000065' 

136 

000066' 

137 

000067' 

138 

000070' 

139 

000071 • 

140 

000072' 

141 

000073' 

142 

000074' 

260  17  0  00  000000* 
254  00  0  00  000032' 
254  00  0  00  000022' 
474  15  0  00  000000 


027  00  0  00  000150' 
254  00  0  00  000016' 
254  00  0  00  000032' 
322  15  0  00  000022' 


263  17  0  00  000000 


100600 
777777 
100600 
000000 
101000 
000000 
101100 
000000 
101200 
OuJOOO 
101300 
000000 
101400 
000000 
101500 
000000 
101600 
000000 
101700 
000000 
102000 
000000 
102100 
000000 
102200 
000000 
102300 
000000 
102400 
000000 
102500 
000000 
102600 
000000 


005004 

777777 

015004 

000001 

025004 

000002 

035004 

000004 

045004 

000010 

055004 

000020 

065004 

000040 

075004 

000100 

105004 

000200 

115004 

000400 

125004 

001000 

135004 

002000 

145004 

004000 

155004 

010000 

165004 

020000 

175004 

040000 

205004 

100000 


Loop  on  single  step  table  entries 


TA1 


GO 
JRST 
JRST 
SETO 


BEXEC 
TXl 
TAl 
ERFL6, 


execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  -  EBUF  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MAI 
TL1 
TXl 
ERFL6.TA1 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TXl:    RTN 

;  Sstep  table,  with  EBUF  data,  as: 

TS1:    ATABLE  (SSSTRT, 6, 0,5004,-1) 

ATABLE  (SSSTRT, 6, 1,5004,1) 

ATABLE  (SSSTRT, ^08, 2, 5004, 2) 

ATABLE  (SSSTRT, *D9, 3, 5004, 4) 

ATABLE  (SSSTRT, *D10, 4, 5004, 10) 

ATABLE  (SSSTRT, *D11, 5, 5004, 20) 

ATABLE  (SSSTRT, *D12, 6, 5004, 40) 

ATABLE  (SSSTRT, *D13, 7, 5004, 100) 

ATABLE  (SSSTRT, *D14, 10, 5004, 200) 

ATABLE  (SSSTRT, *D15, 11, 5004, 400) 

ATABLE  (SSSTRT, "016, 12. 5004, 1000) 

ATABLE  (SSSTRT, *D17, 13, 5004, 2000) 

ATABLE  (SSSTRT, *D18, 14,5004,4000) 

ATABLE  (SSSTRT, *D19, 15, 5004, 10000) 

ATABLE  (SSSTRT, *D20, 16, 5004, 20000) 

ATABLE  (SSSTRT, *D21, 17, 5004, 40000) 

ATABLE  (SSSTRT, •022.20,5004, 100000) 


;  return 
(CMD,#Steps, Start  addr,End  Addr,EBUF  data) 


DFPTA9  MACRO  X53B(1242)  09:42  1-Jul-85  Page  3-1 


Mnniii  F  tf<;t<; 


n 


SEQ  1619 


DF 
Irtc 


1 


DFPTA9 
DFPTA9 

U3 

HA 

145 

U6 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 


MACRO  5;53B(1242)  09:42 
MAC    18-Apr-85  11:00 


000075' 

000076' 

000077' 

000100' 

000101' 

000102' 

000103' 

000104' 

000105' 

000106' 

000107' 

000110' 

000111 • 

000112' 

000113' 

000114' 

000115' 

000116' 

000117' 

000120' 

000121' 

000122' 

000123' 

000124' 

000125' 

000126' 

000127' 

000130' 

000131' 

000132' 

000133' 

000134' 

000135' 

000136' 

000137' 

000140' 

000141' 

000142' 

000143' 

000144' 

000145' 

000146' 

000147' 


102700 

000000 

103000 

000000 

103100 

000001 

103200 

000002 

103300 

000004 

103400 

000010 

103500 

000020 

103600 

000040 

103700 

000100 

104000 

000200 

104100 

000400 

104200 

001000 

104300 

002000 

104400 

004000 

104500 

010000 

lu:600 

020000 

104700 

040000 

105000 

100000 

105100 

200000 

105000 

400000 

100500 

000000 

000000 


215004 

200000 

225004 

400000 

235004 

000000 

245004 

000000 

255004 

000000 

265004 

000000 

275004 

000000 

305004 

000000 

315004 

000000 

325004 

000000 

335004 

000000 

345004 

000000 

355004 

000000 

365004 

000000 

375004 

000000 

405004 

000000 

415004 

000000 

425004 

000000 

435004 

000000 

445004 

000000 

455004 

000000 

000000 


000150' 
000151' 


000152' 
000153' 
000154' 
000155' 


140000  012720' 
000000000000* 


000001  000000 

000000  000040 

000102  000000 

000000  000040 


-Jul-85  Page  3-1 

CBUS  MODULE  TESTS 

ATABLE  (SSSTRT/D23. 21, 5004, 200000) 

ATABLE  (SSSTRT,*D24, 22, 5004. 400000) 

ATABLE  (SSSTRT,*D25, 23, 5004, 1000000) 

ATABLE  (SSSTRT,*D26, 24, 5004, 2000000) 

ATABLE  (SSSTRT,*D27, 25, 5004, 4000000) 

ATABLE  (SSSTRT,*D28, 26, 5004, 10000000) 

ATABLE  (SSSTRT,*D29, 27, 5004, 20000000) 

ATABLE  (SSSTRT,*D30, 30, 5004, 40000000) 

ATABLE  (SSSTRT,*D31, 31, 5004, 100000000) 

ATABLE  (SSSTRT,*D32, 32, 5004, 200000000) 

ATABLE  (SSSTRT,*D33, 33, 5004, 400000000) 

ATABLE  (SSSTRT,*D34, 34, 5004, 1000000000) 

ATABLE  (SSSTRT,*D35, 35, 5004, 2000000000) 

ATABLE  (SSSTRT,*D36, 36, 5004, 4000000000) 

ATABLE  (SSSTRT,*D37, 37, 5004, 10000000000) 

ATABLE  (SSSTRT,*D38, 40, 5004, 20000000000) 

ATABLE  (SSSTRT,*D39, 41, 5004, 40000000000) 

ATABLE  (SSSTRT,*D40, 42, 5004, 100000000000) 

ATABLE  (SSSTRT,*D41, 43, 5004, 200000000000) 

ATABLE  (SSSTRT,*D40, 44, 5004, 400000000000) 

ATABLE  (SSSTRT,5,45,5004,0) 

ATABLE  (SSLAST) 

;  Error  messages 

MAI:    MSGITXNOT.'CASCIZ  /Data  Loopback  through  Fmtr  failed  (result  in  EBUF)/] 
LAST!CALLITXALL!BBPNT         ;  print  sequencer  data 


SEQ  1619 


DF 
DF 


;  Microcode 

TIM:    MWORD   <ADDR=0,JMAP,J=100> 
MWORD   <JMAP,J=200> 


0  -  I's 

1  -  1 


DFPTA9  MACRO  X53B(1242)  09:42 
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SEQ  1620 


D 
D 


r 


)  1607 


0FPTA9 
0FPTA9 

198 

199 

200 

201 

202 

203 

20A 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

221^ 

225 

226 

221 

328 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 
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CBUS  MODULE  TESTS 


SEQ  1620 


000156' 

000157' 

000160' 

000161' 

000162' 

000163' 

000164' 

000165' 

000166' 

000167' 

000170' 

000171' 

000172' 

000173' 

000174' 

000175' 

000176' 

000177' 

000200' 

000201 ' 

000202' 

000203' 

000204' 

000205' 

000206' 

000207' 

000210' 

000211' 

000212' 

000213' 

000214' 

000215' 

000216' 

000217' 

000220' 

000221 ' 

000222' 

000225' 

000224' 

000225- 

000226' 

000227' 

000230' 

000231 ' 

000232' 

000233' 

000234' 

000235' 

000236' 

000237' 

000240' 

000241' 

000242' 

000243' 

000244' 


000203 

000000 

000304 

000000 

000405 

000000 

000506 

000000 

000607 

000000 

000710 

000000 

001011 

000000 

001112 

000000 

001213 

000000 

001314 

000000 

001415 

000000 

001516 

000000 

001617 

000000 

001720 

000000 

002021 

000000 

Ouil 22 

000000 

002223 

000000 

002324 

000000 

002425 

000000 

002526 

000000 

002627 

000000 

002730 

000000 

003031 

000000 

003132 

000000 

003233 

000000 

003334 

000000 

003435 

000000 

003536 


000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 

000040 

000000 


MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 


<JMAP,J= 

<JMAP.J= 

<JMAPJ  = 

<JMAP,J= 

<JMAP,J= 

<JMAP,J= 

<JMAP,J= 

<JMAP.J= 

<JMAP,J= 

<JMAP.J= 

<JMAPJ  = 

<JMAP,J= 

<JMAP,J= 

<JMAP,J= 

<JMAP.J= 

<JMAP,J= 

<JMAP,J= 

<JMAP,J: 

<JMAP.J= 

<JMAP,J: 

<JMAP.J= 

<JMAP,J: 

<JMAP,J: 

<JMAP.J 

<JMAP,J 

<JMAPJ 

<JMAP.J 

<JMAP,J 


300> 
400> 

:500> 

:600> 

:700> 

:1000> 

:1100> 

=1200> 
=1300> 
=U00> 
=1 500> 
=1600> 
=1700> 
=2000> 
=2100> 
=2200> 
=2300> 
=2400> 
=2500> 
=2600> 
=2700> 
=3000> 
=3100> 
=3200> 
=3300> 
=3400> 
=3500> 
=3600> 


2  -  2 

3  -  4 
4-10 
5  -  20 
6-40 
7  -  100 

10  -  200 

11  -  400 

12  -  1000 

13  -  2000 

14  -  4000 

15  -  10000 

16  -  20000 

17  -  40000 

20  -  100000 

21  -  200000 

22  -  400000 

23  -  1,.0 

24  -  2,.0 

25  -  4,,0 

26  -  10. .0 

27  -  20,, 0 

30  -  40, ,0 

31  -  100, .0 

32  -  200,, 0 

33  -  ;go.,o 

34  -  1000,, 0 

35  -  2000.. 0 


0  1/S08 
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SEQ  1621 
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CBUS  MODULE  TESTS 


SEQ  1621 


253 
25A 
255 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

271 

27A 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 


000245' 
000246' 
000247' 
000250' 
000251' 
000252' 
000253' 
000254' 
000255' 
000256' 
000257' 
000260' 
000261 ' 
000262' 
000263' 
000264' 
000265' 


000000 
003637 
000000 
003740 
000000 
004041 
000000 
004142 
000000 
004243 
000000 
004344 
000000 
004445 
000000 
004546 
000000 


000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 


000266'  010000  000000 

000267'  742001  000340 

000270'  010150  010000 

000271'  172021  000040 


000272'  020000  000000 

000273'  742001  000340 

000274'  020150  010000 

000275'  iui021  000440 


000276' 
00027^' 
000300' 
000301 ' 
000302' 
000303' 


000304 • 
000305' 
000306' 
000307' 
000310' 
000311* 


030000 
742001 
030100 
102021 
030250 
000000 


040000 
742001 
040100 
102021 
040250 
000000 


000312'  050000 
000313'  742001 
000314'  050100 


000000 
000340 
000000 
000700 
000000 
000040 


000000 
000340 
010000 
000700 
000000 
000040 


000000 
000340 
020000 


MUORD 
MUORD 

nyoRD 
nuoRD 

MUORD 
MUORD 
MUORD 
nUORD 


<JMAP.J: 

<JMAP.J 

<JMAP,J 

<JMAP,J 

<JMAP,J 

<JMAP,J 

<JMAP.J 

<JMAP,J 


:3700> 
:4000> 
:4100> 
:4200> 
:4300> 
:4400> 

=4500> 
=4600> 


36 
37 
40 
41 
42 
43 
44 
45 


;  Data  pattern  1 's 

MUORD   <ADDR=100,CONT,SD0.8=2.AND,D=2> 
MUORD   <JMAP,J=5001.SAB,A=2,B=2,XN0R.D=2> 


4000,. 0 
10000., 0 
20000,, 0 
40000., 0 
1 00000,,  0 
200000,. 0 
400000.. 0 
O's 

;  100 
;  101 


;  Data  pattern  floating  I's  -  1 

MUORD  <ADDR=2O0.CONT,SD0.B=2.AND.D=2>  ;  200 

MWORD  <JMAP.J=5001.SAB.A=2,B=2,Pl'JS.CRY,D=2>  ;  201 

;  Data  pattern  floating  I's  -  2 

MUORD  <ADDR=300,CONT.SDO,B=2.AND.D=2>  ;  300 

MUORD  <LDCT,J=0. SAB, A=2.B=2. PLUS. CRY. D=2>  ;  301 

MUORD  <JMAP.J=5000>  ;  302 

;  Data  pattern  floating  I's  -  4 

MUORD  <ADDR=400.CONT,SD0.B=2.AND.D=2>  ;  400 

MUORD   <LDCT,J=1, SAB. A=2,B=2, PLUS. CRY. D=2>  ;  401 

MUORD   <JMAP,J=5000>  ;  402 

;  Data  pattern  floating  I's  -  10 

MUORD   <ADDR=500,C0NT.SD0.B=2.AND.D=2>  ;  500 

MUORD   <LDCT.J=2. SAB. A=2.B=2. PLUS. CRY. D=2>  ;  501 
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SEQ  1622 


DFPTA9 
DFPTA9 

308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3A0 

3A1 

3A2 

343 

34A 

3A5 

3A6 

3A7 

3A8 

3«9 

350 

351 

352 

353 

35A 

355 

356 

357 

358 

359 

360 

361 

362 
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000315'  102021 
000316'  050250 
000317'  000000 


000320' 
000321 ' 
000322' 
000323' 
00032A' 
000325' 


000326' 
000327' 
000330' 
000331 ' 
000332' 
000333' 


060000 
742001 
060100 
102021 
060250 
000000 


070000 
742001 
070100 
102021 
070250 
000000 


000334' 
00033!;' 
000336' 
000337* 
000340' 
000341' 


000342' 
000343' 
000344' 
000345' 
000346' 
000347' 


000350' 
000351 ' 
000352' 
000353' 
000354' 
000355' 


100000 
742001 
1C0100 
102021 
100250 
000000 


110000 
742001 
110100 
102021 
110250 
000000 


120000 
742001 
120100 
102021 
(20250 
000000 


000356'  130000 

000357'  742001 

000360'  130100 

000361*  102021 


000700 
000000 
000040 


000000 
000340 
030000 
000700 
000000 
000040 


000000 
000340 
040000 
000700 
000000 
000040 


000000 
000340 
050000 
000700 
000000 
000040 


000000 
000340 
060000 
000700 
000000 
000040 


000000 
000340 
070000 
000700 
000000 
000040 


000000 
000340 
100000 
000700 
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CBUS  MODULE  TESTS 

MWORD  <JMAPJ  =  5000>  ;  502 

;  Data  pattern  floating  Ts  -  20 

MWORD  <ADDR=6O0,CONT.SD0.B=2.AND.D=2>  ;  600 

MUORD  <LDCT.J=3, SAB. A=2,B=2, PLUS. CRY. D=2>  ;  601 

MWORD  <JMAP.J=5000>  ;  602 

;  Data  pattern  floating  I's  -  40 

MWORD  <ADDR=700.C0NT.SD0.B=2.AND.D=2>  ;  700 

MWORD  <LDfT.J=4, SAB. A=2.B=2. PLUS. CRY. D=2>  ;  701 

MWORD  <JMAP.J  =  5000>  .'  702 

;  Data  pattern  floating  I's  -  100 

MWORD  <ADDR=100O.CONT,SD0.B=2.AND.D=2>  ;  1000 

MWORD  <LDCT.J=5. SAB. A=2.B=2. PLUS, CRY. D=2>  ;  1001 

MWORD  <JMAP.J=5000>  ;  1002 

;  Data  pattern  floating  Ts  -  200 

MWORD  <ADDR=11OO.CONT,SD0.B=2.AND.D=2>  ;  1100 

MWORD  <LDCT.J=6. SAB. A=2.B=2. PLUS. CRY. D=2>  ;  1101 

MWORD  <JMAP.J=5000>  ;  1102 

;  Data  pattern  floating  I's  -  400 

MWORD  <ADDR=1200.C0NT.SD0.B=2.AND.D=2>  ;  1200 

MWORD  <LDCT,J=7. SAB, A--2. 6=2. PLUS. CRY. D=2>  ;  1201 

MWORD  <JMAP.J=5000>  ;  1202 

;  Data  pattern  floating  Ts  -  1000 

MWORD  <ADDR=13O0.CONT,SD0,B=2.AND.D=2>  ;  1300 

MWORD  <LDCT,J=10, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  1301 


SEQ  1622 
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»  r-  r«  T  r* 


<:fq  ia?3 


0FPTA9 
DFPTA9 

I  363 
36A 
I  365 
I  366 
367 
368 
369 
370 
371 
372 
373 
37A 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 

395 
396 
397 
398 
399 
400 
401 

404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
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000362' 
000363* 


000364 ' 
000365' 
000366' 
000367* 
000370' 
000371  * 


000372* 
000373* 
000374* 
000375* 
000376' 
000377* 


000400* 
000401  * 
000402* 
000403* 

000404  * 

000405  * 


130250 
000000 


140000 
742001 
140100 
102021 
140250 
000000 


1 50000 
742001 
150100 
102021 
150250 
000000 


160000 
742001 
160100 
102021 
160250 
000000 


000406* 
000407* 
000410* 
000411* 
0004^2* 
000413* 


000414* 
000«»15' 
000416* 
000417* 
000420* 
000421  * 


170000 
742001 
170100 
102021 
170250 
000000 


200000 
742001 
200100 
102021 
200250 
000000 


000422* 
000423* 
000424* 
000425* 
000426* 


210000 
742001 
210100 
102021 
210250 


000000 
000040 


000000 
000340 
110000 
000700 
000000 
000040 


000000 
000340 
120000 
000700 
000000 
000040 


000000 
000340 
130000 
000700 
000000 
000040 


000000 
000340 
140000 
000700 
000000 
000040 


000000 
000340 
150000 
000700 
000000 
000040 


000000 
000340 
160000 
000700 
000000 
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MUORD  <JMAP.J=5000>  ;  1302 

;  Data  pattern  floating  Ts  -  2000 

WyORD  <ADDR=1400.CON1.SDO.B=2.AND.D=2>  ;  1400 

MWORD  <LDCT,J  =  11. SAB, A=2, 8=^2, PLUS. CRY. D=2>  ;  1401 

MWORO  <JMAP.J=5000>  ;  1^02 

;  Data  pattern  floating  Ts  -  4000 

MUORD  <ADDR=1500.CONT.SD0.B=2.AND.D=2>  ;  1500 

MWORD  <LDCT.J=12. SAB. A=2.B=2. PLUS, CRY. D=2>  ;  1501 

MWORD  <JMAP.J=5000>  ;  1502 

;  Data  pattern  floating  I's  -  10000 

MWORD  <ADDR=1600.C0NT.SD0.B=2,AND.D=2>  ;  1600 

MWORD  <LDCT.J=13. SAB, A=2,B=2. PLUS. CRY. D=2>  ;  1601 

MWORD  <JMAP.J=5000>  ;  1602 

;  Data  pattern  floating  I's  -  20000 

MWORD  <ADDR=1700,CONT.SD0.B=2.AND.D=2>  ;  1700 

MWORD   <LDCT.J=14, SAB. A=2.B=2. PLUS. CRY. D=2>  ;  1701 

MWORD   <JMAP.J=5000>  ;  1702 

;  Data  pattern  floating  1*s  -  40000 

MWORD   <ADDR=2000.CONT.SD0.B=2.AND.D=2>  ;  2000 

MWORD   <LDCT.J=15. SAB. A=2.B=2. PLUS. CRY. D=2>  ;  2001 

MWORD   <JMAP.J=5000>  ;  2002 

;  Data  pattern  floating  Ts  -  100000 

MWORD   <ADDR=2100.CONT.SD0.B=2.AND.D=2>  ;  2100 

MWORD   <LDCT.J=16. SAB. A=2.B=2. PLUS. CRY. D=2>  ;  2101 

MWORD   <JMAP.J=5000>  ;  2102 


SEQ  1623 
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ccn    id.0/. 


;eq  1611 
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A18 

A19 

420 

A21 

A22 

423 

A2A 

A25 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 


000427'  000000  000040 


000430' 
000431 ' 
000432' 
000433' 
000434' 
000435' 


000436' 
000437' 
000440* 
000441 ' 
000442' 
000443' 


000444' 
000445' 
000446' 
000447' 
000450' 
000451 ' 


000452' 
000453' 
000454' 
000455' 
000456' 
000457' 


000460' 
000461 ' 
000462' 
000463' 
000464 ' 
000465' 


000466' 
000467' 
000470' 
000471 • 
000472' 
000473' 


220000 
742001 
220100 
102021 
220250 
000000 


230000 
742001 
230100 
102021 
230250 
000000 


240000 
742001 
240100 
102021 
240250 
000000 


250000 
742001 
250100 
102021 
250250 
000000 


260000 
742001 
260100 
102021 
260250 
000000 


270000 
742001 
270100 
102021 
270250 
000000 


000000 
000340 
170000 
000700 
000000 
000040 


000000 
000340 
200000 
000700 
000000 
000040 


000000 
000340 
210000 
000700 
000000 
000040 


000000 
000340 
220000 
000700 
000000 
000040 


000000 
000340 
230000 
000700 
000000 
000040 


000000 
000340 
240000 
000700 
000000 
000040 
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CBUS  MODULE  TESTS 


;  Data  pattern  floating  1's  -  200000 

MWORD  <ADDR=22O0.CONT,SD0.B=2,AND.D=2>  ;  2200 

MUORD  <LDCT,J=17. SAB. A=?, 8=2, PLUS, CRY. D=2>  ;  2201 

MWORD  <JMAP.J=5000>  ;  2202 

;  Data  pattern  floating  I's  -  400000 

liWORD  <ADDR=2300.C0NT,SD0.B=2.AND,D=2>  ;  2300 

MWORD  <LDCT.J=20, SAB, A=2,B=2, PLUS. CRY. D=2>  ;  2301 

MWORD  <JMAP,J=5000>  ;  2302 

;  Data  pattern  floating  1's  -  1.. 000000 

MUORD  <ADDR=24OO,CONT,SD0,B=2.AND,D=2>  ;  2400 

MWORD  <LDCT,J=21, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  2401 

MUORD  <JMAP,J=5000>  ;  2402 

;  Data  pattern  floating  I's  -  2,, 000000 

MUORD  <ADDR=2500,CONT,SDO,B=2,AND,D=2>  ;  2500 

MUORD  <LDCT,J=22, SAB, A=2,B=2, PLUS, CRY. D=2>  ;  2501 

MUORD  <JMAP,J=5000>  ;  2502 

;  Data  pattern  floating  1's  -  4,, 000000 

MUORD  <ADDR=2600,C0NT,SD0,B=2,AND,D=2>  ;  2600 

MUORD  <LDCTJ=23, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  2601 

MUORD  <JMAP,J=5000>  ;  2602 

;  Data  pattern  floating  1's  -  10,, 000000 

MUORD  <ADDR=2700,C0NT,SD0,B=2,AND,D=2>  ;  2700 

MUORD  <LDCT,J=24, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  2701 

MUORD  <JMAP,J=5000>  ;  2702 


SEQ  1624 
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fm     ^ZTC 


DFPTA9 
DFPTA9 

473 

A7A 

475 

476 

477 

478 

479 

480 

4G1 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 
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000474' 
000475' 
000476' 
000477' 
000500' 
000501 ' 


000502' 
000503' 
000504' 
000505' 
000506' 
000507* 


000510* 
000511' 
000512* 
000513' 
0005U' 
000515* 


000516' 
000517' 
000520* 
000521  * 
000522* 
000523' 


300000 
742001 
300100 
102021 
300250 
000000 


310000 
742001 
310100 
102021 
310250 
000000 


320000 
742001 
320100 
102021 
320250 
000000 


33J000 
742001 
330100 
102021 
330250 
000000 


000524' 
000525' 
000526' 
000527' 
000530' 
000531 ' 


340000 
742001 
340100 
102021 
340250 
000000 


000532' 
000533' 
000534* 
000535' 
000536* 
000537* 


350000 
742001 
350100 
102021 
350250 
000000 


000000 
000340 
250000 
000700 
000000 
000040 


000000 
000340 
260000 
000700 
000000 
000040 


000000 
000340 
270000 
000700 
000000 
000040 


000000 
000340 
300000 
000700 
000000 
000040 


000000 
000340 
310000 
000700 
000000 
000040 


000000 
000340 
320000 
000700 
000000 
000040 
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;  Data  pattern  floating  1's  -  20,, 000000 

MWORD  <ADDR=3O00,CONT,SD0,8=2,AND,D=2>  ;  3000 

MWORD  <LDCT,J=25, SAB, A=2, 8=2, PLUS, CRY, D=2>  ;  3001 

MWORD  <JMAP,J=5000>  ;  3002 

;  Data  pattern  floating  1*s  -  40,, 000000 

MWORD  <ADDR=31O0,CONT,SD0,B=2,AND,D=2>  ;  3100 

MWORD  <LDCT,J=26, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  3101 

MWORD  <JMAP,J=5000>  ;  3102 

;  Data  pattern  floating  1's  -  100,. 000000 

MWORD  <ADDR=320O,CONT,SD0,B=2,AND,D=2>  ;  3200 

MWORD  <LDCT,J=27, SAB, A=2.B=2, PLUS, CRY, D=2>  ;  3201 

MWORD  <JMAP,J=5000>  ;  3202 

;  Data  pattern  floating  1's  -  200,, 000000 

MWORD  <ADDR=33O0,CONT,SD0,B=2,AND,D=2>  ;  3300 

MWORD  <LDCT,J=30, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  3301 

MWORD  <JMAP,J=5000>  ;  3302 

;  Data  pattern  floating  1's  -  400,, 000000 

MWORD  <ADDR=3400,CONT,SD0,B=2,AND,D=2>  ;  3400 

MWORD  <LDCT,J=31, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  3401 

MWORD  <JMAP,J=5000>  ;  3402 

;  Data  pattern  floating  1's  -  1000,, 000000 

MWORD  <ADDR=35O0,CONT,SD0,B=2,AND,D=2>  ;  3500 

MWORD  <LDCT,J=32, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  3501 

MWORD  <JMAP,J=5000>  ;  3502 


SEQ  1625 


DFPTA9 
DFPTA9 

528 

529 

530 

531 

532 

533 

5jA 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 


MACRO  5;53B(1242)  09:42  1 
MAC    18-Apr-85  11:00 


000540' 
000541 • 
000542* 
000543' 
000544' 
000545' 


000546' 
000547' 
000550' 
000551 • 
000552' 
000553' 


000554' 
000555' 
000556' 
000557' 
000560' 
000561 • 


000562' 
000563' 
000564' 
000565' 
000566' 
000567' 


360000 
742001 
360100 
102021 
360250 
000000 


370000 
742001 
370100 
102021 
370250 
000000 


40C000 
742001 
400100 
102021 
400250 
000000 


410000 
7«fJ001 
410100 
102021 
410250 
000000 


000570' 
000571 • 
000572' 
000573' 
000574 ' 
000575' 


000576' 
000577' 
000600' 
000601 ' 
000602* 
000603' 


420000 
742001 
420100 
102021 
420250 
000000 


430000 
742001 
430100 
102021 
430250 
000000 


000000 
000340 
330000 
000700 
000000 
000040 


000000 
000340 
340000 
000700 
000000 
000040 


000000 
000340 
350000 
000700 
000000 
000040 


000000 
000340 
360000 
000700 
OOOOOC 
000040 


000000 
000340 
370000 
000700 
000000 
000040 


000000 
000340 
400000 
000700 
000000 
000040 


-JuL-85  Page  3-8 

CBUS  MODULE  TESTS 

;  Data  pattern  floating  1's  -  2000,, 000000 

MUORD   <ADDR=3600,C0NT,SDC,B=2,AND,D=2>  ;  3600 

MWORD   <LDCT,J=33, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  3601 

MWORD   <JMAP,J=5000>  ;  3602 

;  Data  pattern  floating  I's  -  4000, ,000000 

MWORD   <ADDR=3700,CONT,SD0,B=2,AND,D=2>  ;  3700 

MUORD   <LDCT,J=34, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  3701 

MWORD   <JMAP,J=5000>  ;  3702 

;  Data  pattern  floating  1's  -  10000, ,000000 

MWORD   <ADDR=4000,f0NT,SD0,B=2,AND,D^-2>  ;  4000 

MWORD   <LDCT,J=35, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  4001 

MWORD   <JMAP,J=5000>  ;  4002 

;  Data  pattern  floating  1's  -  20000,, 000000 

MWORD   <ADDR=4100,CONT,SD0,B=2,AND,D=2>  ;  4100 

MWORD   <LDCT,J=36, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  4101 

ilWORD   <JMAP,J=5000>  ;  4102 

;  Data  pattern  floating  1's  -  40000,, 000000 

MWORD   <ADDR=4200,CONT,SD0,B=2,AND,D=2>  ;  4200 

MWORD   <LDCT,J=37, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  4201 

MWORD   <JMAP,J=5000>  ;  4202 

;  Data  pattern  floating  I's  -  100000,, 000000 

MWORD   <ADDR=4300,CONT,SD0,B=2,AND,D=2>  ;  4300 

MWORD   <LDCT,J=40, SAB, A=2,B=2, PLUS, CRY, D=2>  ;  4301 

MWORD   <JMAP,J=5000>  ;  4302 

;  Data  pattern  floating  1's  -  200000,, 000000 


SEQ  1626 


....-  ^ 
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SEQ  1627 


DFPTA9 
DFPTA9 

583 

58A 

585 

586 

587 

588 

589 

590 

591 

592 

593 

59A 

595 

596 

597 

598 

599 

600 

601 

602 

603 

60A 

605 

606 

607 

608 

609 

610 

611 

612 

613 

6K 

615 

616 

617 

618 

619 
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00060A' 
000605' 
000606' 
000607' 
000610' 
000611' 


000612' 
000613' 
000614' 
000615' 
000616' 
000617' 
000620' 
000621 ' 


440000 
742001 
440100 
102021 
440250 
000000 


450000 
742001 
450100 
102021 
450245 
102021 
450350 
107021 


000622'  460050 
000623'  742001 


000624 ' 
000625' 
000626' 
000627' 
000630' 
000631 ' 
000632' 
000633' 
000634' 
000635' 
000636' 


500050 
102021 
500100 
401020 
5uJ200 
702001 
500300 
401020 
500450 
000000 

mm 


000000 
000340 
410000 
000700 
000000 
000040 


000000 
000340 
400000 
000700 
020090 
000220 
01 0000 
000040 


010000 
000040 


000000 
000220 
002040 
003340 
000200 
002340 
002004 
005340 
040000 
000040 

nmi 
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MWORD  <ADDR=4400,CONT,SDO,B^2,AND,D=2> 

MWORD  <LDCT,J=41 , SAB, A=2,B=2, PLUS. CRY, D=2> 

MWORD  <JMAP,J=5000> 

;  Data  pattern  floating  1's  -  400000,, 000000 

MWORD  <ADDR=4500,CONT,SD0,B=2,AND,D=2> 

MWORD  <LDCT.J=40, SAB, A=2,B=2, PLUS, CRY, D=2> 

MWORD  <RPCT,J=4502, SAB, A=2,B=2, PLUS, D=2> 

MWORD  <JMAP,  J=5001  ,SA8,A=2,B=2,D--7> 


SEQ  1627 


DFPl 
DFPl 


4400 
4401 
4402 

4500 
4501 
4502 
4503 


;  Data  pattern  O's 

MWORD   <ADDR=4600,JMAP,J=5001,SD0,B=2,AND,D=2>  ;  4600 

;  Subroutine  to  write  data  to  formatter,  read  back,  and  place  in  EBUF 
<ADDR=5O00,RPCT,J=500O. SAB, A=2,B=2, PLUS, D=2>  ;  5000 


MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
-1 


<C0NT,S0A,A=2,D=1,0ENA,SELF,M6C=40> 
<C0NT,SD0,B=2,D=2,SELM,MGC=200> 
<C0NT,S0A,A=2,D=1.0ENA,SELE.MGC=4> 
<JMAP,J=5004> 


5001 
5002 
5003 
5004 
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SEQ  1628 


DFP 
DFP 


DFPTA9 
DFPTA9 
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!0 

II 
!2 

I'S 

V* 

5 


SEQ  1628 


r 

OFI 
DFI 


6!4 

635 

636 

637 

638 

639 

6A0 

6A1 

642 

643 

6AA 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 


000637' 
000640' 
000641 ' 
000642' 
000643' 
000644' 
000645' 


254  00 

100604 

000717' 

012740' 

000000 


0  00  000646' 
000002 
012733' 
012746' 
003034' 


Gu  .'000000000* 
777777     777777 


000646' 
000647' 
000650' 
000651' 
000652' 


201 
260 
201 
260 
263 


00 

17 
01 
17 
17 


000653'  400 

000654'  260 

000655'  402 

000656'  201 


15 
17 
00 
06 


00 
00 
00 
00 
00 


000000' 
000012* 
000717' 
OOOOU* 
000000 


00  000000 
00  000017* 
00  000020* 
00  000670' 


/^♦♦♦«*********  *♦•****♦♦♦**♦♦♦**••****''***********************♦****♦** 
♦  Test  2  -  PLI  Buffer  Data  Loopback 

Description:  This  test  does  simple  data  loopback  over  the  MBUS 
through  the  CBUF,  through  the  PMUX,  through^  the 
PLI  Output  Buffer,  through  the  PLI  Input  Buffer, 
through  the  CMUX,  and  back  to  the  MBUS. 

Procedure:    Port  Clear 
Set  RAR  to  0 
Execute  single  steps 
Read  EBUF,  verify  data  is  correct 

Repeat  with  each  data  pattern: 
O's 
I's 

floating  I's 
floating  O's 

Failure:     — 

fft****  ****************************************************** ''******** 


Test  data 


JO  start  test 


TSTC2:  JRST    TG2        .^         ;  QC  .._ 

CBUS!NDMPINDCB!ZCBUS!2        ;  test  mask 

T2M,,[ASCIZ  'PLI  Buffer  Data  Loopback*]  „.  .cr.ro-. 

[EXP  C13,C22,C21,C20,C23,MLAST!C24J,,CEXP  C12,C19,C8,C3,C4.MI AST1C2] 

TSTC11  ;  failure  test  table 

TSTC40 

-1 


;  Start  test 
TG2: 


MOVE  I  Z9 

GO  TRACE 

MOVE  I  1,T2M 

60  TLOAD 
RTN 


;  Initialization 
TL2: 


SETZ  ERFLG, 

GO  IPACLR 

SETZM  TSTSUB 

MOVEI  6,TS2 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  address 


1616 


DFPTA9 
DFPTA9 
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Pag 
BUS 


CBU 


e  5 

MODULE 


TESTS 


SEQ  1629 


DFf 
OFF 


1616 


iDFPTA9 
iDFPTA9 


667 

668 

669 

670 

671 

672 

673 

67A 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 
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SEQ  1629 


000657'  260  17  0  00  000022* 

000660'  254  00  0  00  000667' 

000661'  254  00  0  00  000657' 

000662'  474  15  0  00  000000 


000663'  027  00  0  00  000715' 

000664'  254  00  0  00  000653' 

000665'  254  00  0  00  000667' 

000666'  322  15  0  00  000657' 


000667'  263  17  0  00  000000 


000670' 
000671 • 
000672' 
000673' 
000674' 
000675' 
000676' 
000677' 
000700' 
000701 ' 
000702' 
000703' 
000704 ' 
000705' 
000706' 
000707' 
000710' 
00071 1 • 
000712' 
000713' 
000714' 


100700 
000000 
100700 
000000 
101100 
000000 
101200 
000000 
101300 
GuJOOO 
101400 
000000 
101500 
000000 
101600 
000000 
101700 
000000 
100600 
000000 
000000 


005005 

000377 

015005 

000001 

025005 

000002 

035005 

000004 

045005 

000010 

055005 

000020 

065005 

000040 

075005 

000100 

105005 

000200 

115005 

000000 

000000 


000715'  140000  012754' 
000716'  000000000000* 


;  Loop  on  single  step  table  entries 
TA2: 


60 

JRST 
JRST 
SETO 

BEXEC 
TX2 
TA2 
ERFLG, 

error 

printouts 

SCOPER 
JRST 
JRST 
JUMPE 

MA2 
TL2 
TX2 
ERFLG, TA2 

execute  table  entry 
end  of  sstep  table 
keep  looping  after  call, 
error  -  EBUF  data  incorrect 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 

;  End  of  test 

TX2:    RTN  ;  return 

;  Sstep  table,  with  EBUF  data,  as:  (CMD,#Steps, Start  addr,End  Addr,EBUF  data) 

TS2:    ATA8LE  (SSSTRT, 7, 0,5005, 377) 

ATABLE  (SSSTRT, 7. 1,5005,1) 

ATA8LE  (SSSTRT. *D9, 2, 5005, 2) 

ATABLE  (SSSTRT, -DIO, 3, 5005. 4) 

ATABLE  (SSSTRT, *D11, 4, 5005, 10) 

ATABLE  (SSSTRT, *D12, 5. 5005, 20) 

ATABLE  (SSSTRT. *D13, 6, 5005. 40) 

ATABLE  (SSSTRT, -014, 7, 5005. 100) 

ATABLE  (SSSTRT. *D15, 10, 5005, 200) 

ATABLE  (SSSTRT. 6. 11. 5005,0) 

ATABLE  (SSLAST) 
;  Error   messages 

MA2:    HSGITXNOTICASCIZ  /Data  loopback  through  PLI  Buffers  failed  (result  in  EBUF)/] 
LAST! CALL .'TXALLIBBPNT         ;  print  sequencer  data 


DFF 
OFF 

1 


3  1617 


r 


DFPTA9 
DFPTA9 
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SEQ  1630 


DF 
DF 


r 


1617 


DFPTA9 
JDFPTA9 

715 

716 

717 

718 

719 

720 

721 

722 

723 

72A 

725 

726 

727 

728 

729 

730 

731 

732 

733 

73A 

735 

736 

737 

738 

739 

7A0 

7A1 

7A2 

7A3 

7AA 

74  5 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 
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000717' 
000720" 
000721 • 
000722' 
000723* 
000724' 
000725' 
000726' 
000727' 
000730' 
000731 • 
000732' 
000733' 
000734 ' 
000735' 
000736' 
000737' 
000740' 
000741 ' 
000742' 


000743' 
000744' 
000745' 
000746' 


000747' 
000750' 
000751 ' 
000752' 


000753' 
000754 ' 
000755' 
000756' 
000757' 
000760' 


000761 • 
000762' 
000763' 
000764 ' 
000765' 
000766' 


000001 

000000 

000102 

000000 

000203 

000000 

000304 

000000 

000405 

000000 

000506 

000000 

000607 

000000 

000710 

000000 

001011 

^00000 

>  J1112 

000000 


010000 
742001 
010150 
17P021 


020000 
742001 
020150 
102021 


030000 
742001 
030100 
102021 
030250 
000000 


040000 
742001 
040100 
102021 
040250 
000000 


000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 
000000 
000040 


000000 
000340 
010000 
000040 


000000 
000340 
010000 
000440 


000000 
000340 
000000 
000700 
000000 
000040 


000000 
000340 
010000 
000700 
000000 
000040 
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0  -  I's 

1  -  1 

2  -  2 

3  -  4 
4-10 
5  -  "0 
6-40 
7  -  100 

10  -  200 

11  -  O's 

;  Data  pattern  1 's 

MWORD   <ADDR=100,C0NT.SD0,B=2,AND.D=2>       ;  100 
MWORD   <JMAP,J=5001.SAB,A=2,B=2,XNOR,D=2>     ;  101 

;  Data  pattern  floating  I's  -  1 

MWORD   <ADDR=200.CONT.SD0.B=2,AND,D=2>       ;  200 
MWORD   <JMAP,J=5001, SAB, A=2.B=2, PLUS, CRY, D=2>  ;  201 


SEQ  1630 


;  Microcode 

T2I1:    MWORr 

<ADDR=0,JMAP,J=1C 

MWORD 

<JMAP,J=200> 

MWORD 

<JMAP,J=300> 

MWORD 

<JMAP,J=400> 

MWORD 

<JMAP,J=500> 

MWORD 

<JMAP,J=600> 

MWORD 

<JMAP,J=700> 

MWORD 

<JMAP,J=1000> 

MWORD 

<JMAP,J=1100> 

MWORD 

<JMAP,J=1200> 

;  Data  pattern  floating  I's  -  2 

MWORD  <ADDR=3O0,CONT,SD0,B=2,AND,D=2> 

MWORD  <LDCT,J=0, SAB, A=2,B=2, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5000> 

;  Data  pattern  floating  I's  -  4 

MWORD  <ADDR=400 , CONT , SDO ,B=2 , AND , D=2> 

MWORD  <LDCT,J=1 , SAB. A=2,B=2, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5000> 


300 
301 
302 

400 
401 
402 


3  1618 
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n 


SEQ  1631 


DFPTA9 
DFPTA9 

769 

770 

771 

772 

773 

77A 

775 

776 

777 

778 

779 

780 

781 

782 

783 

78A 

785 

786 

787 

788 

789 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

823 
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000767' 
000770' 
000771 ' 
00077?' 
000773' 
000774 • 


000775' 
000776' 
000777' 
001000' 
001001' 
001002' 


001003' 
001004' 
001005' 
001006' 
001007' 
001010' 


001011' 
001012' 
001013' 
001014' 
001015' 
001016' 


001017' 
001020' 
001021' 
001022' 
001023' 
001024' 


001025' 
001026' 


001027' 
001030* 


050000 
742001 
050100 
102021 
050250 
000000 


060000 
742001 
060100 
102021 
060250 
000000 


070000 
742001 
070100 
102021 
070250 
000000 


luJOOO 
742001 
100100 
102021 
100250 
000000 


110000 
742001 
110100 
102021 
110250 
000000 


120050 
742001 


500050 
102021 


000000 
000340 
020000 
000700 
000000 
000040 


000000 
000340 
030000 
000700 
000000 
000040 


000000 
000340 
040000 
000700 
000000 
000040 


000000 
000340 
050000 
000700 
000000 
000040 


000000 
000340 
060000 
000700 
000000 
000040 


010000 
000040 


000000 
000220 
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;  Data  pattern  floating  Ts  -  10 

MWORD  <ADDR=500,CONT,SD0,B=2,AND.D=2> 

MWORD  <LDCT,J=2, SAB, A=2, 8=2, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5000> 

;  Data  pattern  floating  1*5-20 

MWORD  <ADDR=600,CONT,SD0,B=2,AND,D=2> 

MWORD  <LDCT,J=3, SAB, A=2,B=2, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5000> 

;  Data  pattern  floating  1*s  -  40 

MWORD  <ADDR=700,CONT,SD0,B=2,AND,D=2> 

MWORD  <LDCT,J=4, SAB, A=2,B=2, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5000> 

;  Data  pattern  floating  1's  -  100 

MWORD  <ADDR=1000,CONT,SD0,B=2,AND,D=2> 

MWORD  <LDCT,J=5, SAB, A=2,B=2, PLUS, CRY, D=2> 

MWORD  <JMAP,J=5000> 

;  Data  pattern  floating  1's  -  200 

MWORD   <ADDR=1100,CONT,SD0,B=2,AND,D=2> 
MWORD   <LDCT,J=6, SAB, A=2,B=2, PLUS. CRY, D=2> 
MWORD   <JMAP,J=5000> 


SEQ  1631 


500 
501 
502 

600 
601 
602 

700 
701 
702 

1000 
1001 
1002 

1100 
1101 
1102 


;  Data  pattern  O's 

MWORD   <ADDR=1200,JMAP,J=5G01,SD0,B=2,AND,D=2>  ;  1200 

;  Subroutine  to  write  data  to  PLI  Buffers,  read  back,  and  place  in  EBUF 
MWORD   <ADDR=5000,RPCT,J=5000,SAB,A=2,B=2,PLUS,D=2>  ;  5000 


1 
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CBUS  MODULE  TESTS 


SEQ  1632 


1 


DFPTA9 
DFPTA9 


82A 
825 
826 
827 
828 
829 
830 
831 
832 
833 
83A 
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001031'  500100 
001032'  431020 
001033'  500200 
001034'  701000 
001035'  500300 
001036'  732001 
001037'  500400 
001040'  401020 
001041'  500550 
001042'  OOQOOQ 
001043'  777777 


002040 
002340 
000006 
001340 
000300 
002340 
002004 
005340 
050000 
Q00Q4O 
777777 


SEQ  1632 


Df 
DF 


MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
-1 


<CONT,S0A,A=2,OR,D=1,OENA,SELM,MGC=40>  ;  5001 

<C0NT,SD0,D=1,SELP,MGC=6>  ;  5002 

<CONT,SD0.OR,B=2,D=2.SELM,MGC=300>  ;  5003 

<CONT,S0A,A=2.D=1.OENA,SELE,MGC=4>  ;  5004 

<JMAP,J=5005>  ;  5005 
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SEQ  1633 


D 
D 


0FPTA9 
DFPTA9 

835 

836 

837 

838 

839 

8A0 

8A1 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

87i 

875 

876 

877 

878 

879 

880 

881 
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BUS 


CBU 


e  7 

MODULE 


TESTS 


SEQ  1633 


D 
Dl 


001044' 
001045' 
001046' 
001047' 
001050' 
001051' 
001052' 
001053' 
001054* 


001055' 
001056' 
001057' 
001060' 
001061' 


254  00 

100604 

001123' 

012776' 

000000 

000000  

000000000000* 
GuJOOOOOOOOO* 
711177     mill 


0  GO  001055' 
000003 
012770' 
013000' 
001152' 
001275' 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
000647* 
001123' 
000651* 
000000 


001062'  400  15  0  00  000000 

001063'  201  06  0  00  001100' 

001064'  402  00  0  00  000655* 

001065'  476  00  0  00  000000* 


/>«♦*»*****************♦*********************************♦*****♦****** 
*  Test  3  -  CBUS  to  EBUF  Data  Transfer 


Description: 


Procedure: 


This  test  performs  a  simple  single  word  CBUS  data 
transfer  from  KLIO  memory  over  the  CBUS  through 
the  CBUS  module  over  the  MBUS  through  the  290rs 
to  the  EBUF.  The  EBUF  is  then  read  and  verified. 

KL>  Port  Clear 

KL>  Set  up  a  CCW  list  to  transfer  1  word 

KL>  Start  up  port        .     .  ^„.,^ 

UC>  Read  word  from  CBUS  and  put  in  EBUF 

KL>  Stop  microcode,  read  EBUF 

KL>  Verify  data  transfer  completed  ok 

Repeat  with  data  patterns  1-114 

Failure:     — 

#*♦*♦***♦*♦****»*******♦**********•********************************** 


Test  data 
TSTC3: 


30  start  test 


JRST    TG3        ,        ;  gc  -- 
CBUS!NDMP!NDCB!ZCBUS!3        ;  test  mask 
T3M,.CASCIZ  •CBUS  to  EBUF  Data  Transfer*: 
CEXP  C1.MLAST1C14D..CEXP  C5,C4.C8.MLAST!C2] 
TSTC4  ;  failure  test  table 

TSTC5 
TSTC4G 
TSTC41 
-1 


;  Start  test 
TG3: 


MOVE  I  Z9 

GO  TRACE 

MOVE  I  1,T3M 

GO  TLOAD 
RTN 


;  Initialization 

TL3:    SETZ  ERFLG. 

MOVE I  6,TS3 

SETZM  TSTSUB 

SETOM  CSTATF 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
set  check  logout  status  flag 
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SEQ  1634 


r 


DFPTA9 
DFPTA9 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 
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CBUS 


001066' 
001067' 
001070' 
001071' 
001072' 


260 
260 
254 
254 
474 


001073'  027 

001074'  254 

001075'  254 

001076'  322 


17 
17 
00 
00 
15 


00 
00 
00 
15 


00 
00 
00 
00 
00 


000654* 
000000* 
001077' 
001067' 
000000 


00  001121' 
00  001062' 
00  001077' 
00  001066' 


001077'  263  17  0  00  000000 


001100' 

0011  or 

001  lOd!' 
001103' 
001104* 
001105' 
001106' 
001107' 


001110' 
001111' 


240000 
300000 
100000 
240000 
200000 
340001 
440000 
000000 


001110' 

001112' 

000001 

001116' 

000000 

014064' 

001101' 

000000 


402 
263 


001112'  350 

001113'  307 

0C1114'  350 

001115'  263 


001116'  200 
001117'  202 
001120'  263 


00 
17 


01 
01 
00 
17 


00 
00 
17 


00 
00 


000000* 
000000 


00  001110* 
00  000114 
17  000000 
00  000000 


00  000000* 
00  014064' 
00  000000 


001121'  140000  013004' 
001122'  000000000000* 


e  8 
MODULE 


TESTS 


SEQ  1634 


Loop  on  test  execute  table  entries 


TA3 

tb! 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

CEXEC 

TX3 

T83 

ERFL6, 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA3 
TL3 
TX3 
ERFL6.TA3 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


;  End  of  test 

TX3:    RTN 

;  Data  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


TS3:    CTABLE  (CCALL,TS3SET) 

TS3A:   CTABLE  (CCALLC,TS3INC) 

CTABLE  (CSETWR,0,1) 

CTABLE  (CCALL.TS3SEE) 

CTABLE  (CSTART.O) 

CTABLE  (CUAITJ.TS3EBU) 

CTABLE  (CJRST,TS3A) 

CTABLE  (CLAST) 

;  Initialize  data  pattern  selection 


TS3SET: 


SETZM 
RTN 


CPAT 


Increment  data  pattern 


TS3INC; 


AOS 
CAIG 
AOS 
RTN 


l.CPAT 

1,114 

(P) 


Set  up  correct  EBUF  data 


TS3SEE; 


MOVE 

MOVEM 

RTN 


BUFF 
TS3EBU# 


set  up  initial  data  pattern 

increment  data  pattern 

set  up  write  (default  pattern, 1  word) 

set  up  correct  tBUF  contents 

start  up  port  .^   ^  ^^ 

check  if  completed  (and  verify  EBUF) 

loop  till  done 

end  of  table 


clear  data  pattern 
return 


increment  data  pattern 
done  with  test  yet? 
no  -  set  up  proper  return 
return 


get  correct  EBUF  data 

save  it 

return 


;  Error  messages 

MA3:    MSGITXNOTICASCIZ  /Data  transfer  test  error  detected  (result  in  EBUF)/] 
LAST! CALL !TXALL!CCPNT         ;  print  test  data 
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SEQ  1635 
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935 

936 

937 

938 

939 

9A0 

9A1 

9A2 

9A3 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

^2 
963 
964 
965 
966 
967 


II 


70 
971 
972 
973 
974 
975 


001123' 
001124' 


001125' 
001126' 


001127' 
001130' 
001131' 
001132' 


001133' 
001134' 
001135' 
001136' 
001137' 
001 14C' 


000000 
742000 


000100 
001000 


000200 
001400 
000300 
001000 


000400 
001000 
000500 
732000 
000600 
431000 


001141' 
001142' 
001143' 
001144' 


000700 
GuJOOO 
001000 
000000 


001145' 
001146' 
001147' 
001150' 
001151' 


500050 
000000 
500150 
000000 

mm 


010000 
000040 


000200 
C04340 


040000 
000060 
020000 
000040 


000004 
0043'«0 
000200 
002340 
002004 
005340 


000140 
004340 
100000 
000040 


010100 
004040 
010020 
002040 

mm 
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;  Microcode 

T3M:    MUORD  <ADDR=0,JMAP,J=1 ,SD0,AND.D=2> 

;      First,  start  the  CBUS 

MUORD  <CONT,D=1,SELC.MGC=200> 


SEQ  1635 


;  0 


;  1 


Then  wait  for  CBUS  to  be  available  (1  word  done) 

MWORD   <CJP,J=4,D=1.CENA.CCCA>  ;  2 

MWQRD   <JMAP,J=2,D=1>  ;  3 

Now  move  it  to  formatter  then  to  2901*5  then  to  BBUF 

MWQRD   <C0NT,D=1,SELC,MGC=4>  ;  4 

MWQRD   <CONT.SD0,OR,D=2,SELM.MGC=200>  ;  5 

MWQRD   <CQNT,S0A.0R.D=1.0ENA.SELE.M6C=4>  ;  6 

Finally  set  STOP  and  STORE 

MWQRD   <CQNT.SELC,MGC=140>  ;  7 

MWQRD   <JMAP,J=10>  ;  10 

Initialization  step 

MWQRD       <ADDR=5000JMAP.J=5001.SELC.MGC=100>  ;   5000 

MWQRD       <JMAP,J=5001.SELM.MGC=20>  ;   5001 

-1 
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SEQ  1636 


^ 


997 
998 
999 

1000 

1001 

1002 

1003 

100A 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 


001152' 
00115:' 
001154' 
001155* 
001156* 
001157* 
001160* 
001161* 


254  GO  0  00  001162' 
100604  000004 
001220'  013017* 
013025*  013000' 
000000  001275' 
000000000000* 
Ou. '000000000* 
777777     777777 


001162'  201  00  0  00  000000' 

001163'  260  17  0  00  001056» 

001164'  201  01  0  00  001220' 

001165'  260  17  0  00  001060* 

001166'  263  17  0  00  000000 


001167' 
001170* 
001171* 


400  15  0  00  000000 


201  06 
402  00 


001172'  476  00 
001173'  400  15 


00  001206* 
00  001064* 
00  001065* 
00  000000 


#*»»»*»»»**»*«»»»»****t****»»»*****»«******************************** 

*  Test  4  -  2901  to  CBUS  Data  Transfer 


Descn'ptior.;  This  test  performs  a  simple  single  word  CBUS 
transfer  from  the  290rs  across  "-"  ""'   '" 
CBUS  module,  then  to  KL10  memory 
contents  is  then  verified. 


data 
the  MBUS  to  the 
.  The  data  buffer 


Procedure:    KL>  Port  Clear  .   ,    ^ 

KL>  Set  up  a  CCU  list  to  transfer  1  word 
KL>  Start  up  port         ,  ^„^, 
UC>  Generate  a  data  pattern  in  2901  and 
transfer  over  the  CBUS  to  10  memory 
KL>  Verify  the  data  is  correct 
<L>  Verify  data  transfer  completed  ok 

Repeat  with  data  patterns  O's  and  I's 

Failure:     — 
j|f«  •••»»•*•*•»*»**•♦**••*•♦**•♦•♦**•***•*•*  ****••♦•••***♦****•******** 


Test  data 


JO  start  test 


TSTC4:   JRST    T64  ;  QC 

CBUS 1NDMP:nDCB!Z CBUS 14        ;  test  mask 

T4M.,[ASCIZ  *2901  to  CBUS  Data  Transfer*] 

CEXP  C1,MLAST!C15],,CEXP  C5.C4.C8,«LAST!C2] 

TSTC5  ;  failure  test  table 

TSTC40 

TSTC41 

-1 


;  Start  test 
TG4: 


MOVE  I  Z9 

GO  TRACE 

MOVE!  1.T4M 

GO  TLOAD 
RTN 


;  Initialization 
TL4: 


SETZ  ERFL6. 

MOVE!  6.TS4 

SETZM  TSTSUB 

SETOH  CSTATF 

SETZ  ERFLG. 


get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
set  check  logout  status  flag 
clear  error  flag 
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SFQ  1637 


SEO  1624 


DFPTA9 
DFPTA9 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 
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Page 

BUS 


11 
MODULE 


TESTS 


SEO  1637 


Loop  on  test  execute  table  entries 


001174' 
001175' 
001176' 
001177' 
001200' 


260 
260 
254 
254 
474 


001201'  027 

001202'  254 

001203'  254 

001204'  322 


17 
17 
00 
00 
15 


00 
00 
00 

15 


00 
00 
00 
00 
00 


001066* 
001067* 
001205' 
001175' 
000000 


TA4; 
TB4 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

CEXEC 

TX4 

TB4 

ERFL6. 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


;  Handle  error  printouts  and  scope  looping 


00  001216' 
00  001167' 
00  001205' 
00  001174' 


SCOPER 
JRST 
JRST 
JUMPE 


nA4 

TL4 
TX4 
ERFLG.TA4 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


001205'  263  17  0  00  000000 


001206' 
001207- 
001210* 
00121'' 
001212' 
001213' 
001214' 
001215' 


001216' 
001217' 


001220' 
001221' 
001222' 
001223' 
001224' 
001225' 


040000 
200000 
340001 
500000 
040000 
200000 
340001 
000000 


000001 
000000 
000000 
000000 
000001 
000001 
000000 
000000 


140000  013027' 
000000000000* 


000000 
742000 
000100 
742000 
000200 
172000 


001226'  000300 
001227'  401000 


001230' 
001231' 


000400 
001000 


030000 
000040 
020000 
000040 
030000 
000040 


002040 
003340 


000220 
004340 


;  End  of  test 

TX4:    RTN 

;  Data  Test  Execute  Table,  as 

TS4:    CTABLE  (CSETRD,0.1) 

CTABLE  (CSTART.O) 

CTABLE  (CWAJT.l) 

CTABLE  (CEXIT) 

CTABLE  (CSETRD.0-1) 

CTABLE  (CSTARTJ) 

CTABLE  (CWAITJ) 

CTABLE  (CLAST) 


;  return 
(CMD, parameters) 


set  up  write  (default  pattern, 1  word) 

start  up  port  at  location  0 

check  if  completed 

exit  if  error  yet 

set  up  write  (default  pattern, 1  word) 

start  up  port  at  location  1 

check  if  completed 

end  of  table 


;  Error  messages 
nA4: 


MSGiTXNOTlCASCIZ  /Data  transfer  test  error  detected/3 
LAST! CALL ITXALLICCPNT         ;  print  test  data 


;  Microcode 
T4M:    MWORD 
MUORD 
MWORD 


<ADDR=0,JMAP.J=3,SD0.AND,D=2> 

<JMAP,J=2,SD0.AND,D=2> 

<JMAP,J=3,SAB,XN0R,D=2> 


First,  load  the  formatter 

MUORD   <CONT,S0A,D=1,0ENA,SELF,MGC=40> 

Then,  start  the  CBUS 

MUORD   <CONT,D=1,SELC,MGC=220> 


0 
1 
2 

;  3 

;  4 


fm     liTt 
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r' 


SEQ  1625 
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SEQ  1638  ' 


1079 

1080 

1081 

1082 

1083 

108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110A 

1105 

1106 

1107 

1108 

1109 

1110 

nil 

1112 
1113 
IIU 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 


001232'  000500 

001233*  001400 

001234'  000600 

001235'  001000 


001236' 
001237' 


000700 
001000 


001240'  001000 

001241'  001400 

001242'  001100 

001243'  001000 


001244'  001200 

001245'  000000 

001246'  001300 

001247'  000000 


001250' 
001251' 
001252' 
001253' 
001254' 
001255' 
001256' 
001257' 
001260' 
001261' 
001262' 
001263' 
001264' 
001265' 
001266' 
001267' 


OOHOO 
7iJ007 
001500 
335007 
001600 
431170 
001700 
000400 
002000 
000000 
002100 
431010 
002200 
431050 
002300 
000000 


070000 
000060 
050000 
000040 


000002 
004340 


120000 
000060 
100000 
000040 


000140 
004340 
130000 
000040 


310200 
640300 
150000 
400220 
002004 
005340 
210040 
015060 
170000 
000040 
000200 
005340 
002004 
005340 
230000 
000040 


001270'  500050  010100 

001271'  000000  004040 

001272*  500150  010020 

001273'  OOOOQQ  QQ2Q40 

001274'  777777  777777 


Then,  wait  tor  CBUS  to  be  available 
MUORD   <CJP,J=7,D=1.CENA,CCCA> 
MWORD   <JMAP,J=5,D=1> 

Put  data  in  CB  Output  Buffer 
MWORD   <C0NT,D=1,SELC,M6C=2> 


;  5 
;  6 

;  7 


Then,  wait  for  CBUS  to  be  available  (1  word  done) 
nWORD   <CJP,J=12,D=1,CENA,CCCA>  ;  10 

MWORD   <JMAP.J=10,D=1>  ;  11 


Finally  set  STOP  and  STORE 
MWORD   <CONT,SELC.M6C=140> 
MWORD   <JMAP,J=13> 


;  12 
;  13 


Finally,  write  bit  'RspQAV  in  CSR  to  indicate  we  are  done, 
and  write  word  count  to  EBUF 


MWORD  <LDCT,J=31 .SD0,0R,B=17.D=2.SKCN,MGC=200> 

MWORD  <RPCTJ=15,S0B,0R.B=17.D=5> 

MWORD  <CONT,SOA,A=17.0R,D=1,OENA,SELE,MGC=4> 

MWORD  <CJP,J=21 .CENA.CC6C,SELE,MGC=40> 

MWORD  <JMAP,J=17> 

MWORD  <C0NT,S0A,A=1 .0R.D=1 ,SELE.MGC=200> 

MWORD  <CONT,S0A.OR.A=5.D=l.OENA,SELE,M6C=4> 

MWORD  <JMAP,J=23> 


14 
15 
16 
17 
20 
21 
22 
23 


Initialization  step 

MWORD   <ADDR=5000,JMAP J=5001 .SELC.MGC=100> 

MWORD   <JMAP.J=5001.SELM.M6C=20> 

-1 


;  5000 
;  5001 


DFPTA9 
DFPTA9 

1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1K0 
1U1 
1U2 
11A3 
1KA 
1U5 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
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SEQ  1639 


001275' 
001276' 
001277' 
001300' 
001301' 
001302' 
001303' 
001304' 


001305' 
001306' 
001307' 
001310' 
001311' 


254  00  0  00  001305' 
100604  000005 
001453'  013036' 
013046'  013051' 
000000000000* 
000000000000* 
000000  001612' 
777177     777777 


/If*  ******************************************************************* 
*  Test  5  -  CBUS  to  2901  Multiple  word  Transfer 

Description:  This  test  performs  a  lengthy  CBUS  data  transfer 
from  the  KLIO  memory  across  CBUS  to  the  port.  The 
microcode  accepts  the  first  data  word  as  the  data 
pattern  to  be  used,  and  verifies  the  remaining 
words  against  this. 

Procedure:    KL>  Port  Clear 

KL>  Sei  up  a  CCW  list  to  transfer  102400  words 

(512  words  in  user  mode) 
KL>  Start  up  port 
UC>  Initialize  word  count 

UC>  Read  first  word  from  CBUS  and  put  in  2901  R4 
UC>  Repeat  until  'Last  Wd'  is  seen: 
Read  a  word 
Compare  to  first  word 

If  error  -  put  word  in  error  into  R3 

-  put  word  count  in  EBUF 

-  abort  test 
If  ok  -  do  next  word 

UC>  Assert  STOP  and  STORE  and  put  word  count  into  EBUF 
KL>  Stop  microcode,  read  EBUF  -  verify  word  count 
KL>  Read  R4  to  get  correct  data  (1st  word  read) 
KL>  If  stopped  at  wrong  location,  read  R3  to  get 

actual  data. 
KL>  Verify  data  transfer  completed  ok 

Repeat  with  data  patterns  1-114 

Failure:     — 

/|r*******4r*****  ***••**«*••***•*******•****•*********•**  ***1^'***t«***t*t 

Test  data 

TSTC5:  JRST    T65  ;  go  start  test 

CBUS !NDMP!NDCB!Z CBUS 15  ;  !est  mask 

T5M,,[ASCIZ  *CBUS  to  2901  Multiple  Word  Transfer*] 
CEXP  C1,C14.MLAST!C173,,CEXP  C12,C5,C8,C4,MLAST!C2] 

TSTC40  ;  failure  test  table 

TSTC41  ;   ... 
TSTC6 
-1 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 

^7 

17 


00 
00 
00 
00 
00 


000000' 
001163* 
001453' 
001165* 
000000 


T65; 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z9 

TRACE 
1,T5M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  -t 

failed  -  exit  test 
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SEQ  1640 


■-n 


DFPTA9 
DFPTA9 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12U 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 
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SEQ  1640 


Initialization 


001312'  400 

001313'  201 

001314'  402 

001315'  400 


15 
06 
00 
15 


001316' 
001317' 
001320' 
001321' 
001322' 


260 
260 
254 
254 
474 


001323'  027 

001324'  254 

001325"  254 

001326'  322 


17 
17 
00 
00 
15 


00 
00 
00 
15 


GO  000000 
00  001330' 
00  001171* 
00  000000 


TL5; 


SETZ 
MOVE] 
SETZM 
SETZ 


ERFLG,, 
6.TS5 
TSTSUt 
ERFL6, 


Loop  on  test  execute  table  entries 


00 
00 
00 
00 
00 


001174* 
001175* 
001327' 
001317' 
000000 


TA5: 
TB5: 


GO 

1)0 
JRST 
JRST 
SETO 


IPACLR 

CEXEC 

TX5 

TBS 

ERFL6, 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  error  flag 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


00  001370' 
00  001312' 
00  001327' 
00  001316' 


001327'  263  17  0  00  000000 


;  Handle  error  printouts  and  scope  looping 

SCOPER  MAS 

JRST  TLS 

JRST  TXS 

JUMPE  ERFLCTAS 

;  End  of  test 

TXS:    RTN 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


OFPT/ 
DFPT/ 

18; 
18; 

18; 


return 


001330' 
001331' 
001332' 
001333' 
001334' 
001335* 
001336' 
001337' 


001340' 
001341' 
001342' 
001343' 
001344' 
001345* 


240000 
3uJ000 
100000 
200000 
341000 
240000 
440000 
000000 


001340' 

001346' 

000000 

001000 

000000 

001356* 

001331' 

000000 


;  Data  Test  Execute  Table,  as:  (CMD, parameters) 

TS5:    CTABLE  (CCALL.TS5SET) 

TSSA:   CTABLE  (CCALLC,TS5INC) 

CTABLE  (CSETWR,0.0) 

CTABLE  (CSTART.lOOO) 

CTABLE  (CWAIT, 1000,0) 

CTABLE  (CCALL,TS5CHE) 

CTABLE  (CJRSTJSSA) 

CTABLE  (CLAST) 


set  up  initial 
increment  data 
set  up  write 
start  up  port 
check  if  completed 
check  results 
loop  till  done 
end  of  table 


data  pattern 
pattern 


Initialize  data  pattern  selection 


402  00  0  00  001112* 
201  00  0  00  001000 
336  00  0  00  030037 

201  00  0  00  310000 

202  00  0  00  000000* 
263  17  0  00  000000 


TSSSET:  SETZM 
MOVE! 
SKIPN 
MOVE  I 
MOVEM 
RTN 


CPAT 

*DS12 

USER 

*D102400 

CLEN 


clear  data  pattern 

length  of  data  transfer  is 
T02400  words  exec  mode 
and  512  words  user  mode 

save  it 

return 


1628 


DFPTA9  MACRO  5(538(1242)  09:42  l-Jul-85  Page  14 

DFPTA9  MAC    18-Apr-85  11:00       CBUS  MODULE  TESTS 


SEQ  1641 


DFP1 
DFPl 


r" 


0FPTA9 
DFPTA9 

1231 
1232 
1233 

1235 

1236 

1237 

1238 

1239 

1240 

12A1 

1242 

1243 

12AA 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 
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001346'  350  01  0  00  001340* 

001347'  260  17  0  00  001316* 

001350'  307  01  0  00  000114 

001351'  350  00  0  17  000000 

001352'  332  00  0  00  000000* 


001353'  254  00  0  00  013056' 
001354'  476  00  0  00  001172* 
001355'  263  17  0  00  000000 


001356' 
001357' 
001360' 
001361' 
001362' 
001363' 
001364' 
001365' 
001366' 
001367' 


260 
200 
312 
474 
200 
312 
474 
350 
350 
263 


17 
01 
01 
15 
01 
01 
15 
00 
00 
17 


00 
00 
00 
00 
00 
00 
00 
17 
17 
00 


001373' 

000000* 

001344* 

000000 

014011' 

014012' 

000000 

mm 
mm 

000000 


001370'  140000  013027' 
001371'  21J000  001373' 
001372'  000000000000* 


001373' 
001374' 
001375' 
001376' 
001377' 


322  15  0  00  001406' 
200  01  0  00  001357* 
316  01  0  00  001360* 
254  00  0  00  001406* 
331  00  0  00  000001 


001400' 
001401' 
001402' 
001403' 
001404' 
001405' 


254 
037 
210 
350 
037 
037 


00 
00 
00 
00 
15 
00 


00  013100' 
00  013110' 
00  001374* 
00  000000 
00  OOQOOO 
00  013074' 


Increment  data  pattern 


TS5INC; 


AOS 

GO 

CAIG 

AOS 

SKIPE 

JRST 


SETOM 
RTN 


1.CPAT 
IPACLR 
1,114 
(^) 

UDEBUG 

CCAJG 

AOS 

JRST 

CSTATF 


1,10 

(^) 

.+1] 


increment  data  pattern 

do  a  'port  clear* 

done  with  test  yet? 

no  -  set  UD  proper  return 

debug  mode? 

yes  -  limit  to  only  10  segments 


set  check 
return 


;  Check  results 

TS5CHE:  GO 
MOVE 
CAME 
SETO 
MOVE 
CAME 
SETO 
AOS 
AOS 
RTN 


MAS CHE 

1.CE8UFA 

1,CLEN 

ERFLG, 

l.SAVDAl 

1,SAVDA2 

ERFLG, 

-6(P) 

-6(P) 


logout  status  flag 


data 


get  additional 
get  word  count 
correct? 

no  -  set  error  flag 
get  actual  data 
same  as  correct? 
no  -  set  error  flag 
set  up  error  return 
set  up  error  return 
return 


Error  messages 


MA5; 


MSGITXNOTICASCIZ  /Data  transfer  test  error  detected/3 


CALL!TXN0T!MA5CHE 
LAST! CALL !TXALL!CCPNT 


check  other  results 
print  test  data 


Check  results  -  first  the  word  cc  .  left  in  the  EBUF 


MA5CHE 


JUMPE 

MOVE 

CAMN 

JRST 

SKIPL 

JRST 


TMSGC 

MOVN 

AOS 

PNTDEC 

TMSG 


ERFLG, MA5CH0 

1,CEBUFA 

1,CLEN 

MA5CH0 

1 

[TMSGC 

TMSGC 

PDEC 

TMSG 

TMSGC 

PDEC 

TMSG 

JRST 


no  error  yet?  - 

get  word  count 

correct? 

yes  -  continue 
,  word  count  error? 
<Word  count  error  detected  by  port: 
<  Correct:> 
10,CLEN 


continue 


<  Actual :> 

11,CEBUFA  ;  print  it 

<•> 
^,w.   MA5CH0] 

<Parity  error  detected  by  port  in  word  *> 
CEBUFA 


<•> 
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SEQ  1642 


DFPTA9 
DFPTA9 

1284 

1?85 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

13U 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 
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Page 
BUS 


CBU 


15 
MODUlE 


r 


TESTS 


SEQ  1642 


DFP 
OFP" 


001406' 
001407' 
001410' 
001411' 
001412' 
001413* 
001414' 
001415' 
001416' 
001417' 
001420' 
001421' 
001422' 
001423' 
001424' 
001425' 
001426' 
001427' 
001430' 
001431' 
001432' 
001433' 


001434' 
001435' 
001436' 
001437' 
001440' 
001441' 
001442' 
001443' 
001444' 
001445' 
001446' 
001447' 
001450' 
001451' 
001452' 


400  01 
260  17 
201  01 
242  01 
260  17 
201  " 


_   01  . 

260  17  0 
C 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


201  01 
260  17 
260  17 

202  01 
400  01 
260  17 
201  01 
242  01 
260  17 
201  01 
260  17 

201  01 
260  17 
260  17 

202  01 


332  00 
316  01 
2o<  17 
037  00 
200  00  0 
350  00  0 
037  15  0 
037  00  0 
037  00  0 
200  00  0 


037  13 
037  00 
200  00 
037  13 
263  17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 

000000* 

000200 

000001 

000000* 

000010 

001407* 

200000 

001414* 

000000* 

014011' 

000000 

001416* 

000300 

000001 

001412* 

000010 

001422* 

200000 

001427* 

001417* 

014012' 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000015 

014011' 

000000 

013121' 

001402* 

000000 

000000 

013074' 

013130' 

014012' 

000000 

013133' 

014011' 

000000 

000000 


Then  the  correct/actual  data  being  read 


MA5CH0:  SETZ 
GO 

MOVE  I 
LSH 
GO 

MOVE  I 
GO 

MOVE  J 
GO 
GO 

MOVEM 
SETZ 
GO 

MOVE  I 
LSH 
GO 

MOVE  I 
GO 

MOVE  I 
GO 
GO 
MOVEM 


l6csr 

1,200 

L6RAr'; 

1 ,MPRUN 

LDCSR 

IJSTEBF 

LDCSR 

RDEBUF 

1.SAVDA1* 

LDCSR 

1,300 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1,TSTEBF 

LDCSR 

RDEBUF 

1,SAVDA2* 


ensure  the  port  is 

stopped 
get  address  to  get  R3 
position  correctly 
load  RAR  register 
set  up  initial  CSR  data 
write  CSR  register 
set  up  CSR  to  read  EBUF 
write  it 

get  EBUF  data  (actual) 
save  it 
ensure  the  port  is 

stopped 
get  address  to  get  R4 
position  correctly 
load  RAR  register 
set  up  initial  CSR  data 
write  CSR  register 
set  up  CSR  to  read  EBUF 
write  it 

get  EBUF  data  (actual) 
save  it 


;  Check  for  data  compare  error  -  and  print  if  so 


SKIPE 

CAMN 

RTN 

TMSGC 

MOVE 

AOS 

PNTDEC 

TMS6 

TMSGC 

MOVE 

PNTHW 

TMSGC 

MOVE 

PNTHW 

RTN 


ERFLG 
1,SAVDA1 


;  error  yet? 

;  yes  -  error? 

;  no  -  return 
<Data  compare  error  -  Word  #  > 
CEBUFA 


<.> 

<  Correct 
SAVDA2 

<  Actual: 
SAVDA1 


get  word  count 
print  it 


;  get  correct  data 

;  print  it 

:  get  actual  data 

;  print  it 

;  return 


"1 
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SEQ  1643 


DFF 
DFP 
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1327 

1328 

1329 

1330 

1331 

1332 

1333 

133A 

1335 

1336 

1337 

1338 

1339 

13A0 

13A1 

13A2 

1343 

134A 

13A5 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 


001453' 
001454' 
001455' 
001456' 
001457' 
001460' 
001461' 
001462' 


001463' 
001464' 
001465' 
001466' 
001467' 
001470' 
001471' 
001472' 
001473' 
001474' 
001475' 
001476' 


000001 
001000 
000100 
432032 
000200 
442052 
000300 
402052 


000401 
001000 
000500 
161432 
000600 
000000 
000700 
302002 
001000 
332405 
001100 
000000 


001477' 
001500' 
001501' 
001502' 
001503' 
001504' 


001505' 
001506' 


001200 
GuJOOO 
001300 
431050 
001400 
000000 


001500 
000000 


001507' 
001510' 
001511' 
001512' 
001513' 
001514' 
001515' 
001516' 
001517' 
001520' 
001521' 


001600 
732007 
001700 
335007 
002000 
431170 
002100 
000400 
002200 
OOOQOO 
002300 


000000 
000020 
000000 
000340 
000000 
400340 
000000 
400740 


030000 
000020 
070000 
020060 
110000 
000040 
000000 
400740 
150000 
120060 
040000 
000040 


000140 
004340 
002004 
005340 
140000 
000040 


000140 
004340 


310200 
640300 
170000 
400220 
002004 
005340 
230040 
015060 
210000 
000040 
000200 
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;  Microcode  -  Read  the  first  word 

T5M:    MWORD   <ADDR=0,CJS J=100,D=1> 

MWORD   <C0NT,S0A,0R,A=3,B=4,D=2> 
MWORD   <C0NT.S0A.AND,A=5,B=5,D=2> 
MWORD   <C0NT,S0A,PLUS,A=5,B=5,D=2,CRY> 

Read  2nd  through  102400  words 

MWORD   <CJS,J=103,D=1> 

MWORD   <CJP,J=7,SAB,X0R,A=3,B=4,D=1 ,CENA,CCFZ> 

MWORD  <JMAP.J=11> 

MWORD  <C0NT, SOB, B=5, PLUS, D=2,CRY> 

MWORD  <CJP J=1 5,SOB,OR,B=12.D=2,CENA,CCMB> 

MWORD  <JMAP,J=4> 

;      Error  (data  compare)  occurred 

MWORD  <C0NT.SELC,MGC=140> 

MWORD  <C0NT,S0A,0R,A=5,D=1 ,0ENA.SELE,M6C=4> 

MWORD  <JMAP,J=14> 

All  done  -  set  STOP  and  STORE 
MWORD   <CONT„SELC,M6C=140> 


SEO  1643 


0 
1 
2 
3 

4 
5 
6 

7 

10 

11 

;  12 
;  13 
;  14 

;  15 


Finally,  write  bit  'RspQAV  in  CSR  to  indicate  we  are  done, 
and  write  word  count  to  EBUF 


MWORD  <LDCT,J=31,SD0,OR,8=17,D=2,SKCN,M6C=200> 

MWORD  <RPCT,J=17,S0B,OR,B=17,D=5> 

MWORD  <C0NT,S0A,A=17,0R,D=1,0ENA,SELE,MGC=4> 

MWORD  <CJP,J=23,CENA,CCGC,SELE,M6C=40> 

MWORD  <JMAP,J=21> 

MWORD  <CONT,S0A,A=1.OR,D=1,SELE.MGC=200> 


16 
17 
20 
21 
22 
23 


1 
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SEQ  164A 


DFPTA9 
DFPTA9 

1382 

1383 

138A 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

139A 

1395 

1396 

1397 

1398 

1399 

KOO 

U01 

1A02 

U03 

140A 

H05 

1A06 

1A07 

H08 

U09 

1A10 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 


MACRO  X53B(1242)  09:42  !• 
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SEQ  1644 


001522' 
001523' 
001524' 
001525' 
001526' 


431010 
002400 
431050 
002500 
000000 


001527' 
001530' 
001531' 
001532' 
001533' 
001534' 
001535' 
001536' 
001537' 
001540' 
001541' 
001542' 
001543' 
001544' 
001545' 
001546' 
001547' 
001550' 
001551' 
001552' 
001553' 
001554' 
001555' 
001556' 
001557' 
001560' 


010000 

000000 

010100 

000000 

010201 

000000 

010301 

000400 

010401 

000000 

01C500 

000000 

010600 

342005 

010700 

732001 

011001 

372405 

011100 

342005 

GM201 

000400 

011301 

000400 

011400 

000000 


001561'  011500 

001562'  000000 

001563'  011601 

001564'  000000 


001565' 
001566' 
001567' 
001570' 
001571' 
001572' 


011700 
000000 
012000 
471050 
012101 
000000 


005340 
002004 
005340 
250000 
000040 


000200 
004340 
100000 
000300 
020000 
000220 
050000 
000060 
030000 
000040 
000000 
000340 
000004 
004340 
000200 
402340 
120000 
170060 
000000 
000340 
150000 
160060 
170000 
140060 
000000 
000240 


000140 
004340 
160000 
000040 


000140 
004340 
002004 
005340 
210000 
000040 


MUORD   <C0NT,S0A,0R,A=5.D=1,0ENA,SELE,MGC=4> 
MWORD   <JMAP,J=25> 


;  24 
;  25 


Routine  to  read  a  word  from  CBUS.  through  formatter  into  R3 
(If  this  routine  is  started  at  101,  then  the  next  word  from 
the  CBUS  is  read). 


MWORD  <ADDR=100,CONT,SELC,MGC=200> 

MWORD  <LDCT,J=10> 

MWORD  <RPCT,J=102> 

MWORD  <CJP,J=105,CENA,CCCA> 

MWORD  <JMAP,J=103> 

MWORD  <C0NT> 

MWORD  <C0NT,S0B,AND,B=12.D=2,SELC.MGC=4> 

MWORD  <C0NT,SD0.0R,B=3,r   ,SELM,MGC=200> 

MWORD  <CJP,J=112,S0B,XNOR,B=12,D=2,CENA,CCLW> 

MWORD  <C0NT,S0B,AND,B=12,D=2> 

MWORD  <CJP,J=115,CENA.CCCE> 

MWORD  <CJP,J=117,CENA,CCCP> 

MWORD  <CRTN> 

Error  (channel  error)  occurred  -  set  STOP  and  STORE 

MWORD  <C0NT,SELC,MGC=140> 

MWORD  <JMAP,J=116> 

Error  (parity  error)  occurred 

MWORD  <C0NT,SELC,M6C=140> 

MWORD  <CONT,SOA,XNOR,A=5,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <jriAP,J=121> 

Routine  to  read  R3  and  place  in  EBUF 


100 
101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 

115 
116 

117 
120 
121 


1632 
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SEQ  1645 


Q  1632 


DFPTA9 
0FPTA9 

H37 

U38 

1439 

UAO 

1AA1 

1AA2 

KA3 

1AAA 

UA5 

1A46 

HA7 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 


MACRO  X53B(1242)  09:42 
MAC    18-Apr-85  11:00 

001573'  020002  012004 

001574'  431030  005040 

001575'  020102  010000 

001576'  000000  000040 


001577'  030003  012004 

001600'  431040  005040 

001601'  030103  010000 

001602'  000000  000040 


001603'  100000  000020 
001604'  000000  002000 


001605'  500050  010100 

001606'  OOCOOO  004040 

001607'  500150  010020 

001610'  000000  002040 

001611'  mill  mill 
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SEQ  1645 


MUORD 
MUORD 


<ADDR=200JMAP,J=201,SOA,A=3,OR,OENA,D=1,SELE,MGC=4> 
<JMAP,J=201>  ;  201 


Routine  to  read  R4  and  place  in  EBUF 

MWORD   <ADDR=300,JMAP,J=301,S0A,A=4,GR,OENA,D=1,SELE,MGC=4> 

MUORD       <JMAP,J=301>  ;   201 


Initialization 

MUORD       <ADDR=1000,JZ,SELM.MGC=20> 

Initialization  step 

MUORD       <ADDR=5000.JMAPJ=5001,SELC.MGC=100> 

MUORD       <JMAP,J=5001.SELM,MGC=20> 

-1 


1000 

5000 
5001 


DFI 
DFI 


EQ  1633 


n 
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SEQ  1646 


DF 
DF 


EQ  1633 


DFPTA9 
DFPTA9 

U61 

H62 

U63 

H6A 

1A65 

K66 

U67 

1468 

H69 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1465 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

150« 

150>' 

1510 

1511 
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SEQ  1646 


r 

I 

DF 
DF 


*  Test  6  -  2901  to  CBUS  Multiple  word  Transfer 


Description; 


Procedure: 


This  test  performs  a  lengthy  CBUS  data  transfer 
from  the  port  across  the  CBUS  to  KLIO  memory.  The 
microcode  builds  each  data  pattern  then  transfers 
this  data  to  the  KLIO  until  the  CCW  list  is 
exhausted.  The  data  buffer  is  then  verified. 

KL>  Port  Clear 

KL>  Load  test  microcode 

KL>  Load  microcode  to  generate  data  pattern 
KL>  Set  up  a  CCW  list  to  transfer  102400  words 

(512  words  in  user  mode) 
KL>  Start  up  port 

UC>  Initialize  word  count         ,  .     .,  ^ 
UC>  Write  word  to  CBUS,  and  repeat  this  until. done 
UC>  Assert  STOP  and  STORE  and  put  word  count  into  EBUF 
KL>  Stop  microcode,  read  EBUF  -  verify  word  count 
KL>  Read  R4  to  get  correct  data  (1st  word  written) 
KL>  Verify  data  buffer 

Repeat  with  data  patterns  1-114 


Test  data 


001612'  254  00  0  00  001621 

001613'  IUJ604  000006 

001614'  002022'  013136' 

001615'  013146'  013051' 

001616'  000000000000* 

001617'  000000000000* 

001620'  min     777777 


001621'  201  00  0  00  000000' 

001622'  260  17  0  00  001306* 

001623'  201  01  0  00  002022' 

001624'  260  17  0  00  001310* 

001625'  263  17  0  00  000000 


001626'  400  15  0  00  000000 

001627'  201  06  0  00  001644' 

001630'  402  00  0  00  001314* 

001631'  400  15  0  00  000000 


?o  start  test 
est  mask 


TSTC6:  JRST    TG6 

CBUS!NDMP!NDCB!ZCBUS!6        ;  .-.  ^  ^^ 

T6M,,[ASCIZ  *2901  to  CBUS  Multiple  Word  Transfer*] 
[EXP  C1,C15,MLAST!C163..CEXP  C12,C5,C8,C4,MLAST!C2] 
TSTC40  ;  failure  test  table 

TSTC41 
-1 


;  Start  test 
TG6: 


MOVEI  Z9 

GO  TRACE 

MOVEI  1,T6M 

GO  TLOAD 
RTN 


;  Initialization 
TL6: 


SET7  ERFLG, 

MOVEI  6.TS6 

SETZM  TSTSUB 

SETZ  ERFL6. 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  error  fLag 


SEQ  1634 
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SEQ  1647 


D 
Dl 


r 


;EQ  163A 


DFPTA9 
DFPTA9 

1512 

1513 

15K 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

152A 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

153A 

1535 

1536 

1537 

1538 

1539 

15A0 

15A1 

15A2 

15A3 

154A 

15A5 

15A6 

15A7 

1548 

15A9 

1550 

1551 

1552 

1553 

155A 

1555 

1556 

1557 

1558 

1559 

1560 

1561 
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ige 

JS 


001632' 
001633' 
001634' 
001635' 
001636' 


260 
260 
254 
254 
474 


17 
17 
00 
00 
15 


00  QQ1347* 
00  001 31 7* 
00  001643' 
00  001633' 
00  000000 


001637'  027  00  0  00  001742' 

001640'  254  00  0  00  001626' 

001641'  254  00  0  00  001643' 

001642'  322  15  0  00  001632' 


001643'  263  17  0  00  000000 


001644' 
001645' 
001646' 
001647' 
001650' 
001651' 
001652' 
001653' 


001654' 
001655' 
001656' 
001657' 
001660' 
001661' 
001662' 
001663' 
001664' 
001665' 


240000 
300000 
040000 
200000 
341000 
240000 
440000 
000000 


001654' 

001666' 

000000 

000100 

000000 

001730' 

001645' 

000000 


402  00  0 
201  00  0 
336  00  0 


201  00 

202  00 
201  00 
332  00 
201  00 
542  00 
263  17 


00  001346* 
00  001000 
00  030037 
00  310000 
00  001375* 
00  000100 
00  030037 
00  000110 
00  001647' 
00  000000 


001666'  260  17  0  00  001632* 

001667'  350  01  0  00  001654* 

001670'  307  01  0  00  000114 

001671'  350  00  0  17  000000 


CBUS  MODULE  TESTS 


Loop  on  test  execute  table  entries 


SEQ  1647 


Dl 

Dl 


TA6; 
TB6: 


GO 

60 
JRST 
JRST 
SETO 


IPACLR 

CEXEC 

TX6 

T86 

ERFL6. 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 

End  of  test 


MA6 
TL6 
TX6 
ERFLG.TA6 


print  error  message 

loop  on  error 

altfflode  exit 

00  next  test  execute  table  entry 


TX6:    RTN  ;  return 

;  Data  Test  Execute  Table,  as:   (CMD. parameters) 


TS6:    CTABLE  (CCALL.TS6SET) 

TS6A:   CTABLE  (CCALLC.TS6INC) 

CTABLE  (CSETRD.0.0) 

TS6S:   CTABLE  (CSTARTJOO) 

CTABLE  (CWAIT, 1000.0) 

CTABLE  (CCALL.TS6CHE) 

CTABLE  (CJRSTJS6A) 

CTABLE  (CLAST) 

;  Initialize  data  pattern  selection 


TS6SET:  SETZM 
MOVE  I 
SKIPN 
MOVE  I 
HOVEM 
MOVE  I 
SKIPE 
MOVE  I 
hRRM 
RTN 


CPAT 

*D512 

USER 

•D102400 

CLEN 

100 

USER 

110 

TS6S 


;  Increment  data  pattern 

TS6INC:  GO  IPACLR 

AOS  1.CPAT 

CAI6  1.114 

AOS  (P) 


set  up  initial  data  pattern 
increment  data  pattern 
set  up  write 
start  up  port 
check  if  completed 
check  results 
loop  till  done 
end  of  table 


clear  data  pattern 

length  of  data  transfer  is 
T02400  words  exec  mode 
and  512  words  user  mode 

save  it 

get  exec  mode  start  address 

user  mode? 

yes  -  set  up  user  mode  addres. 

store  it 

return 


do  a  'port  clear' 
increment  data  pattern 
done  with  test  yet? 
no  -  set  up  proper  return 


SEQ  1635 


I 

I DFPTA9 

iDFPTA9 
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SEQ  1648 


i 
iC 


r 


SEQ  1635 


0FPTA9 
DFPTA9 

1562 

1563 

156A 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

157A 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

158A 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

159A 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 


MACRO  X55B(1242)   09:A2     1-Jul 
MAC  18-Apr-85  11:00 

001672'   332  00  0  00  001352* 


001673' 
001 67A' 
001675' 
001676' 
001677' 
001700' 
001701' 
001702' 
001703' 
001 70A' 
001705' 
001706' 
001707' 
001710' 
001711' 
001712' 
001713' 
001 7U' 
001715' 
001716' 

001717' 
001720' 
001721' 
001722' 
001723' 
001 72A' 
001725' 
001726' 
001727' 


001730' 
001731' 
001732' 
001733' 
001734' 
001735' 
001736' 
001737' 
001740* 
001741' 


254 
200 
202 
135 
137 
135 
137 
135 
137 
135 
137 
316 
476 
316 
476 
201 
260 
255 
476 
263 


00 

01 

01 

02 

02 

02 

02 

02 

02 

02 

02 

16 

00 

16 

00 

01 

17 

00 

00 

17 


0  00 
0  01 


260 
200 
312 
474 
200 
312 
474 
350 
350 
263 


00 
00 


0  00 


00 
00 
00 
00 


0  00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


013151' 

000000* 

014011' 

013154' 

013155' 

013156' 

013157' 

013160' 

013161' 

01316?' 

013163' 

000000* 

000000* 

000000* 

000000* 

001717' 

001624* 

000000 

001354* 

000000 
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SKIPE 
JRST 


MOVE 

HOVEM 

.DB 

!^ 

>PB 

.DB 

>PB 

.DB 

)PB 

CAMN 

SETOM 

CAMN 

SETOM 

MOVE! 

GO 

JFCL 

SETOM 

RTN 


STS 


SEO  1648 


r 

D 
<D 


000000 
732000 
000100 
732000 
000200 
732001 
0u.'300 
732001 
Villi 


010000 
240040 
000000 
640340 
000000 
240340 
000000 
640340 

mill 


17 
01 
01 
15 
01 
01 
15 
00 
00 
17 


00  001745' 
00  001440* 
00  001660* 
00  000000 
00  014011' 
00  014012' 
00  000000 
17  111112 
17  111112 
00  000000 


001742'  140000  013027' 
001743'  240000  001745' 
001744'  000000000000* 


UDEBUG 
[CAJG   1,10 

AOS    (P) 

JRST   .+1] 
I.PATBUF(l) 
1.SAVDA1 

2, [POINT   10,1,9J 
2. [POINT   10J^MM-35J 
2. [POINT   10,1,19] 
2, [POINT   10,T^MM+2,35] 
2, [POINT   10,1.29]^   ,^^ 
2. [POINT   10,T6MM+4,353 
2, [POINT  6,1,35: 
2,[P0INT  6.T6MM+6,31] 
M6CN,P0RTNI 
TSLODl 
MBCN,P0RTCI 
TSL0D2 
1.T6MM 
TLOAD 

CSTATF 


;  debug  mode? 

;  yes  -  limit  to  only  10  segments 


get  data  pattern 

save  'correct  data' 

get  1st  MGC  field 

save  it 

get  2nd  MGC  field 

save  it 

get  3rd  MGC  field 

save  it 

get  1st  half  of  4th  MGC  field 

save  it 

NI  port?  ^  . 

yes  -  must  reload  microcode  each  time 

CI  port?  ^  . 

yes  -  must  reload  microcode  each  time 

set  up  microcode  address 

load/verify  it 

ignore  error 

set  check  logout  status  flag 

return 


T6MM:  MUORD 
MUORD 
MWORD 
MUORD 
-1 

;  Check  results 

TS6CHE:  GO 
MOVE 
CAME 
SETO 
MOVE 
CAME 
SETO 
AOS 
AOS 
RTN 


<ADDR=0,JMAP,J=1,MGC=0, 
<CONT,MGC=0,SDO,OR,B=1, 
<CONT,M6C=0,SD0.OR.B=2. 
<CONT,MGC=0,SD0,OR.B=3. 


SD0,0R.D=2,SKCN> 
D=2,SKCN> 
D=2,SKCN> 
D=2,SKCN> 


0 
1 
2 
3 


00-09 
10-19 
20-29 
30-35 


MA6CHE 

nCEBUFA 

1,CLEN 

ERFLG, 

1,SAVbAl 

1,SAVDA2 

ERFLG, 

-6(P) 

-6(P) 


Error  messages 


MA6: 


MSG!TXNOTI[ASCIZ  /Data 

CALL!TXN0T!MA6CHE 

LASTICALLITXALLICCPNT 


get  additional  data 
get  word  count 
correct? 

no  -  set  error  flag 
get  actual  data 
same  as  correct? 
nc  -  set  error  flag 
set  up  error  return 
set  up  error  return 
return 


transfer  rest  error  detected/] 
;  check  other  results 
;  print  test  data 


r 


SEQ  1636 
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SEQ  1649 


0FPTA9 
DFPTA9 

16U 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

163A 

1635 

1636 

1637 

1638 

1639 

16A0 

16A1 

16A2 

16A3 

16A4 

16A5 

16A6 

16A7 

1648 

1649 

1650 

1651 

1652 

1653 

165A 

1655 


MACRO  X55B(12A2)   09:42 
MAC  18-Apr-85  11:00 


1-Jul-85  Page  20    ^  ^_^^ 
CBUS  MODULE   TESTS 


SEO  1649 


001745* 
001746* 
001747* 
001750' 
001751* 
001752* 
001753* 
001754* 
001755* 
001756* 
001757* 


001760* 
001761* 
001762* 
001763* 
001764' 
001765* 
001766' 
001767* 
001770* 
001771* 
001772* 


001773' 
001774' 
001775* 
001776' 
001777* 
002000* 
002001  * 
002002* 
002003* 
002004* 
002005* 


322  15 
200  01 
316  01 
254  00 
037  00 
037  00 
006  10 
037  00 
037  00 
006  11 
037  00 


400  01 
260  17 
201  01 
242  01 
260  17 
201  01 
260  17 

201  01 
260  17 
260  17 

202  01 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


332  00 
316  01 
254  00 
037  00 
037  00 
200  00 
037  13 
037  00 
200  00 
037  13 
263  17 


001760' 
001731* 
001732* 
001760' 
013061' 
013071' 
001747* 
013074' 
013075* 
001746* 
013074* 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 

001431* 

000300 

000001 

001425* 

000010 

001761* 

200000 

001766* 

001432* 

014012* 


00  000015 
00  014011* 
00  002006* 
00  013164' 
00  013130' 
00  014011' 
00  000000 
00  013133' 
00  014012' 
00  000000 
00  000000 


Check  results  -  first  the  word  count  left  in  the  EBUF 


MA6CHE:  JUMPE 
HOVE 
CAMN 
JRST 
TMS6C 
TMSGC 
PDEC 
TMSG 
TMSGC 
PDEC 
TMSG 


ERFLG,MA6CH0  ;  no  error  yet?  - 

1,CEBUFA  ;  get  word  count 

1,CLEN  ;  correct? 

MA6CH0  ;  yes  -  continue 

<Uord  count  error  detected  by  port:  > 

<  Correct:> 
10,CLEN 

<•> 

<  Actual :> 

11.CEBUFA  ;  print  it 

<•> 


continue 


Then  the  actual  data  written 


MA6CH0:  SETZ 
GO 

MOVE  I 
LSH 
GO 

MOVE  J 
GO 
MOVE  I 

^ 

MOVEM 


1. 

LDCSR 

1.300 

U 

LDRAR 

1 ,MPRUN 

LDCSR 

1.TSTEBF 

LDCSR 

RDE8UF 

1.SAVDA2 


ensure  the  port  is 

stopped 
get  address  to  get  R4 
position  correctly 
load  RAR  register 
set  up  initial  CSR  data 
write  CSR  register 
set  up  CSR  to  read  EBUF 
write  it 

get  EBUF  data  (actual) 
save  it 


Check  for  data  generation  error  -  and  print  if  so 

SKIPE  ERFLG  ;  error  yet? 

CAMN  1.SAVDA1  ;  yes  -  error? 

JRST  MA6CH1  ;  no  -  do  data  buffer  compare 

THSGC  <Data  pattern  not  generated  correctly:> 

TMSGC  <  Correct:  > 

MOVE  SAVDA1  ;  get  correct  data 

PNTHU  ;  print  it 

TMSGC  <  Actual:  >  ,  ^ 

MOVE  SAVDA2  ;  get  actual  data 

PNTHW  ;  print  it 

RTN  ;  return 


SFQ  1637 
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SEQ  1650 


SEO  1637 


0FPTA9 
DFPTA9 

i      1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
166A 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
167A 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
169A 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 


MACRO  X53B(1242)   09:42     1-Jul 
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CBUS  MODULE  TESTS 


Check  for  data  buffer  compare  error 


SEO  1650 


002006' 
002007* 
002010* 
002011* 
002012* 
002013' 
002014* 
002015' 
002016' 
002017' 
002020' 
002021 ' 


200  01 

201  02 
260  17 

202  01 
332  00 
336  00 
263  17 
201  01 
201  02 
260  17 
40' 
26 


00 

17 


00  013174* 
00  001000 
00  000000* 
00  014014* 
00  000015 
00  000001 
00  000000 
00  000001 
00  001000 
00  002010* 
00  000000* 
00  000000 


002022* 
002023* 
002024' 
002025' 
002026' 
002027* 
002030' 
002031  * 
002032' 
002033* 
002034  * 
002035* 


002036' 
002037* 
002040* 
002041 ' 
002042* 
002043* 
002044  * 
002045* 
002046* 
002047* 
002050' 
002051 ' 


002052' 
002053' 
002054' 
002055' 
002056' 


01C001 
742002 
010100 
732003 
010201 
335003 
010300 
001000 
010401 
33^003 
0 1 J500 
000000 


011001 
742002 
011100 
732003 
011201 
335003 
011300 
001000 
011401 
336003 
011500 
000000 


000000 
732000 
000100 
732000 
000200 


010000 
400040 
310310 
240300 
020000 
000220 
100000 
000300 
040000 
000220 
000000 
000000 


110000 
400040 
310001 
240300 
120000 
000220 
100000 
000300 
140000 
000220 
000000 
000000 


010000 
240040 
000000 
640340 
000000 


MA6CH1:  HOVE 
MOVE  I 
GO 

MOVEM 
SKIPE 
SKIPN 
RTN 
MOVE  I 
MOVE  I 
GO 

SETZM 
RTN 


i.c-n 

2, -0512 
BUFCOM 
1,SAVNUM# 
ERFLG 

1 

1.1 

2.*D512 
BUFCOM 
CDERR 


set  to  'read  -  don't  report  errors' 

get  buffer  length 

do  the  compare 

save  number  of  data  compare  errors 

error  yet? 

any  words  in  error? 

no  -  return 

set  to  'read  -  report  errors 

get  buffer  length 

do  the  compare/print  errors 

don't  report  these  in  CCPNT 

done  -  return 


;  Microcode  -  Initialize  the  word  count 

;      Initialize  word  count  (exec  mode) 

T6M:    MUORi)   <ADDR=100,JMAP.J=101  ,SD0.AND,B=5,D=2> 

MWORD   <LDCT,J=31,SDO,OR.B=6.D=2.SKCN,M6C=310> 

MWORD   <RPCT,J=102,SOB.B=6,OR.D=5> 

MWORD   <LDCT.J=10,D=1> 

MWORD   <RPCT.J=104,S0B,B=6,OR,D=6> 

MWORD   <JZ> 

;      Initialize  word  count  (exec  mode* 

MWORD  <ADDR=110.JMAP.J=111,SD0,AND.B=5,D=2> 

MWORD  <LDCT,J=31,SD0.0R.B=6,D=2.SKCN.MGC=1> 

MWORD  <RPCT,J=112.S0B.B=6,0R,D=5> 

MWORD  <LDCT.J=10.D=1> 

MWORD  <RPCT,J=114,S0B,B=6,0R,D=6> 

MWORD  <JZ> 

;      Build  the  data  pattern  word 

MWORD  <ADDR=0. JMAP.J=1 .MGC=0,SD0,0R,D=2,SKCN> 

MWORD  <CONT.MGC=0.SD0.0R.B=1,D=2.SKCN> 

MWORD  <CONT.MGC=O,SD0.OR.B=2,D=2.SKCN> 


100 
101 
102 
103 
104 
105 

110 
111 
112 
113 
114 
115 

0  00-09 

1  10-19 

2  20-29 


<:fo  lA^fl 
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SEQ  1651 


1711 

1712 

1713 

17U 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

172? 

172A 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

173A 

1735 

1736 

1737 

1738 

1739 

17A0 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 


002057' 

002060' 

002061 ' 

002062' 

002063' 

002064' 

002065' 

002066' 

002067' 

002070' 

002071 ' 

002072' 

002073' 

002074' 

002075' 

002076* 

002077' 

002100' 

002101' 

002102' 

002103' 

002104' 

002105' 

002106' 

002107' 

0021 IC 

002111' 

002112' 

002113' 

002114' 

002115' 

002116' 

002117' 

002120' 

002121' 


732001 

000400 
001000 

m^ 

000600 
001000 
000700 
337000 
001000 
001000 
001100 
335000 
001200 
001000 
001300 
337001 
001400 
001000 
001500 
335001 
001600 
001000 
001700 
335001 
002000 
432002 
002100 
1ii012 
002200 
132022 
002300 
132032 


002122' 
002123' 
002124' 
002125' 
002126' 
002127' 
002130' 
002131' 
002132' 
002133' 
002134' 
002135' 
002136' 
002137' 
002140' 
002141' 
002142' 


002405 
000000 
002500 
003400 
002600 
000400 
002700 
000400 
003000 
000000 
003100 
000000 
003200 
401040 
003300 
302002 
003400 


240340 
COOOOO 
640340 
310000 
000300 
050000 
000220 
310000 
000300 
070000 
400220 

noooo 

000300 

i':u(0 
s002;  3 

nroiO 
"'o;  300 

13U000 
000220 
230000 
000300 
150000 
000220 
350000 
000300 
170000 
400220 
000000 
000340 
000000 
000340 
000000 
000340 
000000 
000340 


000220 
004020 
350000 
160060 
350000 
140060 
310000 
000060 
250000 
000040 
000000 
000340 
002040 
003340 
000002 
404740 
360000 


NWORD  <CONT,MGC=0.SD0,OR.B=3.D=2,SKCN> 

MWORD  <LDCTJ=31,0=1> 

HWORD  <ROCT.J=5,SOB.B=0,OR,D=7> 

MWORD  <LDCT,J=31.D=1> 

MWORD  <RPCT,J=7,S0B,B=1,0R,D=7> 

MW3RD  <LDCT,J=11,D=1> 

MWORD  <RPCTJ=11.SOB.B=1.0R,D=5> 

MWORD  <LDCT,J=31.D=1> 

MWORD  <RPCT.J=13,S0B.B=2.OR,D=7> 

MWORD  <LDCT.J=23,D=1> 

MWORD  <RPCT.J  =  ''5,S0B,B=2,0R,D=5> 

MWORD  <LDCT,J=35.D=1> 

MWORD  <RPCT.J=17,S0B,B=3,OR,D=5> 

MWORD  <C0NT,S0A,0R,D=2.B=4> 

MWORD  <C0NT.SAB.0R,D=2,A=1,B=4> 

MWORD  <C0NT.SAB.0R,D=2.A=2,B=4> 

MWORD  <C0NT.SAB,0R,D=2,A=3,B=4> 

Write  =jU  the  words  specified  by  the  CCW  list 

MWORD  <CJS.J=500,SELC.M6C=220> 

MWORD  <CJPJ=35.CENA.CCCE> 

MWORD  <CJr'.J=35,CENA.CCCP> 

MWORD  <CJP,J=31,CENA.CCCA> 

MWORD  <JMAP,J=25> 

MWORD  <CONT> 

MWORD  <C0NT,S0A,A=4,D=1.0ENA,SELF,MGC=40> 

MWORD  <C0NT,S0B,PLUS.B=5,D=2.CRY,SELC.MGC=2> 

MWORD   <CJP,J=36,S0B,SMIN,B=6,D=2.CENA,CCFZ> 


3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 
25 
26 
27 
30 
31 
32 
33 
34 


30-35 


DFPTA9 
DFPTA9 

1766 

1767 

1768 

1769 

1770 

1771 

177? 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

178.^ 

1783 

178A 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
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SEQ  1652 


002143'  312403 
002144'  003500 
002145'  000000 


002146' 
002147' 
002150' 
002151' 
002152' 
002153' 


003600 
000000 
003700 
000000 
004000 
000000 


002154' 
002155' 
002156' 
002157' 
002160' 
002161' 
002162' 
002163' 
002164' 
002165' 
002166' 
002167' 
002170' 
002171' 
002172' 
002173' 


004100 
732007 
004200 
335007 
004300 
431170 
004400 
000400 
004500 
000000 
004600 
431010 
004700 
431050 
005000 
000000 


002174'  030003 

002175'  431040 

002176'  030103 

002177'  000000 


002200' 
002201 ' 
002202' 
002203' 
002204' 
002205' 


050000 
001000 
050105 
001000 
050200 
000000 


002206' 
002207' 


100000 
000000 


020060 
250000 
000040 


100000 
000300 
370000 
000220 
C00140 
004340 


310200 
640300 
420000 
400220 
002004 
005340 
460040 
015060 
440000 
000040 
000200 
005340 
002004 
005340 
500000 
000040 


012004 
005040 
010000 
000040 


100000 
000300 
010000 
000220 
000000 
000240 


000020 
002000 


MWORD   <JMAP,J=25> 


35 


All  done  -  set  3T0P  and  STORE  (after  a  short  delay  to  wait 
for  channel  to  finish  up  the  last  data  transfer). 


MWORD  <LDCT,J=10> 
MWORD  <RPCT,J=37> 
MWORD   <CCNT,SELC,MGC=140> 


36 

37 
40 


Finally,  write  bit  'RspQAV  in  CSR  to  indicate  we  are  done, 
and  write  word  count  to  EBUF 


MWORD  <LDCT,J=31 ,SD0,OR,B=17,D=2,SKCN,MGC-200> 

MWORD  <RPCT,J=42,S0B,OR,B=17,D=5> 

MWORD  <C0NT,S0A,A=17,0R,D=1,0ENA,SELE,MGC=4> 

MWORD  <CJP,J=46,CENA,CCGC,SELE,MGC=40> 

MWORD  <JMAP,J=44> 

MWORD  <C0NT,S0A,A=1 ,0R,D=1 ,SELE.MGC=200> 

MWORD  <C0NT,S0A,0R,A=5,D=1,0ENA,SELE,MGC=4> 

MWORD  <JMAP,J=50> 


41 
42 
43 
44 
45 
46 
47 
50 


Routine  to  read  R4  and  place  in  EBUF 

MWORD   <ADDR=300,JMAP,J=301,S0A,A=4,OR,OENA,D=l,SELE,MGC=4> 

MWORD   <JMAP,J=301>  ;  301 


Delay 
MWORD 
MWORD 
MWORD 


<ADDR=500,LDCT,J=10,D=1> 

<RPCT,J=501,D=1> 

<CRTN> 


Initialization 

MWORD   <ADDR=1000,JZ,SELM,MGC=20> 


500 
501 
502 

1000 
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SEQ  1653 


1640 


0FPTA9 
DFPTA9 

1821 
1822 

1824 
1825 
1826 
1827 


MACRO  X53B(1242)  09:42 
MAC    18-Apr-85  11:00 


l-Jul-85  Pa 
CBU 


le  21-3 
MODULE 


TESTS 


SEO  1653 


002210' 
002211' 
002212' 
002213' 
002214' 


500050 
OQOOOO 
500150 
OOOOOQ 
117777 


010100 
D0404Q 
)1Q02Q 
02040 
777777 


Initialization  step 

MWORr   <ADDR=5000 JMAP,J=5001 ,SELC,M6C=100> 

MWORD   <JMAPJ=5001,SELM,M6C=20> 

-1 


5000 
5001 


}  1641 
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SEQ  1654 


DFPTA9 
DFPTA9 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

18A0 

18Ai 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 
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SEQ  1654 


002215'  254  00  0  00  002225' 

002216'  100604  000007 

002217'  0ui334'  013175' 

002220'  013203'  013051' 

002221'  000000  002517' 

002222'  000000000000* 

002223'  000000000000* 

002224'  lllin     777777 


002225' 
002226' 
002227* 
002230' 
002231 • 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000* 
001622* 
002334' 
001713* 
000000 


002232'  400  15  0  00  000000 

002233*  201  06  0  00  002301* 

002234*  402  00  0  00  001630* 

002235*  400  ^"0  00  000000 


/^♦**»***************************** *********************************** 
*  Test  7  -  CBUS  to  EBUS  Data  Transfer 

Description:  This  test  does  data  transfers  over  the  CBUS  and 
EBUS  concurrently.  Data  is  read  by  the  port  over 
the  CBUS,  then  transfered  via  an  loP  deposit  oyer 
the  EBUS  into  the  2nd  half  of  the  buffer.  Then 
a  data  compare  of  the  data  buffer  is  done  to 
verify  the  result. 

Procedure:    KL>  Port  Clear  ^   ,    ^ 

KL>  Set  up  a  CCW  list  to  transfer  1  word 

KL>  Start  up  port        ^       u  x^    jj    .oc^ 

UC>  Read  word  from  CBUS  and  save  as  buffer  address+256 

KL>  Set  up  a  CCW  list  to  transfer  256  words 

KL>  Start  up  port        ^  ^„,,^  ■  .  -,  j 

UC>  Read  word  from  CBUS  and  write  over  EBUS  into  2nd 

half  of  buffer  ^      .   ^  , 

KL>  When  done,  verify  data  transfer  completed  ok 

Repeat  with  data  patterns  116-125 

#****»♦**♦***********♦***•*♦***************************************** 


Test  data 


30  start  test 


TSTC7:  JRST    TG7        ,,        ;  QC  . . 

CBUS!NDMPINDCB!ZCBUS!7        ;  test  mask 

T7M,,[ASCIZ  *CBUS  to  FBUS  Data  Transfer*]  „  ,     ,,  ^^ 

CEX^  E1,E4,C1,C14,MLA  ^'C17],,CEXP  C12.C5,C8,C4,MLAST!C2] 

TSTC10  ;  failure  test  table 

TSTC40 

TSTC41 

-1 


;  Start  test 

TG7:    MOVEI  Z9 

60  TRACE 

MOVEI  1,T7M 

GO  TLOAD 
RTN 

;  Initialization 

TL7:    SETZ  ERFLG, 

MOVEI  6,TS7 

SETZM  TSTSUB 

SETZ  ERFLG, 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  error  flag 
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SEQ  1655 


1 


DFPTA9 
0FPTA9 

1879 

1880 

1881 

1882 

1883 

188A 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 
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002236' 
002237' 
002240' 
002241 ' 
002242' 
002243' 


002244' 
002245' 
002246' 
002247' 
002250' 
002251 ' 
002252' 
002253' 
002254' 
002255' 
002256' 


260 
201 
242 
260 
201 
260 


17 
01 


?jn§ 


01 
17 


00 
00 


001666* 

004000 

000001 

001764* 

000010 

001770* 


201  01  0 
336  00  0 
257  01  0 
621  01  0 

202  01  0 

200  01  0 
260  17  0 
551  01  0 

201  02  0 
400  03  0 
260  17  0 


00  000000* 

00  001672* 

01  000000 
00  777000 
00  001116* 
00  013210' 
00  000000* 
00  002250* 
00  000001 
00  000000 
00  000000* 


002257' 
002260' 
002261 • 
002262' 
002263' 
002264' 
002265' 
002266' 


002267' 
002270' 
002271 ' 
002272' 
002273' 


260  17  0  00  0022^6* 
201  01  0  00  004002 
242  01  0  00  000001 
260  17  0  00  002241* 
2u!  01  0  00  000010 
260  17  0  00  002243* 
201  00  0  00  000010 
260  17  0  00  000000* 


260 
260 
254 
254 
474 


17 
17 
00 
00 
15 


00 
00 
00 
00 
00 


002257* 
001633* 
002300' 
002270' 
000000 


002274'  027  00  0  00  002321' 

002275'  254  00  0  00  002232' 

002276'  254  00  0  00  002300' 

002277'  322  15  0  00  002267' 


002300'  263  17  0  00  000000 


Initialize  the  data  transfer 


GO 

MOVE  I 
LSH 
60 

MOVE  I 
60 

Set  up  channel 

MOVE  I 

SKIPN 

MAP 

TLZ 

MOVEM 

MOVE 

60 

HRRZI 

Movn 

SETZ 
GO 


IPACLR 
1,4000 

liRAR 
1 .MPRUN 
LDCSR 


'D256 


1,BUFF+' 

UDEBU6 

1.(1) 

1.777000 

l.BUFF 

i.ccbufsz,,cbuf: 

CHINIT 
l.BUFF 

6ENCCW 


Do  the  data  transfer 


60 

MOVE  I 
LSH 
60 

MOVE  I 
60 

MOVEI 
60 


IPACLR 
1.4002 

1.1 

LDRAR 

1 .MPRUN 

LDCSR 

10 

ODELAY 


Loop  on  test  execute  table  entries 


TA7: 
TB7: 


60 

60 
JRST 
JRST 
SETO 


IPACLR 

CEXEC 

TX7 

T87 

ERFLG, 


SEQ  1655 


clear  port 
get  start  address 
position  correctly 
load  the  register 
get  'MPRUN'  bit 
start  up  the  port 


get  buffer  address 

debug  mode? 

no  -  map  to  physical 

get  rid  of  extraneous  bits 

save  in  buffer 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 


clear  the  port 
get  start  address 
position  correctly 
load  the  register 
get  'MPRUN'  bit 
start  up  the  port 
set  uo  10ms  wait 
wait  a  bit 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER  MA7 

JRST  TL7 

JRST  TX7 

JUMPE  ERFL6.TA7 


;  End  of  test 
7X7:    RTN 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


;  return 
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SEQ  1656 


1643 


DFPTA9 
DFPTA9 

1932 

1933 

193A 

1935 

1936 

1937 

1938 

1939 

19A0 

19^1 

19A2 

1943 

19AA 

19A5 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 


MACRO  X53B(1242)  09:42 
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002301 • 
002302' 
002303' 
002304' 
002305' 
002306' 
002307' 
CC2310' 


240000 
300000 
140000 
200000 
340100 
400000 
440000 
000000 


002311* 

002314' 

001000 

001000 

000000 

000000 

002302' 

000000 
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;  Test  Ex3cute  Entries 

TS7:    CTABLE  (CCALL,TS7SE) 

TS7A:   CTABLE  (CCALLC,TS7IN)  ^ 

CTABLE  (CSETRU,0/D512) 

CTABLE  (CSTARTJOOO) 

CTABLE  (CWAIT. 100,0) 

CTABLE  (CCOMP) 

CTABLE  (CJRSTJS7A) 

CTABLE  (CLAST) 

;  Initialize  data  pattern  selection 


SEQ  1656 


002311'  201 
002312'  202 
002313'  263 


002314' 
002315' 
002316' 
002317' 
002320' 


350 
260 
307 
350 
263 


00 
00 

17 


01 
17 
01 
00 

17 


0  00  000115 
0  00  001667* 
0  00  000000 


TS7SE: 


MOVE  I 
MOVEM 
RTN 


115 
CPAT 


00  002312* 
00  002267* 
00  000125 
17  000000 
00  000000 


;  Increment  data  pattern 
TS7IN: 


AOS 

GO 

CAIG 

AOS 

RTN 


1,CPAT 
IPACLR 
1,125 
(P) 


set  up  initial  data  pattern 
increment  data  pattern 
set  up  read/write  (512  words) 
start  up  port 
check  if  completed 
compare  buffer 
loop  till  done 
end  of  table 


get  initial  pattern 
save  data  pattern 
return 


increment  data  pattern 

do  a  'port  clear' 

done  with  test  yet? 

no  -  set  up  proper  return 

return 


Error  messages 


002321'  140000  013027' 
002322'  240000  002324' 
002323'  OuJOOOOOOOOO* 


MA7:    MSGITXNOTICASCIZ  /Data  transfer  test  error  detected/] 


CALL!TXN0T!MA7CHE 
LAST! CALL !TXALL!CCPNT 


002324' 
002325' 
002326' 
002327' 
002330' 
002331 • 
002332' 
002333' 


002334' 
002335' 
002336' 
002337' 
002340' 
002341 • 
002342' 
002343' 


336  00 
263  17 
201  01 
201  02 
200  14 
260  17 


402  00  0 
263  17  0 


00  002020* 
00  000000 
00  000003 
00  001000 
00  002314* 
00  002017* 
00  002324* 
00  000000 


check  for  data  compare  error 
print  test  data 

data  compare  error? 

no  -  return 

get  transfer  type 

get  transfer  length 

get  data  pattern 

compare  the  data 

don't  report  these  in  CCPNT 

return 


000000 
000400 
000100 
000000 
000200 
000000 
000300 
732001 


002344'  000400 
002345'  131157 
002346'  000500 


020000 
000060 
000000 
000000 
000004 
004340 
000200 
402340 

002004 
005340 
000001 


MA7CHE:  SKIPN  CDERR 
RTN 

MOVEI  1,3 

MOVEI  2.*D512 

MOVE  PAT, CPAT 

GO  BUFCOM 

SETZM  CDERR 
RTN 

;  Microcode  -  Read  a  word  into  R3  and  write  to  2nd  half  of  buffer 

T7M:    MWORD  <ADDR=0,CJP,J=2,CENA,CCCA> 

MWORD  <J2> 

MWORD  <C0NT,SELC,MGC=4> 

MWORD  <CONT,SD0,OR,B=3,D=2,SELM,MGC=200> 

MWORD  <C0NT,SAB,0R,D=1 ,A=15,B=16,0ENA,SELE,MGC=4> 

MWORD  <C0NT,S0B,PLUS,B=17,D=2.CRY,SELE,MGC=1> 


0 
1 
2 
3 

4 
5 
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SEQ  1657 


1987 

1988 

1989 

1990 

1991 

1992 

1993 

199A 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

200A 

2005 

|006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 


002347- 
002350' 
002351' 
002352' 
002353' 
002354' 
002355' 
002356' 
002357' 


302007 
000600 
000400 
000700 
000000 
001000 
431030 
001101 
302006 


002360'  001200 
002361'  000000 


002362'  001300 
002363'  000000 


002364' 
002365' 
002366' 
002367' 
00237C' 
002371 ' 
002372' 
002373' 
002374' 
002375' 
002376' 
002377' 
002400' 
002401 • 
002402' 
002403' 


002404 • 
002405' 
002406' 
002407' 
002410' 
002411' 
002412' 
002413' 
002414' 
002415' 
002416' 
002417' 
002420' 
002421 ' 
002422' 


001400 
732007 
001500 
335007 
001600 
431170 
001700 
000400 
002000 
GuJOOO 
002100 
431010 
002200 
431050 
002300 
000000 


010000 
000000 

01  noo 

000000 
010200 
000000 
010300 
000000 
010400 
000000 
010500 
000000 
010600 
000000 
010700 


405740 
100000 
100060 
060000 
000040 
002004 
005340 
000020 
405420 

000000 
000220 


000140 
004340 


310200 
640300 
150000 
400220 
002004 
005340 
210040 
015060 
170000 
000040 
000200 
005340 
002004 
005340 
230000 
000040 


000000 
000340 
000000 
000340 
000000 
000340 
000000 
000340 
000000 
000340 
000000 
000340 
000000 
000340 
000000 


MWORD  <CJP,J=10,CENA,CCER>  ;  6 

MWORD  <JMAPJ=6>  !  7 

MWORD  <CONT.S0A,OR,A=3,D=1,SELE.MGC=4,OENA>  ;  10 

MWORD  <CJSJ=100,S0B,PLUS,B=15,CRY,D=2,SELE,M6C=20>   ;  11 

MWORD  <RPCT,J=0>  .'  12 

All  done  -  set  STOP  and  STORE 

MWORD  <CONT,SELC,MGC=140>  ;  13 

Fi'naUx,  write  bit  'RspQAV  in  CSR  to  indicate  we  are  done, 
and  write  word  count  to  EBUF 

MWORD  <LDCT,J=31,SD0,OR.B=17,D=2.SKCN.M6C=20O>  ;  14 

MWORD  <RPCT,J=15,S0B,OR,B=17,D=5>  ;  15 

MWORD  <CONT.S0A,A=17.OR,D=l,OENA,SELE,MGC=4>  ;  16 

MWORD  <CJP.J=21,CENA.CCGC,SELE,MGC=40>  ;  17 

MWORD  <JMAP,J=17>  ;  20 

MWORD  <CONT,S0A,A=1,0R,D=l,SELE.MGC=200>  ;  21 

MWORD  <COMT.S0A.OR,A=5,D=l.OENA,SELt,.1GC=4>  ;  22 

MWORD  <JMAP,J=23>  ;  23 

Delay 

MWORD  <ADDR=100,CONT>  ;  100 

MWORD  <C0NT>  ;  101 

MWORD  <CONT>  ;  102 

MWORD  <CONT>  ;  103 

MWORD  <C0NT>  ;  104 

MWORD  <CONT>  ;  105 

MWORD  <CCNT>  ;  106 

MWORD  <CONT>  ;  107 
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DFPTA9 
DFPTA9 

>0A2 
[0A3 

[045 

50A6 

>0A7 

5048 

2049 

^050 

[051 

>052 

>053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 
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CBUS  MODULE  TESTS 


SEQ  165." 


002423' 
002424' 
002425' 
002426' 
002427' 
002430' 
002431 ' 
002432' 
002433' 
002434' 
002435' 
002436' 
002437' 
002440' 
002441 • 
002442' 
002443' 
002444' 
002445' 
002446' 
002447' 
002450' 
002451 • 
002452' 
002453' 


002454' 
002455' 
002456' 
002457' 
002460' 
002461 • 


000000 
011000 
000000 
011100 
000000 
011200 
000000 
011300 
000000 
011400 
000000 
011500 
000000 
011600 
000000 
011700 
C 00000 
0i2000 
000000 
012100 

oocooo 

012200 
000000 
012300 
000000 


100010 

oooooo 

1uJ103 
432146 
100200 
OOOOOO 


002462' 
002463' 
002464' 
002465' 
002466' 
002467' 
002470' 
002471 ' 
0024/2' 
002473* 
002474' 
002475' 
002476' 
002477* 
002500* 
002501  * 
002502* 


400040 
OOOOOO 
400140 
OOOOOO 
400240 
OOOOOO 
400340 
000400 
400440 
OOOOOO 
400500 
OOOOOO 
400600 
732006 
400700 
432156 
401000 


000340 
OOOOOO 
000340 
OOOOOO 
000340 
OOOOOO 
000340 
OOOOOO 
000340 
OOOOOO 
000340 
OOOOOO 
000340 
OOOOOO 
030340 
T'OOOOO 
C003''  0 
OOOOOO 
000340 
OOOOOO 
000340 
OOOOOO 
000340 
OOOOOO 
000240 


010020 
002040 
770004 
404300 
000200 
004000 


010100 
004040 
010020 
002040 
030200 
004040 
050000 
000060 
030000 
000040 
000004 
004340 
000200 
402340 
OOOOOO 
000340 
320450 


MWORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CONT> 

MUORD 

<CRTN> 

Initialization 

MUORD   <ADDR=1000,JMAP J=1001 .SELM,MGC=20> 

MUORD   <LDCT,J=377,S0A,A=14.B=15,0R,D=2,SELC.MGC=4> 

MUORD   <JZ.SELC,MGC=200> 


110 
111 
112 
113 
114 
115 
116 
117 
120 
121 
122 
123 

1000 
1001 
1002 


Initialization  step  to  read  buffer  address  into  R14,R15  and 
put  lOP  word  (left  half)  into  R16 

MUORD   <ADDR=4000,JMAPJ=4001,SELC,MGC=100>  ;  4000 

MUORD   <JMAP,J=4001,SELM,MGC=20>  ;  4001 

MUORD   <JMAP,J=4003,SELC,MGC=200>  ;  4002 

MUORD   <CJP,J=4005,CENA,CCCA>  ;  4003 

MUORD   <JMAP,J=4003>  ;  4004 

MUORD   <C0NT,SELC,MGC=4>  ;  4005 

MUORD   <CONT,SD0.OR.B=15,D=2,SELM.MGC=200>  ;  4006 

MUORD   <CONT.S0A.OR,A=15,B=14.D=2>  ;  4007 

MUORD   <LDCTJ=32,SD0,0R,B=16,D=2,SKCN.MGC=450>  ;  4010 
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SEQ  1659 


DFPTA9 
DFPTA9 

2097 
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SEQ  1659 


>Q98 

Jor 


002503'  732007  2A0300 

00250A'  ^01 140  11QQQQ 

.99  002505*  337007  000220 

!i?i  mwr-  ivM  mi 

21 OA 
2105 
2106 

2107  002512'  500050  010100 

2108  002513'  000000  OOAOAO 

2109  00251 A'  500150  010020 

2110  002515'  000000  0020A0 

2111  002516'  777777  777777 


MWORD  <RPCT,J=A011,SOB,B=16.0R,D=7> 

MWORD  <CONT,SELC,MGC=1A0> 

MWORD  <JMAPJ=A013,S0B.B=17,AND,D=2> 

Initialization  step 

MWORD  <ADDR=5000,JMAPJ=5001.SELC,M6C=.vyO> 

MWORD  <JMAP.J=5001,SELM,M6C=20> 

-1 


;  A011 

;  A012 

;  A013 

;  5000 

;  5001 
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SEQ  1660 


DFPTA9 
DFPTA9 

2112 
]113 
!1U 
>115 
116 
117 
!118 
>119 
il20 
2121 
2122 
2123 
21 2A 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
21 3A 
2135 
2136 
2137 
2138 
2139 
2U0 
2141 
2U2 
2U3 
2UA 
2U5 
2U6 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
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SEQ  1660 


002517*  254  00  0  00  002526' 

002520'  100604  000010 

002521'  Ou.^645'  013211'  ■ 

002522'  013217'  013051' 

002523'  000000000000* 

002524'  000000000000* 

002525'  niVl     777777 


002526'  201  00  0  00  000000' 

002527'  260  17  0  00  002226* 

002530'  201  01  0  00  002645' 

002531'  260  17  0  00  002230* 

002532'  263  17  0  00  000000 


002533'  400 

002534'  201 

002535'  402 

002536'  400 


15 
06 
00 
15 


00  000000 
00  002602' 
00  002234* 
00  000000 


#♦♦*«*«♦*♦**********♦♦*♦♦♦***********♦****♦***♦********************** 
*  Test  10  -  EBUS  to  CBUS  Data  Transfer 

Description:  This  test  does  data  transfers  over  the  CBUS  and 
EBUS  concurrently.  Data  is  read  by  the  port  over 
the  EBUS  via  an  lOP  examine,  then  transfered  over 
the  CBUS  into  the  1st  half  of  the  buffer.  Then 
a  data  compare  of  the  data  buffer  is  done  to 
verify  the  result. 

Procedure:    KL>  Port  .'lear  .   .    j 

KL>  Set  up  a  CCW  list  to  transfer  1  word 

KL>  Start  up  port        ^       ^  ^^    ^^    -,rz 

UC>  Read  word  from  CBUS  and  save  as  buffer  address+256 

KL>  Set  up  a  CCW  list  to  transfer  256  words 

KL>  Start  up  port        ^  ^^.,^  .    ,  ^ 

UC>  Read  word  from  EBUS  and  write  over  CBUS  into  1st 

half  of  buffer  ^      ... 

KL>  When  done,  verify  data  transfer  completed  ok 

Repeat  with  data  patterns  116-125 

Failure:     — - 

;^«** ****************************************************** *********** 


Test  data 

TSTC10:  JRST    TGIO        ,„        ,  . 

CBUS!NDMP!NDCB!ZCBUS!10       ;  test  mask 

T10M,,[ASCJZ  "EBUS  to  CBUS  Data  Transfer*]  „  ,  „   ,.  ^^ 

CEXP  E1,E4,C1.C15,MLAST!C163.,[EXP  C12,C5,C8,C4,MLAST!C2: 


;  go  start  test 
;  t« 


TSTC40 
TSTC41 
-1 

Start  test 


TGIO:   MOVE] 
GO 

MOVE  I 
GO 
RTN 

;  Initialization 


19 

TRACE 
1,T10M 
TLOAD 


TL10; 


SETZ 
MOVE  I 
SETZM 
SETZ 


ERFLG. 
6,TS10 
TSTSUB 
ERFLG, 


failure  test  table 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  error  flag 


i_ 


I 

i 

!  DFPTA9 

IDFPTA9 
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MODULE 


TESTS 


SEQ  1661 


r" 


■•  1 


SEO  1648 


DFPTA9 
.DFPTA9 


n62 

!163 
n6A 
165 
166 
167 
168 
169 
h70 
>171 
172 
>173 
>17A 
'175 
176 
h77 
>178 
1179 
>180 
>181 
>182 
2183 
21 8A 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
21 9A 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
220A 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
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MODULE 


TESTS 


002537' 
002540' 
002541' 
002542' 
002543' 
002544' 


002545' 
002546' 
002547' 
002550' 
002551' 
002552' 
002553' 
002554' 
002555' 
002556' 
002557' 


260  17  0 
201  01  0 
242  01  0 

260  17  0  

201  01  0  00  000010 


00  002315* 
00  004000 
00  000001 
00  002262* 


260  17  0  00  002264* 


201  01 
336  00 
257  01 
621  01 

202  01 

200  01 
260  17 
551  01 

201  02 
400  03 
260  17 


002560' 
002561' 
002562' 
002563' 
002564' 
002565' 
002566' 
002567' 


002570' 
002571 ' 
002572' 
002573' 
002574' 


260 
201 
242 
260 
2u! 
260 
201 
260 


17 
01 
01 
17 
01 
17 
00 
17 


0  00  000000* 
0  00  002245* 
0  01  000000 
0  00  777000 
0  00  002253* 
0  00  013210' 
0  00  002252* 
0  00  002551* 
0  00  000001 
0  00  000000 
0  00  002256* 


0  00  002537* 
0  00  004002 
0  00  000001 
0  00  002542* 
0  00  000010 
0  00  002544* 
0  00  000010 
0  00  002266* 


260  17  0  00  002560* 
260  17  0  00  002270* 
0  00  002601 ' 
0  00  002571' 
0  00  000000 


254  00 
254  00 
474  15 


002575'  027  00  0  00  002632' 

002576'  254  00  0  00  002533' 

002577'  254  00  0  00  002601' 

002600'  322  15  0  00  002570' 


002601'  263  17  0  00  000000 


Initialize  the  data  transfer 


GO 

MOVE  I 
LSH 
60 

MOVE  I 
GO 

Set  up  channel 

MOVE  I 

SKIPN 

MAP 

TL2 

MOVEM 

MOVE 

GO 

HRRZI 

MOVE  I 

SETZ 

60 


IPACLR 
,4000 

l6rar 

1 ,MPRUN 
LDCSR 


'D256 


1,BUFF+' 

UDE6U6 

1,(1) 

1,777000 

1,BUFF 

1,[CBUFSZ,,CBUF] 

CHINIT 

1,BUFF 

GENCCW 


Do  the  data  transfer 


GO 

MOVE  I 
LSH 
GO 

MOVE  I 
GO 

MOVE  I 
60 


IPACLR 
1,4002 

l6rar 

1 ,MPRUN 
LDCSR 
10 
ODELAY 


Loop  on  test  execute  table  entries 


TA10: 
TB10: 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

CEXEC 

TX10 

T810 

ERFLG, 


SEQ  1661 


clear  port 
get  start  address 
position  correctly 
load  the  register 
get  'MPRUN'  bit 
start  up  the  port 


get  buffer  address 

debug  mode? 

no  -  map  tvi  physical 

get  rid  o;  extraneous  bits 

save  in  buffer 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 


clear  the  port 
get  start  address 
position  correctly 
load  the  register 
get  'MPRUN*  bit 
start  up  the  port 
set  up  lOffls  wait 
wait  a  bit 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 

;  End  of  test 

7X10:   RTN 


MA10 
TL10 
TX10 
ERFLG. TA10 


print  error  message 
loop  on  error 
altmode  exit 
do  next  test  execute 


;  return 


table  entry 


r' 


SEQ  1649 


DFPTA9 
DFPTA9 
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r 


SEQ  1649 


0FPTA9 
DFPTA9 
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SEQ  1662 


>19 

20 

?21 

llll 

222i. 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

223A 

2235 

2236 

2237 

2238 

2239 

22A0 

224 1 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 


002602' 
002603' 
002604' 
002605' 
002606' 
002607' 
002610' 
002611' 
002612' 


240000 
300000 
140000 
240000 
200000 
340100 
400000 
440000 
000000 


002613' 

002616' 

001000 

002623' 

001000 

000000 

000000 

002603' 

000000 


002613'  201  00  0  00  000115 
002614'  202  00  0  00  002330* 
002615'  263  17  0  00  000000 


002616'  350  01  0  00  002614* 

002617'  260  17  0  00  002570* 

002620'  307  01  0  00  000126 

002621'  350  00  "  ""  

00262?'  263  17 


0  17  000000 
0  00  000000 


002623' 
002624 ' 
002625' 
002626' 
002627' 
002630' 
002631 ' 


20n  00 
2^'  00 
200  00 
202  00 
200  00 
251  00 
263  17 


00 
00 
00 
00 
00 
00 
00 


013224' 
000000# 
013225' 
002554* 
013226' 
000000# 
000000 


002632'  140000  013027' 
002633*  240000  002635' 
002634'  000000000000# 


002635' 
002636' 
002637' 
002640' 
002641 • 
002642' 
002643* 
002644' 


336  00 
263  17 
201  01 
201  02 
200  14 
260  17 
402  00 
263  U 


00  002332* 
00  000000 
00  000003 
00  000400 
00  002616* 
00  002331* 
00  002635* 
00  000000 


;  Test  Execute  Entries 

TS1Q:   CTABLE   (CCALLJSIOSE)  ^ 
TS10A:  CTABLE   (CCALLCTSIOIN) 
CTABLE  (CSETRW,0/D512) 
CTABLE  (CCALLJSlOSU) 
CTABLE   (CSTARTJOOO) 
CTABLE   (CUAIT, 100,0) 
CTABLE   (CCOMP) 
CTABLE   (CJRSTJS1CA) 
CTABLE   (CLAST) 

;  Initialize  data  pattern  selection 


TS10SE: 


MOVE  I 
MOVEM 
RTN 


115 
CPAT 


;  Increment  data  pattern 


TS10IN:  AOS 
GO 

CAI6 
AOS 
RTN 


1,CPAT 
IPACLR 
1,126 
(P) 


;  Swap  buffer  halves 


TS10SW:  MOVE 
BLT 
MOVE 
MOVEM 
MOVE 
BLT 
RTN 

;  Error  messages 

MA10: 


CBUFF,.BUFF+400] 
BUff*777 
[400000,, 1] 
BUFF 

[BUFF,.BUFF+1] 
BUFF +377 


set  up  initial  data  pattern 

increment  data  pattern 

set  up  read/write  (512  words) 

swap  buffer  halves 

start  up  port 

check  if  completed 

compare  buffer 

loop  till  done 

end  of  table 


get  initial  pattern 
save  data  pattern 
return 


increment  data  pattern 

do  a  'port  clear* 

done  with  test  yet? 

no  -  set  up  proper  return 

return 


move  first 
into  2nd 

initialize 
now 


return 


iffer 


256  words  of  bui 
half  of  buffer 
first  half  of  buffer 


MSGITXNOTICASCIZ  /Data 
CALL.'TXNOT.'MAIOCH 
LAST! CALL ITXALLICCPNT 


MA10CH: 


SKIPN 

RTN 

MOVE] 

MOVE] 

MOVE 

GO 

SETZM 

RTN 


CDERR 

1,3 

2,*D256 
PAT, CPAT 
BUFCOM 
CDERR 


transfer  test  error  detected/] 

;  check  for  data  compare  error 
;  print  test  data 

data  compare  error? 

no  -  return 

get  transfer  type 

get  transfer  Length 

get  data  pattern 

compare  the  data 

don't  report  these  in  CCPNT 

return 


SEQ  1650 
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SEQ  1650 


DFPTA9  MACRO  X55B(12A2)  09:A2  1 
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2266 
2267 
2268 

m 

2271 

m 
m 

575 
>76 
577 
278 
>279 
|80 
J81 
J282 
^283 
228A 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
229A 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
230A 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
23K 
2315 
2316 
2317 
2318 
2319 
2320 


0026A5'  Q00003 
0026A6'  3A2007 


0026A7' 
002650' 
002651 • 
002652' 
002653' 
00265A' 
002655' 
002656' 
002657' 
002660' 

002661 ' 
002662' 
002663' 
00266A' 
002665' 
002666' 
002667' 
002670' 


000100 
131157 
000200 
302006 
000300 
OOOAOO 
OOOAOO 
000000 
000500 
732001 

000600 
000400 
000700 
000000 
001000 
331001 
001101 
001000 


002671'  001200 
002672'  302007 


002673' 
00267A' 
002675' 
002676' 
002677' 
002700' 


002701 ' 
002702' 
002703' 
00270A' 
002705' 
002706' 
002707' 
002710' 
002711' 
002712' 
002713' 
0027K' 
002715' 


001300 
000000 

oouoo 

000000 
001500 
000000 


001600 
732007 
001700 
335007 
002000 
431170 
002100 
000400 
002200 
000000 
002300 
431010 
002400 


770000 
400300 

002004 
005340 
000001 
405740 
050000 
100060 
030000 
000040 
000010 
405340 

100000 
000060 
060000 
000040 
002040 
403340 
000002 
004020 

010000 
400620 


100000 
000300 
140000 
000220 
000140 
004340 


310200 
640300 
170000 
400220 
002004 
005340 
230040 
015060 
210000 
000040 
000200 
005340 
002004 


-JuL-85  Page  28 

CBUS  MODULE  TESTS 

;  Microcode  -  Read  a  word  into  R3  and  write  to  1st  half  of  buffer 

TIOM:   MWORD  <ADDR=0,LDCT,J=377.S0B,B=17,AND,D=2> 

MWORD  <C0NT.SAB,0R,D=1,A=15,B=16,OENA,SELE,MGC=4> 

MWORD  <CONT, SOB, PLUS. B=15,D=2. CRY, SELE,MGC=1> 

MWORD  <CJP.J=5.CENA.CCER> 

MWORD  <J«AP,J=3> 

MWORD  <CONT,SD0,OR.B=3,D=2.SELE,M6C=10> 

MWORD  <CJPJ=10,CENA.CCCA> 

MWORD  <J«AP.J=6> 

MWORD  <CONT,SOB.B=3.0R.D=1,OENA,SELF,MGC=40> 

MWORD  <CJS.J=100.D=1,SELC,MGC=2> 

MWORD  <RPCT.J=1.S0B,B=17, PLUS. CRY, D=2> 


SEQ  1663 


1 
2 
3 
4 
5 

6 
7 

10 
11 

12 


All  done  -  set  STOP  and  STORE  (after  a  short  delay  to  wait 
for  channel  to  finish  up  the  last  data  transfer). 


MWORD  <LDCT.J=10^ 
MWORD  <RPCT.J=14> 
MWORD   <CONT.SELC,MGC=140> 


13 
14 
15 


Finally,  write  bit  'RspQAV  in  CSR  to  indicate  we  are  done, 
and  write  word  count  to  EBUF 


MWORD  <LDCT,J=31 .SD0.OR.B=17.D=2.SKCN.MGC=200> 

MWORD  <RPCT.J=17.S0B.OR.B=17.D=5> 

MWORD  <C0NT.S0A.A=17,0R.D=1.0ENA.SELE.MGC=4> 

MWORD  <CJP,J=23.CENA.CCGC,SELE,MGC=40> 

MWORD  <JMAP,J=21> 

MWORD  <CONT,SOA.A=1.0R.D=1.SELE.MGC=200> 

MWORD  <C0NT,S0A.OR,A=5.D=1.0ENA.SELE.MGC=4> 


16 
17 
20 
21 
22 
23 
24 


SEQ  1651 
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SEQ  1664 


SEO  1651 


DFPTA9  MACRO  X53B(12A2)  09:A2  1-JuL-85 

DFPTA9  MAC     18-Apr-85  11:00 

!1  002716'  431050  0053A0 

'2  002717'  002500  250000 

!5  002720'  000000  OOOOAO 


Page 
BUS  I 


CBU 


002721 • 

002722' 

002723' 

00272A' 

002725' 

002726' 

002727* 

002730' 

002731 • 

002732' 

002733' 

002734' 

002735' 

002736' 

002737' 

002740' 

002741 • 

002742' 

002743' 

002744' 

002745' 

002746' 

002747' 

002750' 

002751 ' 

002752' 

002753' 

002754' 

002755' 

002756' 

002757' 

002760' 

002761 • 

002762' 

002763' 

002764' 

002765 ' 

002766' 

002767' 

002770' 


010000 
000000 
010100 
000000 
010200 
000000 
010300 
000000 
010400 
000000 
010500 
000000 
010600 
000000 
010700 
000000 
011000 
000000 
011100 
000000 
011200 
000000 
011300 

oonooo 

0i'400 
000000 
011500 
000000 
011600 
000000 
011700 
000000 
012000 
000000 
012100 
000000 
012200 
000000 
012300 
000000 


002771 • 
002772' 
002773' 
002774' 
002775' 
002776' 


100010 
000000 
100100 
432146 
100200 
000000 


000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000340 

000000 

000240 


010020 
002040 
000004 
404340 
000220 
004000 


28-1 
MODULE  TESTS 

MUORD 

<JMAP,J  25> 

Delay 

MWORD 

<ADDR=100,C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<C0NT> 

MUORD 

<CRTN> 

SEO  1664 


;  25 


Im'tializaticn 

MUORD       <ADDR=1000,JMAP,J=1001 .SELM.MGC=20> 
MUORD       <C0NT,S0A,A=14.B=15.0R,D=2,SELC,M6C-4> 
MUORD       <JZ,SELC,MGC=220> 


100 

101 

102 

103 

104 

105 

106 

107 

110 

111 

112 

113 

114 

115 

116 

117 

120 

121 

122 

123 

1000 
1001 
1002 


DFPTA9 
DFPTA9 

2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
239A 
2395 
2396 
2397 
2398 
2399 
2A0J 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
?/03 
2409 
2410 
2411 
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SEQ  1665 


002777' 
003000' 
003001  • 
003002' 
003003' 
003004' 
003005' 
003006' 
003007' 
003010' 
003011' 
003012' 
003013' 
003014' 
003015' 
003016' 
003017' 
003020' 
003021 ' 
003022' 
003023* 
003024' 
003025' 
003026' 


400040 
000000 
400140 
000000 
400240 
000000 
400340 
000400 
400440 
000000 
400500 
000000 
400600 
732006 
400700 
432156 
401000 
732007 
401140 
337007 
401200 
000000 
401340 
342007 


003027'  500050 

003030'  000000 

003031'  500150 

003032'  000000 

003033'  imn 


010100 
U04040 
010020 
002040 
030200 
004040 
050000 
000060 
030000 
000040 
000004 
004 J40 
000^00 
402340 
000000 
000340 
320440 
240300 
110000 
000220 
000140 
004340 
130000 
400040 


01C100 
004040 
01002U 
002040 

inin 


Initialization  step  to  read  buffer  address  into  R14,R15  and 
put  lOP  word  (Left  half)   into  R16 

MUORD       <ADDR=4000jMAP,J=4001.SELC,MGr=100>  ;  4000 

MWORD       <Jf1AP,J=4001,SELM,MGC=20>  ;  4001 

MWORD       <Jf1AP,J=4003,SELC,M6C=200>  ;  4002 

MUORD       <CJP.J=4005,CENA,CCC^>  ;  4003 

MUORD       <JMAP,J=4003>  ;  4004 

MUORD       <C0fJT,SELC,MGC=4>  ;  4005 

MUORD       <C0NT,SD0,0R.B=15,D=2.SELM,MGC=200>  ;  4006 

MUORD       <C0NT,S0A,0R.A=15,B=i4,D=2>  ;  4007 

MUORD       <LDCT,J=32,SD0,OR,B=16,D=2,SKCN.M6C=44O>  ;  4010 

MUORD       <RPCT.J=4011,S0B.B=16,OR,D=7>  ;  4011 

MUORD       <C0NT,SELC,MGC=140>  ;  4012 

MUORD       <JMAP,J=4013,S0B.B=17,AND,D=2>  ;  4013 

Initialization  step 

MUORD   <ADDR=5000,JMAP.J=5001,SELC,MGC=100>  ;  5000 

MUORD   <JMAP,J=5001,SELM.MGC=20>  ;  5001 

-1 
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DFPTA9 
DFPTA9 

2A12 

2413 

24H 

2A15 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2'*49 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 
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SEQ  1666 


^**«  »******************••••«  **«r*t*********4«r«****  ******************** 

*  Test  11  -  Fftitr  Cleared  by  'Port  Clear' 


Description; 
Procedure: 


A  'Port  Clear'  should  clear  the  contents  of 
Mover/Formatter.  This  test  verifies  this. 

KL>  Port  Clear 

UC>  Read  FMTR,  place  data  in  290rs 

UC>  Move  data  from  2901 's  to  EBUF 

KL>  Read  EBUF  and  verify  the  data  is  zero 


the 


003034' 
003035' 
003036' 
003037' 
003040' 
003041 • 
003042' 
003043' 
003044' 


003045' 
003046' 


254  00 

100604 

003074' 

013235' 

000000 

000000 

000000 

000000 

iniii 


201  00 
<oJ  17 


0  00  003045' 
000011 
013227' 
013237' 
001044' 
001152' 
001275' 
001612' 
777777 


Failure:     — 
/If*******  ******************************************  ******************* 

;  Test  data 

TSTC11:  JRST    T611  ;  go  start  test 

CBUS!NDMP!NDCB!ZCBUS!11       :  test  mask 
T11M,,CASCIZ  *Fmtr  Cleared  by  'Port  Clear'*: 
CEXP  C20,MLAST!C43,,CEXP  C12,C8.C18,C23,C24,C3,MLAST!C2J 


TSTC3 
TSTC4 
TSTC5 
TSTC6 
-1 

Start  test 


failure  test  tabl3 


003047'  201  01 
003050'  260  17 
003051'  263  17 


00  000000' 
00  002527* 
00  003074' 
00  002531* 
00  000000 


TG11:   MOVEI 

GO 

•  MOVEI 

60 

RTN 

;  Initialization 


19 

TRACE 

1,T11M 

TLOAD 


003052'  400  15  0  00  000000 

003053'  260  17  0  00  002617* 

003054-  402  00  0  00  002535* 

003055'  201  06  0  00  003067' 


003056'  260  17  0  00  000657* 

003057'  254  00  0  00  003066' 

003060'  254  00  0  00  003056' 

003061'  474  15  0  00  000000 


TLll: 


SETZ 
GO 

SETZM 
MOVEI 


ERFLG, 
IPACLR 
TSTSUB 
6,TS11 


Loop  on  single  srep  table  entries 


TA11: 


GO 
JRST 
JRST 
SETO 


BEXEC 
TX11 
TA11 
ERFLG. 


Set  address  of  module  start 
andle  trace  output 
set  up  microcode  address 
load/verify  it 
failed  -  exit  test 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  sstep  table  address 


execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  -  EBUF  data  incorrect 


f\rDT>n 


tikrnrt    *ciB  /  1  ly  ix    An .  /  1 


i..i_oc    D..^    ir\ 


DFPTA9 
DFPTA9 

2460 

2A61 

2A62 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 
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SEQ  1667 


003062*  027  00  J  00  003072' 

003063'  254  00  0  00  003052' 

003064'  254  00  0  00  003066' 

003065'  322  15  0  00  003056' 


003066'  263  17  0  00  000000 


003067'  100200  00C001 
003070'  000000  000000 
003071'  000000  000000 


003072'  14C000  013246' 
003073'  000000000000* 


003074'  000000  010200 

003075'  732000  002040 

003076'  000100  012004 

003077'  431000  005040 

003100'  71^111  777777 


:   Handle  error  printouts  and  scope  looping 


SCOPER  MA11 

JRST  TL11 

JRST  TX11 

JUMPE  ERFL6,TA11 


;  print  error  message 

;  loop  on  error 

;  altrnode  exit 

;  do  next  sstep  table  entry 


;  End  of  test 

TX11:   RTN  ;  return 

;  Sstep  table,  with  EBUF  data,  as:  (CMD,#Steps, Start  addr,End  Addr,EBUF  data) 

TS11:   ATABLE  (SSSTRT,2,0,1 ,0) 

ATABLE   (SSLAST) 

;  Error  messages 

MA11:   MSG!TXN0T!CASCI2  /Fmtr  not  cleared  by  a  'Port  Clear'/J 
LAST! CALL !TXALL!BBPNT         ;  print  sequencer  data 

;  Microcode: 

T11M:   MUORD   <ADDR=0,JMAP,J=1,SDO,OR,D=2,SELM,M6C=200> 

MWORD   <JMAP,J=1,S0A,0R,D=1.0ENA.SELE,MGC=4>   ;  1 

-1 
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2A90 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

0031  or 

254  00  0  00  003112' 

2516 

003102' 

100604  000012 

2517 

003103' 

003175'  013255' 

2518 

003104' 

013263'  012716' 

2519 

003105' 

000000  003210' 

2520 

003106' 

QyJOOO  003510' 

2521 

003107' 

000000  006754' 

2522 

003110' 

000000  007062' 

2523 

003111' 

imn    777777 

2524 

2525 

2526 

2527 

003112' 

201  00  0  00  000000' 

2528 

003113' 

260  17  0  00  003046* 

2529 

003114' 

201  01  0  00  003175' 

2530 

003115' 

260  ^7  0  00  003050* 

2531 

003116' 

26 J  i7  0  00  000000 

je  31 
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f***«*»********************************** *********** ***************** 
*  Test  12  -  Fmtr  Basic  Up  Shifting  Test 


SEQ  1668 


Description; 


Procedure: 


Verify  that  the  Mover/Formatter  is  capable  of 
being  shifted  up.  The  contents  of  the  formatter 
is  initially  zero,  and  the  result  of  any  shifting 
should  be  zero. 

KL>  Port  Clear 

UC>  Shift  formatter  4  bits  up 
UC>  Read  formatter  data 
UC>  If  zero,  continue. 

If  non-zero,  halt  with  a  CRAM  PE  and  leave 
the  non-zero  data  read  in  the  EBUF. 
KL>  Let  it  run  at  full  speed  for  1/2  second  then 

halt  and  verify  that  no  CRAM  PE  occurred  and 

that  the  microcode  did  not  stop  at  the  error 

location. 

Failure:     — 
/If******************************************************************** 


Test  data 

TSTC12:  JRST    T612 

CBUS!NDMP!NDCB!ZCBUS!12 
T12M,,CASCIZ  "Frntr  Basic  U| 


TSTC13 
TSTC14 
TSTC25 
TSTC26 
-1 

Start  test 


Shifting  l 
CEXPC30,C12,MLAST!C8D,,CE)(P  C4,MLAST.'C2] 


;  go  start  test 
;  test  mask 
TesfJ 


failure  test  table 


TGI  2: 


MOVE! 
GO 

MOVE  I 
GO 
RTN 


Z9 

TRACE 
1,T12M 
TLOAD 


:  get  address  of  module  start 

:  handle  trace  output 

;  set  up  microcode  address 

;  load/ verify  it 

;  failed  -  exit  test 
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SEQ  1669 


2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
25A0 
25A1 
25A2 
25A3 
25AA 
25A5 
25A6 
25A7 
25A8 
25A9 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 


003117- 
003120' 
003121* 
003122' 
003123* 
003124' 
003125* 
003126* 
003127* 
003130' 
003131' 
003132' 
003133' 
003134' 
003135' 


003136' 
003137' 
003140' 
003141* 
003142* 
003143* 
003144' 
003145' 
003146' 
003147' 
003150* 
003151* 
003152* 
003153- 


400 
201 
202 
260 
402 
201 
202 
260 
474 
474 
474 
027 
254 
254 
326 


15 
00 
00 
17 
00 
00 
00 
17 
15 
15 
15 
00 
00 
00 
15 


00  000000 
.  00  000001 
0  00  003054* 
0  00  003053* 
00  000000* 
00  000010 
0  00  000000* 
0  00  000000* 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  003155* 
0  00  003117* 
0  00  003154* 
0  00  003154* 


350  00 
201  00 
260  17 
260  17 
474  15 
603  01 
474  15 

201  01 
260  17 
2oJ  17 

202  01 
027  00 
254  00 
254  00 


00  003121* 
00  000764 
00  002567* 
00  000000* 
00  000000 
00  004000 
00  000000 
00  204000 
00  002565* 
00  001771* 
00  014013* 
00  003167* 
00  003117* 
00  003154* 


003154*  263  17  0  00  000000 


;  1st  segment  of  test  (Segment  A)  -  Srart  up  port 


TA12: 


SETZ 

ERFL6, 

MOVE  I 

1 

MOVEM 

TSTSUB 

60 

IPACLR 

SETZM 

SNEXT 

MOVE! 

10 

MOVEM 

SDATA 

GO 

IPASRT 

SETO 

ERFLG, 

SETO 

ERFLG. 

SETO 

ERFLG, 

SCOPER 

MAI  2 

JRST 

TA12 

JRST 

TX12 

JUMPN 

ERFLG, TX12 

'gment  c 

f  test  (Segment 

AOS 

TSTSUB 

MOVEI 

•D500 

GO 

ODELAY 

GO 

RDCSR 

SETO 

ERFLG, 

TLNE 

1,(CRAMPE) 

SETO 

ERFLG, 

MOVEI 

1,EBUSPE!TSTEBF 

60 

LDCSR 

60 

RDEBUF 

MOVEM 

1,SAVDAT# 

SCOPER 

MB12 

JRST 

TA12 

JRST 

TX12 

TX12:   RTN 


clear  error  flag 
initialize  subtest  number 

to  1 
issue  a  port  clear 
set  up  start  location 
get  a  10 

set  up  start  CSR  data 
start  up  the  port 

failed  -  error  reading/writing  CSR 
failed  -  port  already  running 
failed  -  error  bits  set  in  CsR 
print  error  message 
loop  on  error 
altmode  exit 
error  already  -  exit  test 

-  Check  if  CRAM  PE  sets  after  1/2  second 


increment  subtest  number 

wait  1/2  second 

do  the  wait 

read  CSR 

failed  -  couldn't  read  CSR 

got  a  CRAM  PE? 

yes  -  set  error  flag 

get  bits  to  clear  error  condition 

and  set  up  to  read  the  E6UF 
read  EBUF  data 
save  data 

print  error  message 
loop  on  error 
altfflode  exit 

exit  test 
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0FPTA9 
0FPTA9 

2569 

2570 

2571 

?572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

258A 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

259A 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 
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003155' 
003156' 

003157' 
003160' 
003161' 
003162' 
003163' 
003164' 
003165' 
003166' 


140000 
270000 

260  17 
255  00 
202  01 
200  01 
201 
^31 

260  17 
263  17 


02 
03 


003175' 
003176' 
003177' 
003200' 
003201 ' 
003202' 
003203' 
003204' 
003205' 
003206' 
003207' 


01^ 
OO! 


266' 
157' 


CBU5  MODULE  TESTS 

;  Error  messages 
MAI  2: 


SEQ  1670 


MSG.'TXNOTICASCIZ  /Couldn't  successfully  start  the  port/J 
LAST! CALL ITXALL! MAI 2P1 


003167'  140000 

005170'  270000 

003171'  037  00 

003172'  200  00 

003173'  037  13 

003174'  263  17 


00  003141* 
00  000000 
00  014010' 
00  014010' 
00  000023 
00  000023 
00  000000* 
00  000000 

013276' 
003171' 

00  013311' 
00  014013' 
00  000000 
00  000000 


MA12P1 


60 
JFCL 
MOVEM 
MOVE 
MOVE  I 
MOVE  I 
60 
RTN 


RDCSR 

1,SAVCSR# 

l.SAVCSR 

2,*D19 

3,*D19 

CSRPNT 


;  get  CSR  contents 

;  error 

;  save  it 

:  get  CSR  data 

;  character  count  so  far 

;  continuation  line  column  number 

;  go  print  in  English 

;  return 


MB12: 


MS6!TXN0T![ASCIZ  /Up  shifting  of  zero  data  resulted  in  non-zero  data/3 
LAST! CALL ITXALL! MAI 2PN 


000000 
401000 
000100 
732000 
000200 
431400 
000300 
431000 
000400 
000000 

mm 


010100 
003040 
000200 
002340 
000000 
020060 
002004 
005340 
040000 
000041 

mm 


MA12PN:  TMSGC 
MOVE 
PNTHW 
RTN 

;  Microcode: 

T12M:   MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

-1 


<EBUF  Data  (Formatter  contents) 
SAVDAT 


<ADDR=0,JMAP,J=1.S0A,D=1,SELF,MGC=100> 
<CONT,SDO.OR,D=2,SELM,M6C=200> 
<CJP.J=0,S0A,0R,D=1 ,CENA,CCFZ> 
<C0NT,S0A,0R,D=1.0ENA,SELE,M6C=4> 
<JMAP,J=4.BAD> 


0 
1 
2 
3 
4 
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SEQ  1671 


2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

261 A 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

262A 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

263A 

2635 

2636 

2637 

2638 

2639 

26A0 

26A1 

26A2 

26A3 

26AA 

26A5 

26A6 

26A7 

26A8 

26A9 

2650 

2651 

2652 

2653 


003210- 
003211' 
003212' 
003213' 
00321 A • 
003215' 
003216' 
003217' 


25A  00 
10060A 


)  00  003220' 
000013 


003A27'  013321' 
013263'  012716' 


000000 
000000 
000000 

mm 


003510' 
00675A' 
007062' 
777777 


003220'  201  00  0  00  000000' 

003221'  260  17  0  00  003113* 

003222'  201  01  0  00  003A27' 

003223'  260  17  0  00  003115* 

00322A'  263  17  0  00  000000 


*  Test  13  -  Fmtr  Up  Shift  A  Test  -  BUS  CtL=Cbus 

Description:  Verify  that  the  formatter  can  shift  various  data 
patterns  up  A  bits  at  a  time. 

Procedure:    KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 

UC>  Shift  up  A  bits 

UC>  Read  formatter  contents  and  write  into 

EBUF 
KL>  Read  EBUF  and  verify  the  data 
KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 


DFPTA' 
DFPTA< 

321 

3211 

321' 

3221 

322 

322; 

322: 

322' 

322' 


Do  for  data  patterns: 


O's 

I's 

525252,. 525252 

000000,, 007777 

000000,, 007070 

000000,, 000707 

Failure:     — 

#♦***•******************•***************»********************♦♦****** 

Test  data 

TSTC13:  JRST    TG13  ;  go  start  test 

CBUS!NDMPINDC6!ZCBUS!13       ;  test  mask 
T13M,,CASCIZ  *Fmtr  Ud  Shift  A  Test  -  BUS  Ctl=Cbus*] 
[EXP  C20,C12.MLAST!C8],,CEXP  CA,MLAST!C2] 
TSTCIA  ;  failure  test  table 

TSTC25  ;   ... 

TSTC26 
-1 


Start  test 


TG13: 


MOVE  I 
GO 

MOVE  I 
60 
RTN 


Z9 

TRACE 
1,T13M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 
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265A 

2655 

2656 

2657 

00^225' 

400  15  0  00  000000 

2658 

003226' 

260  17  0  00  003122* 

2659 

003227' 

402  00  0  00  003136* 

2660 

2661 

2662 

2663 

266A 

2665 

003230' 

205  00  0  00  013330' 

2666 

003231 ' 

541  00  0  00  002626* 

2667 

003232' 

251  00  0  00  000000/lf 

2668 

2669 

2670 

2671 

003233' 

201  01  0  00  005000 

2672 

003234' 

242  01  0  00  000001 

2673 

003235' 

260  17  0  00  002563* 

267A 

003236' 

201  01  0  00  000010 

2675 

003237' 

260  17  0  00  003146* 

2676 

003240' 

400  01  0  00  000000 

2677 

003241 • 

260  17  0  00  003237* 

2678 

2679 

2680 

2681 

003242' 

200  01  0  00  013210' 

2682 

003243' 

260  17  0  00  002553* 

2683 

003244' 

551  01  0  00  003231* 

2684 

003245' 

2c'!  02  0  00  000006 

2685 

003246' 

400  03  0  00  000000 

2686 

003247' 

260  17  0  00  002557* 

2687 

003250' 

201  06  0  00  003273' 

2688 

2689 

2690 

2691 

003251 • 

201  01  0  00  001000 

2692 

003252' 

242  01  0  00  000001 

2693 

003253' 

260  17  0  00  003235* 

2694 

003254' 

201  01  0  00  000010 

2695 

003255' 

260  17  0  00  003241* 

2696 

003256' 

201  00  0  00  000001 

2697 

003257' 

260  17  0  00  003140* 

2698 

003260' 

400  01  0  00  000000 

2699 

003261 • 

260  17  0  00  003255* 
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;  Initialization 

TL13:   SETZ    ERFL6. 

GO     IPACLR 

SETZM   TSTSUB 

MOVSI  COOOOOO,, 000000 
777777 , ,777177 
525252,, 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707] 

HRRI    BUFF 

BLT    BUFF+5 


First  ensure  the  data  transfer  is  reset 


SEQ  1672 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 


1,5000 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1. 

LDCSR 


Now  generate  CCW  list 

MOVE     CCBUFSZ,,CBUF3 

GO       INIT 

HRRZI   I ,8UFF 

MOVEI   2,6 

SETZ    3, 

GO     GENCCW 

MOVEI   6,TS13 

Start  up  the  data  transfer 


MOVEI 

LSH 

GO 

MOVEI 

GO 

MOVEI 

GO 

SETZ 

60 


1,1000 

1,1 

LDRAR 
1 ,MPRUN 
LDCSR 
1 
ODELAY 

l6csr 


get  start  address 
position  correctly 
load  the  register 
get  'MPRUN'  bit 
start  up  the  port 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCU  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 
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DFPTA9 
DFPTA9 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 
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SEQ  1673 


003262'  260  17  0  00  OOQOOO* 

003263-  254  00  0  00  003272* 

003264'  254  00  0  00  003262' 

003265'  474  15  0  00  000000 


003266'  027  00  0  00  003414* 

003267'  254  00  0  00  003225' 

003270'  254  00  0  00  003272' 

003271'  322  15  0  00  003262' 


003272'  263  17  0  00  000000 


003273'  140000 
003274'  200000 


003275'  140000 

003276'  400000 

003277'  240001 

003300'  340000 


003301'  140000 

003302'  400000 

003303'  240001 

003304'  340000 


003305'  140000 

003306'  400000 

003307'  240001 

003310'  340000 


003311'  140000 

003312'  400000 

003313'  240001 

003314'  340000 


003347' 
003352' 


003377' 
000100 
003402' 
000000 


003377' 
000100 
C03403' 
000000 


003377' 
000100 
003404' 
000000 


003377' 
000100 
003405' 
000000 


Loop  on  test  execute  table  entries 


TA13: 


GO 

JRST 
JRST 
SETO 


TEXEC 
TX13 
TA13 
ERFL6, 


;  execute  table  entry 

:  end  of  table 

:  keep  looping  after  call 

;  error  -  EBUF  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA13 
TL13 
TX13 
ERFL6.TA13 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX13:   RTN 

;  Test  Execute  Table,  as: 


return 


(CMD, parameters) 


TS13:   TTABLE  (TCALL,TS13IN) 

TS13L:  TTABLE  (TCALLC,TS13iNE) 

;  Shifted  4  bits 

TS13A:  TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1JS13RS) 

TTABLE  (TEXIT) 


Shifted  8  bits 

TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TCALL,TS13NN) 
(TSSTARJOO) 
(TCHECK.1JS13RS+1) 
(TEXIT) 


Shifted  12  bits 


TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS13RS+2) 

TTABLE  (TEXIT) 


Shifted  16  bits 


TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS13RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
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2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 


003315-  140000  003377* 

003316'  400000  000100 

003317'  240001  003406' 

003320'  340000  000000 


003321'  140000  003377* 

003322'  400000  000100 

003323'  240001  003407' 

003324'  340000  000000 


003325'  140000  003377' 

003326'  400000  000100 

003327'  240001  003410' 

003330'  340000  000000 


003331*  140000  003377* 

003332*  400000  000100 

003333'  240001  003411' 

003334'  340000  000000 


003335*  140000  003377* 

003336*  400000  000100 

003337*  240001  003412* 

003340*  340000  000000 


003341  * 
003342' 
003343' 
003344* 
003345* 
003346* 


140000 
400000 
240001 
3A0000 
300000 
000000 


003377* 

000100 

003413* 

000000 

003274* 

000000 


003347*  201  00  0  00  OOQOOOM 
003350'  202  00  0  00  014015* 
003351*  263  17  0  00  000000 


Shifted  20  bits 


TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS13RS+4) 

TTABLE  (TEXIT) 


Shifted  24  bits 


TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS13RS+5) 

TTABLE  (TEXIT) 


Shifted  28  bits 


TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1,TS13RS+6) 

TTABLE  (TEXIT) 


Shifted  32  bits 


TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1.TSl3RS+7) 

TTABLE  (TEXIT) 


Shifted  36  bits 


TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS13RS+10) 

TTABLE  (TEXIT) 


Shifted  40  bits 


TTABLE  (TCALL,TS13NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS13RS+11) 

TTABLE  (TEXIT) 

TTABLE  (TJRST,TS13L) 

TTABLE  (TLAST) 


Initialize  stuff 


TS13IN:  MOVEI 
MOVEM 
RTN 


BUFF-1 
T13BUF# 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 

•  ■  • 

return 


SEQ  1674 
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SEQ  1675 


2802 

2803 

280A 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

282A 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 


003352" 
003353' 
003354' 
003355' 
003356' 
003357' 
003360' 
003361 • 
003362* 
003363' 
003364' 


003365' 
003366' 
003367' 
003370' 
003371 ' 
0033^2' 
003373' 
003374' 
003375' 
003376' 


350  01 
307  01 
350  00 

200  00 

201  02 
242  00 

202  00 
350  00 
307  02 
254  00 
402  00 


400  01 
260  17 
201  01 
242  01 
260  17 
201  01 
260  17 
400  01 
260  17 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  014015' 

00  000000* 
17  000000 

01  000000 
00  003402' 
00  000004 

02  000000 
00  000002 
00  003413' 
00  003357' 
00  014040' 


00  000000 
00  003261* 
00  000200 
00  000001 
00  003253* 
00  000010 
00  003366* 
00  000000 
00  003373* 
00  000000 


003377'  2u!  00  0  00  000004 

003400'  272   00  0  00  014040' 

003401'  263  17  0  00  000000 

003402' 


003414'  240000  003416' 
003415'  000000000000* 


003416' 
003417' 
003420' 
003421 ' 
003422' 
00S423' 
003424' 
003425' 
003426' 


037  00 
200  01 
200  00 


037  13  0 


037  00 
200  00 
037  15 
037  00 
263  17 


00 
00 
01 
00 
00 
00 
00 
00 
OC 


013336' 

014015' 

000000 

000000 

013340' 

014040' 

000000 

013343' 

700000 


Set  up  next  data  pattern 


TS13NE:  AOS 
CAIG 
AOS 
MOVE 
MOVE  I 

TS13N0:  LSH 
MOVEM 
AOS 
CAIG 
JRST 
SETZM 


1.ri3BUF 

1,BUFF+5 

(P) 

(1) 

2,TS13RS 

4 

(2) 

2 

2,TS13RS+11 

TS13N0 

TS13NM* 


;  Read  the  next  word 


SETZ 

GO 

MOVE  I 

LSH 

60 

MOVE  I 

GO 

SETZ 

GO 

RTN 


1, 

LDCSR 

1,200 

1.1 

LDRAR 

1 .MPRUN 

LDCSR 

1. 

LDCSR 


Increment  shift  count 


TS13NN: 


MOVEI 

ADDM 

RTN 


4 
TS13NM 


TS13RS:  BLOCK   12 
;  Error  messages 


MAI  3: 
MA13PN: 


CALL!TXN0T!MA13PN 
LAST! CALL !TXALL!TTPNT 


TMSGC 

MOVE 

MOVE 

PNTHU 

TMSG 

MOVE 

PNTDEC 

TMSG 

RTN 


<Data  >  ; 

1J138UF  ; 

(1) 

<  shifted  up  > 

TS13NM  ; 

<.  bits,  result  in  EBUF> 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

shift  4  bits 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


clear  data 
stop  the  port 
get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  4 

add  it 
return 

correct  EBUF  data 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


get  shift  count 
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DFPTA9 
DFPTA9 

2852 

2853 

285A 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 
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SEQ  1676 


003427' 
003430' 
003431 ' 
003432' 
003433' 
003434' 
003435' 
003436' 


003437' 
003440' 
003441 ' 
003442' 
003443' 
003444' 
003445' 
003446' 
003447' 
003450' 
003451 ' 
003452' 


003453' 
003454' 
003455' 
003456' 
003457' 
003460' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
732001 
020500 
000000 


100010 
OuJOOO 
100100 
001000 
000000 
000000 


003461'  500050 

003462'  000000 

003463'  500100 

003464'  000000 


003465' 
003466' 
003467' 
003470' 
003471 ' 
003472' 
003473' 
003474' 
003475' 
003476' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 


010000 
000040 
000001 
004340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 


;  Microcode  -  Shift  4  bits 

T13M:   MWOQD   <ADDR=100,JMAP J=101,D=1> 
MWORD   <C0NT,D=1,SELC.M6C=1> 
MWORD   <CONT,SDO,OR,B=4,D=2,SELM,MGC=200> 
MWORD   <JMAP,J=5100,D=1> 

;     Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200,JMAP.J=201> 

MWORD  <CJP,J=203,D=1,CENA.CCCA> 

MWORD  <JMAP,J=201,D=1> 

MWORD  <C0NT,D=1,SELC.MGC=^4> 

MWORD  <CONT,SD0,OR,B=3,D=2.SELM,MGC=200> 

MWORD  <JZ> 

;      Initialization 

MWORD       <ADDR=1000JMAP,J=1001  ,SELM,MGC=20> 
MWORD       <JZ ,D=1 , SELC ,MGC=200> 
MWORD       <ADDR=0,JZ> 

;  Initialization  step 

MWORD       <ADDR=5000JMAP,J=5001,SELC,MGC=100> 
MWORD       <JZ,SELM,MGC=20> 

;  Subroutine  -  Passed  -  Write  1   to  bit  12  of  CSR  register 
MWORD       <ADDR=51 00 , CONT , SDO , AND ,8=2 . D=2> 
MWORD       <CONT, SOB. PLUS, B=2,D=2,CRY> 
MWORD       <LDCT,J=26> 

MWORD       <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2> 
MWORD       <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4> 


100 
101 
102 
103 

200 
201 
202 
203 
204 
205 

1000 
1001 
0 

;  5000 
;  5001 

5100 
5101 
5102 
5103 
5104 
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SEQ  1677 


2907 

003477' 

510551 

070040 

2908 

003500' 

001400 

015060 

2909 

003501' 

510651 

050000 

2910 

003502' 

001000 

000040 

2911 

003503' 

5 ''0700 

000200 

2912 

003504' 

4j1010 

005340 

2913 

003505' 

511051 

102004 

2914 

003506' 

431040 

005040 

2915 

00350/' 

777777 

777777 

nUORD 
nUORD 
MUORD 
MUORD 
-1 


<CJP,J=5107,CENA,CCGC,D=1,SELE,M6C=A0> 
<JMAP,J=5105,D=1> 

<CONT,SOA,A=1.0R.D=1,SELE,MGC=200> 
<JMAP,J=5110,S0A,OR,A=4,D=l,OENA,Sf;LE,MGC=4> 


5105 
5106 
5107 
5110 


DFPTA9 
DFPTA9 

347 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

353? 


1665 
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SEQ  1678 


DF 
DP 


2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 


003510' 
003511' 
003512' 
003513' 
003514' 
003515' 
003516' 
003517' 
003520' 


003521 ' 
003522' 
003523' 
003524' 
003525' 


254  00 

100604 

003726' 

013263' 

000000 

000000 

000000 

000000 

mm 


0  00  003521 
000014 
013350' 
012716' 
004007' 
004322' 
006754' 
007062' 

mm 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
003221* 
003726' 
003223* 
000000 


*  Test  14  -  Fmtr  Up  Shift  4  Test  -  BUS  Ctl-Fmtr 

Description:  Verify  that  the  formatter  can  shift  various  data 
patterns  up  4  bits  at  a  time. 

P  -"cedure:    KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 

UC>  Shift  up  4  bits 

UC>  Read  formatter  contents  and  write  into 

EBUF 
KL>  Read  EBUF  and  verify  the  data 
KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 


Do  for  data  patterns: 


O's 

I's 

525252,, 525252 

000000,, 007777 

000000,, 007070 

000000,, 000707 

Failure:     — 

#*****•************************************************•************* 

;  Test  data 

TSTC14:  JRST    TG14  ;  go  start  test 

CBUS!NDMPINDCB!ZCBUS!14        ;  test  mask 
T14M,,[ASCIZ  *Fmtr  Up  Shift  4  Test  -  BUS  Ctl=Fmtr*] 
CEXP  C20,C12.MLAST!C8],,CEXP  C4,MLAST!C2] 
TSTC15  ;  failure  test  table 

TSTC16 
TSTC25 
TSTC26 
-1 


Start  test 


TG.4: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z9 

TRACE 
1,T14M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


f\w nT  An 


MA/«n<-%     ArCVrk  /  4  n  /  '>  \      An  .  i  n 


1666 
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SEQ  1679 


DFI 
DFF 


2966 

2967 

;  Initialization 

2968 

2969 

003526' 

400  15  0  00  000000 

TL14: 

SETZ 

ERFL6, 

2970 

003527' 

260  17  0  00  003226* 

60 

IPACLR 

2971 

003530' 

402  00  0  00  003227* 

SETZM 

TSTSUB 

2972 

MOVSI 

COOOOOO, 

,000000 

2973 

777777, 

.777777 

2974 

525252, 

.5252S2 

2975 

000000, 

,007777 

2976 

000000, 

,007070 

2977 

003531 • 

205  00  0  00  013330' 

000000, 

,000707: 

2978 

003532' 

541  00  0  00  003244* 

HRRI 

BUFF 

9 

2979 

003533' 

251  00  0  00  000000* 

BLT 

BUFF+5 

• 
9 

2980 

2981 

;  J-irst 

ensure 

the  data 

transfer  is  n 

jset 

2982 

2983 

003534' 

201  01  0  00  005000 

MOVE  I 

1,5000 

2984 

003535' 

242  01  0  00  000001 

LSH 

1,1 

2985 

003536' 

260  17  0  00  003371* 

60 

LDRAR 

2986 

003537' 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

2987 

003540' 

260  17  0  00  003375* 

60 

LDCSR 

2988 

003541  • 

400  01  0  00  000000 

SETZ 

1, 

2989 

003542' 

260  17  0  00  003540* 

GO 

LDCSR 

2990 

2991 

;  Now  generate 

CCW  list 

2992 

2993 

003543' 

200  01  0  00  013210' 

MOVE 

1,CCBUFS/,,CBUFJ 

2994 

003544' 

260  17  0  00  003243* 

60 

CHINIT 

2995 

003545' 

551  01  0  00  003532* 

HRRZI 

1,BUFF 

2996 

003546' 

2u!  02  0  00  000006 

MOVE  I 

2,6 

2997 

003547' 

400  03  0  00  000000 

SETZ 

3, 

2998 

003550' 

260  17  0  00  003247* 

60 

6ENCCU 

2999 

003551- 

201  06  0  00  0035>;' 

MOVE  I 

6,TS14 

3000 

3001 

;  Start 

up  the 

data  transfer 

3002 

3003 

003552* 

20^   01  0  00  001000 

MOVE  I 

1,1000 

3004 

003553' 

242  01  0  00  000001 

LSH 

1,1 

3005 

003554' 

260  17  0  00  003536* 

60 

LDRAR 

3006 

003555' 

201  01  0  CO  000010 

MOVE  I 

1 ,MPRUN 

3007 

003556' 

260  17  0  00  003542* 

60 

LDCSR 

3008 

003557' 

201  00  0  00  000001 

HOVE  I 

1 

3009 

003560' 

260  17  0  00  003257* 

60 

ODELAY 

3010 

003561 ' 

400  01  0  00  000000 

SETZ 

1, 

3011 

003562' 

260  17  0  00  003556* 

60 

LDCSR 

clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  '  tns 
wait  a  bit 
clear  data 
stop  the  port 


r 


1667 


DFPTA9 
DFPTA9 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 
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SEQ  1680 


003563'  260  17  0  00  003262* 

003564'  254  00  0  00  003573' 

003565'  254  00  0  00  003563' 

003566'  474  15  0  00  000000 


003567'  027  00  0  00  003713' 

003570'  254  00  0  00  003526' 

003571'  254  00  0  00  003573' 

003572'  322  15  0  00  003563' 


003573'  263  17  0  00  000000 


;  Loop  on  test  execute  table  entries 
TA14: 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX14 
TA14 
ERFL6, 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  tBUF  data  incorrect 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA14 
TL14 
TX14 
ERFL6,TA14 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


003574'  140000 
003575'  200000 


003576'  140000 

003577'  400000 

003600'  240001 

003601'  340000 


003602'  140000 

003603'  400000 

003604'  240001 

003605'  340000 


003606'  140000 

003607'  400000 

003610'  240001 

003611'  340000 


003612'  140000 

003613'  400000 

003614'  240001 

003615'  340000 


003650' 
003653' 


003676' 
000100 
003701 ' 
000000 


003676' 
000100 
003702' 
000000 


003676' 
000100 
003703' 
000000 


003676' 
000100 
003704' 
000000 


;  End  of  test 

TX14:   RTN 

;  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


TS14:   TTABLE  (TCALL,TS14IN) 
TS14L:   TTABLE  (TCALLC,TS14NE) 

;  Shifted  4  bits 

TS14A:   TTABLE  (TCALL,TS14NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1,TS14RS) 

TTABLE  (TEXIT) 

;  Shifted  8  bits 

TTABLE  (TCALLJS14NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS14RS+1) 

TTABLE  (TEXIT) 

;  Shifted  12  bits 

TTABLE  (TCALL,TS14NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECI(J,TS14RS+2) 

TTABLE  (TEXIT) 

;  Shifted  16  bits 

TTABLE  (TCALL,TS14NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1.TS14RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


•^r  r%*  An        aa  a  /«  n^t     9te^rs  /  4  *^  i  n  \      a/%  .  /  n 
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SEQ  1681 

3064 

3065 

;  Shifted  20  bits 

3066 

3067 

003616' 

140000 

003676' 

TTABLE  (TCALL.TS14NN) 

;  increment  shift  count 

3068 

003617* 

400000 

000100 

TTABLE  (TSSTAAJOO) 

;  start  up  port 

3069 

003620* 

240001 

003705* 

TTABLE  (TCHECKJ,TSl4RS+4) 

;  check  if  completed 

3070 

003621  * 

340000 

000000 

TTABLE  (TEXIT) 

;  exit  if  error  yet 

3071 

3072 

;  Shifted  24  bits 

3073 

307A 

003622' 

140000 

003676' 

TTABLE  (TCALL,TS14NN) 

;  increment  shift  count 

3075 

003623* 

400000 

000100 

TTABLE  (TSSTARJOO) 

:  start  up  port 

3076 

003624* 

240001 

003706' 

TTABLE  (TCHECK,1,TS14RS^ 

^5) 

;  check  if  completed 

3077 

003625* 

340000 

000000 

TTABLE   (TEXIT) 

;  exit  if  error  yet 

3078 

3079 

;  Shifted  28  bits 

3080 

3081 

003626* 

140000 

003676* 

TTABLE  (TCALL.TSHNN) 

;  increment  shift  count 

3082 

003627* 

400000 

000100 

TTABLE  (TSSTARJOO) 

;  start  up  port 

3083 

003630* 

240001 

003707* 

TTABLE   (TCHECK,1,TSl4RS+6) 

.•check  if  completed 

308A 

003631 ' 

34C000 

000000 

TTABLE   (TEXIT) 

;  exit  if  error  yet 

3085 

3086 

;  Shifted  32  bits 

3088 

003632* 

140000 

003676* 

TTABLE   (TCALL-TSUNN) 

;  increment  shift  count 

3089 

003633* 

400000 

000100 

TTABLE  (TSSTAR.100) 

;  start  up  port 

3090 

003634* 

240001 

003710' 

TTABLE   (TCHECK,1,TS14RS^ 

v7) 

;  check  if  completed 

3091 

003635* 

340000 

000000 

TTABLE  (TEXIT) 

;  exit  if  error  yet 

3092 

3093 

;  Shifted  36  bits 

309A 

3095 

003636" 

140000 

003676* 

TTABLE   (TCALL,TS14NN) 

;  increment  shift  count 

3096 

003637* 

400000 

000100 

TTABLE   (TSSTARJOO) 

;  start  up  port 

3097 

003640' 

240001 

003711* 

TTABLE  (TCHECKJJSURS^ 

HO) 

;  check  if  completed 

3098 

003641  * 

340000 

000000 

TTABLE   (TEXIT) 

;  exit  if  error  yet 

3099 

3100 

;  Shifted  40  bits 

3101 

3102 

003642' 

140000 

003676* 

TTABLE  (TCALL,TS14NN) 

;  increment  shift  count 

3103 

003643' 

400000 

000100 

TTABLE  (TSSTARJOO) 

;  start  up  port 

31 OA 

00364  V 

240001 

003712* 

TTABLE   (TCHECK,1,TS14RS+11) 

;  check  if  completed 

3105 

003645* 

340000 

000000 

TTABLE   (TEXIT) 

;  exit  if  error  yet 

3106 

003646* 

300000 

003575* 

TTABLE   (TJRST.TSKL) 

;  loop  till  done 

3107 

003647' 

000000 

000000 

TTABLE   (TLAST) 

3108 

3109 

;  Initialize  stuff 

3110 

3111 

003650* 

201  00  0  00  000000* 

TS14IN:  MOVEI   BUFF-1 

;  initialize  buffer  pointer 

3112 

003651  * 

202  00  0  00  014016' 

MOVEM   T14BUF* 

f    •  •  • 

3113 

003652* 

263  17  0  00  000000 

RTN 

;  return 

^mTAr\        aaa  ^r\r\ 
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SEQ  1682 


3114 

3115 

;  Set  up  next  data  pattern 

3116 

3117 

003653' 

350  01  0  00  014016' 

TS14NE: 

AOS 

1,T14BUF 

3118 

003654- 

307  01  0  00  000000* 

CAIG 

1,BUFF+5 

3119 

003655' 

350  00  0  17  000000 

AOS 

(P) 

3120 

003656' 

200  00  0  01  000000 

MOVE 

(1) 

3121 

003657' 

201  02  0  00  003701 ' 

MOVE  I 

2,TS14RS 

3122 

003660' 

242  00  0  00  000004 

TS14N0: 

LSH 

4 

3123 

003661 ' 

202  or  0  02  000000 

MOVEM 

(2) 

3124 

003662' 

350  00  0  00  000002 

AOS 

2 

3125 

003663' 

307  02  0  00  003712' 

CAIG 

2,TS14RS+11 

3126 

003664' 

254  00  0  00  003660' 

JRST 

TS14N0 

3127 

003665' 

402  00  0  00  014041' 

SETZM 

TS14NM# 

3128 

3129 

:  Read 

the  next 

word 

3130 

3131 

003666' 

201  01  0  00  000200 

MOVE  I 

1,200 

3132 

003667' 

242  01  0  00  000001 

LSH 

1,1 

3133 

003670' 

260  17  0  00  003554* 

GO 

LDRAfi 

3134 

003671 • 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

3135 

003672' 

260  17  0  00  003562* 

GO 

LDCSR 

3136 

003673' 

400  01  0  00  000000 

SETZ 

1, 

3137 

003674' 

260  17  0  00  003672* 

GO 

LDCSR 

3138 

003675' 

263  17  0  00  000000 

RTN 

3139 

3140 

;  Increment  shi 

ft  count 

3141 

3142 

003676' 

201  00  0  00  000004 

TS14NN: 

MOVEI 

4 

3143 

003677' 

217.   00  0  00  014041' 

ADDM 

TS14NM 

3144 

003700' 

2o<  17  0  00  000000 

RTN 

• 

9 

3145 

3146 

003701 ' 

TS14RS: 

BLOCK 

12 

3147 

3148 
3149 
3150 

;  Error 

messages 

003713' 

240000  003715' 

MA14: 

CALLITXNOT.'MAUPN 

3151 

003714' 

000000000000* 

LAST! CALL !TXALL!TTPNT 

3(52 

3133 

003715' 

037  00  0  00  013336' 

MA14PN: 

TMSGC 

<Data  > 

3154 

003716' 

200  01  0  00  014016' 

MOVE 

1JKBUF 

:i55 

003717' 

200  00  0  01  OOCOOO 

MOVE 

(1) 

3156 

003720' 

037  13  0  00  000000 

PNTHU 

3157 

003721 ' 

037  00  0  00  013340' 

TMSG 

<  shifted  up  > 

3158 

003722' 

200  00  0  00  014041 ' 

MOVE 

TS14NM 

3159 

003723* 

037  15  0  00  000000 

PNTDEC 

3160 

003724' 

037  00  0  00  013343' 

TMSG 

<.  bits,  result  in  EBUF> 

3161 

003725' 

263  17  0  00  000000 

RTN 

point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

shift  4  bits 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  4 
add  it 
return 


correct  EBUF  data 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


get  shift  count 
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3162 

3163 

;  Microcode  - 

Shift  4  bits 

3164 

3165 

003726' 

010001 

010000 

T14M: 

MUORD 

<ADDR=100,JMAP  J=101  ,D=1> 

3166 

003727' 

001000 

000040 

3167 

003730' 

010100 

000100 

MUORD 

<CONT,D=1,SELF,M6C=100> 

3168 

003731 • 

001000 

003340 

3169 

003732' 

010200 

000200 

MUORD 

<CONT.SDO,OR.B=4,D=2,SELM,MGC=200> 

3170 

003733' 

732002 

002340 

3171 

003734' 

010351 

000000 

MUORD 

<JMAPJ=5100,D=1> 

3172 

003735' 

001000 

000040 

3173 

3174 

• 

0 

Routine  to  read  a  word  from  CBUS  into  the  formatter. 

3175 

3176 

003736' 

020002 

010000 

MUORD 

<ADDR=200,JMAP.J=201> 

3177 

003737' 

000000 

000040 

3178 

003740' 

020102 

030000 

MUORD 

<CJP,J=203,D=1 ,CENA,CCCA> 

3179 

003741 ' 

001400 

000060 

3180 

003742' 

020202 

010000 

MUORD 

<JMAP.J=201.D=1> 

3181 

003743' 

001000 

000040 

3182 

003744' 

02C300 

000004 

MUORD 

<C0NT,D=1.SELC,M6C=4> 

3^83 

003745' 

001000 

004340 

3184 

003746' 

020400 

000200 

MUORD 

<CONT,SD0,OR,B=3,D=2,SELM,M6C=200> 

3185 

003747' 

732001 

402340 

3186 

003750' 

020500 

000000 

MUORD 

<J2> 

3187 

003751 ' 

000000 

000000 

3188 

3189 

• 
• 

Initialization 

3190 

3191 

003752' 

100010 

010020 

MUORD 

<ADDR=1000, JMAP.J=1001 ,SELM,M6C=20> 

3192 

003753' 

OuJOOO 

002040 

3193 

003754' 

100100 

000200 

MUORD 

<JZ.D=1,SELC,M6C=200> 

3194 

003755' 

001000 

004000 

3195 

003756' 

000000 

000000 

MUORD 

<ADDR=0,JZ> 

3196 

003757' 

000000 

000000 

3197 

3198 

• 
0 

Initialization  step 

3199 

3200 

003760' 

500050 

010100 

MUORD 

<ADDR=5000 , JMAP  J=5001 , SELC ,MGC=1 00> 

3201 

003761 ' 

000000 

004040 

3202 

003762' 

500100 

000020 

MUORD 

<JZ,SELM,MGC=20> 

3203 

003763' 

000000 

002000 

3204 

^205 

;  Subroutine  - 

Passed  -  Urite  1  to  bit  12  of  CSR  register 

3206 

3207 

003764' 

510000 

000000 

MUORD 

<ADDR=5100,C0NT,SD0,AND,B=2,D=2> 

3208 

003765' 

742001 

000340 

3209 

003766' 

510100 

000000 

MUORD 

<C0NT,S0B,PLUS.B=2,D=2,CRY> 

3210 

003767' 

302001 

000740 

3211 

003770' 

510200 

260000 

MUORD 

<LDCT,J=26> 

3212 

003771 ' 

000000 

000300 

3213 

003772' 
003773' 

510351 

MUORD 

<RPCT,J=5103,SAB,PLUS.A=2,B=2,D=2> 

3214 

102021 

3215 

003774' 
003775' 

510400 

002004 
005340 

MUORD 

<CONT,S0A.A=2,0R,D=1,OENA,SELE,MGC=4> 

3216 

431020 

SEQ  1683 


100 
101 
102 
103 

200 
201 
202 
203 
204 
205 

1000 
1001 
0 

;  5000 
;  5001 

5100 
5101 
5102 
5103 
5104 
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SEQ  1684 


3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 


003776" 
003777' 
004000' 
004001 ' 
004002' 
004003' 
004004' 
004005' 
004006' 


510551 
001400 
510651 
001000 
510700 
431010 
511051 
431040 
mill 


070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 
mill 


MUORD 
MUORD 
MUORD 
MUORD 
-1 


<CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

<JMAP,J=5105,D=1>  ;  5106 

<C0NT,S0A,A=1,0R.D=1,SELE,MGC=200>  ;  5107 

<JMAP,J=511O,S0A,OR,A=4,D=1,OENA,SELE,MGC=4>  ;  5110 


KrnTAn        UA^r\rh    «r7i-k/4nin\     f\r\  .  i  ^ 
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3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
'3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 


*  Test  15  -  Fmtr  Up  'hi ft  4  (from  PLIN)  Test  -  SELRHTNIB=0 


Description: 


Procedure: 


Veri  y  that  the  formatter  can  shift  various  data 
patterns  4  bits  at  a  time  while  inserting  bytes 
from  the  PLIN  into  the  formatter.  The  data  loaded 
into  the  PLIN  initially  is  017. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  017 

UC>  Shift  up  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 


DFPTi 
DFPT/ 

38' 
38 


I 

38< 
38i 
38( 

3a 

38( 
38 
38( 
38 
38 
38 
38 


Do  for  data  patterns: 


004007' 
004010" 
00401 1 • 
004012' 
004013' 
004014' 
004015' 
004016' 
004017' 
004020' 


254  00 

100604 

004231 ' 

013263' 

000000 

000000 

000000 

000000 

000000 


0  00  004021 ' 
000015 
013360' 
012716' 
004322' 
004633' 
005144' 
005456* 
005736' 

mm 


O's 

I's 

525252,, 525252 

000000,, 007777 

000000,, 007070 

000000,, 000707 

Failure:     — 
/If**********************  **********************************  ************ 

Test  data 

TSTC15:  JRST    TG15  ;  go  start  test 

CBUS!NDMP!NDCB!ZCBUS!15       ;  test  mask 
T15M,,CASCIZ  *Fmtr  Ud  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=0*3 
CEXP  C20,C12,MLAST!C8]..,CEXP  C4,MLAST!C23 
TSTC16  ;  failure  test  table 

TSTC17  ;   ... 

TSTC20 
TSTC21 
TSTC22 
-1 
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3272 

3273 

;  Start  test 

327A 

3275 

004021 ' 

201  00  0  00  000000' 

T615: 

MOVE  I 

Z9 

3276 

004022* 

260  17  0  00  003522* 

GO 

TRACE 

3277 

004023' 

201  01  0  00  004231  * 

MOVE  I 

1,T15M 

3278 

004024' 

260  17  0  00  003524* 

60 

TLOAD 

3279 

004025' 

263  17  0  00  000000 

RTN 

3280 

3281 

;  Initialization 

3282 

3283 

004026' 

400  15  0  00  000000 

TL15: 

SETZ 

ERFL6, 

328A 

004027' 

260  17  0  00  003527* 

GO 

IPACLR 

3285 

004030' 

402  00  0  00  003530* 

SETZM 

TSTSUB 

3286 

MOVSI 

COOOOOO, 

,000000 

3287 

777777, 

,777777 

3288 

525252, 

,5252S2 

J289 

000000, 

,007777 

:290 

000000, 

,007070 

::291 

004031 ' 

205  00  0  00  013330* 

000000, 

,0007073 

004032' 

541  00  0  00  003545* 

HRRI 

BUFF 

0 

:293 

004033' 

251  00  0  00  000000* 

BLT 

BUFF+5 

■ 

0 

:29A 

3295 

;  First  ensure 

the  data 

transfer  is  n 

jset 

3296 

:297 

004034' 

201  01  0  00  005000 

MOVE  I 

1,5000 

3298 

004035' 

242  01  0  00  000001 

LSH 

1,1 

3299 

004036' 

260  17  0  00  003670* 

60 

LDRAR 

3300 

004037* 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

3301 

004040' 

260  17  0  00  003674* 

GO 

LDCSR 

3302 

004041 ' 

4uJ  01  0  00  000000 

SETZ 

1, 

3303 

004042' 

260  17  0  00  004040* 

GO 

LDCSR 

3304 

3305 

:  Now 

generate 

CCW  list 

3306 

3307 

004043' 

200  01  0  00  013210* 

MOVE 

1,CCBUFSZ.,CBUF] 

3308 

004044' 

260  17  0  00  003544* 

GO 

CHINIT 

3309 

004045' 

551  01  0  00  004032* 

HRRZI 

1,BUFF 

3310 

004046' 

201  02  0  00  000006 

MOVE  I 

2,6 

3311 

004047' 

400  03  0  00  000000 

SETZ 

3, 

3312 

004050* 

260  17  0  00  003550* 

60 

GENCCU 

3313 

004051  * 

201  06  0  00  004074* 

MOVE  I 

6,TS15 

33U 

3315 

;  Start  up  the 

data  transfer 

3316 

3317 

004052* 

201  01  0  00  001000 

MOVE  I 

1,1000 

3318 

004053* 

242  01  0  00  000001 

LSH 

1,1 

3319 

004054* 

260  17  0  00  004036* 

GO 

LDRAR 

3320 

004055* 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

3321 

004056* 

260  U  0  00  004042* 

GO 

LDCSR 

3322 

004057' 

20i  00  0  00  000001 

MOVE  I 

1 

004060' 

260  17  0  00  003560* 
400  01  0  00  000000 

60 

ODELAY 

3324 

004061 ' 

SETZ 

1. 

3325 

004062' 

260  17  0  OC  004056* 

60 

l6csr 

SEQ  1686 


get  address  of  module  start 

nanu'le  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 

fosition  correctly 
oad  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 
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DFPTA9 
DFPTA9 

3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
333A 
3335 
3336 
3337 
3338 
3339 
33A0 
3341 
33A2 
^343 

3:  - 

3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
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SEQ  1687 


Loop  on  test  execute  table  entries 


004063'  260  17  0  00  003563* 

004064*  254  00  0  00  004073* 

004065*  254  00  0  00  004063* 

004066*  474  15  0  00  000000 


004067*  027  00  0  00  004216* 

004070*  254  00  0  00  004026* 

004071*  254  00  0  00  004073* 

004072*  322  15  0  00  004063* 


004073*  263  17  0  00  000000 


TA15: 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX15 
TA15 
ERFLG, 


execute  table  entry 
end  of  table 


;  keep  looping  after  call 
;  error  -  EBUF  data  incorrect 

Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MAI  5 
TL15 
TX15 
ERFLG, TA15 


;  print  error  message 

;  loop  on  error 

;  altmode  exit 

:  do  next  sstep  table  entry 


004074*  140000 
004075*  200000 


004076*  140000 

004077*  400000 

004100*  240001 

004101*  340000 


004102*  140000 

004103*  400000 

004104*  240001 

004105*  340000 


004106*  140000 

004107*  400000 

004110*  240001 

004111*  340000 


004112*  140000 

004113*  400000 

004114*  240001 

004115*  340000 


004150* 
004153* 


004201  * 
000100 
004204* 
000000 


004201  * 
000100 
004205* 
000000 


004201  * 
000100 
004206* 
000000 


004201  * 
000100 
004207* 
000000 


;  End  of  test 

TX15:   RTN 

;  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


TS15:   TTA8LE   (TCALL,TS15IN) 
TS15L:   TTABLE   (TCALLC,TS15NE) 

;  Shifted  4  bits 

TS15A:   TTABLE  (TCALL,TS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS15RS) 

TTABLE  (TEXIT) 

;  Shifted  8  bits 

TTABLE  (TCALL,TS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS15RS+1) 

TTABLE  (TEXIT) 

;  Shifted  12  bits 

TTABLE  (TCALL,TS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS15RS+2) 

TTABLE  (TEXJT) 

;  Shifted  16  bits 

TTABLE  (TCALL,TS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ.TS15RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
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DFPTA9 
DFPTA9 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

339A 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 
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004116*  140000 

004117'  400000 

004120*  240001 

004121*  340000 


004122*  140000 

004123*  400000 

004124*  240001 

004125*  340000 


004126*  140000 

004127*  400000 

004130*  240001 

004131*  34C000 


004132*  140000 

004133*  400000 

004134*  240001 

004135*  340000 


004136'  140000 

004137'  400000 

004140'  240001 

004141'  340000 


004142' 
004143' 
004144' 
004145* 
004146* 
004147* 


140000 
400000 
240001 
340000 
300000 
000000 


004201  * 
000100 
004210* 
000000 


004201  * 
000100 
004211* 
000000 


004201  * 
000100 
004212* 
000000 


004201  * 
000100 
004213* 
000000 


004201  * 
000100 
004214* 
000000 


004201  * 

C00100 

004215* 

000000 

004075* 

000000 
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;  Shifted  20  bits 


TTABLE  (TCALL,TS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,l,TS15RS+4) 

TTABLE  (TEXIT) 


;  Shifted  24  bits 


TTABLE  (TCALL,TS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKj,TSl5RS+5) 

TTABLE  (TEXIT) 


;  Shifted  2B   bits 


TTABLE  (TCALL.TS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS15RS+6) 

TTABLE  (TEXIT) 


;  Shifted  32  bits 


TTABLE  (TCALL,TS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS15RS+7) 

TTABLE  (TEXIT) 


;  Shifted  36  bits 


TTABLE  (TCALLJS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS15RS+10) 

TTABLE  (TEXIT) 


004150*  201  00  0  00  000000* 
004151*  202  00  0  00  014017' 
004152*  263  17  0  00  000000 


;  Shifted  40  bits 

TTABLE  (TCALLJS15NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS15RS+11) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS15L) 

TTABLE  (TLAST) 

;  Initialize  stuff 

TS15IN:  MOVEI   BUFF-1 
MOVEM   T158UF* 
RTN 


SEQ  1688 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 

■  •  • 

return 
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3A28 

3A29 

;  Set  up  next  data  pattern 

3430 

3A31 

OOA153' 

350  01  0  00  014017' 

TS15NE: 

AOS 

1,T15BUF 

3A32 

00A15A' 

307  01  0  00  000000* 

CAIG 

l,BUFF+5 

00A155' 

350  00  0  17  000000 

AOS 

(P) 

3A3A 

00A156' 

200  00  0  01  000000 

MOVE 

(1) 

3A35 

00A157' 

201  02  0  00  004204' 

MOVE  I 

2,TS15RS 

3A36 

00A160' 

400  01  0  00  000000 

TS15N0: 

SETZ 

1, 

3A37 

00A16r 

302  02  0  00  004204' 

CAIE 

2.TS15RS 

3A38 

00A162' 

505  01  0  00  741777 

HRLI 

1.741777 

3A39 

00A163' 

246  00  0  00  000004 

LSHC 

4 

3AA0 

00A16A' 

202  00  0  02  000000 

MOVEM 

(2) 

3AA1 

00A165' 

350  00  0  00  000002 

AOS 

2 

3AA2 

00A166' 

307  02  0  00  004215' 

CAIG 

2,TS15RS+11 

3AA3 

0OA167' 

254  00  0  00  004160' 

JRST 

TS15N0 

3AAA 

00A170" 

402  00  0  00  014042' 

SETZM 

TS15NM# 

:;AA5 

3AA6 

:  Read 

the  next 

word 

3AA7 

3AA8 

004171' 

201  01  0  00  000200 

MOVE  I 

1,200 

3AA9 

00A172' 

242  01  0  00  000001 

LSH 

M 

3A50 

00A173' 

260  17  0  00  004054* 

GO 

LDRAR 

3A51 

00A174' 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

3A52 

004175' 

260  17  0  00  004062* 

GO 

LDCSR 

:A53 

004176' 

400  01  0  00  000000 

SETZ 

1, 

::a5a 

004177' 

260  17  0  00  004175* 

GO 

LDCSR 

:A55 

004200' 

263  17  0  00  000000 

RTN 

3A56 

3A57 

;  Increment  shi 

ft  count 

3A58 

3A59 

004201 ' 

201  00  0  00  000004 

TS15NN: 

MOVE  I 

4 

3A60 

004202' 

272  00  0  00  014042' 

ADDM 

TS15NM 

3A61 

004203' 

263  17  0  00  000000 

RTN 

3A62 

3A63 

004204' 

TS15RS: 

BLOCK 

12 

3A6A 

3A65 

;  Error 

message 

s 

3A66 

3A67 

004216' 

240000  004220' 

MAI  5: 

CALL1TXN0TIMA15PN 

3A68 

004217' 

000000000000* 

LAST! CALL !TXALL!TTPNT 

:iA69 

:A70 

004220' 

037  00  0  00  013336' 

MA15PN: 

TMSGC 

<Data  > 

:;a7i 

004221 ' 

200  01  0  00  014017' 

MOVE 

1 J15BUF 

:;a72 

004222' 

200  00  0  01  000000 

MOVE 

(1) 

:A73 

004223' 

037  13  0  00  000000 

PNTHW 

:a7a 

004224' 

037  00  0  00  013372' 

TMSG 

<  shifted  up 

::a75 

004225' 

200  00  0  00  014042' 

MOVE 

TS15NM 

3A76 

004226' 

037  15  0  00  000000 

PNTDEC 

3A77 

004227' 

037  00  0  00  013343' 

TMSG 

<.  bits,  resu 

3A78 

004230' 

263  17  0  00  000000 

RTN 

SEQ  1689 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper 

get  data  pattern 

?et  initial  address 
irst  shift  doesn't 

so  check  if  first 

get  initial  PLIN 
shift  4  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  ci   shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  4 
add  it 
return 

correct  EBUF  data 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


return 

of  EBUF  data 
include  PLIN  data 
shift  and  if  not 
data  (left  8  bits) 


get  shift  count 


liFPTA9     MAfRn  tS^R(1?6?5    C\Q-L?      1-.lul-fi5   Paa*»   SI 


n 


DFPTA9 
DFPTA9 

3^7 

3A80 

3A81 

3482 

3A83 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

353? 
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SEQ  1690 


004231 • 
004232' 
004233' 
004234' 
004235' 
004236' 
004237' 
004240' 


004241 ' 
004242' 
004243' 
004244' 
004245' 
004246' 
004247' 
004250' 
004251 ' 
004252' 
004253' 
004254' 


004255' 
004256' 
004257' 
004260' 
004261 ' 
004262' 
004263' 
004264' 
004265' 
004266' 
004267' 
004270' 
0C4271' 
004272' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
732001 
020500 
000000 


100010 
OjJOOO 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 
701000 
000000 
000000 


004273'  500050 

004274'  000000 

004275'  500100 

004276'  000000 


004277'  510000 
004300'  7^200'. 


010000 
000040 
000120 
003340 
000200 
002340 
000000 
000040 


010000 
0000^'^ 
03000u 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310017 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 


;  Microcode  -  Shift  4  bits 

T15M:   MWORD   <ADDR=100.JMAP,J=101 ,D=1>  ;  100 

MUORD   <C0NT,D=1,SELF,MGC=120>  ;  101 

MWORD   <CONT,SD0,OR,B=4,D=2,SELM,M6C=200>  ;  102 

MUORD   <JMAP,J=5100,D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MUORD   <ADDR=200,JMAP,J=201>  ;  200 

MUORD   <CJP,J=203,D=1,CENA,CCCA>  ;  201 

MUORD   <JMAP,J=201,D=1>  ;  202 

MUORD   <C0NT,D=1,SELC.MGC=4>  ;  203 

MUORD   <CONT,SD0,OR,B=3,D=2,SELM,M6C=200>  ;  204 

MUORD   <JZ>  ;  205 

;      Initialization 

MUORD   <ADDR=1000,JMAP,J=1001.SELM,MGC=20>  ;  1000 

MUORD   <CONT,D=1.SELC.MGC=200>  ;  1001 

MUORD   <LDCT,J=31,SD0,0R,D=2.SKCN,MGC=017>  ;  1002 

MUORD   <RPCT,J=1003,S0A,0R.D=5>  ;  1003 

MUORD   <CONT,S0A,OR,D=1,OENA.SELM,MGC=40>  ;  1004 

MUORD   <JZ,SD0,D=1,SELP.M6C=6>  ;  1005 

MUORD   <ADDR=0,JZ>  ;  0 

;      Initialization  step 

MWORD       <ADDR=5000,JMAPJ=5001,SELC,MGC=100>  ;  5000 

MWORD       <JZ,SELM,MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  '    to  bit  12  of  CSR  register 

MWORD       <ADDR=5100,CONT,SD0.AND.8=2,D=2>  ;  5100 
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353A 

004301 ' 

510100 

000000 

3535 

004302' 

302001 

000740 

3536 

004303' 

510200 

260000 

3537 

004304' 

000000 

000300 

3538 

004305' 

510351 

030000 

3539 

004306' 

102021 

000220 

35A0 

004307' 

510400 

002004 

3541 

004310' 

431020 

005340 

3542 

004311' 

510551 

070040 

35A3 

004312' 

001400 

015060 

35A4 

004313' 

510651 

050000 

3545 

004314' 

001000 

000040 

3546 

00^315' 

510700 

000200 

3547 

004316' 

431010 

005340 

3548 

004317' 

511051 

102004 

3549 

004320' 

431040 

005040 

3550 

004321 ' 

777777 

777777 

1-Jul-85  Page  51-1 
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SEQ  1691 


Dl 


MWORD  <C0NT, SOB. PLUS, B=2.D=2,CRY>  ;  5101 

MUORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB, PLUS. A=2,B=2,D=2>  ;  5103 

MWORD  <CONT,S0A,A=2,0R.D=1.OENA.SELE.M6C=4>  ;  5104 

MWORD  <CJP,J=5107.CENA.CCGC.D=1.SELE.MGC=40>  ;  5105 

MWORD  <JMAP.J=5105,D=1>  ;  5106 

MWORD  <CONT.S0A.A=1.OR.D=1.SELE.MGC=200>  ;  5107 

MWORD  <JMAP.J=511O,D=1,S0A.A=4,OR,OENA,SELE,MGC=4>    ;  5110 
-1 


r 
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3551 

3552 

/If******************************************************************** 

3553 

*  Test  16  -  Fmtr  Up  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=0 

3554 

3555 

Description: 

Verify  that  the  formatter  can  shift  various  data 

35t)6 

patterns  up  4  bits  at  a  time  while  inserting  bits 
from  the  PLIN  into  the  formatter.  The  data  loaded 

3557 

3558 

into  the  PLIN  initially  is  360. 

3559 

3560 

Procedure: 

KL>  Port  Clear 

3561 

KL>  Set  up  data  transfer  for  data  patterns 

3562 

3563 

UC>  Read  a  data  pattern  over  the  CBUS 

356A 

UC>  Load  PLIN  with  360 

3565 

3566 

UC>  Shift  up  4  bits 

3567 

UC>  Read  formatter  contents  and  write  into  EBUF 

3568 

KL>  Read  E3UF  and  verify  the  data 

3569 

KL>  Start  up  the  ucode  to  shift  again 

3570 

3571 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 

3572 

3573 

all  zero. 

3574 

3575 

Do  for  data  patterns:   0*s 

3576 

1*s 

3577 

525252., 525252 

3578 

000000,. 007777 

3579 

000000.. 007070 

3580 

000000.. 000707 

3581 

3582 

;  Fai'.ure: 

«— 

3583 

;#*w************* ************«************♦-*********** **************** 

3584 

3585 

;  Test  data 

3586 

3587 

004322' 

254  00 

0  00  004334' 

rSTCl6:  JRST 

T616               ;  qo  start  test 

3588 

004323" 

100604 

000016 

CBUS!NDMP!NDCB!2CBUS!16       ;  fest  mask 

3589 

004324' 

004542' 

013360' 

T16M,.CASCI2  •Fmtr  Up  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=0*] 
[EXP  C20.C12.MLAST1C8.1..CEXP  C4,MLAST!C2] 

3590 

004325' 

013263' 

012716' 

3591 

004326' 

000000 

004633' 

TSTC17 

;  failure  test  table 

3592 

004327' 

000000 

005144' 

TSTC20 

•     •  •  • 

3593 

004330' 

000000 

005456* 

TSTC21 

3594 

004331 • 

000000 

005736* 

TSTC22 

3595 

004332* 

000000 

006215* 

TSTC23 

3596 

004333' 

777777 

777771 

-1 

SEQ  1692 


DF 
DF 


■""1 


r 


n 


1680 


DFPTA9 

MACRO  X53B(1242)  09:42  1-JuL- 

-85  Page 
CBUS  f 

53 

DFPTA9 

MAC 

18-Apr-85  11:00 

10DULE  TESTS 

SEQ  16^ 

3597 

3598 

;  Start  test 

3599 

3600 

004334' 

201 

00  0  00  000000' 

TG16: 

MOVE  I 

Z9 

;  get  address  of  module  start 
;  handle  trace  output 

3601 

004335' 

260 

17  0  00  004022* 

60 

TRACE 

3602 

004336' 

201 

01  0  00  004542' 

MOVE  I 

1,T16M 

;  set  up  microcode  address 

3603 

004337' 

260 

17  0  00  004024* 

60 

TLOAD 

;  load/verify  it 

360A 

004340' 

263 

17  0  00  000000 

RTN 

;  failed  -  exit  test 

3605 

3606 

;  Initialization 

3607 

3608 

004341 ' 

400 

15  0  00  000000 

TL16: 

SETZ 

ERFL6, 

;  clear  error  flag 

3609 

004342' 

260 

17  0  00  00^027* 

60 

IPACLR 

;  clear  port 

3610 

004343' 

402  00  0  00  004030* 

SETZM 

STSUB 

;  initialize  subtest  number 

3611 

MOVSI 

COOOOOO, 

,000000 

;  get  address  of  buffer 

3612 

777777, 

,777777 

contents 

3613 

525252, 

,525252 

36U 

000000, 

,007777 

3615 

000000, 

,007070 

3616 

004344' 

205 

00  0  00  013330' 

000000, 

,0007073 

3617 

004345' 

541 

00  0  00  004045* 

HRRI 

BUFF 

;  build  the  BLT  pointer 

3618 

004346' 

251 

00  0  00  000000* 

BLT 

BUFF+5 

;  insert  data  into  buffer 

3619 

■ 

3620 

;  First  ensure 

the  data 

transfer  is 

reset 

3621 

3622 

004347' 

201 

01  0  00  005000 

MOVE  I 

1,5000 

;  get  start  address 

3623 

004350' 

242 

01  0  00  000001 

LSH 

1,1 

;  position  correctly 
;  load  the  register 

362A 

004351 ' 

260 

17  0  00  004173* 

60 

LDRAR 

3625 

004352' 

201 

01  0  00  000010 

MOVEl 

1 ,MPRUN 

.-'get  MPRUN  bit 

3626 

004353' 

260 

17  0  00  004177* 

GO 

LDCSR 

;  start  up  the  port 

3627 

004354' 

4r0 

01  0  00  000000 

SETZ 

1, 

:  clear  data 

3628 

004355' 

260 

17  0  00  004353* 

60 

LDCSR 

;  stop  the  port 

3629 

1^19 

;  Now 

generate 

CCW  list 

3631 

3632 

004356' 

200 

01  0  00  013210' 

MOVE 

1,CC8UFSZ..CBUF] 

;  get  pointer  to  control  buffer 

3633 

0043S7' 

260 

17  0  00  004044* 

GO 

CHJNIT 

;  initialize  software 

363A 

004360' 

551 

01  0  00  004345* 

HRRZI 

1,BUFF 

:  buffer  address 

3635 

004361 ' 

201 

02  0  00  000006 

MOVE  I 

2,6 

;  word  count 

3636 

004362' 

400  03  0  00  000000 

SETZ 

•J'  / 

;  clear  zero  fill  specifier 

3637 

004363' 

260 

17  0  00  004050* 

60 

GENCCW 

;  generate  a  CCW  list 

3638 
3639 

004364' 

201 

06  0  00  004407' 

MOVE  I 

6,TS16 

;  get  test  execute  table  address 

DFI 
DFI 


3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 


Start  up  the  data  transfer 


004365' 
004366' 
004367' 
004370' 
004371 ' 
004372' 
004373' 
004374' 
004375' 


01 
01 


201 
242 

260  17 
201  01 
260  17 
201  CO 
260  17 
400  01 
260  17 


00 
00 
00 
00 
00 

i 

00 


001000 

000001 

004351* 

000010 

004355* 

000001 

004060* 

OOOQQO 

004371* 


MOVE  I 

LSH 

60 

MOVE  I 

60 

MOVE  I 

60 

SETZ 

60 


1,1000 

1,1 

LDRAR 
1 , MPRUN 
LDCSR 
1 
ODELAY 

l6csr 


get  start  address 

fosition  correctly 
oad  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


1 


1681 


DFPTA9 
DFPTA9 

3651 

3652 

3653 

365A 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

366A 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

367A 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 
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CBUS  MODULE  TESTS 


SEQ  1694 


004376"  260  17  0  00  004063* 

004377*  254  00  0  00  004406' 

004400-  254  00  0  00  004376' 

004401 '  474  1 5  0  00  000000 


004402'  J27  00  0  00  004527' 

004403'  254  00  0  00  004341 ' 

004404'  254  00  0  00  004406' 

004405'  322  15  0  00  004376' 


004406'  26:  17  0  00  000000 


004407'  140000 
004410'  200000 


004411'  UOOOO 

004412'  400000 

004413'  240001 

004414'  340000 


004415'  140000 

004416'  400000 

004417'  240001 

004420'  340000 


004421'  140000 

004422'  400000 

004423'  240001 

004424'  340000 


004425'  140000 

004426'  400000 

004^27'  240001 

004430'  340000 


004463' 
004466' 


004512' 
000100 
004515' 
000000 


004512' 
000100 
004516' 
000000 


004512' 
000100 
004517' 
000000 


004512' 
000100 
004520' 
000000 


OFI 
DFI 


;  Loop  on  test  execute  table  entries 
TA16: 


GO 

JRST 
JRST 
SETO 


TEXEC 
TX16 
TA16 
ERFL6. 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  eBUp  data  incorrect 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MAI  6 
TL16 
TX16 
ERFL6,TA16 


print  error  message 

loop  on  error 

altfflode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX16:   RTN 

;  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


TS16:   TTABLE  (TCALL,TS16IN) 

TS16L:  TTABLE  (TCALLC,TS16NE) 

;  Shifted  4  bits 

TS16A:  TTABLE  (TCALL,TS16NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS16RS) 

TTABLE  (TEXIT) 


Shifted  8  bits 

TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TCALLJS16NN) 
(TSSTARJOO) 
(TCHECK,1.TS16RS+1) 
(TEXIT) 


Shifted  12  bits 


TTABLE  (TCALL,TS16NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS16RS+2) 

TTABLE  (TEXIT) 


Shifted  16  bits 


TTABLE  (TCALLJS16NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS16RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


1 


1682 


DFPTA9 
0FPTA9 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

37U 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 


MACRO  X53B(1242)  09:42 
MAC    18-Apr-85  11:00 


1-Jul-85  Page  55 

CBUS  MODULE  TESTS 


;  Shifted  20  bits 


SEQ  1695 


004431"  140000 

004432'  400000 

004433'  240001 

004434-  340000 


004435'  140000 

004436'  400000 

004437'  240001 

004440'  340000 


004441'  140000 

004442'  400000 

004443'  240001 

004444'  340000 


004445'  140000 

004446'  400000 

004447'  240001 

004450'  340000 


004512' 
000100 
004521 ' 
000000 


004512' 
000100 
004522' 
000000 


004512' 
000100 
0045?3' 
OCOOOQ 


004512' 
000100 
004524' 
000000 


004451'  140000  004512' 

004452'  400000  000100 

004453'  240001  004525' 

004454'  340000  000000 


004455' 
004456' 
004457- 
004460' 
004461 ' 
004462' 


140000 
400000 
240001 
340000 
300000 
000000 


004512- 

000100 

004526- 

000000 

004410- 

000000 


TTABLE  (TCALL,TS16NN) 

TTA8LE  (TSSTARJOO) 

TTABLE  (TCHECK,l,TS16RS+4) 

TTABLE  (TEXIT) 


Shifted  24  bits 


TTABLE  (TCALL,TS16NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1,TS16RS+5) 

TTABLE  (TEXIT) 


Shifted  28  bits 


TTABLE  (TCALL,TS16NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS16RS+6) 

TTABLE  (TEXIT) 


Shifted  32  bits 


TTABLE  (TCALLJS16NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS16RS+7) 

TTABLE  (TEXIT) 


Shifted  36  bits 


TTABLE  (TCALLJS16NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS16RS+10) 

TTABLE  (TEXIT) 


;  Shifted  40  bits 


TTABLE  (TCALLJS16NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS16RS+11) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS16L) 

TTABLE  (TLAST) 


Initialize  stuff 


004463'  201  00  0  00  000000* 
004464'  202  00  0  00  014020' 
004465'  263  17  0  00  000000 


TS16IN:  MOVEI 
MOVEM 
RTN 


BUFF-1 
T16BUF# 


DFP 
DFP 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 
return 


683 
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SEQ  1696 


3753 

3754 

;  Set  up  next  data  pattern 

3755 

3756 

004466' 

350  01  0  00  014020' 

TS16NE: 

AOS 

1,T16BUF 

3757 

004467' 

307  01  0  00  000000* 

CAIG 

1,BUFF+5 

3758 

004470' 

350  00  0  17  000000 

AOS 

(P) 

3759 

004471 ' 

200  00  0  01  000000 

MOVE 

(1) 

3760 

004472' 

201  02  0  00  004515' 

MOVE  I 

2,TS16RS 

3761 

004473' 

505  01  0  00  037777 

TS16N0: 

HRLI 

1,37777 

3762 

004474' 

246  00  0  00  000004 

LSHC 

4 

3763 

004475' 

202  00  0  02  000000 

MOVEM 

(2) 

3764 

004476' 

350  00  0  00  000002 

AOS 

2 

3765 

004477' 

307  02  0  00  004526' 

CAIG 

2,TS16RS+11 

3766 

004500' 

254  00  0  00  004473' 

JRST 

TS16N0 

3767 

004501 • 

402  00  0  00  014043' 

SETZM 

TS16NM# 

3768 

3769 

;  Read 

the  next 

word 

3770 

3771 

004502' 

201  01  0  00  000200 

MOVE  I 

1,200 

3772 

004503' 

242  01  0  00  000001 

LSH 

1,1 

3773 

004504' 

260  17  0  00  004367* 

GO 

LDRAR 

3774 

004505' 

201  01  0  00  000010 

MOVEI 

1 ,MPRUN 

3775 

004506' 

260  17  0  00  004375* 

GO 

LDCSR 

3776 

004507' 

400  01  0  00  000000 

SETZ 

1, 

3777 

004510' 

260  17  0  00  004506* 

GO 

LDCSR 

3778 

00451 r 

263  17  0  00  000000 

RTN 

3779 

3780 

;  Increment  shi 

ft  count 

3781 

3782 

004512' 

201  00  0  00  000004 

TS16NN: 

MOVEI 

4 

3783 

004513' 

2?J  00  0  00  014043' 

ADDM 

TS16NM 

3784 

004514' 

263  17  0  00  000000 

RTN 

3785 

3786 

004515' 

TS16RS: 

BLOCK 

12 

• 

0 

:;787 

:788 

;  Error 

messages 

;789 

:790 

004527' 

240000  004531' 

f^A16: 

CALL! TXNOT! MAI 6PN 

• 
• 

;791 

004530' 

000000000000* 

LAST! CALL !TXALL!TTPNT 

§ 

]792 

;793 

004531 ' 

037  00  0  00  013336' 

MA16PN: 

TMSGC 

<Data  > 

§ 

3794 

004532' 

200  01  0  00  0-14020' 

MOVE 

1 J16BUF 

• 
0 

3795 

004533' 

200  00  0  01  000000 

MOVE 

(1) 

3796 

004534' 

037  13  C  00  000000 

PNTHW 

3797 

004535' 

037  00  0  00  013372' 

TMSG 

<  shifted  up  from 

PLIN  > 

3798 

004536' 

200  00  0  00  014043' 

MOVE 

TS16NM 

# 

:799 

004537' 

037  15  0  00  000000 

PNTDEC 

:800 

004540' 

037  00  0  00  013343' 

TMSG 

<•  bits,  result  ir 

EBUF> 

3801 

004541 ' 

263  17  0  00  000000 

RTN 

point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

get  initial  PLIN  data  (left  8  bits) 

shift  4  bits 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  4 
add  it 
return 

correct  EBUF  data 


print  data  pattern  .., 
print  test  data 

get  data  and 
print  it 


get  shift  count 


DFPTA9 
DFPTA9 

3802 

3803 

380A 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 
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SEQ  1697 


004542' 
004543' 
004544' 
004545' 
004546' 
004547' 
004550' 
004551 • 


004552' 
004553' 
004554' 
004555' 
004556' 
004557' 
004560' 
004561 ' 
004562' 
004563' 
004564' 
004565' 


004566' 
004567' 
004570' 
004571 ' 
004572' 
004573' 
004574' 
004575' 
004576' 
004577' 
004600' 
004601 ' 
004602' 
004603' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
732001 
020500 
000000 


100010 
OuJOOO 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 
701000 
000000 
000000 


004604'  500050 

004605'  000000 

004606'  500100 

004607'  000000 


004610'  510000 
004611*  742001 


010000 
000040 
000120 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310360 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 


;  Microcode  -  Shift  4  bits 

T16M:   MWORD   <ADDR=100,JMAP,J=101.D=1>  ;  100 

MUORD   <CONT,D=1,SELF,MGC=120>  ;  101 

MWORD   <CONT,SD0,OR,B=4,D=2,SELM,M6C=200>  ;  102 

MWORD   <JMAP,J=5100,D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD   <ADDR=200,JMAP,J=201>  ;  200 

MWORD   <CJP,J=203,D=1,CENA,CCCA>  ;  201 

MWORD   <JMAP,J=2C1,D=1>  ;  202 

MWORD   <C0NT,D=1,StLC,M6C=4>  ;  203 

MWORD   <CONT,SD0,OR,B=3,D=2,SELM,M6C=200>  ;  204 

MWORD   <JZ>  ;  205 

;      Initialization 

MWORD   <ADDR=1000,JMAP,J=1001,SELM,MGC=20>  ;  1000 

MWORD   <CONT,D=1,SELC,MGC=200>  ;  1001 

MWORD   <LDCT.J=31,SD0,0R.D=2,SKCN,MGC=360>  ;  1002 

MWORD   <RPCT.J=10O3,S0A,OR.D=5>  ;  1003 

MWORD   <CONT,S0A,OR,D=1,OENA,SELM.MGC=40>  ;  1004 

MWORD   <JZ.SD0,D=1,SELP,M6C=6>  ;  1005 

MWORD   <ADDR=0,JZ>  ;  0 

;      Initialization  step 

MWORD   <ADDR=5000,JMAPJ=5001,SELC,MGC=100>  ;  5000 

MWORD   <J2.SELM,MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD   <ADDR=5100,CONT,SD0.AND.B=2.D=2>  ;  5100 


1 


685 


DFPTA9 
DFPTA9 

3857 
3858 

3860 
1861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 


MACRO  X53B(12A2)  09:42 
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SEQ  1698 


004612'  510100 

004613'  302001 

004614'  51Q2QQ 

004615'  mm 

QQ4616'  51Q351 

004617'  102021 

004620'  510400 

004621'  431020 

004622'  510551 

004623'  001400 

004624'  510651 

004625'  001000 

004626'  510700 

004627'  431010 

004630'  511051 

004631'  431040 

004632'  777777 


mm 
m 

002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 
777777 


MWORD  <C0NT, SOB, PLUS, 8=2, D=2.CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MWORD  <CONT,S0A,A=2,OR,D=1,OENA,SELE,MGC=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT,S0A,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,S0A.A=4,OR.D=1.0ENA,SELE.MGC=4>    ;  5110 
-1 


1 


686 


DFPTA9 
DFPTA9 

387A 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

391/ 

3915 

3916 

3917 

3918 

3919 
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SEQ  1699 


*  Test  17  -  Fmtr  Up  Shift  4  (from  PUN)  Test  -  SELRHTNI8=1 


Description; 


Procedure: 


Verify  that  the  formatter  can  shift  various  data 
patterns  up  4  bits  at  a  time  while  inserting  bits 
from  the  PLIN  into  the  formatter.  The  data  loaded 
into  the  PLIN  initially  is  017. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  017 

UC>  Shift  up  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 


Do  for  data  patterns: 


O's 

I's 

525252,, 525252 

000000,, 007777 

000000,, 007070 

000000,, 000707 

Failure:     — 


Test  data 


004633' 
004634' 
004635' 
004636' 
004637' 
004640' 
004641 ' 
004642' 
004643' 
004644' 


254  00 

100604 

005053' 

013263' 

000000 

000000 

000000 

000000 

OOOQOO 

777777 


0  00  004645' 
000017 
013377' 
012716' 
005144' 
005456' 
005736' 
006215' 
006473' 
777777 


30  Start  test 


TSTC17:  JRST    TG17  ;  gc 

CByS!NDMP.'NDCB!ZCBUS!17       ;  test  mask 

T17M,,CASCIZ  *Fmtr  Ud  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=1*] 

CEXP  C20,C12.MLAST!C8J,,CEXP  C4,MLAST!C23 

TSTC20  ;  failure  test  table 

TSTC21  ;   ... 

TSTC22 

TSTC23 

TSTC24 

-1 


n 


687 


DFPTA9 
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3920 

3921 

;  Start 

test 

3922 

3923 

004645' 

201  00  0  00  000000' 

T617: 

MOVE  I 

Z9 

392A 

004646' 

260  17  0  00  004335* 

60 

TRACE 

3925 

004647' 

201  01  0  00  005053' 

MOVE  I 

1,T17M 

3926 

004650' 

260  17  0  00  004337* 

60 

TLOAD 

3927 

004651 ' 

263  17  0  00  000000 

RTN 

3928 

3929 

;  Initialization 

3930 

3931 

004652' 

400  15  0  00  000000 

TL17: 

SETZ 

ERFLG, 

3932 

004653' 

260  17  0  00  004342* 

GO 

IPACLR 

3933 

004654' 

402  00  0  00  004343* 

SETZM 

STSUB 

393A 

MOVSI 

COOOOOO, 

.000000 

3935 

777777, 

,777777 

3936 

525252. 

.525252 

3937 

000000, 

.007777 

3938 

000000. 

.007070 

3939 

004655' 

205  00  0  00  013330' 

000000. 

.000707J 

39A0 

004656' 

541  00  0  00  004360* 

HRRI 

BUFF 

• 
0 

3941 

004657' 

251  00  0  00  000000* 

BLT 

BUFF+5 

• 
* 

3942 

39A3 

;  First 

ensure 

the  data 

transfer  is  reset 

::9A4 

:9A5 

00466C' 

201  01  0  00  005000 

MOVE  I 

1.5000 

39A6 

004661 ' 

242  01  0  00  000001 

LSH 

U 

:947 

004662' 

260  17  0  CO  004504* 

GO 

LDRAR 

39A8 

004663' 

201  01  0  00  000010 

MOVE  I 

1 .MPRUN 

3949 

004664' 

260  17  0  00  004510* 

GO 

LDCSR 

3950 

004665' 

4uJ  01  0  00  000000 

SETZ 

1. 

3951 

004666' 

260  17  0  00  004664* 

GO 

LDCSR 

:;952 

:953 
::954 
3955 

;  Now  generate 

ecu  list 

004667' 

200  01  0  00  013210' 

MOVE 

1.CCBUFSZ..CBUF] 

:956 

004670' 

260  17  0  00  004357* 

GO 

CHINIT 

:957 

004671 ' 

551  01  0  00  004656* 

HRRZl 

1.BUFF 

3958 

004672' 

201  02  0  00  000006 

MOVE  I 

2.6 

:959 

004673' 

400  03  0  00  000000 

SETZ 

3. 

:i960 

004674' 

260  17  0  00  004363* 

60 

GENCCU 

:961 

004675' 

201  06  0  00  004720' 

MOVE  I 

6.TS17 

:;962 

:963 

;  Start 

up  the 

data  transfer 

:964 

:965 

004676' 

201  01  0  00  001000 

MOVE  I 

1.1000 

;966 

004677' 

242  01  0  00  000001 

LSH 

M 

:967 

004700' 

260  17  0  00  004662* 

GO 

LDRAR 

:968 

004701 • 

201  01  0  00  000010 

MOVE  I 

1 .MPRUN 

3969 

004702; 

260  17  0  00  004666* 

GO 

LDCSR 

3970 

201  00  0  00  000001 

MOVE  I 

1 

:971 

004704' 

260  17  0  00  004373* 
400  01  0  00  000000 

GO 

ODELAY 

;972 

004705' 

SETZ 

1. 

3973 

004706' 

260  U  0  00  004702* 

GO 

l6csr 

SEQ  1700 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


■n 


388 


DFPTA9 
DFPTA9 

397A 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

399A 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 
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SEQ  1701 


Loop  on  test  execute  table  entries 


004707'  260  17  0 

004710'  254  00  0 

004711'  254  00  0 

004712'  474  15  0 


00  004376* 
00  004717' 
00  004707' 
00  000000 


TA17: 


004713'  027  00  0  00  005040' 

004714'  254  00  0  00  004652' 

004715'  254  00  0  CO  004717' 

004716'  322  15  0  00  004707' 


004717'  263  17  0  00  000000 


GO 

JRST 
JRST 
SETO 

TEXEC 
TX17 
TA17 
ERFLG, 

error 

printouts  a 

SCOPER 
JRST 
JRST 
JUMPE 

MAI  7 
TL17 
TX17 
ERFLG,TA17 

;  execute  table  entry 

;  end  of  table 

;  keep  looping  after  call 

;  error  -  tBUF  data  incor 


rect 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


004720' 
004721 " 


140000 
200000 


004722'  140000 

004723'  400000 

004724'  240001 

004725'  340000 


004726'  140000 

004727'  400000 

004730'  240001 

004731'  340000 


004732'  140000 

004733'  400000 

004734'  240001 

004735'  340000 


004774' 
004777' 


005023' 
000100 
005026' 
000000 


005023' 
000100 
005027' 
000000 


005023' 
000100 
005030' 
000000 


;  End  of  test 

TX17:   RTN 

;  Test  Execute  Table,  as; 


;  return 
(CMD, parameters) 


TS17:   TTABLE  (TCALL.TS17IN) 

TS17L:  TTABLE  (TCALLC,TS17NE) 

;  Shifted  4  bits 

TS17A:  TTABLE  (TCALLJS17NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHcCK,1,TS17RS) 

TTABLE  (TEXIT) 


Shifted  8  bits 

TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TCALL,TS17NN) 
(TSSTARJOO) 
(TCHECKJ,TS17RS+1) 
(TEXIT) 


Shifted  12  bits 


TTABLE  (TCALL,TS17NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TSl7RS+2) 

TTABLE  (TEXIT) 


4018 

4019 

;  Shifted  16  bits 

4020 

4021 

004736' 

140000 

005023' 

TTABLE  (TCALLJS17NN) 

4022 

004737' 

400000 

000100 

TTABLE  (TSSTa6J00) 

4023 

004740' 

240001 

005031 • 

TTABLE  (TCHECKJJS17RS+3) 

4024 

004741 • 

340000 

000000 

TTABLE  (TEXIT) 

4025 

initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  cou-it 
start  up  port 
check  if  completed 
exit  if  error  yet 


i 


I  r\r      »*  ^  -  _   y  4 


89 


DFPTA9 
DFPTA9 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 
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004742'  140000 

004743'  400000 

004744'  240001 

004745'  340000 


004746'  140000 

004747'  400000 

004750'  240001 

004751'  340000 


004752'  140000 

004753'  400000 

004754'  240001 

004755'  340000 


004756'  140000 

004757'  400000 

004760'  240001 

004761'  340000 


004762'  140000 

004763'  400000 

004764"  240001 

004765'  340000 


004766' 
004767' 
004770' 
004771 ' 
004772' 
004773' 


140000 
400000 
240001 
340000 
300000 
000000 


1-Jul-85  Pac 
CBUJ 


te  61 
MODULE 


TESTS 


005023' 
000100 
005032- 
000000 


005023' 
000100 
005033' 
000000 


005023' 
000100 
005034' 
000000 


005023' 
000100 
005035' 
000000 


005023' 
000100 
005036' 
000000 


005023' 

000100 

005037' 

000000 

004721 ' 

000000 


;  Shifted  20  bits 


TTABLE  (TCALL.TS17NN) 

TTABLE  (TSSTAR.100) 

TTABLE  (TCHECKj,TSl7RS+4) 

TTABLE  (TEXIT) 


;  Shifted  24  bits 


TTABLE  (TCALL,TS17NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKj,TS17RS+5) 

TTABLE  (TEXIT) 


;  Shifted  28  bits 


TTABLE  (TCALL,TS17NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS17RS+6) 

TTABLE  (TEXIT) 


;  Shifted  32  bits 


TTABLE  (TCALL,TS17NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS17RS+7) 

TTABLE  (TEXIT) 


;  Shifted  36  bits 


TTABLE  (TCALL,TS17NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS17RS+10) 

TTABLE  (TEXIT) 


004774'  201  00  0  00  000000* 
004775'  202  00  0  00  014021' 
004776'  263  17  0  00  000000 


;  Shifted  40  bits 

TTABLE  (TCALL,TS17NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ.TS17RS+11) 

TTABLE  (TEXIT) 

TTABLE  (TJRST,TS17L) 

TTABLE  ;TLAST) 

;  Initialize  stui'f 

TS17IN:  MOVEI   BUFF-1 
MOVEM   T17BUF# 
RTN 


SEQ  1702 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 

•  •  • 

return 


i\r  nr  *n 


UArnrt    *C7ci .' i  1/ T  \     nn  .  J  "i 


.OC    n. z*) 


DFPTA9 
DFPTA9 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 
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SEQ  1703 


004777* 

005000' 

005001 ' 

005002' 

005003' 

005004' 

005005' 

005006' 
0050P7' 

OOS  , 
00501 1 ' 
005012' 


005013' 
005014' 
005015' 
005016' 
005017' 
005020' 
005021 • 
005022' 


350  01 
307  01 
350  00 

200  00 

201  02 
505  01 
246  00 

202  00 
350  00 
307  02 
254  00 
402  00 


00  014021' 

00  000000* 
17  000000 

01  000000 
00  00502o' 
00  037777 
00  000004 

02  000000 
00  000002 
00  005037' 
00  005004' 
00  014044' 


201  01  0  00  000200 
242  01  0  00  000001 
260  17  0  00  004700* 
201  01  0  00  000010 
260  17  0  00  004706* 
400  01  0  00  000000 
260  17  0  00  005017* 
263  17  0  00  000000 


005023'  201  00  0  00  000004 

005024'  2 /i  00  0  00  014044' 

005025'  263  17  0  00  000000 

005026' 


005040'  240000  005042' 
005041'  000000000000* 


005042' 
005043' 
005044' 
005045' 
005046' 
005047' 
005050' 
005051 • 
005052' 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


00 
00 
01 
00 
00 
00 
00 
00 
00 


013336' 

014021' 

000000 

000000 

013372' 

014044' 

000000 

013343' 

000000 


Set  up  next  data  pattern 


TS17NE 


TS17N0; 


AOS 

CAIG 

AOS 

MOVE 

MOVE  I 

HRLI 

LSHC 

MOVEM 

AOS 

CAIG 

JRST 

SETZM 


1.T17BUF 

l,BUFF+5 

(P) 

(1) 

2.TS17RS 

1,37777 

4 

(2) 

2 

2,TS17RS+11 

TS17N0 

TS17NM# 


Read  the  next  word 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 

RTN 


1,200 

IJ 

LDRAR 

1 .MPRUN 

LDCSR 

1. 

LDCSR 


Increment  shift  count 


TS17NN; 


MOVE  I 

ADDM 

RTN 


4 
TS17NM 


TS17RS:  BLOCK   12 

;  E  -or  messages 

MAI  7:   CALL1TXN0TIMA17PN 

LAST! CALL !TXALL!TTPNT 


MA17PN:  TMSGC 
MOVE 
MOVE 
PNTHW 
TMSG 
MOVE 
PNTDEC 
TMSG 
RTN 


<Data  >  ; 

1,T17B'.JF  ; 

<  shifted  up  from  PLIN  > 
TS17NM  ; 

<.  bits,  result  in  EBUF> 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

get  initial  PLIN  data  (left  8  bits) 

shift  4  bits 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  4 

add  it 
return 

correct  EBUF  data 


print  data  pattern 
print  test  data 

get  data  and 
pnnt  it 


get  shift  count 


DFPTA9 
DFPTA9 

A125 

4126 

A127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 
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SEQ  1704 


005053' 
005054' 
005055' 
005056' 
005057' 
005060' 
005061 ' 
005062' 


005063' 
005064' 
005065' 
005066' 
005067' 
005070' 
005071 ' 
005072* 
005073' 
005074' 
005075' 
005076' 


005077' 
005100' 
005101' 
005102' 
005103' 
005104' 
005105' 
005106' 
005107' 
005110' 
005111' 
005112' 
005113' 
005114' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
732001 
020500 
000000 


100010 
GuJOOO 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 
701000 
000000 
000000 


005115'  500050 

005116'  000000 

005117'  500100 

005120'  000000 


005121' 
005122' 


510000 
742001 


010000 
000040 
000122 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310017 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 


;  Microcode  -  Shift  4  bits 

T17M:   MWORD   <ADDR=100,JMAP,J=101 ,D=1>  ;  100 

MUORD   <C0NT,D=1,SELF,M6C=122>  ;  101 

MWORD   <CONT,SD0,OR,B=4,D=2,SELM,M6C=200>  ;  102 

MWORD   <JMAP,J=5100,D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD   <ADDR=200,JMAP,J=201>  ;  200 

MWORD   <CJP,J=203,D=1,CENA,CCCA>  ;  201 

MWORD   <JMAP,J=201,D=1>  ;  202 

MWORD   <C0NT,D=1,SELC,MGC=4>  ;  203 

MWORD   <CONT,SD0,OR,B=3.D=2,SELM.MGC=200>  ;  204 

MWORD   <JZ>  ;  205 

;      Initialization 

MWORD   <ADDR=1000,JMAP,J=1001,SELM,MGC=20>  ;  1000 

MWORD   <C0NT,D=1.SELC,M6C=200>  ;  1001 

MWORD   <LDCT,J=31,SD0,OR,D=2,SKCN,MGC=017>  ;  1002 

MWORD   <RPCT,J=1003,S0A,OR,D=5>  ;  1003 

MWORD   <C0NT,S0A,0R,D=1,0ENA.SELM,MGC=40>  ;  1004 

MWORD   <JZ.SD0,0=1,SELP.MGC=6>  ;  1005 

MWORD   <ADDR=0,JZ>  ;  0 

Initialization  step 

MWORD   <ADDR=5000,JMAP,J=5001,SELC,MGC=100>  ;  5000 

MWORD   <JZ,SELM,MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD   <ADDR=51O0,CONT,SD0,AND.B=2,D=2>  ;  5100 


L_ 


DFPTA9 
DFPTA9 

4180 
4181 
4182 
4183 
4184 

41  es 

4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
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005123' 
005124* 
005125' 
005126' 
005127' 
005130' 
005131' 
005132' 
005133' 
005134' 
005135' 
005136' 
005137' 
005140' 
005141' 
005142' 
005143' 


510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
431040 


000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 

mm 
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SEQ  1705 


r 

DF 
DF 


MUORD  <C0NT. SOB, PLUS, B=2,D=2,CRY>  ;  5101 

MWOP  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5104 

MUORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,M6C=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <C0NT,S0A,A=1,0R,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,S0A,A=4,OR,D=l,OENA,SELE,M6C=4>    ;  5110 
-1 


n 
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SEQ  1706 


A197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 


^***«* **************************************************** *********** 
*  Test  20  -  Fmtr  Up  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=1 


Description: 


Procedure: 


Verify  that  the  formatter  can  shift  various  data 
patterns  up  4  bits  at  a  time  while  inserting  bits 
from  the  PLiN  into  the  formatter.  The  data  Loaded 
into  the  PLIN  initially  is  360. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  360 

UC>  Shift  up  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  <!ero. 


Do  for  data  patterns: 


005144* 
005145* 
005146' 
005147' 
005150' 
005151* 
005152* 
005153" 
005154* 


254  00  ( 

100604 

005365' 

013263' 

000000 

000000 

000000 

000000 

mm 


I  00  005155' 

000020 

013377' 

012716* 

005456* 

005736* 

006215* 


006473 
777 


m 


O's 

l*s 

525252,. 525252 

000000,, 007777 

000000,. C07070 

000000,, 000707 

Failure:     — 
^********************** ********************************** ************ 

;  Test  data 

TST'iO:  JRST    T620  ;  go  start  test 

CByS!NDMP!NDCB!ZCBUS!20  ;  test  mask 

T20M,,[ASCIZ  *Fmtr  Ud  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=r] 
CEXP  C20,C12,I1LAST!C83,,CEXP  C4,MLAST!C23 

TSTC21  ;  failure  test  table 

TSTC22  ;   ... 
TSTC23 
TSTC24 
-1 


DFI 
DFF 
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SEQ 

42*»2 

4243 

;  Start  test 

4244 

4245 

005155' 

201  00  0  00  000000' 

TG20: 

MOVE  I 

Z9 

•  get  address  of  module  start 

•  handle  trace  output 

4246 

005156' 

260  17  0  00  004646* 

GO 

TRACE 

4247 

005157' 

201  01  0  00  005365' 

MOVE  I 

1.T20M 

'  set  up  microcode  address 

4248 

005160' 

260  17  0  00  004650* 

GO 

TLOAD 

•  load/verify  it 

4249 

005161' 

263  17  0  00  000000 

RTN 

■  failed  -  exit  test 

4250 

4251 

;  Initialization 

4252 

4253 

005162' 

400  15  0  00  000000 

TL20: 

SETZ 

ERFLG, 

■  clear  error  flag 

4254 

005163' 

260  17  0  00  004653* 

GO 

IPACLR 

■  clear  port 

4255 

005164' 

402  00  0  00  004654* 

SETZM 

STSU8 

•  initialize  subtest  number 

4256 

MOVSI 

COOOOOO, 

,000000 

;  get  address  of  buffer 

4257 

777777, 

,777777 

contents 

4258 

525252, 

,525252 

4259 

000000, 

,007777 

4260 

000000, 

,007070 

4261 

005165' 

205  00  0  00  013330' 

000000, 

,000707 J 

4262 

005166' 

541  00  0  00  004671* 

HRRI 

BUFF 

i 

■  build  the  BLT  pointer 

4263 

005167' 

251  00  0  00  000000# 

BLT 

BUFF +5 

i 

•  insert  data  into  buffer 

4264 

4265 

;  First  ensure 

the  data 

transfer  is  reset 

4266 

4267 

005170' 

201  01  0  00  005000 

MOVE  I 

1,5000 

;  get  start  address 

4268 

005171' 

242  01  0  00  000001 

LSH 

1,1 

;  position  correctly 

4269 

005172' 

260  17  0  00  005015* 

GO 

LDRAR 

;   load  the  register 

4270 

005173' 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

;  get  MPRUN  bit 

4271 

005174' 

260  17  0  00  005021* 

GO 

LDCSR 

;  start  up  the  port 

4272 

005175' 

4u J  01  0  00  000000 

SETZ 

1, 

;  clear  data 

4273 

005176' 

260  17  0  00  005174* 

GO 

LDCSR 

;  stop  the  port 

4274 

4275 

;  Now 

generate 

CCW  list 

4276 

4277 

005177' 

200  01  0  00  013210' 

MOVE 

1,[CBUFSZ,,CBUF] 

;  get  pointer  to  control  buffer 

4278 

005200' 

260  17  0  00  004670* 

GO 

CHINIT 

;  initialize  software 

4279 

005201 ' 

551  01  0  00  005166* 

HRRZI 

1,BUFF 

;  buffer  address 

4280 

005202' 

201  02  0  00  000006 

MOVE  I 

2,6 

;  word  count 

4281 

005203' 

400  03  0  00  000000 

SETZ 

J  # 

;  clear  zero  fill  specifier 

4282 

005204' 

260  17  0  00  004674* 

GO 

GENCCU 

;  generate  a  CCW  list 

4283 

005205' 

201  06  0  00  005230' 

MOVE  I 

6,TS20 

;  get  test  execute  table  address 

4284 

4285 

;  Start  up  the 

data  transfer 

4286 

4287 

005206' 

201  01  0  00  001000 

MOVE  I 

1,1000 

■  get  start  address 

4288 

005207' 

242  01  0  00  000001 

LSH 

1,1 

;  position  correctly 
;  load  the  register 

4289 

005210' 

260  1?  0  00  005172* 

GO 

LDRAR 

4290 

005211' 

201  01  0  00  000010 

HOVE  I 

l.MPRUN 

;  get  MPRUN  bit 

4291 

005212; 

260  17  0  00  005176* 

GO 

LDCSR 

;  start  up  the  port 

4292 

201  00  0  00  000001 

MOVE  I 

1 

;  set  up  delay  of  1  ms 

4293 

005214' 

260  17  5  55  004704* 
400  01  0  00  OQOOOO 

GO 

ODELAY 

;  wait  a  bit 

4294 

005215' 

SETZ 

1, 

;  clear  data 

4295 

005216' 

260  17  0  00  005212* 

60 

LDCSR 

;  stop  the  port 

OFF 
DFF 
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SEQ  1708 


DFI 
DFI 


4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 


Loop  on  test  execute  table  entries 


005217*  260  17  0 

005220'  254  00  0 

005221 •  254  CO  0 

005222'  474  15  0 


00  004707* 
00  005227' 
00  005217' 
00  000000 


TA20; 


GO 

JRST 
JRST 
SETO 


TEXEC 
TX20 
TA20 
ERFLG, 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  tBUF  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


005223'  027  00  0  00  005352' 

005224'  254  00  0  00  005162' 

005225'  254  00  0  00  005227' 

005226'  322  15  0  00  005217' 


005227*  263  17  0  00  000000 


005230'  140000  005304' 
005231'  200000  005307' 


SCORER 
JRST 
JRST 
JUMPE 


MA20 
TL20 
TX20 
ERFLG,TA20 


print  error  message 

loop  en  error 

altmode  exit 

do  next  sstep  table  entry 


005232'  140000 

005233'  400000 

005234'  240001 

005235'  340000 


005236*  140000 

005237*  400000 

005240*  240001 

005241*  340000 


005242*  140000 

005243*  400000 

005244*  240001 

005245*  340000 


005246*  140000 

005247*  400000 

005250*  240001 

005251'  340000 


005335' 
000100 
005340' 
000000 


005335' 
000100 
005341  * 
COOOOO 


005335* 
000100 
005342* 
000000 


005335* 
000100 
005343* 
000000 


;  End  of  test 

TX20:   RTN 

;  Test  Execute  Table,  as 


return 


(CMD, parameters) 


TS20:   TTABLE  (TCALL,TS20IN) 

TS20L:  TTABLE  (TCALLC.TS20NE) 

;  Shifted  4  bits 

TS20A:  TTABLE  (TCALL,TS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS20RS) 

TTABLE  (TEXIT) 


Shifted  8  bits 

TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TCALL,TS20NN) 
(TSSTARJOO) 
(TCHECK,1,TS20RS+1) 
(TEXIT) 


Shifted  12  bits 


TTABLE  (TCALL,TS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS20RS+2) 

TTABLE  (TEXIT) 


Shifted  16  bits 


TTABLE  (TCALL.TS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS20RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


n 


n 
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DFPTA9 
DFPTA9 

A348 

A3A9 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 
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005252'  140000 

005253'  400000 

005254'  2400C1 

005255'  340000 


005256'  140000 

005257'  400000 

005260'  240001 

005261'  340000 


005262'  140000 

005263'  400000 

005264'  240001 

005265'  3A0000 


005266'  140000 

005267'  400000 

005270'  240001 

005271'  340000 


005272'  140000 

005273'  400000 

005274'  240001 

005275'  340000 


005276' 
005277' 
005300' 
005301 ' 
005302' 
005303' 


140000 
400000 
240001 
340000 
300000 
000000 
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Shifted  20  bits 


005335' 
000100 
005344' 
000000 


005335' 
C 001 00 
005345' 
000000 


005335' 
000100 
005346' 
000000 


005335' 
000100 
005347' 
000000 


005335' 
000100 
005350' 
000000 


005335' 
000100 
005351 ' 
000000 
005231 ' 
000000 


TTABLE  (TCALL.TS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ.TS20RS+4) 

TTABLE  (TEXIT) 


;  Shifted  24  bits 


TTABLE  (TCALL,TS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS20RS+5) 

TTABLE  (TEXIT) 


;  Shifted  28  bits 


TTABLE  (TCALL,TS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS20RS+6) 

TTABLE  (TEXIT) 


;  Shifted  32  bits 


TTABLE  (TCALL,TS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS20RS+7) 

TTABLE  (TEXIT) 


Shifted  36  bits 


TTABLE  (TCALL,TS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS20RS+10) 

TTABLE  (TEXIT) 


Shifted  40  bits 


TTABLE  (TCALLJS20NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS20RS*11) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS20L) 

TTABLE  (TLAST) 


Initialize  stuff 


005304'  201  00  0  00  000000* 
005305'  202  00  0  00  014022' 
005306'  263  17  0  00  000000 


TS20IN:  MOVEI 
MOVEM 
RTN 


BUFF-1 
T20BUF# 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


;  increment  shift  count 

;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 

■  •  • 

return 


SEQ  1709 


DFt 
OFF 


1 
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STS 

4398 

4399 

;  Set  up  next 

data  pattern 

4400 

4401 

005307' 

350  01  0  00  014022' 

TS20NE: 

AOS 

1,T20BUF 

4402 

005310' 

307  01  0  00  000000* 

CAIG 

1,BUf-F+5 

4403 

005311' 

350  00  0  17  000000 

AOS 

(P) 

4404 

005312' 

200  00  0  01  000000 

MOVE 

(1) 

4405 

005313' 

201  02  0  00  005340' 

MOVE  I 

2.TS20RS 

4406 

005314' 

400  01  0  00  000000 

TS20N0: 

SETZ 

1, 

4407 

005315' 

302  02  0  00  005340' 

CAIE 

2.TS20RS 

4408 

005316' 

505  01  0  00  741777 

HRLI 

1,741777 

4409 

005317' 

246  00  0  00  000004 

LSHC 

4 

4410 

005320' 

202  00  0  02  000000 

MOVEM 

(2) 

4411 

005321 ' 

350  00  0  00  000002 

AOS 

2 

4412 

005322' 

307  02  0  00  005351 ' 

CAIG 

2.TS20RS+11 

4413 

005323' 

254  00  0  00  005314' 

JRST 

TS20N0 

4414 

005324' 

402  00  0  00  014045' 

SETZM 

TS20NM# 

4415 

4416 

:  Read 

the  next  word 

4417 

4418 

005325' 

201  01  0  00  000200 

MOVE  I 

1,200 

4419 

005326' 

242  01  0  00  000001 

LSH 

1,1 

4420 

005327' 

260  17  0  00  005210* 

GO 

LDRAR 

4421 

005330' 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

4422 

005331 ' 

260  17  0  00  005216* 

GO 

LDCSR 

4423 

005332' 

400  01  0  00  000000 

SETZ 

1, 

4424 

005333' 

260  17  0  00  005331* 

GO 

LDCSR 

4425 

005334' 

263  17  0  00  000000 

RTN 

4426 

4427 

;  Increment  sh 

ift  count 

4428 

4429 

005335' 

201  00  0  00  000004 

TS20NN: 

MOVE  I 

4 

4430 

005336' 

272  00  0  00  014045' 

ADDM 

TS20NM 

4431 

005337' 

263  17  0  00  000000 

RTN 

4432 

4433 

005340' 

TS20RS: 

BLOCK 

12 

4434 

4435 

;  Error 

messages 

4436 

4437 

005352' 

240000  005354' 

MA20: 

CALL!TXN0T!MA20PN 

4438 

005353' 

000000000000* 

LAST! CALL !TXALL!TTPNT 

4439 

4440 

005354' 

037  00  0  00  013336' 

MA20PN: 

TMS6C 

<Data  > 

4441 

005355' 

200  01  0  00  014022' 

MOVE 

1,T20BUF 

4442 

005356' 

200  00  0  01  000000 

MOVE 

(1) 

4443 

005357' 

037  13  0  00  000000 

PNTHW 

4444 

005360' 

037  00  0  00  013372' 

TMSG 

<  shifted  up 

4445 

005361 ' 

200  00  0  00  014045' 

MOVE 

TS20NM 

4446 

005362' 

037  15  0  00  OOQOOO 
037  00  0  00  013343' 
263  17  0  00  000000 

PNTDEC 

4447 

005363' 

TMSG 

<.  bits,  resu 

4448 

005364' 

RTN 

SEQ  1710 


point  to  next  data  pattern 
done  yet? 

no  -  set  up  proper  return 
get  data  pattern 

?et  iritial  address  of  EBUF  data 
irst  shift  doesn't  include  PLIN  data 
so  check  if  first  shift  and  if  not 
get  initial  PLIN  data  (left  8  bits) 

shift  4  bits 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  4 
add  it 
return 


correct  EBUF  data 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


get  shift  count 


"1 


DFPTA9 
DFPTA9 

A4A9 

AA50 

4A51 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

/.501 

4502 

4503 
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SEQ  1711 


005365' 
005366' 
005367' 
005370" 
005371 • 
005372' 
005373' 
005374' 


005375' 
005376' 
005377' 
005400' 
005401 ' 
005402* 
005403' 
005404' 
005405' 
005406' 
005407' 
005410' 


005411' 
005412' 
005413' 
005414' 
005415' 
005416' 
005417' 
005420' 
005421 ' 
005422' 
005423' 
005424* 
005425' 
005426' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
732001 
020500 
000000 


100010 
GuJOOO 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 
701000 
000000 
000000 


005427*  500050 

005430'  000000 

005431*  500100 

005432*  000000 


005433*  510000 
005434*  742001 


010000 
000040 
000122 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310360 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 


;  Microcode  -  Shift  4  bits 

T20M:   MWORD   <ADDR=100,JMAP,J=101,D=1>  ;  100 

MWORD   <C0NT,D=1,SELF,MGC=122>  ;  101 

MWORD   <CONT,SD0,OR,8=4.D=2,SELM,M6C=200>  ;  102 

MWORD   <JMAP,J=5100,D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD   <ADDR=200,JMAP,J=201>  ;  200 

MWORD   <CJP.J=203,D=1,CENA,CCCA>  ;  201 

MWORD   <JMAP,J=201,D=1>  ;  202 

MWORD   <C0NT,D=1,SELC,MGC=4>  ;  203 

MWORD   <C0NT,SD0,OR,B=3,D=2,SELM,M6C=20O>  ;  204 

MWORD   <J2>  ;  205 

;      Initialization 

MWORD   <ADDR=1000,JMAP,J=1001.SELM,MGC=20>  ;  1000 

MWORD   <CONT,D=1,SELC,M6C=200>  ;  1001 

MWORD   <LDCT,J=31,SD0,OR,D=2,SKCN,MGC=36O>  ;  1002 

MWORD   <RPCT,J=1003,S0A.0R,D=5>  ;  1003 

MWORD   <CONT,S0A,OR,D=1.OENA,SELM,MGC=40>  ;  1004 

MWORD   <JZ.SD0,D=1.SELP,rt6C=6>  ;  1005 

MWORD   <ADDR=0,JZ>  ;  0 

;      Initialization  step 

MWORD   <ADDR=5000,JMAP,J=5001,SELC,MGC=100>  ;  5000 

MWORD   <JZ,SELM,MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD   <ADDR=5100,C0NT.SD0.AND.B=2,D=2>  ;  5100 


DFPTA9 
DFPTA9 

A50A 
4505 
A506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
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SEQ  1712 


000000 
000740 
260QQ0 
000300 

m 


005435'  510100 
005436"  302001 
005437'  510200 
005440'  QOOOQO 
QQ5441'  510351 

005442'  102021  

005443'  5104QQ  OQ2Q04 

005444'  431020  005340 

005445'  510551  070040 

005446'  001400  015060 

005447'  510651  050000 

005450'  001000  000040 

005451'  510700  000200 

005452'  431010  005340 

005453'  511051  102004 

005454'  431040  005040 

005455'  777777  777777 


MUORD  <C0NT, SOB, PLUS, 8=2. D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MUORD  <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MUORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5104 

MUORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,M6C=40>  ;  5105 

MUORD  <JMAP,J=5105,D=1>  ;  5106 

MUORD  <C0NT,S0A,A=1,0R,D=1,SELE,MGC=200>  ;  5107 

MUORD  <JMAP,J=5110,S0A,A=4,OR,D=1,OENA,SELE,MGC=4>    ;  5110 
-1 


I 


1700 


DFPTA9 
DFPTA9 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 
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SEQ  1713 


*  Test  21  -  Fmtr  Up  Shift  8  (from  PLIN)  Test  -  SELRHTNI8=0 


Description: 


Procedure: 


005456' 
005457' 
005460' 
005461 ' 
005462' 
005463' 
005464' 
005465' 


254  00 

100604 

005645' 

013263' 

000000 

000000 

000000 


0  00  005466' 
000021 
013411' 
012716' 
005736' 
006215' 
006473' 
777777 


Verify  that  the  formatter  can  shift  various  data 
patterns  up  8  bits  at  a  time  white  inserting  bits 
from  the  PLIN  into  the  formatter.  The  data  loaded 
into  the  PLIN  initially  is  017. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  017 

UC>  Shift  up  8  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  5  times,  until  the  data  becomes 
all  zero. 

Do  for  data  patterns:   O's 

I's 

525252,. 525252 
000000,, 007777 
000000,. 007070 
000000,, 000707 

Failure:     — 

#**•♦♦**♦***«*****»***♦♦♦♦**«»****♦♦***»♦**»***»♦•******♦*****♦*♦*♦** 

Test  data 

TSTC21:  JRST    TG21  ;  go  start  test 

CBUS!NDMP.'NDCB!ZCBUS!21        ;  test  mask 
T21M,,CASCI2  •Fmtr  Ud  Shift  8  (from  PLIN)  Test  -  SELRHTNIB=0*] 
CEXP  C20,C12,MLAST!C8],,[EXP  C4,MLAST!C2] 
TSTC22  ;  failure  test  table 

TSTC23 
TSTC24 
-1 


L 


701 


DFPTA9 
DFPTA9 

A565 

A566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 
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005466' 
005467' 
005470' 
005471 • 
005472' 


201  00 
260  17 
201  01 
260  17 
263  17 


00  000000' 
00  005156* 
00  005645' 
00  005160* 
00  000000 


005473'  400  15  0  00  000000 
005474'  260  17  0  00  005163* 
005475'  402  00  0  00  005164* 


005476*  205  00  0  00  013330' 
005477'  541  00  0  00  005201* 
005500'  251  00  0  00  000000# 


005501' 
005502' 
005503' 
005504' 
005505' 
005506' 
005507' 


005510' 
005511' 
005512' 
005513' 
005514' 
005515' 
005516' 


201  01 
242  01 
260  17 
201  01 
260  17 
4u.'  01 


260  17  0 


200  01 
260  17 
551  01 

201  02 
400  03 
260  17 
201  06 


00  005000 
00  000001 
00  005327* 
00  000010 
00  005333* 
00  000000 
00  005505* 


00  013210' 
00  005200* 
00  005477* 
00  000006 
00  000000 
00  005204* 
00  005541' 


Start  test 


TG21:   MOVEI 
GO 

MOVEI 
GO 
RTN 

;  Initialization 


Z9 

TRACE 
1,T21M 
TLOAD 


TL21:   SETZ    ERFLG, 

GO     IPACLR 

SET2M   TSTSUB 

MOVSI  COOOOOO., 000000 
777777 . .777777 
525252.. 525252 
000000.. 007777 
000000.. 0070 70 
000000.. 000707: 

HRRI    BUFF 

BLT     BUFF+5 


MOVEI 

LSH 

GO 

MOVEI 

60 

SETZ 

GO 


1.5000 

1.1 

LDRAR 

1 .MPRUN 

LDCSR 

1. 

LDCSR 


Now  generate  CCU  list 

MOVE  1.CCBUFSZ..CBUF] 

60  CHINIT 

HRRZI  1.BUFF 

MOVEI  2.6 

SETZ  3, 

GO  GENCCU 

MOVEI  6.TS21 


SEQ  1714 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


First  ensure  the  data  transfer  is  reset 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  tc  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCU  list 

get  test  execute  table  address 


DFPTA9 
DFPTA9 

4607 

A608 

A609 

A610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 
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SEQ  1715 


Start  up  the  data  transfer 


005517' 
005520' 
005521' 
005522' 
005523' 
005524' 
005525' 
005526' 
005527' 


201 
242 
260 
201 
260 
201 
260 
400 
260 


01 
01 
17 
01 
17 
00 
17 
01 
17 


00  001000 
00  000001 
00  005503* 
.  00  000010 
0  00  005507* 
0  00  000001 
00  005214* 
00  000000 


0  00  005523* 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

MOVE  I 

GO 

SETZ 

GO 


1.1000 

U 

LDRAR 

1 ,MPRUN 

LDCSR 

1 

ODELAY 

1, 
LDCSR 


Loop  on  test  execute  table  entries 


005530'  260 

005531'  254 

005532'  254 

005533'  474 


005534'  027 

005535'  254 

005536'  254 

005537'  322 


17 
00 
00 
15 


00 
00 
00 
15 


00  005217* 
00  005540' 
00  005530' 
00  000000 


00  005632' 
00  005473' 
00  005540' 
00  005530' 


TA21 


GO 

JRST 
JRST 
SETO 


TEXEC 
TX21 
TA21 
ERFLG, 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  ■-  EBUP  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA21 
TL21 
TX21 
ERFLG,TA21 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


005540'  263  17  0  00  000000 


;  End  of  test 

TX2  I :   RTN 

;  Test  Execute  Table,  as 


return 


(CMD, parameters) 


005541' 
005542' 


C 


140000 
200000 


005571' 
005574' 


3'  140000  005622' 

'44'  400000  000100 

545'  240001  005625' 

UUD 346'  340000  000000 


005547'  140000  005622' 

005550'  400000  000100 

005551'  240001  005626' 

005552'  340000  000000 


TS21:   TTABLE   (TCALL,TS21 IN) 
TS21L:  TTABLE   (TCALLC.TS21NE) 

;  Shifted  8  bits 

TS21A:  TTABLE  (TCALL.TS21NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS21RS) 

TTABLE  (TEXIT) 

;  Shifted  16  bits 

TTABLE  (TCALL,TS21NN) 

TTABLE  (TSSTAR.IOO) 

TTABLE  (TCHECKJJS21RS+1) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


703 


DFPTA9 
DFPTA9 

4657 

A658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 
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Shifted  24  bits 


005553'  140000 

005554'  400000 

005555'  240001 

005556'  340000 


005622' 
000100 
005627' 
000000 


005557'  140000  005622' 

005560'  400000  000100 

005561'  240001  005630' 

005562'  340000  000000 


005563' 
005564' 
005565' 
005566' 
005567' 
005570' 


140000 
400000 
240001 
34C000 
300000 
000000 


005622' 

000100 

005631 ' 

000000 

005542' 

000000 


005571 •  201  00  0  00  000000* 
005572'  202  00  0  00  014023' 
005573'  263  17  0  00  000000 


005574' 
005575' 
005576' 
005577' 
005600' 
005601 ' 
005602' 
005603' 
005604 ' 
005605' 
005606' 
105607' 
005610' 
005611' 


350  01 
307  01 
350  00 

200  00 

201  02 
400  01 
302  02 
505  01 
246  00 

202  00 
350  00 
307  02 
254  00 
402  00 


0  00 
0  00 
0  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


01 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 


014023' 

000000# 

000000 

000000 

005625 ' 

000000 

005625 ' 

741777 

000010 

000000 

000002 

005631 ' 

005601 ' 

014046' 


TTABLE  (TCALL.TS21NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS21RS+2) 

TTABLE  (TEXIT) 


Shifted  32  bits 


TTABLE  (TCALL,TS21NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1.TS21RS+3) 

TTABLE  (TEXIT) 


Shifted  40  bits 

TTABLE  (TCALL,TS21NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS21RS+4) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS21L) 

TTABLE  (TLAST) 

Initialize  stuff 


TS21IN: 


MOVE  I 
MOVEM 
RTN 


BUFF-1 
T21BUF# 


Set  up  next  data  pattern 


TS21NE; 


TS21N0: 


AOS 

CAIG 

AOS 

MOVE 

MOVE  I 

SETZ 

CAIE 

HRLI 

LSHC 

MOVEM 

AOS 

CAIG 

JRST 

SETZM 


1,T218UF 

1,BUFF+5 

(P) 

(1) 

2/fS21RS 

1, 

2,TS21RS 

1,741777 

8 

(2) 

2 

2,TS21RS+4 

TS21N0 

TS21NM# 


SEQ   1716 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 

■  «  • 

return 


point  to  next  data  pattern 
done  yet? 

no  -  set  up  proper  return 
get  data  pattern 

?et  initial  address 
irst  shift  doesn't 
so  check  if  first 
get  initial  PLIN 
shift  8  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


of  EBUF  data 
include  PUN  data 
shift  and  if  not 
data  (left  8  bits) 


EQ  1704 


DFPTA9 
DFPTA9 

A703 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
'^36 
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SEQ  1717 


DF 
DF 


Read  the  next  word 


005612' 
005613' 
005614' 
005615' 
005616' 
005617' 
005620' 
005621 ' 


201  01 
242  01 
260  17 
201  01 
260  17 
400  01 


0 
0 
0 
0 
0 
0 


260  17  0 
263  17  0 


00  000200 
00  000001 
00  005521* 
00  000010 
00  005527* 
00  000000 
00  005616* 
00  000000 


005622'  201  00  0  00  000010 

005623'  272  00  0  00  014046' 

005624'  263  17  0  00  000000 

005625' 


005632'  240000  005634' 
005633'  000000000000* 


MOVE  I 

1.200 

LSH 

1,1 

60 

LDRAR 

MOVE  I 

1 ,MPRUN 

GO 

LDCSR 

SETZ 

1, 

GO 

LDCSR 

RTN 

ent  shi 

ft  count 

MOVE  I 

8 

ADDM 

TS21NM 

RTN 

TS21NN; 


TS21RS:  BLOCK   5 
;  Error  messages 


005634' 
005635' 
005636' 
005637' 
005640' 
005641 ' 
005642' 
005643' 
005644' 


037  00 
200  01 
200  00 
037  13 
037  00 
2uJ  00 
037  15 
037  00 
263  17 


0  00  013336' 
0  00  014023' 
0  01  000000 
0  00  000000 
00  013372' 
00  014046' 
00  000000 
00  013343' 
00  000000 


0 
0 
0 
0 
0 


MA21 : 
MA21PNi 


CALL!TXN0T!MA21PN 
LAST! CALL !TXALL!TTPNT 


TMSGC 

MOVE 

MOVE 

PNTHW 

TMS6 

MOVE 

PNTDEC 

TMSG 

RTN 


<Data  >  ; 

1,T218UF  ; 

<  shifted  up  from  PLIN  > 
TS21NM  ; 

<•  bits,  result  in  EBUF> 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  an  8 
add  it 
return 

correct  EBUF  data 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


get  shift  count 


I 


Q  1705 


DFPTA9 
DFPTA9 

A737 

4738 

A739 

47A0 

47A1 

47A2 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 


MACRO  X53B(1242)  09:42  l-Jul-85  Page  75 

MAC     18-Apr-85  11:00        CBUS  MODULE  TESTS 


SEQ  1718 


005645' 
005646' 
005647' 
005650' 
005651 • 
005652' 
005653' 
005654' 


005655' 
005656' 
005657' 
005660' 
005661 • 
005662' 
005663' 
005664' 
005665' 
005666' 
005667' 
005670' 


005671 ' 
005672' 
005673' 
005674' 
005675' 
005676' 
005677' 
005700' 
005701 ' 
005702' 
005703' 
005704' 
005705' 
005706' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
732001 
020500 
000000 


100010 
OuJOOO 
100100 
001 OOu 
100200 
732000 
1003'!0 
435000 
100400 
431000 
100500 
701000 
000000 
000000 


005707'  500050 

005710'  000000 

005711'  500100 

005712'  000000 


005713'  510000 
005714'  742001 


010000 
000040 
000220 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
00^340 
310017 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


oooooq 

000340 


;  Microcode  -  Shift  8  bits 

T21M:   MWORD   <ADDR=100,JMAP,J=101,D=1>  ;  100 

MUORD   <CONT,D=1,SELF,M6C=220>  ;  101 

MWORD   <C0NT,SDO,OR.B=4,D=2,SELM,MGC=200>  ;  102 

MWORD   <JMAP,J=5100,D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD   <ADDR=200,JMAP,J=201>  ;  200 

MWORD   <CJP,J=203,D=1,CENA.CCCA>  ;  201 

MWORD   <JMAP,J=201.D=1>  ;  202 

MWORD   <C0NT,D=1,SELC,M6C=4>  ;  203 

MWORD   <CONT,SDO,OR,B=3,D=2,SELM,M6C=200>  ;  204 

MWORD   <JZ>  ;  205 

;      Initialization 

MWORD   <ADDR=1000,JMAP,J=1001,SELM,MGC=20>  ;  1000 

MWORD   <CON^D=1.SEL^,M'5C=200>  ;  1C01 

MWORD   <LDCT,J=31.SD0,OR,D=2,SKCN.MGC=017>  ;  1002 

MWORD   <RPCT.J=1003,S0A,OR.D=5>  ;  1003 

MWORD   <CONT,S0A,OR,D=1,OENA.SELM.MGC=40>  ;  1004 

MWORD   <JZ,SD0,D=1,SELP,MGC=6>  ;  1005 

MWORD   <ADDR=0,JZ>  .  0 

;      Initialization  step 

MWORD   <ADDR=5OOO,JMAP,J=5001,SELC.MGC=100>  ;  5000 

MWORD   <JZ,SELM,M6C=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD   <ADDR=5100,C0NT,SD0,AND.B=2,D=2>  ;  5100 


J  1706 


0FPTA9 

MACRO  5:538(1242)  09:42 

DFPTA9 

MAC 

18-Apr-85  11:00 

A792 

005715' 

510100 

000000 

A793 

005716' 

302001 

000740 

A794 

005717' 

510200 

260000 

4795 

005720' 

000000 

000300 

A796 

005721 ' 

510351 

030000 

4797 

005722' 

102021 

000220 

4798 

005723' 

510400 

002004 

4799 

005724' 

431020 

005340 

4800 

005725' 

510551 

070040 

4801 

00572o' 

001400 

015060 

4802 

005727' 

510651 

050000 

4803 

005730' 

001000 

000040 

4804 

005731 ' 

510700 

000200 

4805 

005732' 

431010 

005340 

4806 

005733' 

511051 

102004 

4807 

005734' 

431040 

005040 

4808 

005735' 

777777 

7777-^7 

1-Jul-85  Page  75-1 
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SEQ  1719 


MUORD  <C0NT, SOB, PLUS, B=2.D=2,CRY>  ;  5101 

MUORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT.J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,i.oC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <C0NT,S0A,A=1,0R,D=1,SELE,M6C=200>  ;  5107 

MWORD  <JMAP,J=5110,S0A,A=4,OR,D=1,OENA,SELE,M6C=4>    ;  5110 
-1 
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A809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4825 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 


SEQ  1720 


DFI 
DPI 


/lf******«*»**************  **♦♦***♦  ************************************* 
*  Test  22   -  Fmtr  Up  Shift  8  (frosi  PUN)  Test  -  SELRHTNIB=0 


Description; 


Procedure: 


005736* 
005737' 
005740' 
005741 • 
005742' 
005743' 
005744' 
005745' 
005746' 


254  00  ( 

100604 

006124' 

013263' 

000000 

000000 

000000 

000000 

777777 


I  00  005747' 

000022 

013411' 

012716' 

006215' 

006473' 

006754' 

007062' 

777777 


Verify  that  the  formatter  can  shift  van'ous  data 
patterns  up  8  bits  at  a  time  while  i  ^ertina  bits 
from  the  PLIN  into  the  formatter.  The  data  loaded 
into  the  PLIN  initially  is  360. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  360 

UC>  Shift  up  8  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucods  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  5  times,  until  the  data  becomes 
all  zero. 

Do  for  data  patterns:   O's 

I's 

525252,. 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707 

Failure:     — 

^********************** *********************** *vtK******************* 

Test  data 

TSTC22:  JRST    TG22  ;  go  start  test 

CBUS !NDMP!NDCB!Z CBUS! 22       ;  test  mask 
T22M,,CASCIZ  *Fmtr  Up  Shift  8  (from  PLIN)  Test  -  SELRHTNIB=0*] 
CEXP  C20,C12.MLAST!C8],.CEXP  C4,I1LAST!C2] 
TSTC23  ;  failure  test  table 

TSTC24 
TSTC25 
TSTC26 
-1 


1 


1708 


DFPTA9  MACRO  X53B(12A2)  09:A2  1-Jul-85  Page  77 

DFPTA9  MAC     18-Apr-85  11 :00        CBUS  MODULE  TESTS 


"l 


SEQ  1721 


A85A 

4855 

;  Start 

test 

4856 

4857 

005747' 

201  00  0  00  000000' 

T622: 

MOVE] 

Z9 

4858 

005750' 

260  17  0  00  005467* 

60 

TRACE 

4859 

005751 ' 

201  01  0  00  006124' 

MOVE  I 

1,T22M 

4860 

005752' 

260  17  0  00  005471* 

60 

TLOAD 

4861 

005753' 

263  17  0  00  000000 

RTN 

4862 

4863 

;  Initialization 

4864 

4865 

005754' 

400  15  0  00  000000 

TL22: 

SETZ 

ERFL6, 

4866 

005755' 

260  17  0  00  005474* 

60 

IPACLR 

4867 

005756' 

402  00  0  00  005475* 

SETZM 

TSTSUB 

4868 

MOVSI 

COOOOOO, 

.000000 

4869 

777777. 

,777777 

4870 

525252. 

.525252 

4871 

000000, 

.007777 

4872 

000000. 

.007070 

4873 

005757' 

205  00  0  00  013330' 

000000. 

.000707 J 

4874 

005760' 

541  00  0  00  005512* 

HRRI 

BUFF 

4875 

005761 ' 

251  00  0  00  000000* 

BLT 

BUFF+5 

4876 

4877 

;  First 

ensure 

the  data 

transfer 

4878 

4879 

005762' 

201  01  0  00  005000 

MOVE  I 

1.5000 

4880 

005763' 

242  01  0  00  000001 

LSH 

U 

4881 

005764' 

260  17  0  00  005614* 

60 

LDRAR 

4882 

005765' 

201  01  0  00  000010 

MOVE  I 

1 .MPRUN 

4883 

005766' 

260  17  0  00  005620* 

60 

LDCSR 

4884 

005767' 

4uJ  01  0  00  000000 

SETZ 

1. 

4885 

005770' 

260  17  0  00  005766* 

60 

LDCSR 

4886 

4887 

;  Now  generate 

CCW  list 

4888 

4889 

005771 ' 

200  01  0  00  013210' 

MOVE 

1,CC8UFSZ..CBUF3 

4890 

005772' 

260  17  0  00  005511* 

60 

CHINIT 

4891 

005773' 

551  01  0  00  005760* 

HRRZI 

1.BUFF 

4892 

005774' 

201  02  0  00  000006 

MOVE  I 

2.6 

4893 

005775' 

400  03  0  00  000000 

SETZ 

3. 

4894 

005776' 

260  17  0  00  005515* 

60 

6ENCCW 

4895 

005777' 

201  06  0  00  006022' 

MOVE  I 

6.TS22 

4896 

4897 

;  Start 

up  the 

data  transfer 

4898 

4899 

006000' 

201  01  0  00  001000 

MOVEI 

1.1000 

4900 

006001 ' 

242  01  0  00  000001 

LSH 

1.1 

4901 

006002' 

260  17  0  00  005764* 

60 

LDRAR 

4902 

006003' 

201  01  0  00  000010 

MOVEI 

1 .MPRUN 

4903 

006004' 

260  17  0  00  005770* 

60 

LDCSR 

4904 

006005' 

201  00  0  00  000001 

MOVEI 

1 

4905 

006006' 
006007' 

260  17  Q  00  005525* 
400  01  0  00  000000 

60 

ODELAY 

4906 

SETZ 

1, 

4907 

006010' 

260  17  0  00  006004* 

GO 

LDCSR 

get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


"1 


1709 


DFPTA9 
DFPTA9 

4908 

A909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 
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SEQ  1722 


006011'  260  17  0  00  005530* 

006012'  254  00  0  00  006021' 

006013'  254  00  0  00  006011' 

006014'  474  15  0  00  000000 


006015'  027  00  0 

006016'  254  00  0 

006017'  254  00  0 

006020'  322  15  0 


00  006111' 
00  005754' 
00  006021' 
00  006011' 


006021'  263  17  0  00  000000 


006022'  140000 
006023'  200000 


006024'  140000 

006025'  400000 

006026'  240001 

006027'  340000 


006030'  140000 

006031'  400000 

006032'  240001 

006033'  340000 


006034'  140000 

006035'  400000 

006036'  240001 

006037'  340000 


006052' 
006055' 


006101' 
000100 
006104' 
000000 


006101' 
000100 
006105' 
000000 


006101' 
000100 
006106' 
000000 


Loop  on  test  execute  table  entries 


TA22: 


GO 

JRST 
JRST 
SETO 


TEXEC 
TX22 
TA22 
ERFL6, 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  tBUF  data  incorrect 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA22 
TL22 
TX22 
ERFL6.TA22 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX22:   RTN 

;  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


TS22:   TTABLE   (TCALL,TS22IN) 
TS22L:  TTABLE   (TCALLC,TS22NE) 

;  Shifted  8  bits 

TS22A:   TTABLE  (TCALL,TS22NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS22RS) 

TTABLE  (TEXIT) 

;  Shifted  16  bits 

TTABLE  (TCALL,TS22NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1.TS22RS+1) 

TTABLE  (TEXIT) 

;  Shifted  24  bits 

TTABLE  (TCALL,TS22NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS22RS+2) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


n 


I 
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SEQ  1723 


4953 

4954 

;  Shifted  32  bits 

4955 

4956 

006040' 

140000  006101' 

T TABLE 

(TCALL,TS22NN) 

4957 

006041 • 

400000  000100 

TTABLE 

(TSSTARJOO) 

4958 

006042* 

240001  006107' 

TTABLE 

(TCHECK,1,TS22RS+3) 

4959 

006043' 

340000  000000 

TTABLE 

(TEXIT) 

4960 

4961 
4962 
4963 

;  Shifted  40  bits 

006044' 

140000  006101' 

TTABLE 

(TCALL,TS22NN) 

4964 

006045' 

400000  000100 

TTABLE 

(TSSTARJOO) 

4965 

006046' 

240001  006110' 

TTABLE 

(TCHECK,1,TS22RS+4) 

4966 

006047' 

340000  000000 

TTABLE 

(TEXIT) 

4967 

006050' 

300000  006023' 

TTABLE 

(TJRSTJS22L) 

4968 

006051 • 

000000  000000 

TTABLE 

(TLAST) 

4969 

4970 

;  Initialize  stuff 

4971 

4972 

006052' 

201  00  0  00  000000* 

TS22IN:  MOVEI 

BUFF-1 

4973 

006053' 

202  00  0  00  014024' 

MOVEM 

T22BUF# 

4974 

006054' 

263  17  0  00  000000 

RTN 

4975 

4976 

;  Set  up  next  data  pattern 

4977 

4978 

006055' 

350  01  0  00  014024' 

TS22NE:  AOS 

1,T22BUF 

4979 

006056' 

307  01  0  00  000000* 

CAIG 

l,BUFF+5 

4980 

006057' 

350  00  0  17  000000 

AOS 

(P) 

4981 

006060' 

200  00  0  01  000000 

MOVfc 

(1) 

4982 

006061 • 

201  02  0  00  006104' 

MOVEI 

2.TS22RS 

4983 

006062' 

5u5  01  0  00  037777 

TS22N0;  HRLI 

1  .mn 

4984 

006063' 

246  00  0  00  000010 

LSHC 

8 

4985 

006064' 

202  00  0  02  000000 

MOVEM 

(2) 

4986 

006065' 

350  00  0  00  000002 

AOS 

2 

4987 

006066' 

307  02  0  00  006110' 

CAIG 

2,TS22RS+4 

4988 

006067' 

254  00  0  00  006062' 

JRST 

TS22N0 

4989 

006070' 

402  00  0  00  014047' 

SETZM 

TS22NM* 

4990 

4991 

;  Read  the  next 

word 

4992 

4993 

006071 ' 

201  01  0  00  000200 

MOVEI 

1,200 

4994 

006072' 

242  01  0  00  000001 

LSH 

1,1 

4995 

006073' 

260  17  0  00  006002* 

GO 

LDRAR 

4996 

006074' 

201  01  0  00  000010 

MOVEI 

1,MPRUN 

4997 

006075' 

260  17  0  00  006010* 

GO 

LDCSR 

4998 

006076' 

400  01  0  00  000000 

SETZ 

1, 

4999 

006077' 

260  17  0  00  006075* 

60 

LDCSR 

5000 

006100' 

263  17  0  00  000000 

RTN 

increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 

•  •  • 

return 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

get  initial  PLIN  data  (left  8  bits) 

shift  8  bits 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


get  start  address 

fosition  correctly 
oad  the  reqister 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 
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5001 
5002 
5003 
50QA 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
501 A 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
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SEQ  172A 


006101' 
006102' 
006103' 

006104' 


Wi  88  8  88  8?281?' 

263  17  0  00  000000 


;  Increment  shift  count 
TS22NN: 


MOVE! 

ADDM 

RTN 


8 
TS22NM 


006111'  240000  006113' 
0C6112'  000000000000* 


TS22RS:  BLOCK   5 

;  Error  messages 

MA22:   CALL!TXN0T!MA22PN 

LAST! CALL !TXALL!TTPNT 


006113' 
006114' 
006115' 
006116' 
006117' 
006120' 
006121' 
006122' 
006123' 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


0  00  013336' 
0  00  014024' 
0  01  000000 
0  00  000000 
0  00  013372' 
0  00  014047' 
0  00  000000 
0  00  013343' 
0  00  000000 


MA22PN:  TMS6C 
HOVE 
MOVE 
PNTHW 
TMS6 
MOVE 
PNTDEC 
TMS6 
RTN 


<Data  >  ; 

1,T22BUF  ; 

(1) 

<  shifted  up  from  PLIN  > 
TS22NM  ; 

<.  bits,  result  in  EBUF> 


get  a  8 
add  It 
return 

correct  EBUF  data 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


get  shift  count 


r' 
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5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

50A0 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 
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006124' 
006125' 
006126' 
006127' 
006130' 
006131' 
006132' 
006133' 


006134' 
006135' 
006136' 
006137' 
006140' 
006141 • 
006142' 
006143' 
006144' 
006145' 
006146' 
006147' 


006150' 
006151' 
006152' 
006153' 
006154' 
006155' 
006156' 
006157' 
006160' 
006161' 
006162' 
006163' 
006164' 
006165' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
732001 
020500 
000000 


lonoio 

OuJOOO 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 
701000 
000000 
000000 


006166'  500050 

006167'  000000 

006170'  500100 

006171'  000000 


006172' 
006173' 


510000 
742001 


010000 
000040 
000220 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310360 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 


;  Microcode  -  Shift  8  bits 

T22H:   MUORD   <ADDR=100,JMAP,J=101,D=1>  ;  100 

HUORD   <CONT,D=1,SELF,M6C=220>  ;  101 

MWORD   <C0NT,SD0,OR.B=4,D=2,SELM,M6C=200>  ;  102 

HUORD   <JMAP,J=5100,D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD   <ADDR=200,JMAP.J=201>  ;  200 

MWORD   <CJP,J=203,D=1,CENA,CCCA>  ;  201 

MWORD   <JMAP.J=201,D=1>  ;  202 

MUORD   <C0NT,D=1,SELC.MGC=4>  ;  203 

MWORD   <C0NT,SD0,OR,8=3,D=2.SELM,MGC=200>  ;  204 

MWORD   <JZ>  ;  205 

;      Initialization 

MWORD   <ADDR=1000,JMAP,J=1001,SELM,MGC=20>  ;  1000 

MWORD   <CONT,D=1,SELC,MGC=200>  ;  1001 

MWORD   <LDCT.J=31,SD0,0R,D=2.SKCN.MGC=360>  ;  1002 

MWORD   <RPCT,J=1003.S0A,OR,D=5>  ;  1003 

MWORD   <CONT,SOA,OR.D=1.0ENA,SELM,MGC=40>  ;  1004 

MWORD   <JZ,SD0.D=1.SELP.MGC=6>  ;  1005 

MWORD   <ADDR=0,JZ>  ;  0 

;      Initialization  step 

MWORD   <ADDR=5000JMAPJ  =  5001.SELC,MGC=100>  ;  5000 

MWORD   <JZ,SELM.MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD   <ADDR=5100,C0NT.SD0,AND.B=2,D=2>  ;  5100 


1713 
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5079  0061 7A'  510100  000000 

5080  006175'  302001  0007A0 

5081  006176'  510200  260000 

5082  006177'  000000  000300 

5083  006200'  510351  030000 
508A  006201'  102021  000220 

5085  006202'  510A00  00200A 

5086  006203'  431020  005340 

5087  006204'  510551  070040 

5088  006205'  001400  015060 

5089  006206'  510651  050000 

5090  006207'  001000  000040 

5091  006210'  510700  000200 

5092  006211'  431010  005340 

5093  006212'  511051  102004 

5094  006213'  431040  005040 

5095  006214'  117111  111111 
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CBUS  MODULE  TESTS 


SEO  1726 


MWORD  <C0NT, SOB, PLUS. b=2.D=2,CRy>  ;  5101 

HWORD  <LDCT,J=26>  ;  5102 

MUORD  <RPCT,J=5103, SAB, PLUS. A=2, 8=2, D=2>  ;  5103 

HWORD  <C0NT.S0A,A=2,0R,D=1,0ENA,SELE.MGC=4>  ;  5104 

HWORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

HWORD  <JMAP,J=5105.D=1>  ;  5106 

HWORD  <CONT.SOA,A=1.0R.D=1.SELE.MGC=200>  ;  5107 

HWORD  <JHAP.J=5110.S0A,A=4.OR,D=1,OENA,SELE,MGC=4>    ;  5110 
-1 


r 


L„ 


DFPTA9 
DFPTA9 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5115 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 
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SEC  1727 


^***»***** ******************************************** *************** 
♦  Test  23  -  Fmtr  Up  Shift  8  (from  PLIN)  Test  -  SELRHTNIB=1 

Description:  Verify  that  the  formatter  can  shift  various  data 
patterns  up  8  bits  at  a  time  while  insertina  bits 
from  the  PLIN  into  the  formatter.  The  data  loaded 
into  the  PLIN  initially  is  017. 

Procedure:    KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  017 

UC>  Shift  up  8  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  5  times,  until  the  data  becomes 
all  zero. 

Do  for  data  patterns:   O's 

I's 

525252,, 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707 

Failure:     — 

f* **************************************************** *************** 


006215' 
006216' 
006217' 
006220' 
006221 • 
006222' 
006223' 
006224' 


254  00 

100604 

006402' 

013263' 

000000 

000000 

000000 

mm 


0  00  006225' 
000023 
013423' 
012716' 
006473' 
006754' 
007062' 
777777 


;  go  start  test 


;  Test  data 

TSTC23:  JRST    T623 

CBUS !NDMP!NDCB!Z CBUS 123        ;  !est  mask 

T23M,,[ASCIZ  *Fffltr  Up  Shift  8  (from  PLIN)  Test  -  SELRHTNIB=1*] 

CEXP  C20,C12,MLAST!C8]..[EXP  C4,MLAST!C2] 

TSTC24  ;  failure  test  table 

TSTC25  ;   ... 

TSTC26 

-1 


Start  test 


006225'  201  00  0 

006226'  260  17  0 

006227'  201  01  0 

006230'  260  17  0 

006231'  263  17  0 


00  000000' 
00  005750* 
00  006402' 
00  005752* 
00  000000 


TG23: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


19 

TRACE 
1,T23M 
TLOAD 


get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


r 
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5148 

5U9 

;  Initialization 

5150 

5151 

006232' 

400 

15  0  00  000000 

TL23: 

SET? 

ERFL6. 

5152 

006233' 

260 

17  0  00  005755* 

GO 

IPACLR 

5153 

006234' 

402 

00  0  00  005756* 

SETZM 

TSTSUB 

5154 

MOVSI 

[000000. 

.000000 

5155 

777777, 

,777777 

5156 

525252. 

.525252 

5157 

000000. 

.007777 

5158 

000000. 

.007070 

5159 

006235' 

205 

00  0  00  013330' 

000000. 

,000707] 

5160 

006236' 

541 

00  0  00  005773* 

HRRI 

BUFF 

5161 

006237' 

251 

00  0  00  000000* 

BLT 

BUFF+5 

5162 

5163 

;  First  ensure 

the  data 

transfer 

5164 

5165 

006240' 

201 

01  0  00  005000 

MOVE  I 

1.5000 

5166 

006241 ' 

242 

01  0  00  000001 

LSH 

1.1 

5167 

006242' 

260 

17  0  00  006073* 

60 

LDRAR 

5168 

006243' 

201 

01  0  00  000010 

MOVE  I 

1 .MPRUN 

5169 

006244' 

260 

17  0  00  006077* 

60 

LDCSR 

5170 

006245' 

400 

01  0  00  000000 

SETZ 

1. 

5171 

006246' 

260 

17  0  00  006244* 

60 

LDCSR 

5172 

5173 

;  Now 

generate 

CCW  list 

5174 

5175 

006247' 

200 

01  0  00  013210' 

MOVE 

1.CC8UFSZ..CBUFJ 

5176 

006250' 

260 

17  0  00  005772* 

60 

CHINIT 

5177 

006251' 

551 

01  0  00  006236* 

HRRZI 

1.BUFF 

5178 

006252' 

C\J 

02  0  00  000006 

MOVE! 

2.6 

5179 

006253' 

400 

03  0  00  000000 

SETZ 

3. 

5180 

006254' 

260 

17  0  00  005776* 

60 

6ENCCW 

5181 

006255' 

201 

06  0  00  006300' 

MOVE  I 

6.TS23 

5182 

5183 

;  Start  up  the 

data  transfer 

5184 

5185 

006256' 

201 

01  0  00  001000 

MOVE  I 

1.1000 

5186 

006257' 

242 

01  0  00  000001 

LSH 

1.1 

5187 

006260' 

260 

17  0  00  006242* 

60 

LDRAR 

5188 

006261 ' 

201 

01  0  00  000010 

MOVE  I 

1 .MPRUN 

5189 

006262' 

260 

17  0  00  006246* 

60 

LDCSR 

5190 

006263' 

201 

00  0  00  000001 

MOVE  I 

1 

5191 

006264' 

260 

17  0  00  006006* 

60 

ODELAY 

5192 

006265' 

400 

01  0  00  000000 

SETZ 

1. 

5193 

006266' 

260 

17  0  00  006262* 

60 

LDCSR 

SEQ  1728 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


is  reset 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bU 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


1716 
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519A 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

520A 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

52U 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 


Loop  on  test  execute  table  entries 


006267'  260  17  0  00  006011* 

006270"  254  00  0  00  006277' 

006271'  254  00  0  00  006267' 

006272'  474  15  0  00  000000 


006273'  027  00  0  00  006367' 

006274'  254  00  0  00  006232' 

006275'  254  00  0  00  006277' 

006276'  322  15  0  00  006267' 


006277'  263  17  0  00  000000 


TA23: 


GO 

JRST 
JRST 
SETO 


TEXEC 
TX23 
TA23 
ERFLG, 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  EBUF  data  incorrect 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA23 
TL23 
TX23 
ERFLG,TA23 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


006300' 
006301 ' 


140000 
200000 


006302'  140000 

006303'  400000 

006304'  240001 

006305'  340000 


006306'  140000 

006307'  400000 

006310'  240001 

006311'  340000 


006312'  140000 

006313'  400000 

006314'  240001 

006315'  340000 


006316'  140000 

006317'  400000 

006320'  240001 

006321'  340000 


006330' 
006333' 


006357' 
000100 
006362' 
000000 


006357' 
000100 
006363' 
000000 


006357' 
000100 
006364' 
000000 


006357' 
000100 
006365' 
000000 


;  End  of  test 

TX23:   RTN 

;  Test  Execute  Table,  as; 


;  return 
(CMD, parameters) 


TS23:   TTABLE  (TCALL,TS23IN) 
TS23L:  TTABLE  (TCALLC,TS23NE) 


;  Shifted  8  bits 


TS23A: 


TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TCALL,TS23NN) 
(TSSTARJOO) 
(TCHECKJ,TS23RS) 
(TEXJT) 


Shifted  16  bits 


TTABLE  (TCALL,TS23NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS23RS+1) 

TTABLE  (TEXIT) 


Shifted  2'  /its 


TTABLE  (TCALL,TS23NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS23RS+2) 

TTABLE  (TEXIT) 


Shifted  32  bits 


TTABLE  (TCALLJS23NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS23RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


EQ  1717 


DFPTA9 
DFPTA9 

52A6 

52A7 

52A8 

52A9 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 

5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

5294 
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006322' 
006323' 
006324' 
006325' 
006326' 
006327' 


140000 
400000 
240001 
340000 
300000 
000000 


006357' 

000100 

006366' 

000000 

006301 • 

000000 


006330'  201  00  0  00  000000* 
006331'  202  00  0  00  014025' 
006332'  263  17  0  00  000000 


006333' 
006334' 
006335' 
006336' 
006337' 
006340' 
006341 • 
006342' 
006343' 
006344' 
006345' 
006346' 


006347' 
006350' 
006351 ' 
006352' 
006353' 
006354' 
006355' 
006356' 


006357' 
006360' 
006361 • 

006362' 


350  01 
307  01 
350  00 

200  00 

201  02 
505  01 
246  00 

202  00 
350  00 
307  02 
254  00 
40?  00 


0  00  014025' 
0  00  000000* 
0  17  000000 
0  01  000000 
00  006362' 
00  037777 
00  000010 
02  000000 
00  000002 
00  006366' 
0  00  006340' 
0  00  014050' 


201 
242 
260 
201 
260 
400 
260 
263 


01 
01 
17 
01 
17 
01 
17 
17 


00  000200 
00  000001 
00  006260* 
00  000010 
00  006266* 
00  000000 
00  006353* 


0  00  000000 


201  00  0 

in  00  0 

263  17  0 


00  000010 
00  014050' 
00  000000 


Shifted  40  bits 


TTABLE  (TCALLJS23NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS23RS+4) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS23L) 

TTABLE  (TLAST) 


Initialize  stuff 


TS23IN: 


MOVE  I 
MOVEM 
RTN 


BUFF-1 
T23BUF# 


Set  up  next  data  pattern 


TS23NE; 


TS23N0: 


ADS 

CAIG 

AOS 

MOVE 

MOVE  I 

HRLI 

LSHC 

MOVEM 

AOS 

CAIG 

JRST 

SETZM 


1.T23BUF 

1,BUFF+5 

(P) 

(1) 

2.TS23RS 

1,37777 

8 

(2) 

2 

2,TS23RS+4 

TS23N0 

TS23NM# 


Read  the  next  word 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 

RTN 


1,200 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1, 

LDCSR 


Increment  shift  count 


TS23NN:  MOVEI 
ADDM 
RTN 


8 
TS23NM 


TS23RS:  BLOCK   5 


DFI 
DFI 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 
return 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

get  initial  PLIN  data  (left  8  bits) 

shift  8  bits 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


get  start  address 
position  correctly 
toad  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  8 
add  it 
return 

correct  EBUF  data 


I 


n    r 


! 


DFPTA9 
DFPTA9 

5295 

5296 

5297 

5298 

5299 

5300 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

5308 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 

5322 

5323 

5324 

5325 

5326 

5327 

5328 

5329 

5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 
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006367'  240000  006371' 
006370'  000000000000* 


006371 ' 
006372' 
006373' 
006374' 
006375' 
006376' 
006377' 
006400' 
006401 ' 


006402' 
006403' 
006404' 
006405' 
006406' 
006407' 
006410' 
006411' 


006412' 
006413' 
006414' 
006415' 
006416' 
006417' 
006420' 
006421 • 
006422' 
006423' 
006424' 
006425' 


006426' 
006427' 
006430' 
006431 ' 
006432' 
006433' 
006434' 
006435' 
006436' 
006437' 
006440' 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


010001 
001000 
01  CI  00 
001000 
010200 
732002 
010351 
001000 


020002 
GuJOOO 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
732001 
020500 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 


00  013336' 

00  014025' 

01  000000 
00  000000 
00  013372' 
00  014050' 
00  000000 
00  013343' 
00  000000 


010000 
000040 
000222 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310017 
240300 
030000 
000220 
002040 
002340 
000006 


;  Error  messages 
MA23: 


CALL!TXN0T!MA23PN 
LAST! CALL !TXALL!TTPNT 


MA23PN: 


TMS6C 

MOVE 

MOVE 

PNTHW 

TMSG 

MOVE 

PNTDEC 

TMSG 

RTN 


<Data  >  ; 

1J23BUF  ; 

(1) 

<  shifted  up  from  PLIN  > 
TS23NM  i 

<.   bits,  result  in  EBUF> 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


get  shift  count 


;  Microcode  -  Shift  8  bits 

T23K:   MWORD   <ADDR-100,JMAP.J=101 ,D=1> 
MWORD   <C0NT,D=1,SELF,MGC=222> 
MWORD   <CONT,SD0,OR,B=4,D=2,SELM,M6C=200> 
MWORD   <JMAP.J=5100,D=1> 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200,JMAP,J=201> 

MWORD  <CJP.J=203,D=1,CENA,CCCA> 

MWORD  <JMAP,J=201,D=1> 

MWORD  <C0NT,D=1,SELC,MGC=4> 

MWORD  <CONT,SD0,OR,B=3,D=2,SELM,M6C=200> 

MWORD  <J2> 

;      Initialization 

MWORD  <ADDR=1000,JMAP,J=1001.SELM,MGC=20> 

MWORD  <C0NT,D=1,SELC.  .o:-«;00> 

MWORD  <LDCT,J=31 ,SD0,OR,D=2,SKCN,MGC=017> 

MWORD  <RPCTJ=1003,S0A,0R,D=5> 

MWORD  <CONT,SOA,OR,D=1 ,OENA,SELM.MGC=40> 

MWORD  <JZ.SD0,D=1.SELP.M6C=6> 


100 
101 
102 
103 

200 
201 
202 
203 
204 
205 

1000 
1001 
1002 
1003 
1004 
1005 


1     r 


n 


a  1719 


DFPTA9 
DFPTA9 

5350 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

536A 

5365 

5366 

5367 

5368 

5369 

5370 

5371 

5372 

5373 

537A 

5375 

5376 

5377 

5378 

5379 

5380 

5381 


MACRO  X53B(12A2)  09:42  1- 
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00644V  701000  001000 
006442'  000000  000000 
006443'  000000  000000 


006444'  500050 

006445'  000000 

006446'  500100 

006447'  000000 


006450' 
006451 ' 
006452' 
006453' 
006454' 
006455' 
006456' 
006457' 
006460' 
006461 • 
006462' 
006463' 
006464' 
006465' 
006466' 
006467' 
006470' 
006471 • 
006472' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510o1 
001 oOO 
510"'"0 
431C^0 

5roii 

4i  'X:-? 
777,/^ 


010100 
004040 
000020 
002000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050U00 
0000'  0 
000200 
00-340 
iiP^)4 

777777 
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MWORO      <ADDR=0JZ>  ;  0 

;  Initialization  step 

MWORD       <ADDR=5000,JMAPJ=5001,SELC.M6C=100>  ;  5000 

MWORD      <JZ,SELM,MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MW09D       <ADDR=5100,CONT,SD0,AND,8=2,D=2>  ;  5100 

MWORD       <C0NT, SOB, PLUS, 8=2, D=2,CRY>  ;  5101 

MWORD       <LDCT,J=26>  ;  5102 

MWORD       <RPCT,J=5103, SAB. PLUS, A=2,B=2,D=2>  ;  5103 

MWORD       <CONT,S0A,A=2,OR,D=1,OENA,SElE,MGC=4>  ;  5104 

MWORD       <CJP,J=5107,CENA,CC6C,D=1,SELE,MGC=40>  ;  5105 

MWORD       <JMAP,J=5105,D=1>  ;  5106 

MWORD       <CONT,SOA,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MWORD       <JMAP,J=5110,SOA,A=4,OR,D=1.0ENA,SELE,MGC=4>         ;  5110 
-1 


SEQ  1732 


DFI 

on 


1  1720 


DFPTA9  MACRO  X53B(12A2)  09:A2  l-Jul-85  Page  87 

DFPTA9  MAC     18-Apr-85  11:00        CBUS  MODULE  TESTS 


SEQ  1733 


5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

539A 

5395 

5396 

5397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 


006473' 
006474' 
006475' 
006476' 
006477' 
006500' 
006501 • 
006502' 
006503' 


/If******************************************************************** 
*  Test  24  -  Fmtr  Up  Shift  8  (f-  i  PLIN)  Test  -  SELRHTNIB=1 

Description:  Verify  that  the  rormatter  can  shift  various  data 
patterns  up  4  bits  at  a  time  while  insertina  bits 
from  the  PLIN  into  the  formatter.  The  data  loaded 
into  the  PLIN  initially  is  360. 

Procedure:    KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  360 

UC>  Shift  up  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 

Do  for  data  patterns:   P|s 

5^5252., 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707 

Failure:     — 
^***t*******t*«'******t*******«*i^**  ****************  ******************* 


254  00  { 

100604 

006663' 

013263' 

000000 

000000 

000000 

000000 

777777 


I  00  006504' 

000024 

013377' 

012716' 

006754 ' 

007062' 

010224' 

010542' 

777777 


;  go  start  test 
;  test  mask 


Test  data 

TSTC24:  JRST    TG24 

C8US!NDMP!NDCB!ZCBUS!24 

T24M,,[ASCIZ  •Fmtr  Up  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=1*] 

CEXP  C20,C12,MLAST!C8J,,CEXP  C4,«LAST!C2] 

TSTC25  ;  failure  test  table 

TSTC26 

TSTC31 

TSTC32 

-1 


Start  test 


006504'  201  00  0  00  000000' 

006505'  260  17  0  00  006226* 

006506'  201  01  0  00  006663' 

006507'  260  17  0  00  006230* 

006510'  263  17  0  00  000000 


T624: 


HOVE  I 
GO 

MOVE  I 
GO 
RTN 


19 

TRACE 
1,T24M 
TLOAD 


get  address  of  module  start 

Handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


1 
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5A35 

5A36 

5A37 

5A38 

006511* 

400  15  0  00  OOOOQO 
260  17  0  00  006233* 

5439 

006512* 

5AA0 

006513* 

402  00  0  00  006234* 

5441 

5442 

5443 

5444 

5445 

5446 

006514* 

205  00  0  00  013330' 

5447 

006515* 

541  00  0  00  006251* 

5448 

006516* 

251  00  0  00  000000* 

5449 

5450 

5451 

5452 

006517* 

201  01  0  00  005000 

5453 

006520* 

242  01  0  00  000001 

5454 

006521  * 

260  17  0  00  006351* 

5455 

006522* 

201  01  0  00  000010 

5456 

006523* 

260  17  0  00  006355* 

5457 

006524* 

400  01  0  00  000000 

5458 

006525* 

260  17  0  00  006523* 

5459 

5460 

5461 

5462 

006526* 

200  01  0  00  013210* 

5463 

006527* 

260  17  0  00  006250* 

5464 

006530" 

551  01  0  00  006515* 

5465 

006531 ' 

2u!  02  0  00  000006 

5466 

006532* 

400  03  0  00  000000 

5467 

006533* 

260  17  0  00  006254* 

5468 

006534* 

201  06  0  00  006557* 

5469 

5470 

5471 

5472 

006535* 

201  01  0  00  001000 

5473 

006536* 

242  01  0  00  000001 

5474 

006537* 

260  17  0  00  006521* 

5475 

006540* 

201  01  0  00  000010 

5476 

006541  * 

260  17  0  00  006525* 

5477 

006542* 

201  00  0  00  000001 

5478 

006543* 

260  17  0  00  006264* 

5479 

006544* 

400  01  0  00  000000 

5480 

006545* 

260  17  0  00  006541* 
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;  Initialization 

TL24:   SETZ    ERFLG, 

GO     IPACLR 

SETZM   TSTSU8 

HOVSI  COOOOOO,, 000000 
777777 , .777777 
525252., 525252 
000000., 007777 
000000,, 007070 
000000,, 0007073 

HRRI    BUFF 

BLT    BUFF+5 


First  ensure  the  data  transfer  is  reset 


SEQ  1734 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


MOVE! 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 


1.5000 

1.1 

LDRAR 

1 ,MPRUN 

LDCSR 

1. 

LDCSR 


Now  generate  CCU  list 

MOVE  1,CCBUFSZ..CBUF] 

GO  CHINIT 

HRRZI  1,BUFF 

MOVEI  2.6 

SETZ  3. 

GO  6ENCCU 

MOVEI  6,TS24 

Start  up  the  data  transfer 


MOVEI 

LSH 

GO 

MOVEI 

GO 

MOVEI 

GO 

SETZ 

GO 


1.1000 

1.1 

LDRAR 
1 ,MPRUN 
LDCSR 
1 
ODELAY 

l6csr 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


— .       I_ 


^n 


1722 
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SEQ  1735 


5A81 

5A82 

5483 

5A84 

5A85 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 


006546"  260  17  0  00  0o6267* 

006547'  254  00  0  00  006556' 

006550'  254  00  0  00  006546' 

006551'  474  15  0  00  000000 


006552'  027 

006553'  254 

006554'  254 

006555'  322 


00  0  00  006650' 
00  0  00  006511' 
00  0  00  006556' 
15  0  00  006546' 


006556'  263  17  0  00  000000 


006557'  140000 
006560'  200000 


006561'  140000 

006562'  400000 

006563'  240001 

006564'  340000 


006565'  140000 

006566'  400000 

006567'  240001 

006570'  340000 


006571'  140000 

006572'  400000 

006573'  240001 

006574'  340000 


006575'  140000 

006576'  400000 

006577'  240001 

006600'  340000 


006607' 
006612' 


006640' 
000100 
006643' 
000000 


006640' 
000100 
006644 ' 
000000 


006640' 
000100 
006645' 
000000 


006640" 
000100 
006646' 
000000 


Loop  on  test  execute  table  entries 


TA24; 


60 

JRST 
JRST 
SETO 


TEXEC 
TX24 
TA24 
ERFLG, 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  tBUP  data  incorrect 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA24 
TL24 
TX24 
ERFLG, TA24 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


DFPT 
DFPT 

60 
60 
60 
60 
60 
6G 
60 
6G 
60 
61 
61 
61 
61 


;  End  of  test 

TX24:   RTN 

;  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


TS24:   TTA8LE  (TCALL,TS24IN) 
TS24L:  TTABLE  (TCALLC,TS24NE) 

;  Shifted  8  bits 

TS24A:  TTABLE  (TCALL,TS24NN) 

TTABLE  (TSSTAR,100) 

TTABLE  (TCHECK,1,TS24RS) 

TTABLE  (TEXIT) 

;  Shifted  16  bits 

TTABLE  (TCALL,TS24NN) 

TTABLE  (TSSTAR,100) 

TTABLE  (TCHECK,1,TS24RS+1) 

TTABLE  (TEXIT) 


Shifted  24  bits 


TTABLE  (TCALL,TS24NN) 

TTABLE  (TSSTAR,100) 

TTABLE  (TCHECK,1,TS24RS+2) 

TTABLE  (TEXIT) 


Shifted  32  bits 


TTABLE  (TCALL,TS24NN) 

TTABLE  (TSSTAR,100) 

TTABLE  (TCHECK,1,TS24RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


n 


1723 


DFPTA9 
DFPTA9 

5533 

553A 

5535 

5536 

5537 

5538 

5539 

5  540 

5541 

55A2 

5543 

5544 

5545 

5546 

5547 

5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 

5562 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 
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006601 ' 
006602' 
006603' 
006604' 
006605' 
006606' 


140000 
400000 
240001 
340000 
300000 
000000 


006640' 

000100 

006647' 

000000 

006560' 

000000 


006607'  201  00  0  00  000000* 
006610'  202  00  0  00  014026' 
006611'  263  17  0  00  000000 


006612' 
006613' 
006614' 
006615' 
006616' 
006617' 
006620' 
006621 ' 
006622' 
006623" 
006624' 
006625' 
006626' 
006627' 


006630' 
006631 • 
006632' 
006633' 
006634' 
006635' 
006636' 
006637' 


350  01 
307  01 
350  00 

200  00 

201  02 
400  01 
302  02 
505  01 
246  00 

202  00 
350  00 
307  02 
2r:  00 
402  00 


201  01 
242  01 
260  17 
201  01 
260  17 
400  01 
260  17 
263  17 


00  014026' 

00  000000* 
17  000000 

01  000000 
00  006643' 
00  000000 
00  006643' 
00  741777 
00  000010 

02  000000 
00  000002 
00  006647' 
00  006617' 
00  014051' 


00  000200 
00  000001 
00  006537* 
00  000010 
00  006545* 
00  000000 
00  006634* 
00  000000 


006640'  201  00  0  00  000010 

006641'  in   00  0  ^^   014051' 

006642'  263  17  0  00  000000 

006643' 


Shifted  40  bits 


TTABLE  (TCALLJS24NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS24RS+4) 

TTABLE  (TEXIT) 

TTABLE  (TJRST,TS24L) 

TTABLE  (TLAST) 


Initialize  stuff 


TS24IN: 


MOVE  I 
MOVEM 
RTN 


BUFF-1 
T24BUF# 


Set  up  next  data  pattern 


TS24NE:  AOS 
CAI6 
AOS 
MOVE 
MOVE  I 

TS24N0:  SETZ 
CAIE 
HRLI 
LSHC 
MOVEM 
AOS 
CAIG 
JRST 
SETZM 


1,T24BUF 

1.BUFF+5 

(P) 

(1) 

2,TS24RS 

2!tS24RS 

1.7417- 

8 

(2) 

2 

2,TS24RS+4 

TS24N0 

TS24NM* 


Read  the  next  word 


MOVE  I 

LSH 

60 

MOVE  I 

GO 

SETZ 

GO 

RTN 


1.200 

1,1 

LDRAR 

1 .MPRUN 

LDCSR 

1. 

LDCSR 


Increment  shift  count 


TS24NN:  MOVE I 
ADDM 
RTN 

TS24RS:  BLOCK 


8 
TS24NM 


SEQ  1736 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 

■  ■  • 

return 


point  to  next  data  pattern 
done  yet? 

no  -  set  up  proper  return 
get  data  pattern 

?et  initial  address  of  E6UF  data 
irst  shift  doesn't  include  PLIN  data 
so  check  if  first  shift  and  if  not 
get  initial  PlIN  data  (left  8  bits) 

shift  8  bits 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


get  start 

•  address 

position 
load  the 

correctly 

register 

get  MPRU^ 

i  bit 

start  up 

the  port 

clear  data 

stop  the 

port 

return 

get  a  8 

add  it 

return 

correct  EBUF  data 

1     r- 


172A 


DFPTA9 
DFPTA9 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

559A 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

560A 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

56U 

5615 

5616 

5617 

5618 

5619 

5620 

5621 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 
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SEQ  1737 


006650'  240000  006652' 
006651'  000000000000* 


006652' 
006653' 
006654' 
006655' 
006656' 
006657' 
006660' 
006661 ' 
006662' 


006663' 
006664' 
006665' 
006666' 
006667" 
006670' 
006671  • 
006672' 


006673' 
006674' 
006675' 
006676' 
006677' 
006700' 
006701 ' 
006702' 
006703' 
006704' 
006705' 
006706' 


006707' 
006710' 
00671 1 ' 
006712' 
006713' 
006714' 
006715' 
006716' 
006717' 
006720' 
006721 • 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


010001 
001000 
01C100 
001000 
010200 
732002 
010351 
001000 


020002 
OuJOOO 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
732001 
020500 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 


00  013336' 

00  014026' 

01  000000 
00  000000 
00  013372' 
00  014051' 
00  000000 
00  013343' 
00  000000 


010000 
000040 
000222 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310360 
240300 
030000 
0QQ220 
002040 
002340 
000006 


;  Error  messages 
MA24: 


CALLITXN0TIMA24PN 
LAST! CALL !TXALL!TTPNT 


MA24PN: 


TMSGC 

MOVE 

MOVE 

PNTHU 

TMSG 

MOVE 

PNTDEC 

TMSG 

RTN 


<Data  >  ; 

1J24BUF  ; 

(1) 

<  shifted  up  from  PLIN  > 
TS24NM  ; 

<•  bits,  result  in  EBUF> 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


get  shift  count 


;  Microcode  -  Shift  8  bits 

T24M:   MWORD   <ADDR=100,JMAP,J=101.D=1> 
MWORD   <C0NT,D=1,SELF.M6C=222> 
MWORD   <C0NT,SD0,0R,B=4,D=2,SELM,MGC=200> 
MWORD   <JMAP,J=5100,D=1> 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200JMAP,J=201> 

MWORD  <CJP,J=203,D=1,CENA,CCCA> 

MWORD  <JMAP,J=201,D=1> 

MWORD  <C0NT,D=1,SELC.MGC=4> 

MWORD  <CONT,SD0,OR,B=3,D=2.SELM,MGC=200> 

MWORD  <JZ> 

;      Initialization 

MWORD  <ADDR=1000,JMAP,J=1001.SELM.MGC=20> 

MWORD  <CONT.D=1.SELC,MGC=200> 

MWORD  <LDCT,J=31,SD0.OR,D=2,SKCN,M6C=360> 

MWORD  <RPCT,J=1003.SOA.OR,D=5> 

MWORD  <C0NT,S0A.0R,D=1 .OENA.SELM,MGC=40> 

MWORD  <JZ.SD0.D=1.SELP,MGC=6> 


100 
101 
102 
103 

200 
201 
202 
203 
204 
205 

1000 
1001 
1002 
1003 
1004 
1005 


r' 


I 


0FPTA9 
DFPTm9 

5639 

56A0 

56A1 

56A2 

56A3 

56AA 

56A5 

56A6 

56A7 

56A8 

56A9 

5650 

5651 

5652 

5653 

565A 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

566A 

5665 

5666 

5667 

5668 

5669 

5670 


MACRO  X53B(1242)  09:A2  1 
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006722'  701000  001000 
006723'  000000  000000 
00672A'  000000  000000 


006725'  50QQ5Q 

006726'  000000 

006727'  5001" 

006730'  OOOOi 


006731 • 
006732' 
006733' 
00673A' 
006735' 
006736' 
006737' 
006740' 
0067A1 • 
0067A2' 
006 743' 
006744' 
006745' 
006746' 
006747' 
006750' 
006751 ' 
006752' 
006753' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
4i'040 

mm 


Q1010Q 
004040 
0020 
2000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 

mm 
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MUORD   <ADDR=0,JZ>  ;  0 

;      Initialization  step 

MWORD   <ADDR=5000,JMAP,J=5001,SELC.M6C=100>  ;  5000 

MUORD   <JZ,SELM,MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD   <ADDR=5100.CONT.SD0.AND.8=2.D=2>  ;  5100 

MWORD   <CONT, SOB, PLUS, 8=2, D=2.CRY>  ;  5101 

MWORD   <LDCT,J=26>  ;  5102 

MWORD   <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MWORD   <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5104 

MWORD   <CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

MWORD   <JMAP,J=5105,D=1>  ;  5106 

MWORD   <CONT,S0A,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MUORD   <JMAP.J=5110,S0A,A=4.OR.D=1,OENA.SELE.MGC=4>    ;  5110 
-1 


SEQ  1738 


1726 
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SEO  1739 


5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

568A 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

569A 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

570A 

5705 

5706 

5707 

5708 

5709 

5710 

5711 


00675A • 
006755' 
006756' 
006757' 
006760' 
006761 • 
006762* 
006763' 


006764' 
006765' 
006766' 
006767' 
006770' 


254  00 

100604 

007047' 

013263' 

000000 

Gu.'OOO 

000000 


0  00  006764' 
000025 
013435' 
012716' 
007062' 
007372' 
007710' 
777777 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
006505* 
007047' 
006507* 
000000 


/lf***»»*******************t****«***********************  *************** 
*  Test  25  -  Fmtr  Basic  Down  Shifting  Test 

Description:  Verify  that  the  Mover/Formatter  is  capable  of 
being  shifted  down.  The  contents  of  the  formatter 
is  initially  zero,  and  the  result  of  any  shifting 
should  be  zero. 

Procedure:    KL>  Port  Clear 

UC>  Shift  formatter  4  bits  down 
UC>  Read  formatter  data 
UC>  If  zero,  continue. 

If  non-zero,  halt  with  a  CRAM  PE  and  leave 
the  non-zero  data  read  in  the  EBUF. 
KL>  Let  it  run  at  full  speed  for  1/2  second  then 

halt  and  verify  that  no  CRAM  PE  occurred  and 

that  the  microcode  did  not  stop  at  the  error 

location. 

Failure:     — 
^»*************** **************************************************** 


Test  data 


TSTC25: 


JRST    TG25 
CBUS!NDMP!NDC6I2CBUS!25 


;  go  start  test 
i  test  mask 


T25M,,[ASCI2  *Fmtr  Basic  Down  Shifting  Test*] 

CEXP  C20,C12.MLAST!C83,,CEXP  C4,MLASTTC2D 

TSTC26  ;  failure  test  table 

TSTC27  ;   ... 

TSTC30 

-1 


Start  test 


T625: 


MOVE  I 
60 

MOVE  I 
GO 
RTN 


29 

TRACE 
1,T25M 
TLOAD 


get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


r 


I 


vn 


DFPTA9  MACRO  X53B(1242)  09:A2  1-JuL-85  Page  93 

DFPTA9  MAC     18-Apr-85  11 :00        CBUS  MODULE  ^ESTS 


SEQ  Mt^^ 


5712 

5713 

57K 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

573A 

5735 

5736 

5737 

5738 

5739 

57A0 

57A1 

57A2 

5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 


006771 • 
006772' 
006773' 
006774' 
006775' 
006776' 
006777' 
007000' 
007001 ' 
007002' 
007003' 
007004' 
007005' 
007006' 
007007' 


007010' 
00701 1 ' 
007012' 
007013' 
007014' 
007015' 
007016' 
007017* 
007020' 
007021 ' 
007022' 
007023' 
007024 ' 
007025' 


400  15 

201  00 

202  00 
260  17 
402  00 

201  00 

202  00 
260  17 
474  15 
474  15 
474  15 
027  00 
254  00 
254  00 
326  15 


00  000000 
00  000001 
00  006513* 
00  006512* 
00  003123* 
.  00  000010 
0  00  003125* 
0  00  003126* 
00  000000 
00  000000 
00  000000 
00  007027' 
00  006771 ' 
0  00  007026' 
0  00  007026' 


350 
201 
260 
260 
474 
603 
474 
201 
260 
2o.' 
202 
027 
254 
254 


00 
00 
17 
17 
15 
01 
15 
01 
17 
17 
01 
00 
00 
00 


00  006773* 
00  000764 
00  006543* 
00  003157* 
00  000000 
00  004000 
00  000000 
00  204000 
00  006636* 
00  003147* 
0  00  014013' 
0  00  007041 • 
0  00  006771' 
0  00  007026' 


007026'  263  17  0  00  000000 


007027'  UOOOO 
007030'  270000 


007031 ' 
007032' 
007033' 
007034' 
007035 ' 
007036' 
007037' 
007040' 


260  17 
255  00 
202  01 

200  01 

201  02 
201  03 
260  17 
263  17 


013266' 
007031 ' 

0  00  007013* 
0  00  000000 
0  00  014010' 
0  00  014010' 
0  00  000023 
0  00  000023 
0  00  003165* 
0  00  000000 


;  1st  segment  of  test  (Segment  A)  -  Start  up  port 


TA25: 


SETZ 

MOVE! 

HOVEM 

60 

SETZM 

HOVE  I 

HOVEM 

GO 

SETO 

SETO 

SETO 

SCOPER 

JRST 

JRST 

JUMPN 


ERFL6, 

1 

TSTSUB 

IPACLR 

SNEXT 

10 

SDATA 

IPASRT 

ERFLG. 

ERFL6, 

ERFLG, 

MA25 

TA25 

TX25 

ERFLG. TX25 


clear  error  flag 
initialize  subtest  number 

to  1 
issue  a  port  clear 
set  up  start  location 
get  a  10 

set  up  start  CSR  data 
start  up  the  port 

failed  -  error  reading/writing  CSR 
failed  -  port  already  running 
failed  -  error  bits  set  in  CsR 
print  error  message 
loop  on  error 
altmode  exit 
error  already  -  exit  test 


2nd  segment  of  test  (Segment  8)  -  Check  if  CR^M  PE  sets  after  1/2  second 


TX25: 


AOS 

HOVE  I 

GO 

GO 

SETO 

TLNE 

SETO 

HOVE  I 

GO 

GO 

HOVEM 

SCOPER 

JRST 

JRST 

RTN 


TSTSUB 

*D500 

ODELAY 

RDCSR 

ERFLG, 

1,(CRAMPE) 

ERFLG. 

1,EBUSPE!TSTE8F 

LDCSR 

RDE8UF 

I.SAVDAT* 

H§25 

TA25 

TX25 


increment  subtest  number 

wait  1/2  second 

do  the  wait 

read  CSR 

failed  -  couldn't  read  CSR 

got  c  CRAM  PE? 

yes  -  set  error  flag 

get  bits  to  clear  error  condition 

and  set  up  to  read  the  EBUF 
read  EBUF  data 
save  data 

print  error  message 
loop  on  error 
altmode  exit 

exit  test 


;  Error  messages 
MA25: 


MSGITXNOT.'^ASCIZ  /Couldn't  successfully  start  the  port/] 
LASTICALLllXALLIMAZSPI 


MA25P1 


GO 

JFCL 

HOVEM 

HOVE 

HOVE  I 

HOVEl 

GO 

RTN 


RDCSR 

1.SAVCSR# 

I.SAVCSR 

2.*D19 

3.*D19 

CSRPNT 


get  CSR  contents 

error 

save  it 

get  CSR  data 

character  count  so  far 

continuation  line  column  number 

go  print  in  English 

return 


1728 


0FPTA9 
DFPTA9 

5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5772 
5773 

5775 
5776 
5777 
5778 
5779 
5780 
5781 
5782 
5783 
578A 
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SEO  1741 


007041'  140000  013443' 

007042'  270000  007043' 

007043*  037  00  0  00  013311' 

007044'  200  00  0  00  014013' 

007045'  037  13  0  00  000000 

007046'  263  17  0  00  000000 


007047' 
007050' 
007051  • 
007052' 
007053' 
007054' 
007055* 
007056' 
007057* 
007060' 
007061 ' 


000000 
401000 
000100 
732000 
000200 
431400 
000300 
431000 
000400 
OOCOOO 
777777 


010104 
003040 
000200 
002340 
000000 
020060 
002004 
005340 
040000 
000041 
777777 


MB25:   MSG!1XN0T![ASCIZ  /Down  shittir.g  of  zero  data  resulted  in  non-zero  data/] 
LAST! CALL !TXALL!MA25PN 

MA25PN:  TMSGC   <EBUF  Data  (Formatter  contents):  > 
MOVE    SAVDAT 
PNTHW 
RTN 


;  Microcode: 
T25M:   MWORD 
MUORD 
MWORD 


<ADDR=0,JMAP.J=1,S0A,D=1.SELF,MGC=104> 

<CONT,SDO,OR,D=2,SELM,MGC=200> 

<CJP.J=0.S0A.0R,D=1,CENA,CCFZ> 

MUORD   <CONT.S0A.OR,D=1.OENA.SELE.M6C=4> 

MWORD   <JMAP,J=4,BAD> 

-1 


0 
1 
2 
3 
4 


L-_ 


DFPTA9 
DFPTA9 

5785 

5786 

5787 

5788 

5789 

5790 

5V)1 

5792 

5793 

579A 

5795 

5796 

5797 

5798 

5799 

5800 

5801 

5802 

5803 

58C 

5805 

5806 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

58U 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 
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SEQ  1742 


007062* 
007063' 
007064' 
007065' 
007066* 
007067* 
007070* 
007071 ' 
007072' 


254  00 

100604 

007305' 

013263' 

000000 

000000 

000000 

000000 

mm 


0  00  007073' 
000026 
013456' 
012716' 
007372* 
007710* 
010224* 
010542* 

mm 


007073*  201  00  0  00  000000' 

007074'  260  17  0  00  006765* 

007075'  201  01  0  00  0C7305' 

007076'  260  17  0  00  006767* 

007077'  263  17  0  00  000000 


*  Test  26  -  Fmtr  Down  Shift  4  Test 

Description:  Verify  that  the  formatter  can  shift  various  data 
patterns  down  4  bits  at  a  time. 

Procedure:    KL>  Port  Cledr 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattein  over  the  CBUS 

UC>  Shift  down  4  bits 

UC>  Read  formatter  contents  and  write  into 

EBUF 
KL>  Read  EBUF  and  verify  the  data 
KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 


Do  for  data  patterns: 


O's 

V% 

525252,, 525252 

000000,. 007777 

000000,. 007070 

000000,, 000707 

Failure:     — 

/(f  «■♦♦****************  ************************************************* 


Test  data 


JO  start  test 


TSTC26:  JRST    TG26  ;  gc 

CBUS!NDMP1NDCB!ZCBUS!26        ;  test  mask 

T26«,,CASCIZ  *Fffitr  Down  Shift  4  Test*] 

LEXP   C20,C12,MLAST!C8],,[EXP  C4,MLAST!C2] 

TSTC27  ;  failure  test  table 

TSTC30 

TSTC31 

TSTC32 

-1 


Start  test 


TG26: 


MOVE] 

29 

GO 

TRACE 

MOVE  I 

1.T26M 

GO 

TLOAD 

RTN 

get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/' verify  it 

failed  -  exit  test 


1 


a   1730 


DFPTA9 
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-85  Page 

96 
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MAC 

18-Apr-85  11:00 

CBUS  1 

>10DULE  TESTS 

5835 

5836 
5837 
5838 

;  Initialization 

' 

007100' 

400  15  0  00  OOOOOO 

TL26: 

SETZ 

ERFLG, 

5839 

007101' 

260  17  0  00  006774* 

GO 

IPACLR 

5840 

007102' 

402  00  0  00  007010* 

SETZM 

TSTSUB 

5841 

MOVSI 

[OOOOOO, 

,000000 

5842 

777777, 

,777777 

5843 

525252, 

,'^l'il^2 

5844 

OOOOOO, 

,007777 

5845 

OOOOOO, 

,007070 

5846 

007103' 

205  00  0  00  013330' 

OOOOOO, 

,0007073 

5847 

007104' 

541  00  0  00  006530* 

HRRi 

BUFF 

5848 

007105' 

251  00  0  00  OOOOOO* 

BLT 

BUFF+5 

5849 

5850 
5851 
5852 

;  First  ensure 

the  data 

transfer  is  re 

007106' 

201  01  0  00  005000 

MOVE  I 

1,5000 

5853 

007107' 

242  01  0  00  000001 

LSH 

1,1 

5854 

007110' 

260  17  0  00  006632* 

60 

LDRAR 

5855 

007111' 

201  01  0  00  000010 

MOVEI 

1 ,MPRUN 

5856 

007112' 

260  17  0  00  007020* 

GO 

LDCSR 

5857 

007113' 

400  01  0  00  OOOOOO 

SETZ 

1, 

5858 

007114' 

260  17  0  00  007112* 

60 

LDCSR 

5859 

5860 

;  Now 

generate 

CCW  list 

5861 

5862 

007115' 

200  01  0  00  013210' 

MOVE 

1,[CBUFSZ,,CBUF] 

5863 

007116' 

260  17  0  00  006527* 

GO 

CHINIT 

5864 

007117' 

551  01  0  00  007104* 

HRRZI 

1,BUFF 

5865 

007120' 

2u!  02  0  00  000006 

MOVEI 

2,6 

5866 

007121' 

400  03  0  00  OOOOOO 

SETZ 

3, 

5867 

007122' 

260  17  0  00  006533* 

60 

6ENCCW 

5868 

007123' 

201  06  0  00  007146' 

MOVEI 

6,TS26 

5869 

5870 

;  Start  up  the 

data  transfer 

5871 

5872 

007124' 

201  01  0  00  001000 

MOVEI 

1,1000 

5873 

007125' 

242  01  0  00  000001 

LSH 

1,1 

5874 

007126' 

260  17  0  00  007110* 

GO 

LDRAR 

5875 

007127' 

201  01  0  00  000010 

MOVEI 

1 ,MPRUN 

5876 

007130' 

260  17  0  00  007114* 

GO 

LDCSR 

5877 

007131' 

201  00  0  00  000001 

MOVEI 

1 

5878 

007132' 

260  17  0  00  007012* 

GO 

ODELAY 

5879 

007133' 

400  01  0  00  OOOOOO 

SETZ 

1, 

5880 

007134' 

260  17  0  00  007130* 

GO 

LDCSR 

SEQ  1743 


DFI 
DFf 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
load  the  register 
get  'MPRUN'  bit 
start  up  the  port 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


1   r 


L_ 


Q  1731 
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SEQ  1744 


5881 

5882 

5883 

5884 

5885 

5886 

5887 

5888 

5889 

5890 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 

5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

59?5 

5926 

5927 

5928 

5929 

5930 

5931 

5932 


007135"  260  17  0  00  006546* 

007136"  254  00  0  00  007145' 

007137"  254  00  0  00  007135' 

007140"  474  15  0  00  000000 


007141"  027  00  0  00  007272" 

007142"  254  00  0  00  007100" 

007143"  254  00  0  00  007145' 

007144'  322  15  0  00  007135' 


007145'  263  17  0  00  000000 


007146"  140000 
007147"  200000 


007150"  140000 

007151"  400000 

007152'  240001 

007153'  340000 


007154'  140000 

007155'  400000 

007156'  240001 

007157"  340000 


0071 60"  140000 

007161"  400000 

007162'  240001 

007163"  340000 


007164"  140000 

007165'  400000 

007166'  240001 

007167'  340000 


007222' 
007225' 


007255' 
000100 
007260' 
000000 


007255' 
000100 
007261 ' 
000000 


007255' 
000100 
007262' 
000000 


007255" 
000100 
007263' 
000000 


DFI 
DFF 


Loop  on  test  execute  table  entries 


TA26: 


GO 

JRST 
JRST 
SETO 


TEXEC 
TX26 
TA26 
ERFL6, 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  EBUF  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA26 
TL26 
TX26 
ERFL6,TA26 


print  error  riiessage 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX26:   RTN 

;  Test  Execute  Table,  as; 


return 


(CMD, parameters) 


TS26: 
TS26L: 


TTABLE 
T TABLE 


(TCALL,TS26IN) 
(TCALLC,TS26NE) 


;  Shifted  4  bits 

TS26A:  TTABLE  (TCAL.,TS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1JS26RS) 

TTABLE  (TEXIT) 


Shifted  8  bits 


TTABLE  (TCALL,rS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1JS26RS+1) 

TTABLE  (TEXIT) 


Shifted  12  bits 


TTABLE  (TCALL,TS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS26RS+2) 

TTABLE  (TEXIT) 


Shifted  16  bits 


TTABLE  (TCALL,TS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS26RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  pc*- 
check  if  cumpleted 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


,._,.J 


I  1732 


DFPTA9 
DFPTA9 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 

5977 

5978 

5979 

5980 

5981 

5982 
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007170'  140000 

007171*  400000 

007172'  240001 

007173'  340000 


007174'  140000 

007175'  400000 

007176'  240001 

007177'  340000 


007200'  140000 

007201'  400000 

007202'  240001 

007203'  34C000 


007204'  140000 

007205'  400000 

007206'  240001 

007207'  340000 


007210'  140000 

007211'  400000 

007212'  240001 

007213'  340000 


007214' 
007215' 
007216' 
007217* 
007220* 
007221  * 


140000 
400000 
240001 
340000 
300000 
000000 


007222'  201 
007223*  202 
007224*  263 
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;  Shifted  20  bits 


007255' 
000100 
007264' 
000000 


007255' 
000100 
007265' 
000000 


007255' 
000100 
007266' 
000000 


007255' 
000100 
007267' 
000000 


007255' 
000100 
007270* 
000000 


007255' 

000100 

007271 ' 

000000 

007147' 

000000 


TTABLE  (TCALL.TS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS26RS+4) 

TTABLE  (TEXIT) 


;  Shifted  24  bits 


TTABLE  (TCALL,TS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1JS26RS+5) 

TTABLE  (TEXIT) 


;  Shifted  28  bits 


TTABLE  (TCALL,TS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS26RS+6) 

TTABLE  (TEXIT) 


;  Shifted  32  bits 


TTABLE  (TCALL,TS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS26RS+7) 

TTABLE  (TEXIT) 


;  Shifted  36  bits 


TTABLE  (TCALLJS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS26RS+in) 

TTABLE  (TEXIT) 


00  0 
00  0 
17  0 


00  000000# 
00  014027' 
00  000000 


;  Shifted  40  bits 

TTABLE  (TCALL.TS26NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS26RS+11) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS26L) 

TTABLE  (TLAST) 

;  Initialize  stuff 

TS26IN:  MOVEI   BUFF-l 
MOVEM   T26BLIF# 
RTN 


SEQ  1745 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
-heck  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pDinter 
return 


■1 


1733 


DFPTA9 
DFPTA9 

5983 

598A 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

599A 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

600A 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 
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SEQ  1746 


007225' 
007226' 
007227' 
007230' 
007231 ' 
007232' 
007233' 
007234' 
007235' 
007236' 
007237' 
007240* 
007241 • 
007242' 


007243' 
007244' 
007245' 
007246' 
007247' 
007250' 
007251* 
007252' 
007253' 
007254' 


350  01 
307  01 
350  00 

200  00 
400  01 

201  02 
246  00 
135  03 
137  03 

202  00 
350  00 
307  02 
254  00 
402  00 


0  00  014027' 
0  00  000000* 
0  17  000000 
0  01  000000 
0  00  000000 
0  00  007260' 
0  00  777771, 
0  00  013463' 
0  00  013464' 
0  02  000000 
0  00  000002 
0  00  007271 • 
0  00  007233* 
0  00  014052' 


400 
260 
201 
242 
260 
201 
260 
400 
260 
263 


01 
17 
01 
01 
17 
01 
17 
01 
17 
17 


00  000000 
00  007134* 
00  000200 
00  000001 
00  007126* 
00  000010 
00  0C7244* 
00  000000 
00  007251* 
00  000000 


007255'  201  00  0  00  000004 

007256'  272   00  0  00  014052' 

007257'  263  17  0  00  000000 

007260' 


007272'  240000  007274' 
007273'  000000000000* 


00727i*' 
007275* 
007276' 
007277' 
007300' 
007301  * 
007302* 
007303* 
007304* 


037  00 
200  01 
200  00 
037  13 
037  00 


200 
037 
037 
263 


00 
15 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00  013336' 

00  014027' 

01  000000 
00  000000 
00  013465' 
00  014052' 
00  OOQQOO 

013343* 
000000 


Set  up  next  data  pattern 


TS26NE:  AOS 
CAIG 
AOS 
MOVE 
SETZ 
HOVE  I 

TS26N0:  LSHC 
LD8 
DPS 
HOVEM 
AOS 
CAIG 
JRST 
SET2M 


1J26BUF 

1.BUFF+5 

(P) 

(1) 

1, 

2.TS26RS 

3,  [PC 
3.[P0i.., 

2 

2.TS26RS+11 
TS26N0 
TS26NM# 


4.1,153 
4.0,3J 


Read  the  next  word 


SETZ 

GO 

HOVE  I 

LSH 

GO 

HOVE  I 

GO 

SETZ 

GO 

RTN 


1, 

LDCSR 

1.200 

1.1 

LDRAR 

1 .MPRUN 

LDCSR 

1. 

LDCSR 


Increment  shift  count 


TS26NN: 


MOVE  I 

ADDM 

RTN 


4 
TS26NM 


TS26RS:  BLOCK   12 
;  Error  messages 


nA26: 
MA26PN: 


CALL!TXN0T!MA26PN 
LAST! CALL !TXALL!TTPNT 


TMSGC 

HOVE 

HOVE 

PNTHU 

THSG 

HOVE 

PNTDEC 

THSG 

RTN 


<Data  >  ; 

1J26BUF  ; 

<  shifted  down  > 

TS26NM  ; 

<•  bits,  result  in  EBUF> 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

clear  word  to  shift  into 

get  initial  address  of  EBUF  data 

shift  4  bits  into  AC1 

get  4  bits 

save  them 

save  it 

point  to  next  address 

done  yet? 

no  -  loop  till  done 

initialize  number  of  shifts 


clear  data 
stop  the  port 
get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  4 
add  it 
return 

correct  EBUF  data 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


get  shift  count 


I 


1734 


DFPTA9 
DFPTA9 

6036 

6037 

6038 

6039 

60A0 

60A1 

60A2 

60A3 

60AA 

6045 

60A6 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

60S9 

60o0 

6061 

6062 

6063 

6064 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 

6081 

6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 
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SEQ  1747 


007305' 
007306' 
007307' 
007310' 
00731 1 ' 
007312' 
007313' 
007314' 


007315' 
007316' 
007317' 
007320' 
007321 • 
007322' 
007323' 
007324' 
007325* 
007326' 
007327' 
007330' 
007331 ' 
007332' 
007333' 
007334' 


007335' 
007336' 
007337' 
007340' 
007341 ' 
007342' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


100010 
000000 
100100 
001000 
000000 
000000 


007343'  500050 

007344'  000000 

007345'  500100 

007346'  000000 


007347' 
007350' 
007351 ' 
007352' 
007353' 
007354' 


510000 
742001 
510100 
302001 
510200 
000000 


010000 
000040 
000104 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 
000000 
000740 
260000 
000300 


;  Microcode  -  Shift  4  bits 

T26M:   MUORD   <ADDR=100 JHAP,J=101 ,D=1> 
MUORD   <CONT,D=1.SELF,M6C=104> 
MUORD   <C0NT.SD0,OR,B=4,D=2,SELM,MGC=200> 
MUORD   <JMAP,J=5100,D=1> 

;      Routine  to  read  a  word  from  CBUS  intr  he  formatter. 

MUORD  <ADDR=200,JMAP,J=201> 

MUORD  <CJP,J=203,D=1,CENA,CCCA> 

MUORD  <JMAP,J=201.D=1> 

MUORD  <CONT,D=1,SELF,MGC=200> 

MUORD  <CONT.D=1.SELF,M6C=204> 

MUORD  <C0NT.D=1.SELC.M6C=4> 

MUORD  <CONT,SD0,OR,B=3,D=2.SELM,MGC=200> 

MUORD  <JZ> 

;      Initialization 

MUORD   <ADDR=1000.JMAP.J=1001 .SELM,MGC=20> 
MUORD   <JZ,D=1,SELC,M6C=200> 
MUORD   <ADDR=0,JZ> 

;      Initialization  step 

MUORD   <ADDR=5000,JMAP.J=5001.SELC.MGC=100> 
MUORD   <JZ,SELM,MGC=20> 

;  Subroutine  -  Passed  -  Urite  1  to  bit  12  of  CSR  register 
MUORD   <ADDR=5100,C0NT.SD0,AND,B=2,D=2> 
MUORD   <CONT, SOB. PLUS. B=2.D=2,CRY> 
MUORD   <LDCT,J=26> 


100 
101 
102 
103 

200 
201 
202 
203 
204 
205 
206 
207 

1000 
1001 
0 

;  5000 
;  5001 

5100 
5101 
5102 


1      r 


-.) 


1735 


DFPTA9 
DFPTA9 

6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
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007355'  510351  030000 

007356'  102021  000220 

007357'  510400  002004 

007360'  431020  005340 

007361'  510551  07QQ40 

007362'  001400  015060 

007363'  510651  050000 

007364'  001000  000040 

007365*  510700  000200 

007366'  431010  005340 

007367'  511051  102004 

007370'  431040  005040 

007371'  mill  111111 
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SEQ  1748 


MUORD 
nUORD 
MWORD 
MWORD 
MUORD 
MUORD 
-1 


<RPCT,J=5103,SAB,PLUS,A=2,B=2,D=2>  ;  5103 

<C0NT,S0A,A=2,0R.D=1.0ENA,SELE,MGC=4>  ;  5104 

<CJPJ=5107,CtNA,CCGC,D=1,SELE,M6C=40>  ;  5105 

<JMAP,J=5105,D=1>  ;  5106 

<CONT,S0A,A=1,OR,D=1,SELE,M6C=200>  ;  5107 

<JMAP,J=5110.SOA,OR.A=4,D=1.0ENA.SELE,MGC=4>  ;  5110 


'1     r 
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1 


SEO  1749 


6104 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

6114 

6115 

6116 

6117 

6118 

6119 

6120 

6121 

6122 

6123 

6124 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6138 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 


*  Test  21  -  Fmtr  Down  Shift  4  (frorc  PUN)   Test  -  SELRHTNIB=0 


Descn'ptiorii 


Procedure: 


Verify  that  the  formatter  can  shift  various  data 
patterns  4  bits  at  a  time  while  inserting  bytes 
from  the  PLIN  into  the  formatter.  The  data  loaded 
into  the  PLIN  initially  is  017. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  017 

UC>  Shift  down  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  bee  les 
all  zero. 

Do  for  data  patterns:   O's 

rs 

525252,, 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707 

Failure:     — 
/If*************  ***********************************  ******************** 


007372' 
007373' 
007374' 
007375' 
007376' 
007377' 
007400' 
007401 • 
007402' 
007403' 


007404' 
007405' 
007406' 
007407' 
007410' 


254  00  0 

100604 

007613' 

013263' 

000000 

000000 

000000 

000000 

000000 

777777 


00  007404' 
000027 
013470' 
012716' 
007710' 
010224' 
010542' 
011060' 
011344' 
777777 


Test  data 
TSTC27:  JRST    T627 


;  go  start  test 
;  test  mask 


CBUS !NDMP!NDCB!Z CBUS! 27        .  ,.,.  

T27M,,CASCIZ  *Fmtr  Down  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=0*3 

CEXP  C20,C12,MLAST!C8],,CEXP  C4,MLAST!C2] 

TSTC30  ;  failure  test  table 

TSTC31 

TSTC32 

TSTC33 

TSTC34 

-1 


Start  test 


201  00 
260  17 
201  01 
260  17 
263  17 


00  000000' 
00  007074* 
00  007613' 
00  007076* 
00  000000 


TG27: 


MOVE  I 
GO 

MOVE  I 
60 
RTN 


Z9 

TRACE 
1,T27M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


0FPTA9 

MACRO  X53B(1242)  09:42  1-JuL- 

-85  Page 
CBUS  1* 

102 

DFPTA9 

MAC 

18-Apr-85  11:00 

lODULE  TESTS 

6158 

6159 

;  Initialization 

6160 

6161 

007411' 

400  15  0  00  000000 

TL27: 

SET2 

ERFL6, 

ipaclA 

clear  error  flag 

6162 

007412* 

260  17  0  00  007101* 

GO 

clear  port 

6163 

007413* 

402  00  0  00  007102* 

1 

SETZM 

STSUB 

initialize  subtest  number 

61 6A 

MOVSI 

COOOOOO, 

,000000 

get  address  of  buffer 

6165 

777777, 

,777777 

contents 

6166 

525252. 

,525252 

6167 

000000, 

,007777 

6168 

000000, 

,007070 

6169 

007414' 

205  00  0  00  013330' 

000000, 

,0007073 

6170 

007415' 

541  00  0  00  007117* 

HRRI 

BUFF 

J 

build  the  BLT  pointer 

6171 
6172 
6173 

007416' 

251  00  0  00  000000# 

BLT 

BUFF +5 

insert  data  into  buffer 

;  First  ensure 

the  data 

transfer  is  reset 

61 7A 

6175 

007417' 

201  01  0  00  005000 

MOVE  I 

1,5000 

■  get  start  address 

6176 

007420' 

242  01  0  00  000001 

LSH 

1,1 

■  position  correctly 

■  load  the  register 

6177 

007421 ' 

260  17  0  00  007247* 

60 

LDRAR 

6178 

007422' 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

■  get  MPRUN  bit 

6179 

007423' 

260  17  0  00  007253* 

60 

LDCSR 

■  start  up  the  port 

6180 

007424' 

400  01  0  00  000000 

SETZ 

1, 

■  clear  data 

6181 

007425' 

260  17  0  00  007423* 

60 

LDCSR 

•  stop  the  port 

6182 

6183 

:  Now 

generate 

CCW  List 

61 8A 

6185 

007426' 

200  01  0  00  013210' 

MOVE 

1,CC8UFSZ,,CBUF] 

;  get  pointer  to  control  buffer 

6186 

007427' 

260  17  0  00  007116* 

60 

CHINIT 

;  initialize  software 

6187 

007430' 

551  01  0  00  007415* 

HRRZI 

1,8UFF 

;  buffer  address 

6188 

007431 ' 

2u!  02  0  00  000006 

MOVE  I 

2,6 

;  word  count 

6189 

007432' 

400  03  0  00  000000 

SETZ 

3, 

•  clear  zero  fill  specifier 

6190 

007433' 

260  17  0  00  007122* 

60 

6ENCCW 

;  generate  a  CCW  list 

6191 

007434' 

201  06  0  00  007457' 

MOVE  I 

6,TS27 

•  get  test  execute  table  address 

6192 

6193 

;  Start  up  the 

data  transfer 

6194 

6195 

007435' 

201  01  0  00  001000 

MOVE  I 

1,1000 

•  get  start  address 

6196 

007436' 

242  01  0  00  000001 

LSH 

1,1 

;  position  correctly 
;  load  the  register 

6197 

007437' 

260  17  0  00  007421* 

60 

LDRAR 

6198 

007440' 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

;  get  MPRUN  bit 

6199 

007441 ' 

260  17  0  00  007425* 

60 

LDCSR 

•  start  up  the  port 

6200 

007442' 

201  00  0  00  000001 

MOVE  I 

1 

•  set  up  delay  of  1  ws 

6201 

007443' 

260  17  0  00  007132* 

60 

ODELAY 

•  wait  a  bit 

6202 

007444' 

400  01  0  00  000000 

SETZ 

1, 

■  clear  data 

6203 

007445' 

260  17  0  00  007441* 

60 

LDCSR 

•  stop  the  port 

6204 

6205 

;  Loop  on  test 

execute  table  entries 

6206 

6207 

007446' 

260  17  0  00  007135* 

TA27: 

60 

TEXEC 

•  execute  table  entry 

6208 

007447' 

254  00  C  00  007456' 

JRST 

TX27 

1 

;  end  of  table 

6209 

007450' 

254  00  0  00   007446' 
474  15  0  00  000000 

JRST 

TA27 

;  keep  looping  after  call 
;  error  -  tBUF  data  incorrect 

6210 

007451 • 

SETO 

ERFL6, 

^ 

SEQ  1750 


r 


1738 


DFPTA9 
DFPTA9 

6211 

6212 

6213 

621 A 

6215 

6216 

6217 

6218 

6219 

6220 

6221 

6222 

6223 

622A 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

623A 

6235 

6236 

6237 

6238 

6239 

62A0 

62A1 

62A2 

62A3 

624A 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 
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r" 


SEQ  1751 


Handle  error  printouts  and  scope  looping 


007452'  027  00  0 

007453'  254  00  0 

007454'  254  00  0 

007455'  322  15  0 


00  007600' 
00  007411' 
00  007456' 
00  007446' 


SCOPER 
JRST 
JRST 
JUMPE 


MA27 
TL27 
TX27 
ERFLG.TA27 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


007456'  263  17  0  00  000000 


007457'  140000 
007460'  200000 


007461'  140000 

007462'  400000 

007463'  240001 

007464'  340000 


007465'  140000 

007466'  400000 

007467'  240001 

007470'  340000 


007471'  140000 

007472'  400000 

007473'  240001 

007474'  340000 


007475'  140000 

007476'  400000 

007477'  240001 

007500'  340000 


007501'  140000 

007502'  400000 

007503'  240001 

007504'  340000 


007533' 
007536' 


007563' 
000100 
007566' 
000000 


007563' 
000100 
007567' 
000000 


007563' 
000100 
007570' 
000000 


007563' 
000100 
007571 ' 
000000 


007563' 
000100 
007572' 
000000 


;  End  of  test 

TX27:   RTN 

;  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


TS27:   TTABLE  (TCALL.TS27IN) 

TS27L:  TTABLE  (TCALLC,TS27NE) 

;  Shifted  4  bits 

TS27A:  TTABLE  (TCALL,TS27NN) 

TTABLE  (TSSTAR.100) 

TTABLE  (TCHECK,1,TS27RS) 

TTABLE  (TEXIT) 


Shifted  8  bits 

TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TCALL,TS27NN) 
(TSSTARJOO) 
(TCHECK,1,TS27RS+1) 
(TEXIT) 


Shifted  12  bits 


TTABLE  (TCALL,TS27NN) 

rTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1.TS27RS+2) 

TTABLE  (TEXIT) 


Shifted  16  bits 


TTABLE  (TCALL,TS27NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECIC,l.TS27RS+3) 

TTABLE  (TEXIT) 


Shifted  20  bits 


TTABLE  (TCALL,TS27NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1JS27RS+4) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  drta  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


1739 


DFPTA9 
DFPTA9 

6263 

626A 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

627A 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

628A 

6285 

6:''6 

6267 

6288 

6289 

6290 

6291 

6292 

6295 

629A 

6295 

6296 

6297 

6298 

6299 

63C0 

6301 

6302 

6303 

630A 

6305 
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SEC  1752 


007505'  UOOOO  007563' 

007506'  AOOOOO  000100 

007507'  240001  007573' 

007510'  340000  000000 


007511'  140000 

007512'  400000 

007513'  240001 

007514'  340000 


007515'  140000 

007516'  400000 

007517'  240001 

007520'  34C000 


007563' 
000100 
007574' 
000000 


007563' 
000100 
007575' 
000000 


007521'  140000  007563' 

007522'  400000  000100 

007523'  240001  007576' 

007524'  340000  000000 


0075^5' 
00?526' 
007527' 
007530' 
007531 ' 
007532' 


14U000 
400000 
240001 
340000 
30C000 
000000 


007563' 

000100 

007577' 

000000 

007460' 

000000 


;  Shifted  24  bits 


TTABLE  (TCALL^TS27NN) 

TTABLE  (TSSTAR.IOO) 

TTABLE  (TCHECKJ  TS27RS+5) 

TTABLE  (TEXIT) 


;  Shifted  28  bits 


TTABLE  (TCALL.TS27NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS27RS+6) 

TTABLE  (TEXIT) 


;  Shifted  32  bits 


TTABLE  (TCALL,TS27NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS27RS+7) 

TTABLF  (TEXIT) 


;  Shifted  36  bits 


TTABLE  (TCALL,TS27NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ.TS27RS+10) 

TTABLE  (TEXIT) 


;  Shifted  40  bits 


TTABLE  (TCALL.TS27NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS27RS+11) 

TTABLE  (TEXIT) 

TTABLF  (TJRSTJS27L) 

TTABLE  (TLAST) 


;  Initialize  stuff 


007533'  201  00  0  00  000000* 
007534*  202  00  0  00  014030' 
007535'  263  17  0  00  000000 


TS27IN:  HOVEI 
MOVEM 
RTN 


BUFF-1 
T27BUF* 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  prror  yet 


;  increment  shift  count 

;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


;  increment  shift  count 

;  start  up  port 

;  check  if  completed 

;  exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  tilt  done 


initialize  buffer  pointer 

•  •  • 

return 


r 


I 


L 


^7^o 


DFPTA9 
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-85  Page  i 
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6306 

6307 

;  Set  up  next  d 

ata  pattern 

6308 

6309 

007536' 

350  01  C 

00  014030' 

TS27NE: 

AOS 

1J278UF 

6310 

007537' 

307  01  0 

00  000000* 

CAI6 

1,BUFFf5 

6311 

007540' 

350  00  0 

17  000000 

AOS 

(P) 

6312 

007541 ' 

200  00  0 

01  000000 

MOVE 

(1) 

6313 

007542' 

201  02  0 

00  007566' 

MOVE  I 

2.TS27RS 

6314 

007543' 

242  00  0 

00  77777^ 

TS27N0: 

LSH 

6315 

007544' 

303  02  0  00  007567' 

CAILE 

2  ■fS27RS  +  1 

6316 

007545' 

661  00  0 

00  74C000 

TLO 

7^0000 

6317 

007546' 

202  00  0 

02  000000 

MOVEM 

(2) 

6318 

007547' 

350  00  0 

00  000002 

AOS 

2 

6319 

007550' 

307  02  0 

00  007577' 

CAIG 

2.TS27RS+11 

6320 

007551* 

254  00  0 

00  007543' 

JRST 

TS27N0 

6321 

007552' 

402  00  0 

00  014C53' 

SET7M 

TS27NM# 

6322 

6323 

;  Read 

the  next 

word 

6324 

6325 

007553' 

201  01  0 

00  000200 

move: 

1.200 

6326 

007554' 

242  01  0 

00  000001 

LSH 

1.1 

6327 

007555' 

260  17  0 

00  007437* 

GO 

LDRAR 

6328 

007556' 

201  01  0 

00  000010 

MOVE! 

1.MPRUN 

6329 

007557' 

260  17  0 

00  007445* 

GO 

LDCSR 

6330 

007560* 

400  01  0 

00  000000 

SETZ 

1, 

6331 

007561 ' 

260  17  0 

00  007557* 

GO 

LDCSR 

6332 

007562' 

263  17  0 

00  000000 

RTN 

6335 

6334 

;  Increment  shi 

ft  count 

6335 

6336 

007563' 

2o'  00  0 

00  000004 

TS27NN: 

MOVE  J 

4 

6337 

007564' 

272   00  0 

00  014053* 

ADDM 

TS27NM 

6338 

007565' 

263  17  0 

00  000000 

RTN 

6339 

6340 

007566' 

TS27RS: 

BLOCK 

U 

6341 

6342 

;  Error 

message 

s 

6543 

63A4 

007600' 

240000  ( 

307602* 

MA27: 

CALL!TXN0TiM.\27PN 

6545 

007601 • 

000000000000* 

LAST! CALL ITXALLITTPNT 

65A6 

6347 

007602' 

037  00  0 

00  013336* 

MA27PN: 

TMSGC 

<Data  > 

6548 

007603' 

200  01  0  00  0U030' 

MOVE 

1 J278UF 

6549 

007604' 

200  00  0 

01  000000 

HOVE 

(b 

6550 

007605' 

037  13  0 

00  000000 

PNTHW 

6551 

007606* 

037  00  0 

00  013502* 

TMSG 

<  shifted  dow 

6552 

007607* 

200  00  0 

00  014053* 

MOVE 

TS27NM 

6555 

007610' 

037  15  0 

00  000000 

PNTDEC 

6554 

007611' 

057  00  0 

00  013543* 

TMSG 

<•  bits,  resu 

6555 

007612* 

265  17  0  00  000000 

RTN 

SEQ  1755 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

shift  4  bits 

if  past  the  first  2  shifts,  insert 

tne  PLIN  data  into  left  4  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


get  start  address 
>>osition  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


:  get  a  4 

;  add  it 

;  return 

;  correct  EBUF  data 


;  print  data  pattern 
;  print  test  data 

;  get  data  and 
print  it 


from  PLIN  > 

;  get  shift  count 

:  in  EBUF> 


I — 


7741 


DFPTA9 
DFPTA9 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6384 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 
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007613' 
007614' 
007615' 
007616' 
007617' 
007620' 
007621 ' 
007622' 


007623' 
007624' 
007625' 
007626' 
007627' 
007630' 
007631 ' 
007632' 
007633' 
007634' 
007635' 
007636' 
007637' 
007640' 
007641 ' 
007642' 


007643' 
007644 ' 
007645' 
007646' 
007647' 
007650' 
007651 • 
007652' 
007653' 
007654' 
007655' 
007656' 
007657' 
007660' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 
701  COO 
000000 
000000 


007661'  500050 

007662'  000000 

007663'  500100 

007664'  000000 


010000 
000040 
000124 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
0043.0 
310017 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


;  Microcode  -  Shift  4  bits 

T27M:   HUORD   <ADDR=100,JMAPJ=101  ,D=1>  ;  100 

HUORD   <C0NT,D=1.SELF,MGC=124>  ;  101 

HUORD   <CONT.SD0,OR,8=4,D=2,SELM,MGC=200>  ;  102 

HUORD   <JMAP.J=5100,D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

HUORD   <ADDR=200,JMAP.J=201>  ;  200 

HUORD   <CJP.J=203.D=1.CENA,CCCA>  ;  201 

HUORD   <JMAP,J=201,D=1>  ;  202 

HUORD   <CONT,D=1,SE'.F,MGC=200>  ;  203 

HUORD   <CONT,D=1,SELF,MGC=204>  ;  204 

HUORD   <C0NT.D=1.SELC,MGC=4>  ;  205 

HUORD   <CONT,SD0.OR.B=3.D=2,SELM.M6C=200>  ;  206 

HUORD   <JZ>  ;  207 

;      Initialization 

HUORD   <ADDR=1000,JMAP,J=1001,SELM,MGC=20>  ;  1000 

HUORD   <CONT.D=1,SELC,M6C=200>  ;  1001 

HUORD   <LDCT.J=31,SD0,OR.D=2,SKCN,MGC=017>  ;  1002 

HUORD   <RPCT,J=1O03,S0A,OR,D=5>  ;  1003 

HUORD   <C0NT,S0A,0R.D=1,0ENA,SELM,M6C=40>  ;  1004 

HUORD   <JZ,SD0,D=1.SELP.MGC=6>  ;  1005 

HUORD   <ADDR=0,JZ>  ;  0 

;      Initialization  step 

HUORD   <ADDR=5000,JMAP,J=5001.SELC.MGC=100>  ;  5000 

HUORD   <JZ.SELH.MGC=20>  ;  5001 


L 


DFPTA9 
DFPTA9 

6A11 
6A12 
6A13 
6AU 
6A15 
6A16 
6A17 
641 8 
6A19 
6A20 
6A21 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
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007665' 
007666' 
007667' 
007670' 
007671 ' 
007672' 
007673' 
007674' 
007675 ' 
007676' 
007677' 
007700' 
007701 ' 
007702' 
007703' 
007704' 
007705' 
007706' 
007707' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
431040 

mm 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 

mm 
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;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD  <ADDR=5100,CONT,SD0,AND.8=2,D=2>  ;  5100 

MWORD  <C0NT. SOB. PLUS, 8=2, D=2,CRY>  ;  5^01 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2, 8=2, D=2>  ;  5103 

MWORD  <C0NT,S0A,A=2,OR,D=1,OENA,SELE,MGC=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CCGC.D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP.J=5105,D=1>  ;  5106 

MWORD  <CONT,SOA,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1,S0A,A=4,OR,O£NA.SELE,MGC=4>    ;  5110 

-1 


SEQ  1755 


Q  1743 


DFPTA9 
DFPTA9 

6432 

6A33 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 
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SEQ  r56 


OFI 
DFI 


/jf******************************************************************** 
*  Test  30  -  Fmtr  Down  Shift  4  (from  PUN)  Test  -  SELRHTNIB=0 


Description; 


Procedure: 


Verify  that  the  formatter  can  shift  various  data 
patterns  down  4  bits  at  a  time  white  inserting 
bits  from  the  PLIN  into  the  formatter.  The  data 
loaded  into  the  PLIN  initially  is  360. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  360 

UC>  Shift  down  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 


Do  for  data  patterns: 


O's 

rs 

525252,, 525252 
000000,, 007777 
000000,, 007070 
000000., 000707 

Failure:     — 


007710* 
007711' 
007712* 
007713* 
007714* 
007715* 
007716* 
007717* 


254  00 

100604 

010127* 

013263* 

000000 

000000 

000000 

777777 


0  00  007720* 
000030 
013470* 
012716' 
010224' 
010542' 
011060* 
777777 


Test  data 
TSTC30 


]o  start  test 


JRST    TG30  ;  gc 

CBUS !NDMP!NDCB!Z CBUS! 30        ;  test  mask 

T30M,,CASCIZ  *Fmtr  Down  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=0*] 

CEXP  C20,C12,MLAST!C8:,,CEXP  C4,MLAST!C2] 

TSTC31  ;  failure  test  table 

TSTC32 

TSTC33 

-1 


Start  test 


6479 

007720' 

201  00  0  00  000000* 

T630: 

MOVE  I 

Z9 

6480 

007721  * 

260  17  0  00  007405* 

GO 

TRACE 

6481 

007722* 

201  01  0  00  010127' 

MOVE  I 

1,T30M 

6482 

007723' 

260  17  0  00  007407* 

60 

TLOAD 

6483 

007724' 

263  17  0  00  000000 

RTN 

get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it: 

failed  -  exit  test 


^J 


L 


1  1744 


"■"1 


DFPTA9 
DFPTA9 

6A8A 

6485 

6486 

6487 

64P8 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6528 

6529 
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e  108 
MODULE 


TESTS 


007725'  400 
007726'  260 
007727'  402 


15  0  00  000000 
17  0  00  007412* 
00  0  00  007413* 


007730'  205  00  0  00  013330' 
007731 '  541  00  0  00  007430* 
007732'  251  00  0  00  000000* 


007733' 
007734' 
007735' 
007736' 
007737' 
007740' 
007741 • 


007742' 
007743' 
007744' 
007745* 
007746' 
007747' 
007750' 


00/751 ' 
007752' 
007753' 
007754' 
007755' 
007756' 
C07757' 
007760' 
007761 • 


201  01 
242  01 
260  17  0 
201  01  0 
260  17  0 
400  01 
260  17 


0 
0 


200 
260 
551 
2u! 
400 
260 
201 


01 
17 
01 
02 
03 
17 
06 


00  005000 
00  000001 
00  007555* 
00  000010 
00  007561* 
00  000000 
00  007737* 


00  013210' 
00  007427* 
00  007731* 
00  000006 
00  000000 
00  007433* 
00  007773' 


201  01 
242  01 
260  17 
201  01 
260  17 
201  00 
260  17 
400  01 
260  17 


00 
00 
00 
00 
00 
00 
00 
00 
00 


001000 

000001 

007735* 

000010 

007741* 

000001 

007443* 

000000 

007755* 


;  Initialization 

TL30:   SETZ    ERFL6, 

60     IPACLR 

SETZM   TSTSUB 

MOVSI  COOOOOO,, 000000 
777777 . ,777777 
525252,, 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707: 

HRRI    BUFF 

BLT     BUFF+5 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 


1,5000 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1, 

LDCSR 


Now  generate  CCU  list 

MOVE  1,CCBUFSZ,,CBUF] 

GO  CHINIT 

HRRZI  1,8UFF 

MOVE I  2,6 

SETZ  3, 

GO  GENCCU 

MOVEI  6,TS30 

Stai't  up  the  data  transfer 


MOVEI 

LSH 

GO 

MOVEI 

GO 

MOVEI 

GO 

SETZ 

60 


1,1000 

1,1 

LDRAR 

1 ,MPRUN 

LDISR 

1 

ODELAY 

1, 

LDCSR 


SEQ  1757 


DFI 
DFf 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


First  ensure  the  data  transfer  is  reset 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

cteir  zero  fill  specifier 

generate  a  CCU  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  01  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


) 


1745 


0FPTA9 
DFPTA9 

6530 

6531 

6S32 

6533 

653A 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6568 

6569 

6570 

6571 

6572 

6573 

6574 

6575 

6576 

6577 

6578 

6579 

6580 

6581 
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SEQ  1758 


DFI 
DFI 


Loop  on  test  execute  table  entries 


007762'  260  17  0  00  007446* 

007763'  254  00  0  00  007772' 

007764'  254  00  0  00  007762' 

007765'  474  15  0  00  000000 


007766'  027  00  0  00  010114' 

007767'  254  00  0  00  007725' 

007770'  254  00  0  00  007772' 

007771'  322  15  0  00  007762' 


007772'  263  17  0  00  000000 


TA30: 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX30 
TA30 
ERFL6, 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  EBUr  data  incorrect 


:  Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 


MA30 
TL30 
TX30 
ERFLG.TA30 


;  print  error  message 

;  loop  on  error 

;  altfflode  exit 

;  do  next  sstep  table  entry 


007773'  140000 
007774'  200000 


007775'  140000 

007776'  400000 

007777'  240001 

010J00'  340000 


OlOOOr  140000 

010002'  400000 

010003'  240001 

010004'  340000 


010005'  140000 

010006'  400000 

010007'  240001 

010010'  340000 


010011'  140000 

010012'  400000 

010013'  240001 

010014*  340000 


0100<"" 
01005^' 


010077' 
000100 
010102' 
000000 


010077' 
000100 
010103' 
000000 


010077' 
000100 
010104' 
000000 


010077' 
000100 
010105' 
000000 


;  End  of  test 

TX30:   RTN 

;  Test  Execute  Table,  as 


return 


(CMD, parameters) 


TS30:   TTA8LE   (TCALL,TS30IN) 
TS30L:   TTABLE   (TCALLC,TS30NE) 

;  Shifted  4  bits 

T$30A:  TTABLE  (TCALL,TS30NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,nTS30RG) 

TTABLE  (TEXIT) 

;  Shifted  8  bits 

TTABLE  (TCALL,TS30NN) 

TTABLE  (TSSTAR.100) 

TTABLE  (TCHECK,1,TS30RS+1) 

TTABLE  (TEXIT) 

;  Shifted  12  bits 

TTABLE  (TCALL,TS30NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHEC»C,1,TS30RS+2) 

TTABLE  (TEXJT) 

;  Shifted  16  bits 

TTABLE  (TCALL,TS30NN) 

TTABLE  (TSSTAR.100) 

TTABLE  (TCHECKJ.TS30RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


I — 


! — 


1746 


DFPTA9 
DFPTA9 

6582 

6583 

6584 

6585 

6586 

6587 

6588 

6589 

6590 

6591 

6592 

6593 

659A 

6595 

6596 

6597 

6598 

6599 

6600 

6601 

6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 

6611 

6612 

6613 

6614 

6615 

6616 

6617 

6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 
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010015'  140000  010077' 

010016'  400000  000100 

010017'  240001  010106' 

010020'  340000  000000 
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;  Shifted  20  bits 


SEQ  1759 


iDFI 
DFf 


010021'  140000 

010022'  400000 

010023'  240001 

010024'  340000 


010025'  140000 

010026'  400000 

010027'  240001 

010030'  340000 


010031'  140000 

010032'  400000 

010033'  240001 

010034'  340000 


010035'  140000 

010036'  400000 

010037'  240001 

010040*  340000 


010041' 
010042' 
010043' 
010044' 
010045' 
010046' 


140000 
400000 
240001 
340000 
300000 
000000 


010077' 
000100 
010107' 
000000 


010077' 
000100 
010110' 
000000 


010077' 
000100 
010111* 
000000 


010077* 
000100 
010112* 
000000 


010077' 

000100 

010113' 

000000 

007774' 

000000 


TTABLE  (TCALLJS30NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS30RS+4) 

TTABLE  (TEXIT) 


;  Shifted  24  bits 


TTABLE  (TCALL.TS30NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS30RS+5) 

TTABLE  (TEXIT) 


;  Shifted  28  bits 


TTABLE  (TCALL,TS30NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS30RS+6) 

TTABLE  (TEXIT) 


;  Shifted  32  bits 


TTABLE  (TCALLJS30NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS30RS+7) 

TTABLE  (TEXIT) 


;  Shifted  36  bits 


TTABLE  (TCALLJS30NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS30RS+10) 

TTABLE  (TEXIT) 


;  Shifted  40  bits 


TTABLE  (TCALLJS30NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS30RS+11) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS30L) 

TTABLE  (TLAST) 


;  Initialize  stuff 


010047*  201  00  0  00  000000* 
010050*  202  00  0  00  014031' 
010051'  263  17  0  00  000000 


TS30IN:  MOVFI 
MOVEW 
RTN 


BUFF-I 
T30BUF# 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 
return 


17A7 


DFPTA9 
DFPTA9 

6632 

6633 

663A 

6635 

6636 

6637 

6638 

6639 

66A0 

66A1 

66A2 

66A3 

66AA 

66A5 

66A6 

66A7 

66A8 

66A9 

6650 

6651 

6652 

6653 

665A 

6655 

6656 

6657 

6658 

6659 

6660 

6661 

6662 

6663 

666A 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 

6681 
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SEQ  1760 


010052' 
010053' 
01005A' 
010055' 
010056' 
010057' 
010060' 
010061' 
010062' 
010063' 
010064' 
010065' 
010066' 


010067' 
010070' 
010071' 
010072' 
010073' 
010074' 
010075' 
010076' 


350  01 
307  01 
350  00 

200  00 

201  02 
242  00 
303  02 
661 


202  00 
350  00 
307  02 
254  00 
402  00 


0 
0 
0 
0 
0 
0 
0 
00  0  00 
0  02 
0 
0 
0 
0 


00 
00 
17 
01 
00 
00 
00 


00 
00 
00 
00 


014031' 

000000* 

000000 

000000 

010102' 

777771, 

010103' 

000000 

000000 

000002 

010113' 

010057' 

014054' 


201  01 
242  01 
260  17 
201  01 
260  17 
400  01 
260  17 
263  17 


00 
00 
00 
00 
00 
00 
00 
00 


000200 

000001 

007753* 

000010 

007761* 

000000 

010073* 

000000 


010077'  2u!  00  0  00  000004 

010100'  272   00  0  00  014054' 

010101'  263  17  0  00  000000 

010102' 


010114'  240000  010116' 
010115'  000000000000* 


010116' 
010117' 
010120' 
010121' 
010122' 
010123' 
010124' 
010125' 
010126' 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 


00 
00 
01 
00 
00 
00 
00 


037  00  0  00 
263  17  0  00 


013336' 

014031' 

000000 

000000 

013502' 

014054' 

mv 

000000 


Set  up  next  data  pattern 


TS30NE:  AOS 
CAI6 
AOS 
MOVE 
MOVE  I 

TS30N0:  LSH 
CAILE 
TLO 
MOVEM 
AOS 
CAIG 
JRST 
SETZM 


1,T30BUF 

l,BUFF+5 

(P) 

(1) 

2,TS30RS 

i.TS30RS+l 

0 

(2) 

2 

2.TS30RS+11 

TS30N0 

TS30NM# 


Read  the  next  word 


MOVE  I 

LSH 

GO 

MOVE  I 

60 

SETZ 

GO 

RTN 


1,200 

IJ 

LDRAR 

1 .MPRUN 

LDCSR 

1, 

LDCSR 


Increment  shift  count 


TS30NN:  MOVE I 
ADDM 
RTN 


4 

TS30NM 


TS30RS:  BLOCK   12 
;  Error  messages 


MA30: 
MA30PN: 


CALL!TXNOT!MA30PN 
LAST! CALL ITXALLITTPNT 


TMSGC 

MOVE 

MOVE 

PNTHU 

TMS6 

MOVE 

PNTDEC 

TMSG 

RTN 


<Data  > 

1 J308UF 
(1) 

<  shifted  down 
TS30NM 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

shift  4  bits 

if  past  the  first  2  shifts,  insert 

the  PLIN  data  into  left  4  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


;  get  a  4 

:  add  it 

;  return 

;  correct  EBUF  data 


;  print  data  pattern 
;  print  test  data 

:  get  data  and 
print  it 


from  PLIN  > 

;  get  shift  count 


<.  bits,  result  in  EBUF> 


1748 


0FPTA9 
DFPTA9 

6682 

6683 

6684 

6685 

6686 

6687 

6688 

6689 

6690 

6691 

6692 

6693 

6694 

6695 

6696 

6697 

6698 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 
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SEQ  1761 


010127* 
010130' 
010131' 
010132' 
010133' 
010134' 
010135' 
010136' 


010137' 
010140' 
010141' 
010142' 
010143' 
010144' 
010145' 
010146' 
010147' 
010150' 
010151' 
010152' 
010153' 
010154' 
010155' 
010156' 


010157' 
010160' 
010161' 
010162' 
010163* 
010164' 
010165' 
010166' 
010167' 
010170' 
010171' 
010172' 
010173' 
010174' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 
435000 
100400 
431000 
100500 
701000 
000000 
000000 


010175*  500050 

010176*  000000 

010177*  500100 

010200*  000000 


010000 
000040 
000124 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
3(0360 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


;  Microcode  -  Shift  4  bits 

T30M:   MUORD  <ADDR=100,JMAP,J=101,D=1>  ;  100 

MUORD  <C0NT,D=1,SELF,MGC=124>  ;  101 

MWORD  <CONT,SDO,OR,B=4,D=2,SELM.MGC=200>  ;  102 

MWORD  <JMAP,J=5100.D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200,JMAP,J=201>  ;  200 

MUORD  <CJP,J=203,D=1,CENA,CCCA>  ;  201 

MWORD  <JMAP,J=201,D=1>  ;  202 

MWORD  <CONT.D=?1,SELF,M6C=200>  ;  203 

MWORD  <CONT,D=1,SELF,MGC=204>  ;  204 

MWORD  <C0NT,D=1,SELC,MGC=4>  ;  205 

MWORD  <CONT,SD0,OR,B-3,D=2.SELM,MGC=200>  ;  206 

MWORD  <JZ>  ;  207 

;      Initialization 

MWORD  <ADDR=1000,JMAP,J=1001.SELM,M6C=20>  ;  1000 

MWORD  <CONT,D=1,SELC,MGC=200>  ;  1001 

MWORD  <LDCT,J=31,SD0,0R,D=2,SKCN,MGC=360>  ;  1002 

MWORD  <RPCTJ=1003.S0A,OR,D=5>  ;  1003 

MWORD  <CONT,S0A,OR,D=1,OENA.SELM.M6C=40>  ;  1004 

MWORD  <JZ.SD0,D=1,SELP,MGC=6>  ;  1005 

MWORD  <ADDR=0,JZ>  ;  0 

;      Initialization  step 

MWORD  <ADDR=50OO,JMAP,J=5001,SELC,MGC=100>  ;  5000 

MWORD  <J2,SELM.MGC=20>  ;  5001 


n 


1749 


DFPTA9 
DFPTA9 

6737 
6738 
6739 
6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
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010201' 
010202' 
010203' 
010204' 
010205' 
010206' 
010207' 
010210' 
010211' 
010212' 
010213' 
010214' 
010215' 
010216' 
010217' 
010220' 
010221' 
010222' 
010223' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
431040 
111111 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 
mill 
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SEQ  1762 


Subroutine  -  Passed  -  Write  1  to  bit  12  of  GSR  register 

MWORD  <ADDR=510O,CONT,SD0,AND,B=2,D=2>  ;  5100 

MWORD  <CONT, SOB, PLUS, 8=2, D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MWORD  <CONT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT,S0A,A=l,0R,D=l,SELE,M6C=200>  ;  5107 

MWORD  <JMAP.J=5110.SOA,A=4,OR,D=1,OENA,SELE,M6C=4>    ;  5110 
-1 
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SEQ  1763 


6758 

6759 

6760 

6761 

6762 

6763 

676A 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

677A 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

678A 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 

6800 

6801 

6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 

6811 


010224' 
010225' 
010226' 
010227' 
010230* 
010231' 
010232' 
010233* 
010234' 
010235' 


254  00  ( 

100604 

010445' 

013263' 

000000 

000000 

000000 

000000 

000000 

mm 


'  00  010236' 

000031 

013507' 

012716* 

010542* 

011060* 

011344* 

011627* 

012111* 

mm 


010236'  201  00  0 

010237'  260  17  0 

010240*  201  01  0 

010241*  260  17  0 


00  000000' 

00  007721* 

00  010445* 

.  ,_    _..    .00  007723* 

010242*  263  17  0  00  000000 


*  Test  31  -  Fmtr  Down  Shift  4  (from  PUN)  Test  -  SELRHTNIB=1 


Description: 


Procedure: 


Verify  that  the  formatter  can  shift  various  data 

Patterns  down  4  bits  at  a  time  while  inserting 
its  from  the  PUN  into  the  formatter.  The  data 
loaded  into  the  PLIN  initially  is  017. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  017 

UC>  Shift  down  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 

Do  for  data  patterns:   0*s 

1*s 

525252,, 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707 

Failure:     — 
/If***  ***************************************************************** 

Test  data 

TSTC31:  JRST    TG31  ;  go  start  test 

CBUS !NDMP!NDCB!Z CBUS! 31        :  test  mask 

T31M,,[ASCIZ  *Fmtr  Down  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=1*] 
CEXP  C20,C12,MLAST!C8],,CEXP  C4,MLAST!C2] 
TSTC32  ;  failure  test  table 

TSTC33  ;   ... 

TSTC34 
TSTC35 
TSTC36 
-1 


Start  test 


T631 


HOVE  I 
GO 

MOVE  I 
60 
RTN 


Z9 

TRACE 
1,T31M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


r 
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i  DFPTA9 
|0FPTA9 

6812 

6813 

68U 

6815 

6816 

6817 

6818 

6819 

6820 

6821 

6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

683A 

6835 

6836 

6837 

6838 

6839 

6840 

6841 

6842 

6843 

6844 

6845 

6846 

6847 

6848 

6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 
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SEQ  1764 


010243'  400  15  0  00  000000 
010244'  260  17  0  00  007726* 
010245*  402  00  0  00  007727* 


010246'  205  00  0  00  013330' 
010247'  541  00  0  00  007744* 
010250'  251  00  0  00  000000* 


010251' 
010252' 
010253' 
010254' 
010255' 
010256' 
010257' 


010260' 
010261' 
010262' 
010263' 
010264' 
010265' 
010266' 


010267' 
010270' 
010271' 
010272' 
010273' 
010274' 
010275' 
010276' 
010277' 


201  01 
242  01 


00 
00 
00 
00 

260  17  0  00 

400  01  0 

260  17  0 


260  17  0 
201  01  0 


00 
00 


200 
260 
551 
2o' 
400 
260 
201 


201 
242 
260 
201 
260 
201 
260 
400 
260 


01 
17 
01 
02 
03 
17 
06 


01 
01 
17 
01 
17 
00 
17 
01 
17 


00 
00 
00 
00 
00 
00 
00 


005000 

000001 

010071* 

000010 

010075* 

000000 

010255* 


013210' 

007743* 

010247* 

000006 

000000 

007747* 

010311' 


00  001000 
00  000001 
00  010253* 
00  000010 
00  010257* 
00  000001 
00  007757* 
00  000000 
00  010273* 


Initialization 


TL31 


First 


Start 


SETZ 

ERFLG, 

60 

IPACLR 

SET2M 

TSTSUB 

novsi 

COOOOOO., 000000 

777777 , ,777777 

525252,, 525252 

000000,. 007777 

000000., 007070 

000000,, 0007073 

HRRI 

BUFF 

BLT 

BUFF+5 

ensure 

the  data  transfer 

MOVE  I 

1,5000 

LSH 

1,1 

GO 

LDRAR 

MOVE  I 

1 ,MPRUN 

GO 

LDCSR 

SETZ 

1, 

GO 

LDCSR 

•nerate 

ccy  list 

MOVE 

i,[cbufsz,,cbuf: 

GO 

CHINIT 

HRRZI 

1 ,buff 

MOVE  I 

2,6 

SETZ 

3, 

GO 

GENCCU 

MOVE  I 

6,TS31 

up  the 

data  transfer 

MOVE  I 

1,1000 

LSH 

1,1 

GO 

LDRAR 

MOVE  I 

1 ,MPRUN 

GO 

LDCSR 

MOVE  I 

1 

GO 

ODELAY 

SETZ 

1. 

GO 

LDCSR 

clear  error  flag 
clear  port 

initialize  subtest  number 
get  addre:,s  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


is  reset 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
g«»t  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 
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SEQ  1765 


6858 

6859 

6860 

6861 

6862 

6863 

686A 

6865 

6866 

6867 

6868 

6869 

6870 

6871 

6872 

6873 

687A 

6875 

6876 

6877 

6878 

6879 

6880 

6881 

6882 

6883 

6884 

6885 

6886 

6887 

6888 

6889 

6890 

6891 

6892 

6893 

6894 

6895 

6896 

6897 

6398 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 


Loop  on  test  execute  table  entries 


010300'  260  17  0 

010301'  254  00  0 

010302'  254  00  0 

010303'  474  15  0 


00  007762* 
00  010310' 
00  010300' 
00  000000 


TA31 


010304'  027  00  0  00  010432' 

010305'  254  00  0  00  010243' 

010306'  254  00  0  00  010310' 

010307'  322  15  0  00  010300' 


010310'  263  17  0  00  000000 


GO 
JRST 
JRST 
SETO 

TEXEC 
TX31 
TA31 
ERFLG, 

error 

printouts  a 

SCOPER 
JRST 
JRST 
JUMPE 

MA31 
TL31 
TX31 
ERFL6.TA31 

execute  table  entry 

end  of  table 

keep  loop'ing  after  call 

error  -  EB'JP  data  incorrect 


print  error  message 

loop  on  error 

altfflode  exit 

do  next  sstep  table  entry 


010311' 
010312' 


140000 
200000 


010313'  140000 

010314'  400000 

010315'  240001 

010316'  340000 


010317'  140000 

010320'  400000 

010321'  240001 

010322'  340000 


010323'  140000 

010324'  400000 

010325'  240001 

010326'  340000 


010327'  140000 

010330'  400000 

010331'  240001 

010332"  340000 


010365' 
010370' 


010415' 
000100 
010420' 
000000 


010415' 
000100 
010421' 
000000 


010415' 
000100 
010422' 
000000 


010415' 
000100 
010423' 
000000 


;  End  of  test 

rX31 :   RTN 

;  Test  Execute  Table,  as: 


retjrn 


(CMD, parameters) 


TS31:   TTA8LE   {TCALL,TS3(ir^> 
TS31L:   TTABLE   (TCALLC.TS3^^[:-) 

;  Shifted  4  bits 

TS31A:   TTABLE  (TCALL,TS31NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1,TS31RS) 

TTABLE  (TEXIT) 

;  Shifted  8  bits 

TTABLE  (TCALL,TS31NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1,TS31RS+1) 

TTABLE  (TEXIT) 


Shifted  12  bits 


TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TCALL,TS31NN) 
(TSSTARJOO) 
(TCHECKJJS31RS+2) 
(TEXIT) 


Shifted  16  bits 


TTABLE  (TCALL,TS31NN) 

TTABLE  (TSSTAR,100) 

TTABLE  (TCHECK,1,TS31RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


I 


r 
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DFPTA9 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 
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010333'  140000 

010334*  400000 

010335'  240001 

010336'  340000 


010337'  140000 

010340'  400000 

010341'  240001 

010342'  340000 


010343'  140000 

010344'  400000 

010345'  240001 

010346'  34C000 


010347'  140000 

01035C'  400000 

010351'  240001 

010352'  340000 


010353'  140000 

010354'  400000 

010355*  240001 

010356'  340000 


010357' 
010360' 
010361' 
010362* 
010363' 
010364' 


140000 
400000 
240001 
340000 
300000 
000000 


010415' 
000100 
010424' 
000000 


010415' 
000100 
010425' 
000000 


010415' 
000100 
010426' 
000000 


010415* 
000100 
010427* 
000000 


010415* 
000100 
010430' 
000000 


010415* 

000100 

010431' 

000000 

010312* 

000000 


;  Shifted  20  bits 


TTABLE  (TCALL,TS31NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1.TS31RS+4) 

TTABLE  (TEXIT) 


;  Shifted  24  bits 


TTABLE  (TCALL,TS31NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS31RS+5) 

TTABLE  (TEXIT) 


;  Shifted  28  bits 


TTABLE  (TCALL,TS31NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKj,TS31RS+6) 

TTABLE  (TEXIT) 


;  Shifted  32  bits 


TTABLE  (TCALL,TS31NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (T'HECKJ  JS31RS+7) 

TTABLE  (TEXIT) 


;  Shifted  36  bits 


TTABLE  (TCALLJS31NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS31RS+10) 

TTABLE  (TEXIT) 


010365*  201  00  0  00  000000* 
010366'  202  00  0  00  014032' 
010367*  263  17  0  00  000000 


;  Shifted  40  bits 

TTABLE  (TCALLJS31NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS31RS+11) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS31L) 

TTABLE  (TLAST) 

;  Initialize  stuff 

TS31IN:  MOVEI   BUFF-1 
MOVEM   T31BUF* 
RTN 


SEQ  1766 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pDinter 

•  •  • 

return 


r" 


754 
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6960 

6961 
6962 
6963 

;  Set  up  next  data  pattern 

010370' 

350 

01  0  00  014032' 

TS31NE: 

AOS 

1.T31BUF 

6964 

010371' 

307  01  0  00  000000* 

CAIG 

1,8UFF+5 

6965 

010372' 

350  00  0  17  000000 

AOS 

(P) 

6966 

010373' 

200 

00  0  01  000000 

MOVE 

(1) 

6967 

010374' 

201 

02  0  00  010420' 

MOVE  I 

2.TS31RS 

6968 

010375' 

242 

00  0  00  milk 

TS31N0: 

LSH 

6969 

010376' 

303 

02  0  00  010421' 

CAILE 

2,TS31RS+1 

6970 

010377' 

661 

00  0  00  000000 

TLO 

0 

6971 

010400' 

202 

00  0  02  000000 

MOVEM 

(2) 

6972 

010401' 

350 

00  0  00  000002 

AOS 

2   ,^ 

6973 

010402' 

307  02  0  00  010431' 

CAIG 

2.TS31RS+11 

6974 

010403' 

254 

00  0  00  010375' 

JRST 

TS31N0 

6975 

010404' 

402 

00  0  00  014055' 

SETZM 

TS31NM# 

6976 

6977 

:  Read 

the  next 

word 

6978 

6979 

010405' 

201 

01  0  00  000200 

MOVE  I 

1,200 

6980 

010406' 

242 

01  0  00  000001 

LSH 

1,1 

6981 

010407' 

260 

17  0  00  010271* 

GO 

LDRAR 

6982 

010410' 

201 

01  0  00  000010 

MOVE  I 

1 ,MPRUN 

6983 

010411' 

260 

17  0  00  010277* 

GO 

LDCSR 

6984 

010412' 

400 

01  0  00  000000 

SkTZ 

1. 

6985 

01041!' 

260 

17  0  00  010411* 

GO 

LDCSR 

6986 

010414' 

263 

17  0  00  000000 

RTN 

6987 

6988 
6989 
6990 

;  Increment  shi 

ft  count 

010415' 

2u' 

00  0  00  000004 

TS31NN: 

MOVE  I 

4 

6991 

010416' 

in 

00  0  00  014055' 

ADDM 

TS31NM 

6992 
6993 
6994 

010417' 

263 

17  0  00  000000 

RTN 

010420' 

TS31RS: 

BLOCK 

12 

6995 

6996 

;  Error 

message 

s 

6997 

6998 

010432' 

240000  010434' 

MA31 : 

CALL1TXN0T!MA31PN 

6999 

010433' 

000000000000* 

LAST! CALL ITXALLITTPNT 

7000 

7001 

010434' 

037  00  0  00  013336' 

MA31PN: 

TMSGC 

<Data  > 

7002 

010435' 

200  01  0  00  014032' 

MOVE 

1,T318UF 

7003 

010436' 

200 

00  0  01  000000 

MOVE 

(1) 

7004 

010437' 

037 

13  0  00  000000 

PNTHW 

7005 

010440' 

037  00  0  00  013502' 

TMSG 

<  shifted  down 

from  PLIN 

7006 

010441' 

200  00  0  00  014055' 

MOVE 

TS31NM 

7007 

010442' 

037 

15  0  00  000000 

PNTDEC 

7008 

010443' 

037  00  0  00  013343' 

TMSG 

<•  bits,  result 

in  EBUF> 

7009 

010444' 

263 

17  0  00  000000 

RTN 

SEQ  1767 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

shift  4  bits 

if  past  the  first  2  shifts,  insert 

the  PLIN  data  into  left  4  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  4 
add  it 
return 

correct  EBUF  data 


print  data  pattern  . 
print  test  data 

get  data  and 
print  it 


get  shift  count 


DFPTA9 
DFPTA9 

7010 

7011 

7012 

7013 

70U 

7015 

7016 

7017 

7018 

7019 

7020 

7021 

7022 

7023 

702A 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

703A 

7035 

7036 

7037 

7038 

7039 

7040 

70A1 

70A2 

704  3 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

7064 
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SEQ  1768 


010445' 
010446' 
010447' 
010450' 
010451' 
010452' 
010453' 
010454' 


010455' 
010456' 
010457' 
010460' 
010461' 
010462' 
010463' 
010464' 
010465' 
010466' 
010467' 
010470' 
010471' 
010472' 
010473' 
010474' 


010475' 
010476' 
010477' 
010500* 
010501' 
010502' 
010503' 
010504' 
010505' 
010506' 
010507' 
010510' 
010511' 
010512' 


010001 
001000 
010100 

001  ceo 

010200 
732002 
010351 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 
455000 
100400 
431000 
100500 
701000 
000000 
000000 


010513'  500050 

010514'  000000 

010515'  500100 

010516'  000000 


010000 
000040 
000126 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310017 
240300 
030000 
00022. 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


;  Microcode  -  Shift  4  bits 

T31M:   MWORD  <ADDR=100.JMAP,J=101 ,D=1>  ;  100 

MUORD  <C0NT,D=1.SELF,MGC=126>  ;  101 

MUORD  <CONT,SD0,OR,B=4,D=2,SELM,MGC=200>  ;  102 

MUORD  <JMAP.J=5100,D=1>  ;  103 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MUORD  <ADDR=200.JMAP,J=201>  ;  200 

MUORD  <CJP,J=203,D=1,CENA,CCCA>  ;  201 

MUORD  <JMAP,J=201,D=1>  ;  202 

MUORD  <CONT,D=1,SELF,MGC=200>  ;  203 

MUORD  <CONT,D=1,SELF,MGC=204>  ;  204 

MUORD  <C0NT,D=1,SELC,MGC=4>  ;  205 

MUORD  <CONT,SDO,OR,B=3,D=2,SELM,MGC=200>  ;  206 

MUORD  <J2>  ;  207 

;      Initialization 

MUORD  <ADDR=1000,JMAP.J=1001,SELM,M6C=20>  ;  1000 

MUORD  <CONT,D=1,SELC,M6C=200>  ;  1001 

MUORD  <LDCT,J=31,SD0,OR,D=2.SKCN,MGC=017>  ;  1002 

MUORD  <RPCT,JM003.S0A.0R,D=5>  ;  1003 

MUORD  <CONT,SOA,OR.D=1.0ENA.SELM,M6C=40>  ;  1004 

MUORD  <JZ,SD0,D=1  ,  '.P,MGC=6>  ;  1005 

MUORD  <ADDR=O.JZ>  ;  0 

;      Initialization  step 

MUORD  <ADDR=5000,JMAP,J=5001,SELC,MGC=100>  ;  5000 

MUORD  <JZ.SELM,MGC=20>  .  5001 


3  r56 


DFPTA9 
DFPTA9 

7065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 
7073 
707A 
7075 
7076 
7077 
7078 
7079 
7080 
7081 
7082 
7083 
708A 
7085 
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SEQ  1769 


Dl 

Dl 


010517' 
010520' 
010521' 
010522' 
010523' 
01052A' 
010525' 
010526' 
010527' 
010530' 
010531' 
010532' 
010533' 
01053A' 
010535' 
010536' 
010537' 
010540' 
010541' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
431040 

mm 


OOOQOO 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 

mm 


Subroutine  -  Passed  -  Write  1  to  bit  12  of  GSR  register 

MWORD  <ADDR=5100,CONT,SDO,AND,8=2,D=2>  ;  5100 

MWORD  <CONT, SOB, PLUS. B=2,D=2.CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=5103. SAB, PLUS. A=2.B=2,D=2>  ;  5103 

MWORD  <CONT,S0A,A=2,0R,D=1,OENA,SELE,MGC=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CC6C.D=1,SELE,MGC-40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT.S0A,A=1.0R,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,SOA,A=4.0R,D=1,OENA,SELE,MGC=4>    ;  5110 
-1 


n 


L 
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SEQ  1770 


or 

DF 


7086 

7087 

7088 

7089 

7090 

7091 

7092 

7093 

709A 

7095 

7096 

7097 

7098 

7099 

7100 

7101 

7102 

7103 

7104 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 

7123 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 

7139 


/If************  *****************************************  **•**•*♦******* 
*  Test  32  -  Fmtr  Down  Shift  4  (from  PLIN)   Test  -  SELRHTNIB=1 


Description: 


Procedure: 


010542' 
010543' 
010544' 
010545' 
010546' 
010547' 
010550' 
010551' 
010552' 
010553' 


010554' 
010555' 
010556' 
010557' 
010560' 


254  00  ( 

100604 

010763' 

013263' 

COOOOO 

000000 

000000 

OOCOOO 

000000 

77'777 


I  00  010554' 

000032 

013507' 

012716' 

^'11060' 

011344' 

011627' 

012111' 

012372' 

777777 


Verify  that  the  formatter  can  shift  various  data 
patterns  down  4  bits  at  a  time  while  inserting 
bits  from  the  PLIN  into  the  formatter.  The  data 
loaded  into  the  PLIN  initially  is  360. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  360 

UC>  Shift  down  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 

Do  for  data  patterns:   O's 

1's 

525252,, 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707 

Failure:     — 

^*******i'.  ************************************************************* 

Test  data 

TSTC32:  JRST    T632  ;  co  !:tart  test 

CBUS!NDMP!NDCB!ZCBUS!32       ;  test  mask 

T32M,,CASCIZ  *Fmtr  Down  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=1*] 
CEXP  C20,C12,MLAST!C8D,,CEXP  C4,MLAST!C2] 
TS7C33  ;  failure  test  table 

TSTC34  ;   ,.. 

TSTC35 
TSTC36 
TSTC37 
-1 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
010237* 
010763' 
010241* 
000000 


TG32: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


29 

TRACE 
1,T32M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


L 
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SEQ  1771 


DP 
DF 


7U0 

7K1 

;  Initialization 

71A2 

71A3 

010561' 

400 

15  0  00  000000 

TL32: 

SETZ 

ERFLG, 

7UA 

010562' 

260 

17  0  00  010244* 

60 

IPACLR 

7K5 

010563' 

402  00  0  00  010245* 

SETZM 

TSTSUB 

7U6 

MOVSI 

COOOOOO,, 000000 

7147 

777777 , ,777777 

7U8 

525252,, 525252 

7K9 

000000,, 007777 

7150 

000000,, 007070 

7151 

010564' 

205 

00  0  00  013330' 

000000,, 000707 J 

7152 

010565' 

541 

00  0  00  010262* 

HRRI 

BUFF 

7153 

010566' 

251 

00  0  00  000000* 

BLT 

BUFF +5 

7154 

7155 

;  First 

ensure 

the  data  transfer  is  reset 

7156 

7157 

Ojo7' 

201 

01  0  00  005000 

MOVE  I 

1,5000 

7158 

010570' 

242 

01  0  00  000001 

LSH 

1,1 

7159 

010571' 

260 

17  0  00  010407* 

GO 

LDRAR 

7160 

010572' 

201 

01  0  00  000010 

MOVE  I 

1 ,MPRUN 

7161 

010573' 

260 

:7  0  00  010413* 

GO 

LDCSR 

7162 

010574' 

400 

01  0  00  000000 

SETZ 

1, 

7163 

010575' 

260 

17  0  00  010573* 

GO 

LDCSR 

7164 

7165 

;  Now  generate 

ecu  List 

7166 

7167 

010576' 

200 

01  0  00  013210' 

MOVE 

1,CCBUFSZ,,CBUF] 

7168 

010577' 

260 

17  0  00  010261* 

GO 

CHINIT 

7169 

010600' 

551 

01  0  00  010565* 

HRRZI 

1,8UFF 

7170 

010601' 

cV 

02  0  00  000006 

MOVE] 

2,6 

7171 

010602' 

400 

03  0  00  000000 

SETZ 

3, 

7172 

010603' 

260 

17  0  00  010265* 

GO 

GENCCW 

7173 

010604' 

201 

06  0  00  010627' 

MOVE  I 

6.TS32 

7174 

7175 

;  Start 

up  the 

data  transfer 

7176 

7177 

010605' 

201 

01  0  00  001000 

MOVE  I 

1,1000 

7178 

010606' 

2^2 

01  0  00  000001 

LSH 

1,1 

7179 

010607' 

260 

17  0  00  010571* 

GO 

LDRAR 

7180 

010610' 

201 

01  0  00  000010 

MOVE  I 

1 ,MPRUN 

7181 

010611' 

260 

17  0  00  010575* 

GO 

LDCSR 

7182 

010612' 

201 

00  0  00  000001 

MOVE  I 

1 

7183 

010613' 

260 

17  0  00  010275* 

GO 

ODELAY 

7184 

010614' 

400 

01  0  00  000000 

SETZ 

1, 

7185 

010615' 

260 

17  0  00  010611* 

60 

LDCSR 

7186 

7187 

;  Loop 

on  test 

execute  table  entries 

7188 

7189 

010616' 

260 

17  0  00  010300* 

TA32; 

GO 

TEXEC 

7190 

010617' 

254  00  0  00  010626' 

JRST 

TX32 

7191 

VM' 

254 

??  8  88  8W 

JRST 

TA32 

7192 

474 

SETO 

ERFL6, 

clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
load  the  regist?- 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  tBUF  data  incorrect 


1759 


|DFPTA9 
'DFPTA9 

7193 

71 9A 

7195 

7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

720A 

7205 

7206 

7207 

7208 

7209 

7210 

7211 

7212 

7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

mi 

7223 
12lk 
722S 
722t 
7227 
722S 
7229 
7230 
7231 
7212 
7211 
7234 
7235 
7236 
72V 
7238 
7239 
7240 
721^^ 
72t*2 
7243 
72ki, 
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SEQ  1772 


DFI 
DFI 


Handle  error  printouts  and  scope  looping 


010622' 
010623' 
010624' 
010625' 


027 
254 
254 
322 


00 
00 
00 
15 


00 
00 
00 
00 


010750' 
010561* 
010626' 
010616' 


SCOPER 
JRST 
JRST 
JUMPE 


TL32 
TX32 
ERFL6,TA32 


print  error  message 

loop  on  error 

altfflode  exit 

do  next  sstep  table  entry 


010626'  263  17  0  00  000000 


010627'  140000 
010630'  200000 


010631'  140000 

010632'  40C000 

010633'  240001 

010634'  340000 


010635'  140000 

010636'  400000 

010637'  240001 

010640'  340000 


010641'  140000 

010642'  400000 

010643'  240001 

010644'  340000 


010645'  140000 

010646'  400000 

010647'  240001 

010650'  340000 


010651'  140000 

010652'  400000 

010653'  240001 

010654*  340000 


010703' 
010706' 


010733' 
000100 
010736' 
000000 


010733' 
000100 
010737' 
000000 


010733' 
000100 
010740' 
000000 


010733' 
000100 
010741' 
000000 


010733' 
000100 
010742* 
000000 


;  End  of  test 

TX32:   RTN 

;  Test  Execute  Table,  as 


return 


(CMD, parameters) 


TS32:   TTABLE  (TCALL,TS32IN) 

TS32L:  TTABLE  (TCALLC,TS32NE) 

;  Shifted  4  bits 

TS32A:  TTABLE  (TCALL,TS32NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ.TS32RS) 

TTABLE  (TEXIT) 


Shifted  8  bits 

TTABLE 
TTABLE 
TTABLE 
TTABLE 


(TCALL,TS32NN) 
(TSSTARJOO) 
(TCHECK.1.TS32RS+1) 
(TEXIT) 


Shifted  12  bits 


TTABLE  (TCALL,TS32NN) 

TTABLE  (TSSTAR.IOO) 

TTABLE  (TCHECK.1.TS32RS+2) 

TTABLE  (TEXIT) 


Shifted  16  bits 


TTABLE  (TCALL,TS32NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS32RS+3) 

TTABLE  (TEXIT) 


Shifted  20  bits 


TTABLE  (TCALL.TS32NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJJS32RS+4) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


...J      L 


1760 


0FPTA9 
DFPTA9 

72A5 

72A6 

72A7 

72A8 

72A9 

7250 

7251 

7252 

72 

72  J. 

7255 

7256 

7257 

7258 

7259 

7260 

7261 

7262 

7263 

726A 

7265 

7266 

7267 

7268 

7269 

7270 

7271 

7272 

7273 

mt, 

7275 
7276 

nil 
iin 

1219 
7280 
7281 
7282 
7283 
7284 
7285 
7286 
7287 
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SEQ  1773 


DFI 
DFf 


010655'  UOOOO 

010656*  AOOOOO 

010657*  240001 

010660*  340000 


010661*  140000 

010662*  400000 

010663*  240001 

010664*  340000 


010665*  140000 

010666*  400000 

010667*  240001 

010670*  340000 


010671*  140000 

010672*  400000 

010673*  240001 

010674*  340000 


010675* 
010676* 
010677* 
010700* 
010701* 
010702* 


140000 
400000 
240001 
340000 
300000 
000000 


010733* 
000100 
010743* 
000000 


010733* 
000100 
010744* 
000000 


010733* 
000100 
010745* 
000000 


010733* 
000100 
010746' 
000000 


010733* 

000100 

010747* 

000000 

010630* 

000000 


;  Shifted  24  bits 


TTABLE  (TCALLJS32NN) 

TTABLE  (TSSTAftJOO) 

TTABLE  (TCHECK.1,TS32RS+5) 

TTABLE  (TEXIT) 


;  Shifted  28  bits 


TTABLE  (TCALL,TS32NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS32RS+6) 

TTABLE  (TEXIT) 


;  Shifted  32  bits 


TTABLE  (TCALLJS32NN) 

TTABLE  (TSSTARJOO) 

TTABLE  {TCHECK,1,TS32RS+7) 

TTABLE  (TEXIT) 


;  Shifted  36  bits 


TTABLE  (TCALL.TS32NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS32RS+10) 

TTABLE  (TEXIT) 


010703*  201  00  0  00  000000* 
010704*  202  00  0  00  014033* 
010705*  263  17  0  00  000000 


;  Shifted  4C  bits 

TTABLE  (TCALL,TS32NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHEC<J  JS32RS+11) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS32L) 

TTABLE  (TLAST) 

;  Initialize  stuff 

TS32IN:  MOVEI   BUFF-1 
MOV.^M   T32BUF# 
RTN 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 
return 


„„  I 


L_ 


1761 


DFPTA9 
DFPTA9 

7288 

7289 

7290 

7291 

7292 

7293 

729A 

7295 

7296 

7297 

7298 

7299 

7300 

7301 

7302 

7303 

730A 

7305 

7306 

7307 

7308 

7309 

7310 

7311 

7312 

7313 

73U 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 

7323 

732A 

7325 

7326 

7327 

7328 

7329 

7330 

7331 

7332 

7333 

7334 

7335 

7336 

7337 
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010706' 
010707* 
010710' 
010711' 
010712' 
010713' 
010714' 
010715' 
0i0716' 
010717' 
010720' 
010721' 
010722' 


010723' 
010724' 
010725' 
010726' 
010727' 
010730' 
010731' 
010732' 


00  014033' 

00  000000* 
17  000000 

01  000000 


350  01  0 

307  01  0 

350  00  0 

200  00  0  ..  

201  02  0  00  010736 

242  00  0  00  innt^ 

303  02  0  00  010737 

661  00  0  00  740000 

202  00  0  02  000000 
350  00  0  00  000002 
30/  02  0  00  010747 
254  00  0  00  010713 
402  00  0  00  014056 


201 
242 
260 
201 
260 
400 
260 
263 


01 
01 
17 
01 
17 
01 
17 
17 


00  000200 
00  000001 
0  00  010607* 
0  00  000010 
00  010615* 
00  000000 
00  010727* 
00  000000 


0 
0 


010733'  2u!  00  0  00  000004 

010734'  272  00  0  00  014056' 

010735'  263  17  0  00  000000 

010736' 


010750' 
010751' 

010752' 
010753' 
010754' 
010755' 
010756' 
010757' 
010760* 
010761  * 
010762* 


240000  010752* 
000000000000* 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


00  013336' 

00  014033' 

01  000000 
00  000000 
00  013502' 
00  014056' 
00  000000 
00  013343* 
00  000000 


Set  up  next  data  pattern 


TS32NE:  AOS 
CAI6 
AOS 
MOVE 
MOVE  I 

TS32N0:  LSH 
CAILE 
TLO 
MOVEM 
AOS 
CAIG 
JRST 
SETZM 


1,T32BUF 
1. BUFF +5 
(^) 
(1) 
2.TS32RS 

2JS32RS+1 

7^0000 

(2) 

2 

2,TS32RS+11 

TS32N0 

TS32NM* 


Read  the  next  word 


MOVE  I 

LSH 

60 

MOVE  I 

GO 

SETZ 

GO 

RTN 


1,200 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1, 

LDCSR 


Increment  shift  count 


TS32NN: 


MOVE  I 

ADDM 

RTN 


4 
TS32NM 


TS32RS:  BLOCK   12 
;  Error  messages 


MA32: 
MA32PN: 


CALL!TXN0T!MA32PN 
L/ST!CALL!TXALL!TTPNT 


TMS6C 

MOVE 

MOVE 

PNTHW 

TMS6 

MOVE 

PNTDEC 

TMSG 

RTN 


<Data  > 
1,T32BUF 


\ 


r 


SEQ  1774     i 


DFF 
DFF 


point  to  next  data  pattern 

done  yet? 

no  -  set  up  proper  return 

get  data  pattern 

get  initial  address  of  EBUF  data 

shift  4  bits 

if  past  the  first  2  shifts,  insert 

the  PLIN  data  into  left  4  bit? 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


<  shifted  down  from  PLIN 
TS32NM  ; 

<.  bits,  result  in  EBUF> 


get  a  4 
add  it 
return 

correct  EBUF  data 


print  data  pattern  .. 
print  test  data 

get  data  and 
print  it 


get  shift  count 


^ ~1 


.__J 


1762 


DFPTA9 
DFPTA9 

7338 

7339 

73A0 

73A1 

73A2 

73A3 

73A4 

73A5 

73A6 

73A7 

73A8 

73A9 

7350 

7351 

7352 

7353 

735A 

7355 

7356 

7357 

7358 

7359 

7360 

7361 

7362 

7363 

736A 

7365 

7366 

7367 

7368 

7369 

7370 

7371 

7372 

7373 

737A 

7375 

7376 

7377 

7378 

7379 

7380 

7381 

7382 

7383 

738A 

7385 

7386 

7387 

7388 

7389 

7390 

7391 

7392 
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SEQ  1775 


010763* 
01076A' 
010765' 
010766' 
010767' 
010770' 
010771' 
010772' 


010773' 
01077A' 
010775' 
010776' 
010777' 
011000' 
011001' 
011002' 
011003' 
01100A' 
011005' 
011006' 
011007' 
011010' 
011011' 
011012' 


011013' 
01101A' 
011015' 
011016' 
011017' 
011020' 
011021' 
011022' 
011023' 
01102A' 
011025' 
011026' 
011027' 
011030' 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
000000 
020102 
001 AOO 
020202 
001000 
02C300 
001000 
020A00 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 
A35000 
100A00 
431000 
100500 
701000 
000000 
000000 


011031'  500050 

011032'  QOOOOO 

011033'  500100 

011034'  000000 


010000 
000040 
000126 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310360 
240300 
030000 
000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


;  Microcode  -  Shift  4  bits 

T32M:   MWORD  <ADDR=100 JMAP,J=101,D=1>  ;  100 

MWORD  <CQNT,D=1,SELF,M6C=126>  ;  101 

MWORD  <CONT,SD0,OR,B=4,D=2,SELM,M6C=200>  ;  102 

MWORD  <JMAP,J=5100,D=1>  ;  103 

;      Routine*  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200,JMAP,J=201>  ;  200 

MWORD  <CJP,J=203.D=1,CENA,CCCA>  ;  201 

MWORD  <JMAP,J=201,D=1>  ;  202 

MWORD  <CONT,D=1.SELF,MGC=200>  ;  203 

MWORD  <CONT,D=1,SELF,M6C=204>  ;  204 

MWORD  <C0NT,D=1,SELC.MGC=4>  ;  205 

MWORD  <CONT,SD0,OR,B=3,D=2,SELM.MGC=200>  ;  206 

MWORD  <JZ>  ;  207 

;      Initialization 

MWORD  <ADDR=1000JMAP,J=1001,SELM,MGC=20>  ;  1000 

MWORD  <CONT,D=1,SELC,MGC=200>  ;  1001 

MWORD  <LDCT,J=31,SDO.OR.D=2,SKCN,MGC=360>  ;  1002 

MWORD  <RPCT,J=10O3,S0A.OR.D=5>  ;  1003 

MWORD  <C0NT,S0A,0R,D=1,0ENA.SELM,MGC=40>  ;  1004 

MWORD  <J2,SD0,D=1,SELP.MGC=6>  ;  1005 

MWORD  <ADDR=0,JZ>  ;  0 

;      Initialization  step 

MWORD  <ADDR=5000,JMAP.J=5001.SELC.«GC=100>  ;  5000 

MWORD  <JZ.SELH,MGC=20>  ;  5001 


DFPTA9 
DFPTA9 

7393 
7394 
7395 
7396 
7397 
7398 
7399 
7A00 
7401 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 
7413 
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SEQ  1776 


011035' 

011036' 

11037' 

11040' 

11041' 

11042' 

011043' 

011044' 

011045' 

011046' 

011047' 

011050' 

011051' 

011052' 

011053' 

011054' 

011055' 

011056' 

011057" 


51Q1Q0       " 

302001 

510200 

000000 

510351 

102021 

510400 

431020 

510551 

001400 

510651 

001000 

510700 

431010 

511051 

431040 

777777 


0000 
0340 

wtt 

260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 
777777 


Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MUORD  <ADDR=5100,CONT,SD0,AND.B=2,D=2>  ;  5100 

MWORD  <CONT, SOB, PLUS. 8=2. D=2,CRY>  ;  5101 

MWORD  <LDCT.J=26>  ;  5102 

MWORD  <RPCT.J=5103. SAB. PLUS, A=2, 8=2. D=2>  ;  5103 

MWORD  <C0NT.S0A.A=2.0R.D=1.0ENA.SELE.MGC=4>  ;  5104 

MWORD  <CJP.J=5107.CENA.CCGC.D=1.SELE.MGC=40>  ;  5105 

MWORD  <JMAP.J=5105.D=1>  ;  5106 

MWORD  <CONT.S0A.A=1.OR.D=1.SELE.MGC=200>  ;  5107 

MWORD  <JMAP.J=5110.SOA.A=4.0R.D=1.0ENA,SELE,MGC=4>    ;  5110 
-1 


DFP 
DFP 

7 
7 
7 
8 
8 


1764 


0FPTA9 
DFPTA9 

7AH 

7A15 

7416 

7A17 

741 8 

7419 

7420 

7421 

7422 

7423 

7424 

7425 

7426 

7427 

7428 

7429 

7430 

7431 

7432 

7433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7458 

7459 

7460 

7461 

7462 

7463 

7464 

7465 

7466 
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SEQ  1777 


^***«********************* ******************************************* 
*  Test  33  -  Fmtr  Down  Shift  8  (from  PUN)  Test  -  SELRHTNIB=0 

Description:  Verify  that  the  formatter  can  shift  various  data 

Eatterns  down  8  bits  at  a  time  while  inserting 
its  from  the  PUN  into  the  formatter.  The  data 
loaded  into  the  PUN  initially  is  017. 

Procedure:    KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  017 

UC>  Shift  down  8  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  5  times,  until  the  data  becomes 
all  zero. 

Do  for  data  patterns:   O's 

Ts 

525252.. 525252 
000000,. 007777 
000000.. 007070 
000000.. 000707 

Failure:     — 


DFP 
DFP 

8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 

e 
e 

C 

e 
i 

8 

fi 

8 


Test  data 


011060' 
011061' 
011062' 
011063' 
011064' 
011065' 
011066' 
011067' 
011070' 


011071' 
011072' 
011073' 
011074' 
011075' 


254  00 

100604 

011247' 

013263' 

000000 

000000 

000000 

000000 

777777 


0  00  011071 
000033 
013521' 
012716' 
011344' 
011627' 
012111' 
012372' 
777777 


JO   start  test 


TSTC33:  JRST   TG33  ;  gc 

CBySINDMP!NDCB!ZCBUS133       ;  test  mask 

T33M,.[ASCIZ  "Fmtr  Down  Shift  8  (from  PLIN)  Test  -  SELRHTNIB=0*] 

CEXP  C20,C12.MLAST!C8]..CEXP  C4.MLASTIC2] 

TSTC34  ;  failure  test  table 

TSTC35 

TSTC36 

TSTC37 

-1 


Start  test 


201  00 
260  17 
201  01 
260  17 
263  17 


00  000000' 
00  010555* 
00  011247' 
00  010557* 
00  000000 


TG33: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


19 

TRACE 
1.T33M 
TLOAD 


Set  address  of  module  start 
andle  trace  output 
set  up  microcode  address 
load/ verify  it 
failed  -  exit  test 


L. 


1765 
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7467 

7468 

;  Initialization 

7469 

7470 

011076' 

400 

15  0  00  OOOOOO 

TL33: 

SETZ 

ERFLG, 

pacl6 

7471 

011077' 

260 

17  0  00  010562* 

GO 

7472 

011100' 

402 

00  0  00  010563* 

SETZM 

STSUB 

7473 

MOVSI 

[OOOOOO. 

.000000 

7474 

777777. 

,777777 

7475 

52S252. 

.525252 

7476 

OOOOOO, 

.007777 

7W77 

OOOOOO, 

.007070 

7i*7i 

onior 

205 

00  0  00  013330' 

OOOOOO. 

.0007073 

7479 

011102' 

541 

00  0  00  010600* 

HRRI 

BUFF 

■ 

7480 
7481 
7482 

011103' 

251 

00  0  00  000000# 

BLT 

BUFF+5 

• 
« 

;  First  ensure 

the  data 

transfer  is  reset 

7483 

7484 

01 i 104' 

201 

01  0  00  005000 

MOVE  I 

1.5000 

7485 

011105' 

242 

01  0  00  OOOOul 

LSH 

1,1 

7486 

011106' 

260 

17  0  00  010725* 

GO 

LDRAR 

7487 

onio7' 

201 

01  0  00  000010 

MOVE  I 

1 ,MPRUN 

7488 

01111C' 

260 

17  0  00  010731* 

GO 

LDCSR 

7489 

011111' 

400 

01  0  00  OOOOOO 

SETZ 

1, 

7490 

011112' 

260 

1?  0  00  011110* 

GO 

LDCSR 

7491 

7492 

:  Now 

generate 

ecu  list 

7493 

7494 

011113' 

200 

01  0  00  013210' 

HOVE 

1,[CBUFSZ,,CBUF] 

7495 

011114' 

260 

17  0  00  010577* 

GO 

CHINIT 

7496 

011115' 

551 

01  0  00  011102" 

HRRZI 

1,BUFF 

7497 

011116' 

2v> 

02  0  00  000006 

MOVE  I 

2,6 

7498 

011117' 

400  03  0  00  OOOOOO 

SETZ 

3, 

7499 

011120' 

260 

17  0  00  010603* 

GO 

6ENCCW 

750C 

011121' 

201 

06  0  00  011144' 

HOVE] 

6,TS33 

7501 

7502 

;  Start  up  the 

data  transfer 

7503 

7504 

011122' 

2G] 

01  0  00  001000 

HOVEl 

1,1000 

7505 

011123' 

2^2 

01  0  00  00000! 

LSH 

1,1 

7506 

011124' 

260 

17  0  00  011106* 

GO 

LDRAR 

7507 

011125' 

201 

01  0  00  000010 

HOVE  I 

1 ,HPRUN 

7508 

011126' 

260 

17  0  00  011112* 

GO 

LDCSR 

7509 

011127' 

201 

00  0  00  000001 

HOVE  I 

1 

7510 

011130' 

260 

17  0  00  010613* 

GO 

ODELAY 

7511 

011131' 

400  01  0  00  OOOOOO 

SETZ 

1. 

7512 

011132' 

260 

17  0  00  011126* 

GO 

LDCSR 

SEQ  1778 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
load  the  register 
get  HPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCU  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  HPRUN  bit 
start  up  the  port 
set  up  delay  of  1  tns 
wait  a  bit 
clear  data 
stop  the  port 


DFP 
DFP 

8 
8 
8 
8< 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 

a 

fl 
8 
8 
8 
8 
6 
6 
6 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 


I 


L._ 


1766 
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SEO  1779 


7515 

75U 

7515 

7516 

7517 

7518 

7519 

7520 

7521 

7522 

7523 

7524 

7525 

'526 

7527 

7528 

7529 

7530 

7531 

7532 

7533 

7534 

7535 

7536 

7537 

7538 

7539 

7540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 

75^8 

754V 

7550 

7551 

7552 

7353 

7534 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 

7563 

7564 


Loop  on  test  execute  table  entries 


011133'  260  17  0 

011134'  254  00  0 

011135'  254  00  0 

011136'  474  15  0 


011137*  027  00  0 

011140'  254  00  0 

011141'  254  00  0 

011142'  322  15  0 


00  010616* 
00  011143' 
00  011133' 
00  OCOOOO 


00  011234' 
00  011076' 
00  011143' 
00  011133' 


TA33: 


GO 
JRST 
JRST 
SETO 

TEXEC 
TX33 
TA33 
ERFLG, 

error 

printouts  a 

SCOPER 
JRST 
jRST 
JUMPE 

MA33 
TL33 
TX33 
ERFLG, TA33 

execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  EBUP  data  incorrect 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


011143'  263  17  0  00  000000 


;  End  of  test 

TX33:   RTN 

;  Test  Execute  Table,  as: 


return 


(CMD, parameters) 


011144'  140000 
Oil  145'  200000 


011146'  ViOOOO 

011147'  400000 

011150'  240001 

011151'  340000 


011152'  140000 

011153'  4000C0 

011154'  240001 

011155'  340000 


011156'  140000 

011157'  400000 

011160'  240001 

011161'  340000 


011162'  140000 

011163*  400000 

011164'  240001 

011165'  340000 


011174' 
011177' 


011224' 
000 1 00 
011227' 
000000 


011224' 
000100 
011230' 
000000 


011224' 
000100 
011231' 
000000 


011224' 
000100 
011232' 
000000 


TS33:   TTA8I..E   (TCALL,TS331N) 
TS33L:  TTA8LE  (TCALLC.TS33NE) 

;   Shifted  8  bits 

TS33A:  TTABLE  (TCALL,TS33NN) 

T TABLE  (TSSTAR.IOO) 

TTABLE  (TCHECK,1,TS33RS) 

TTABLE  (TEXIT) 

;  Shifted  16  bits 

TTABLE  (TCALL.TS33NN) 

TTA6LF  (TSSTAR,100) 

TTABLE  (TCHECK,1,TS33RS+1) 

TTABLE  (TEXIT) 

;  Shifted  24  bits 

TTABLE  (TCALL,TS33NN) 

TTABLE  (TSSTAR,100) 

TTABLE  (TCHECK,1,TS33RS+2) 

TTABLE  (TEXJT) 

;  Shifted  32  bits 

TTABLE  (TCALL,TS33NN) 

TTABLE  (TSSTAR,100) 

TTABLE  (TCHECK,1,TS33RS*3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


I 

I 

OFP 
OFP 

8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 

a 

8 
8 
8 
8 
8 
8 
8 
8 
8 
S 
fi 
fi 
8 


i 


767 


DFPTAO 
DFPT/ 

7565 
7566 
7567 
7568 
7569 
7570 
7571 
7572 
7573 

7575 

7576 

7577 

7578 

7579 

7580 

7581 

7582 

7583 

758A 

7585 

7586 

7587 

7588 

7589 

7590 

7591 

7592 

7593 

7594 

7595 

7596 

7597 

7598 

7599 

7600 

7601 

7602 

7603 

7604 

7605 

7606 

7607 

7608 

7609 

7610 

7611 

7612 

7613 

7614 
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SEQ  1780 


011166' 
011167' 
011170' 
011171' 
011172' 
011173' 


140000 
400000 
240001 
340000 
300000 
000000 


011224' 

000100 

011233' 

000000 

011145' 

000000 


011174'  201  00  0  00  000000* 
011175*  202  00  0  00  014034' 
011176'  263  17  0  00  000000 


011177' 
011200' 
011201' 
011202' 
011203' 
011204' 
011205' 
011206' 
011207' 
011210' 
011211' 
011212' 
011213' 


011214' 
011215' 
011216' 
011217' 
011220' 
011221' 
011222' 
011223' 


350  01 
307  01 
350  00 

200  00  0 

201  02  0 


0 
0 
0 


242  00 
303  02 
661  00 
202  00 
350  00 
307  02 
254  00 
4uJ  00  0 


00 
00 
17 
01 
00 
00 
00 
00 
02 
00 
00 
00 
00 


014034' 

000000* 

000000 

000000 

011227' 

777770 

011227' 

740000 

000000 

000002 

011233' 

011204' 

014057' 


201 
242 
260 
201 
260 
400 
260 
263 


01 
01 
17 
01 
17 
01 
17 
17 


00 
00 
00 
00 
00 
00 
00 
00 


000200 

000001 

011124* 

000010 

011132* 

000000 

011220* 

000000 


011224'  201  00  0  00  000010 

011225'  272   00  0  00  014057' 

011226'  263  17  0  00  000000 

011227' 


Shifted  40  bits 


TTABLE  (TCALLJS33NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHEC<,1.TS33RS+4) 

TTABLE  (TEXJT) 

TTABLE  (TJRST,TS33L) 

TTABLE  (TLAST) 


Initialize  stuff 


TS33IN: 


MOVE  I 
MOVEM 
RTN 


BUFF-1 
T33BUF* 


;  Set  up  next  data  pattern 
TS33NE 


TS33N0: 


AOS 

CAI6 

AOS 

MOVE 

MOVE  I 

LSH 

CAILE 

TLO 

MOVEM 

AOS 

CAIG 

JRST 

SETZM 


1,T33BUF 

1,BUFF+5 

(P) 

(1) 

2.TS33RS 

-8 

2JS33RS 

7^0000 

(2) 

2 

2,TS33RS+4 

TS33N0 

TS33NM* 


Read  the  next  word 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

60 

RTN 


1,200 

1J 

LDRAR 

1 .MPRUN 

LDCSR 

1, 

LDCSR 


Increment  shift  count 


TS33NN: 


MOVE  I 

ADDM 

RTN 


8 
TS33NM 


TS33RS:  BLOCK   5 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


initialize  buffer  pointer 
return 


point  to  next  data  pattern 
done  yet? 

no  -  set  up  proper  return 
get  data  pattern 

get  initial  address  of  EBUF  data 
shift  4  bits 

if  past  the  first  shift,  insert 
the  PLIN  data  into  left  8  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  regibter 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


;  get  an  8 

;  add  it 

;  return 

;  correct  EBUF  data 


DFP 
DFP' 

8 
8' 
8' 
8' 

8; 
8; 

8i 

8; 
8; 

8i 

8: 
8; 
8; 
8; 
8; 
8; 
8: 
8; 
8; 

8 

8; 

8 

8; 

8 

8; 

8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 


L. 


r' 


768 


DFPTA9 
DFPTA9 

7615 

7616 

7617 

7618 

7619 

7620 

7621 

7622 

7623 

762^ 

7625 

7626 

7627 

7628 

7629 

7630 

7631 

7632 

7633 

763A 

7635 

7636 

7637 

7638 

7639 

76A0 

76A1 

76A2 

76A3 

76AA 

7645 

7646 

7647 

7648 

7649 

7650 

7651 

7652 

7653 

7654 

7655 

7656 

7657 

7658 

7659 

7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 
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;  Error  messages 
MA33: 


r 


SEQ  1781 


CALL!TXN0T!MA33PN 
LAST!CALL!TXALL!TTPNT 


011236' 
Oll^"^?' 
011240' 
011241' 
011242' 
011243' 
011244' 
011245' 
011246' 


011247' 
011250' 
011251' 
011252' 
011253' 
011254' 
011255' 
011256' 


011257' 
011260' 
011261' 
011262' 
011263' 
011264' 
011265' 
011266' 
011267' 
011270' 
011271' 
011272* 
011273' 
011274' 
011275' 
011276' 


011277' 
011300' 
011301' 
011302' 
011303' 
011304' 
011305' 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


010001 
001000 
010100 
001000 
010200 
732002 
010351 
001000 


020002 
Ou-'OOO 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


0  00  013336' 
0  00  014034' 
0  01  000000 
0  00  000000 
0  00  013502' 
0  00  014057' 
0  00  000000 
0  00  013343' 
0  00  000000 


01 0000 
000040 
000224 
003340 
000200 
002340 
000000 
000040 


010000 
00n040 
03O000 
000060 
010000 
000040 
000200 
003340 
000204 
003540 
000004 
004340 
000200 
402340 
000000 
000000 


MA33PN:  TMSGC 
MOVE 
MOVE 
PNTHW 
TMSG 
MOVE 
PNTDEC 
TMSG 
HTN 


<Data  > 

1J33BUF 

(1) 

<  shifted  down  from  PLJN  > 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


TS33NM 

<.  bits,  result  in  EBUF> 


;  get  shift  count 


100010 
000000 
100100 
001000 
100200 
732000 
100310 


010020 
002040 
000200 
004 340 
310017 
240300 
030000 


;  Microcode  -  Shift  8  bits 

T33M:   MWORD   <ADDR=100,JMAP,J=101 .D=l> 
MUORD   <C0NT.D=1.SELF,MGC=224> 
MWORD   <C0NT,SD0,0R,B=4,D=2,SELM,MGC=200> 
MWORD   <JMAP,J=5100.D=1> 

;      Routine  to  read  fi  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200JMAP.J=201> 

MWORD  <CJP.J=203,D=1,CENA,CCCA> 

MWORD  <JMAP.J=201,D=1> 

MWORD  <CONT,D=1,SELF,MGC=200> 

MWORD  <CONT,D=1.SELF,MGC=204> 

MWORD  <C0NT.D=1,SELC.MGC=4> 

MWORD  <CONT,SD0,OR,B=3.D=2,SELM.MGC=200> 

MWORD  <JZ> 

;      Initialization 

MWORD       <ADDR=10i0.JMAPJ=1001.SELM,MGC=20> 
MWORD       <C0NT,D=1.S'=LC,MGC=?nn> 
MWORD       <LDCT.J=31 ,SD0.OR.D=2,SKCN.MGC=017> 
MWORD       <RPCT,J=1003.S0A.0R.D=5> 


100 
101 
102 
103 

200 
201 
202 
203 
204 
205 
206 
207 

1CC0 
1001 
1002 
1003 


Q  1769 


DFPTA9 
DFPTA9 

7670 

7671 

7672 

7673 

767A 

7675 

7676 

7677 

7678 

7679 

7680 

7681 

7682 

7683 

768A 

7685 

7686 

7687 

7688 

7689 

7690 

7691 

7692 

7693 

769A 

7695 

7696 

7697 

7698 

7699 

7700 

7701 

7702 

7703 

770A 

7705 


MACRO  X53B(1242)  09:42  1 
MAC    18-Apr-85  11:00 


011306' 
011307' 
011310' 
011311' 
011312' 
011313' 
01131A' 


435000 
100400 
431000 
100500 
701000 
000000 
000000 


011315'  500050 

011316'  000000 

011317'  500100 

011320'  000000 


011321' 
011322' 
011323' 
011324' 
011325' 
011326' 
011327' 
011330' 
011331' 
011332' 
011333' 
011334' 
011335' 
011336' 
011337' 
011340' 
011341' 
011342' 
011343' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
OulOOO 
510700 
431010 
511051 
431040 


000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
0040^0 
000020 
002000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 

mm 
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MWORD   <C0NT,S0A,OR,D=1.OENA,SELM,M6C=40>  ;  1004 

MWORD   <JZ,SD0,D=1,SELP,MGC=6>  ;  1005 

MUORD   <ADDR=0JZ>  ;  0 

;      Initialization  step 

MUORD   <ADDR=5000,JMAP,J=5001.SELC,MGC=100>  ;  5000 

MWORD   <JZ.SELM.MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  GSR  register 

MWORD   <ADDR=5100,CONT,SDO.AND,8=2,D=2>  ;  5100 

MWORD   <C0NT, SOB, PLUS, 8=2, D=2,CRY>  ;  5101 

MWORD   <LDCT,J=26>  ;  5102 

MWORD   <RPCT,J=5103, SAB, PLUS, A=2, 8=2, D=2>  ;  5103 

MWORD   <C0NT,S0A.A=2,OR,D=1,OENA,SELE,MGC=4>  ;  5104 

MWORD   <CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

MWORD   <JMAP,J=5105,D=1>  ;  5106 

MWORD   <CONT,S0A,A=1,OR,D=1,SELE.MGC=200>  ;  5107 

MWORD   <JMAP^=5110,S0A,A=4,0R,D=1,0ENA,SELE.MGC=4>    ;  5110 
-1 


SEQ  1782 


n 


J     L 


D  1770 


0FPTA9 
DFPTA9 

7706 

7707 

7708 

7709 

7710 

7711 

7712 

7713 

77U 

7715 

7716 

7717 

7718 

7719 

7720 

7721 

7722 

7723 

7724 

7725 

7726 

7727 

7728 

7729 

7730 

7731 

7732 

7733 

773A 

7735 

7736 

7737 

7738 

7739 

77A0 

77A1 

7742 

7743 

7744 

7745 

7746 

7747 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 
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SEQ  1783 


011344' 
011345* 
011346' 
011347' 
011350' 
011351' 
011352' 
011353' 


;(f***«*********  **********************************************  •*♦♦**♦** 
*  Test  34  -  Fmtr  Down  Shift  8  (from  PUN)  Test  -  SELRHTNIB=0 


Description: 


Procedure: 


Verify  that  the  formatter  can  shift  various  aata 
patterns  down  8  bits  at  a  time  while  inserting 
bits  from  the  PLIN  into  the  formatter.  The  data 
loaded  into  the  PLIN  initially  is  360. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  360 

UC>  Shift  down  8  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  5  times,  until  the  data  becomes 
all  zero. 

Do  for  data  patterns:   O's 

Ts 

525252,, 525252 
000000,, 007777 
000000,, 007070 
000000,, 000707 

Failure:     — 


Test  data 


254  00 

100604 

011532' 

013263' 

000000 

000000 

000000 

777777 


0  00  011354' 
000034 
013521' 
012716' 
011627' 
012111' 
012372' 
777777 


JO  start  tes*' 


TSTC34:  JRST    T634  ;  g 

CBUS .'NDMP.'NDCBIZ CBUS '34  ;  test  mask 

T34M,,CASCIZ  *Fmtr  Down  Shift  8  (from  PLi 

CEXP  C20,C12,MLAST!C8],,CEXP  C4,f1LAST!C2D 

TSTC35  ;  failure  test  table 

TSTC36  ;   ... 

TSTC37 

-1 


aC  -  SELRHTNIB=0*] 


Start  test 


011354' 
011355' 
011356' 
011357' 
011360' 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
011072* 
011532' 
011074* 
000000 


TG34: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z9 

TRACE 
1,T34M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


'~l 


L 


1771 


DFPTA9 
DFPTA9 

7758 
7759 
7760 
7761 
7762 
7763 
776A 
7765 
7766 
7767 
7768 
7769 
7770 
7771 
7772 
7773 

111^ 

1116 

1111 

7778 

7779 

7780 

7781 

7782 

7783 

778A 

7735 

7786 

7787 

7788 

7789 

7790 

7791 

7792 

7793 

779A 

7795 

7796 

7797 

7798 

7799 

7800 

7801 

7802 

7803 

780A 

7805 

7806 

7807 

7808 

7809 

7810 
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011361'  400  15  0 
011362'  260  17  0 
011363'  402  00  0 


011364'  205  00 
011365'  541  00 
01136o'  251  00 


0113  ' 
0113^0' 
011371' 
011372' 
011373' 
011374' 
011375' 


011376' 
011377' 
011400' 
011401' 
011402' 
01U^3' 
'  !14uA' 


11405' 
011406' 
011407' 
011410' 
011411' 
011412' 
011413* 
011414' 
011415' 


201  01 
242  01 
260  17 
201  01 
260  17 
400  01 
260  17 


201  01 
242  01 
260  17 
201  01 
260  17 
201  00 
260  17 
400  01 
260  17 


00  000000 
00  011077* 
00  011100* 


00  013330' 
00  011115* 
00  000000* 


00  005000 
00  000001 
00  011216* 
00  000010 
00  011222* 
00  000000 
00  011373* 


200  01 
260  17 
551  01 
2ui  02 
400  03 
260  17  0 

201  06  0 


0 
0 
0 
0 
0 


011416'  260  17  0 

011417'  254  00  0 

011420'  254  00  0 

011421'  474  15  0 


00 
00 
00 
00 
00 
00 
00 


013210' 

011114* 

011365* 

000006 

000000 

011120* 

011427' 


00  001000 
00  000001 
00  011371* 
00  000010 
00  011375* 
00  000001 
00  011130* 
00  000000 
00  011411* 


00  011133* 
00  011426' 
00  011416' 
00  000000 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 


1.5000 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1, 

LDCSR 


Now  generate  CCU  list 

HOVE  1,[C8UFSZ,.C8UF3 

GO  CHINIT 

HRRZl  1.BUFF 

MOVEI  2,6 

SETZ  3, 

GO  GENCCW 

MOVEI  6,TS34 

Start  up  the  data  transfer 


MOVEI 

LSH 

60 

MOVEI 

60 

MOVEI 

60 

SETZ 

60 


1,1000 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1 

ODELAY 

1, 

LDCSR 


Loop  on  test  execute  table  entries 


TA34: 


60 

JRST 
JRST 
SETO 


TEXEC 
TX34 
TA34 
ERFL6, 


SEQ  1784 


Dl 
Dl 


;  Initialization 

TL34:   SETZ  ERFLG- 

60  IPACLR 

SETZM  TSTSU8 

MOVSI  [000000,, 000000 

mill ,  ,111111 

525252,, 525252 
000000,, 007777 
000000,, 007070 
000000,, 0007073 

HRRI    BUFF 

BLT     BUFF+5 


First  ensure  the  data  transfer  is  reset 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
toad  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  EBUF  data  incorrect 


..„.] 


1772 


0FPTA9 
DFPTA9 

7811 

7812 

7813 

78U 

7815 

7816 

7817 

7818 

7819 

7820 

7821 

7822 

7823 

782A 

7825 

7826 

7827 

7828 

7829 

7830 

7831 

7832 

7833 

783A 

7835 

7836 

7837 

7838 

7839 

78A0 

78A1 

7842 

7843 

7844 

7845 

7846 

7847 

7848 

7849 

7850 

7851 

7852 

7853 

7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7863 

7864 
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SEQ  1785 


Dl 
Dl 


Handle  error  printouts  and  scope  looping 


01K22'  027 
011423'  254 
011424'  254 
011425'  322 


00 
00 
00 
15 


00  011517' 
00  011361' 
00  011426' 
00  011416' 


SCOPER 
JRST 
JRST 
JUMPE 


MA34 
TL34 
TX34 
ERFLG,TA34 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


011426'  263  17  0  00  000000 


011427*  140000 
011430'  200000 


011431'  140000 

011432'  400000 

011433'  240001 

011434'  340000 


011435'  140000 

011436'  400000 

011437'  240001 

011440'  340000 


011441*  140000 

011442*  400000 

011443*  240001 

011444'  340000 


011445'  140000 

011446'  400000 

011447'  240001 

011450'  340000 


011451' 
011452' 
011453' 
011454' 
011455' 
011456' 


140000 
400000 
240001 
340000 
30QQ00 
000000 


011457' 
011462' 


011507' 
000100 
011512* 
000000 


011507' 
000100 
011513' 
000000 


011507* 
000 1 00 
011514' 
000000 


011507' 
000100 
011515' 
000000 


011507* 

000100 

011516' 

OOOOQO 

011430* 

000000 


;  End  of  test 

TX34:   RTN 

;  Test  Execute  Table,  as: 


return 


(CMD, parameters) 


TS34:   TTABLE  (TCALL,TS34IN) 
TS34L:  TTABLE  (TCALLC,TS34NE) 

;  Shifted  8  bits 

TS34A:  TTABLE  (TCALL,TS34NN) 

TTABLE  (TSSTAR.IOO) 

TTABLE  (TCHECKJJS34RS) 

TTABLE  (TEXIT) 

;  Shifted  16  bits 

TTABLE  (TCALL,TS34NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ,TS34RS+1) 

TTABLE  (TEXIT) 


Shifted  24  bits 


TTABLE  (TCALL,TS34NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1.TS34RS+2) 

TTABLE  (TEXIT) 


Shifted  32  bits 


TTABLE  (TCALL,TS34NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS34RS+3) 

TTABLE  (TEXIT) 


Shifted  40  bits 


TTABLE  (TCALL,TS34NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS34RS+4) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS34L) 

TTABLE  (TLAST) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


L 


L 


1773 


DFPTA9 
DFPTA9 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

7872 

7873 

787A 

7875 

7876 

7877 

7878 

7879 

7880 

7881 

7882 

7883 

7884 

7885 

7886 

7887 

7888 

7889 

7890 

7891 

7892 

7893 

789A 

7895 

7896 

7897 

7898 

7899 

7900 

7901 

7902 

7903 

790A 

7905 
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SEQ  1786 


DF 


01K57'  201  00 
01 1460'  202  00 
011461*  263  17 


011462* 
011463* 
011464* 
011465' 
011466* 
011467' 
011470* 
011471* 
011472' 
011473' 
011474* 
011475* 
011476' 


011477' 
011500' 
011501* 
011502* 
011503' 
011504' 
011505' 
011506' 


350  01 
307  01 
350  00 

200  00 

201  02 
242  00 
303  02 
661  00 

202  00 
350  00 
307  02 
254  00 
402  00 


201 
242 
260 
201 
260 
4uJ 
260 
263 


011507'  201 

011510'  in 

011511'  263 

011512' 


00  000000* 
00  014035' 
00  000000 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


01 
01 
17 
01 
17 
01 
17 
17 


00  0 
00  0 
17  0 


00  014035' 

00  000000* 
17  000000 

01  000000 
00  011512' 
00  11171^ 
00  011512* 
00  036000 

02  000000 
00  000002 
00  011516* 
00  011467' 
00  014060' 


00  000200 
00  000001 
00  011407* 
00  000010 
00  011415* 
00  000000 
00  011503* 
00  000000 


00  000010 
00  014060' 
00  000000 


Initialize  stuff 


TS34IN: 


MOVE  I 
MOVEM 
RTN 


BUFF-I 
T348UF# 


;  Set  up  next  data  pattern 
TS34NE; 


TS34N0: 


AOS 

CAI6 

AOS 

MOVE 

MOVE] 

LSH 

CAILE 

TLO 

MOVEM 

AOS 

CAIG 

JRST 

SETZM 


1,T34BUF 

1. BUFF +5 

(^) 

(1) 

2.TS34RS 

-8 

2,TS34RS 

36000 

(2) 

2 

2,TS34RS+4 

TS34N0 

TS34NM# 


Read  the  next  word 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 

RTN 


1.200 

1,1 

LDRAR 

1 .MPRUN 

LDCSR 

1, 

LDCSR 


Increment  shift  count 


TS34NN:  MOVE I 
ADDM 
RTN 


8 
TS34NM 


TS34RS:  BLOCK   5 


initialize  buffer  pointer 

•  •  ■ 

return 


point  to  next  data  pattern 
done  yet? 

no  -  set  up  proper  return 
get  data  pattern 

get  initial  address  of  EBUF  data 
shift  4  bits 

if  past  the  first  shift,  insert 
the  PLIN  data  into  left  8  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


:  get  a  8 

;  add  it 

;  return 

;  correct  EBUF  data 


1774 


DFPTA9 
DFPTA9 

7906 

7907 

7908 

7909 

7910 

7911 

7912 

7913 

79U 

7915 

7916 

7917 

7918 

7919 

7920 

7921 

7922 

7923 

792A 

7925 

7926 

7927 

7928 

7929 

7930 

7931 

7932 

7933 

7934 

7935 

7936 

7937 

7938 

7939 

7940 

7941 

7942 

7943 

7944 

7945 

7946 

7947 

7948 

7949 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 

7959 

7960 
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;  Error  messages 
MA34: 


SEQ  1787 


CALL!TXN0T!MA34PN 
LAST! CALL !TXALL!TTPNT 


011521' 
011522' 
011523' 
011524' 
011525' 
011526' 
011527' 
011530' 
011531' 


011532' 
011533' 
011534' 
011535' 
011536' 
011537' 
011540' 
011541' 


011542' 
011543' 
011544' 
011545' 
011546' 
011547' 
011550' 
011551' 
011552' 
011553' 
011554' 
011555' 
011556' 
011557' 
011560' 
011561' 


011562' 
011563' 
011564' 
011565' 
011566' 
011567' 
011570' 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


010001 
001000 
01C100 
001000 
010200 
732002 
010351 
001000 


020002 
OuJOOO 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 


00  013336' 

00  014035' 

01  000000 
00  000000 
00  013502' 
00  014060' 
00  000000 
00  013343' 
00  000000 


MA34PN: 


TMSGC 

MOVE 

MOVE 

PNTHU 

TMSG 

MOVE 

PNTDEC 

TMSG 

RTN 


<Data  > 

1J34BUF 

(1) 

<  shifted  down  from  PLIN  > 


print  data  pattern  .., 
print  test  data 

get  data  and 
print  it 


TS34NM 

<.  bits,  result  in  EBUF> 


get  shift  count 


010000 
000040 
000224 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310360 
240300 
030000 


;  Microcode  -  Shift  8  bits 

T34M:   MWORD   <ADDR=100 JMAP,J=101,D=1> 
MUORD   <C0NT,D=1,SELF,M6C=224> 
MWORD   <CONT,SD0,OR,B=4,D=2.SELM.MGC=200> 
MWORD   <JMAP,J=5100.D=1> 

Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200,JMAP,J=201> 

MWORD  <CJP,J=203,D=1,CENA.CCCA> 

MWORD  <JMAP,J=201,D=1> 

MWORD  <CONT,D=1,SELF.M6C=200> 

MWORD  <CONT,D=1,SELF.M6C=204> 

MWORD  <C0NT,D=1,SELC,M6C=4> 

MWORD  <CONT,SD0,OR,B=3,D=2.SELM,MGC=200> 

MWORD  <JZ> 

Initialization 

MWORD   <ADDR=1000,JMAP, J=1001 ,SELM,MGC=20> 

MWORD   <CONT,D=1,SELC,MGC=200> 

MWORD   <LDCT,J=31,SD0.OR,D=2,SKCN.MGC=36O> 

MWORD   <RPCT,J=1003,S0A,OR,D=5> 


100 
101 
102 
103 

200 
201 
202 
203 
204 
205 
206 
207 

1000 
1001 
1002 
1003 


L 


1775 


DFPTA9 
DFPTA9 

7961 

7962 

7963 

796A 

7965 

7966 

7967 

7968 

7969 

7970 

7971 

7972 

7973 

797A 

7975 

7976 

7977 

7978 

7979 

7980 

7981 

7982 

7983 

798A 

7985 

7986 

7987 

7988 

7989 

7990 

7991 

7992 

7993 

799A 

7995 

7996 
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SEQ  1788 


011571' 
011572' 
011573' 
011574' 
011575' 
011576' 
011577' 


435000 
100400 
431000 
100500 
701000 
000000 
000000 


011600'  500050 

011601'  000000 

011602'  500100 

011603'  000000 


011604' 
011605' 
011606' 
011607' 
011610' 
011611' 
011612' 
011613' 
011614' 
011615' 
011616' 
011617' 
011620' 
011621' 
011622' 
011623' 
011624' 
011625' 
011626' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
OulOOO 
510700 
431010 
511051 
431040 


000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 
000000 
000740 
260000 
000300 
0300C0 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 


V 

DF 
DF 


MUORD  <C0NT.S0A,0R.D=1.0ENA,SELM,M6C=40>  ;  1004 

MUORD  <JZ,SD0,D=1,SELP,MGC=6>  ;  1005 

MVORD  <ADDR=0,JZ>  ;  0 

Initialization  step 

MWORD  <ADDR=5000JMAP.J=5001,SELC,M6C=100>  ;  5000 

MWORD  <JZ.SELM,MGC=20>  ;  5001 

Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MUORD  <ADDR=510O,CONT,SD0,AND,8=2,D=2>  ;  5100 

MUORD  <C0NT, SOB, PLUS, 8=2, D=2,CRY>  ;  5101 

MUORD  <LDCT,J=26>  •  ;  5102 

MUORD  <RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MUORD  <CONT,S0A,A=2,OR,D=l,OENA,SELE,MGC=4>  ;  5104 

MUORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

MUORD  <JMAP,J=5105,D=1>  ;  5106 

MUORD  <CONT,SOA,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MUORD  <JMAP,J=5110,S0A,A=4,0R,D=l,OENA.SELE,MGC=4>    ;  5110 
-1 


L 


1776 


DFPTA9 
DFPTA9 

7997 

7998 

7999 

8000 

8001 

8002 

8003 

800A 

8005 

8006 

8007 

8008 

8009 

8010 

8011 

8012 

8013 

80U 

8015 

8016 

8017 

8018 

8019 

8020 

8021 

8022 

8023 

8024 

8025 

8026 

8027 

8028 

8029 

8030 

8031 

8032 

8033 

803A 

8035 

8036 

8037 

8038 

8039 

80A0 

8041 

8042 

8043 

8044 

8045 

8046 

8047 
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SEQ  1789 


OF 
DF 


*  Test  35  -  Fmtr  Down  Shift  8  (from  PUN)  Test  -  SELRHTNIB=1 

Description:  Verify  that  the  formatter  can  shift  various  data 

eatterns  down  8  bits  at  a  time  while  inserting 
its  from  the  PUN  into  the  formatter.  The  data 


Procedure: 


loaded  into  the  PUN  initially  is  017. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  017 

UC>  Shift  down  8  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 


Repeat  the  above  shifting  then  verifying 
contents  5  times,  until  the  data  becom 
all  zero. 


EBUF 
ernes 


Do  for  data  patterns: 


O's 

I's 

525252., 525252 

000000,, 007777 

000000,, 007070 

000000,, 000707 

Failure:     — 
/If  ***********t**********t****************  *************  **************** 


011627* 
011630' 
011631' 
011632' 
011633' 
011634' 
011635' 


011636' 
011637' 
011640* 
011641* 
011642' 


254  00 

100604 

012014' 

013263' 

000000 

000000 


0  00  011636' 
000035 
013533' 
012716' 
012111' 
012372' 

mm 


:   Test  data 

TSTC35:  JRST    TG35 

CBUSINDMP.'NDCB!ZCBUS!35        .  ..    _ 

T35M,.[ASCIZ  *Fmtr  Down  Shift  8  (from  PLIN)  Test  -  SELRHTNIB=1*] 

[EXP  C20,C12,MLAST!C8:,,CEXP  C4,f1LAST!C2] 


;  go  start  test 
;  test  mask 


TSTC36 
TSTC37 
-1 

Start  test 


201 
260 
201 
260 
263 


00 
17 

V? 

17 


00 
00 
00 
00 
00 


000000' 
011355* 
012014' 
011357* 
000000 


TG35: 


MOVE! 
60 

HOVE  I 
60 
RTN 


Z9 

TRACE 
1,T35M 
TLOAD 


failure  test  table 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


L 


1777 


DFPTA9 
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80A8 

80A9 

;  Initialization 

8050 

t 

8051 

011643' 

400  15  0  00  000000 

TL35: 

SETZ 

ERFLG- 
IPACLR 

8052 

011644* 

260  17  0  00  011362* 

GO 

8053 

011645* 

402  00  0  00  011363* 

SETZM 

TSTSUB 

8054 

HOVSI 

COOOOOO, 

,000000       ; 

8055 

mm. 

.777777 

8056 

•il^lSl, 

.52^252 

8057 

000000, 

.007777 

8058 

000000, 

.007070 

8059 

011646* 

205  00  0  00  013330* 

000000, 

,000707 J 

8060 

011647* 

541  00  0  00  011400* 

HRRl 

BUFF 

* 

8061 
8062 
8063 

011650* 

251  00  0  00  000000* 

BLT 

BUFF+5 

• 
« 

;  First  ensure 

the  data 

transfer  is  reset 

806A 

8065 

011651* 

201  01  0  00  005000 

MOVE  I 

1,5000 

8066 

011652* 

242  01  0  00  000001 

LSH 

1,1 

8067 

011653* 

260  17  0  00  011501* 

GO 

LDRAfi 

8068 

011654* 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

8069 

011655* 

260  17  0  00  011505* 

GO 

LDCSR 

8070 

011656* 

400  01  0  00  000000 

SETZ 

1, 

8071 

011657* 

260  17  0  00  011655* 

60 

LDCSR 

8072 

8073 

;  Now 

generate 

CCW  list 

8074 

8075 

011660* 

200  01  0  00  013210* 

MOVE 

i,[cbufsz,,cbuf: 

8076 

011661* 

260  17  0  00  011377* 

GO 

CHINJT 

8077 

011662* 

551  01  0  00  011647* 

HRRZI 

1,8UFF 

8078 

011663* 

2o'  02  0  00  000006 

MOVE  I 

2,6 

8079 

011664* 

400  03  0  00  000000 

SETZ 

J  / 

8080 

011665* 

260  17  0  00  011403* 

GO 

GENCCU 

8081 

011666* 

201  06  0  00  011711* 

MOVE  I 

6,TS35 

8082 

8083 

;  Start  up  the 

data  transfer 

8084 

8085 

011667* 

201  01  0  00  001000 

MOVE  I 

1,1000 

8086 

011670* 

242  01  0  00  000001 

LSH 

1,1 

8087 

011671' 

260  17  0  00  011653* 

GO 

LDRAR 

8088 

011672* 

201  01  0  00  000010 

MOVE  I 

1  ,riPRUN 

011673* 

260  17  0  00  011657* 

GO 

LDCSR 

8090 

011674* 

201  00  0  00  000001 

MOVE  I 

1 

8091 

011675* 

260  17  0  00  011413* 

GO 

ODELAY 

8092 

011676* 

400  01  0  00  000000 

SETZ 

1, 

8093 

011677* 

260  17  0  00  011673* 

GO 

LDCSR 

SEQ  1790 


DF 
OF 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 

fosition  correctly 
oad  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


r 


DFPTA9 
DFPTA9 

809A 

8095 

8096 

8097 

8098 

8099 

8100 

8101 

8102 

8103 

81 OA 

8105 

8106 

8107 

8108 

8109 

8110 

8111 

8112 

8113 

811A 

8115 

8116 

8117 

8118 

8119 

8120 

8121 

8122 

8123 

8124 

8125 

8126 

8127 

8128 

8129 

8130 

8131 

8132 

8133 

81 3A 

8135 

8136 

8137 

8138 

8139 

8U0 

8U1 

8U2 

8K3 

8K4 

8145 
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SEQ  1791 


DF 
DFI 


Loop  on  test  execute  table  entries 


011700"  260  17  0 

011701'  254  00  0 

011702*  254  00  0 

011703'  474  15  0 


011704'  027  00  0 

011705*  254  00  0 

011706*  254  00  0 

011707*  322  15  0 


00  011416* 
00  011710* 
00  011700* 
00  000000 


00  012001* 
00  011643* 
00  011710* 
00  011700* 


TA35: 


GO 

JRST 
JRST 
SETO 


TEXEC 
TX35 
TA35 
ERFLG, 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  EBUP  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


011710'  263  17  0  00  000000 


011711'  140000 
011712'  200000 


011713*  140000 

011714*  400000 

011715*  240001 

011716*  340000 


011717*  140000 

011720*  400000 

011721*  240001 

011722*  340000 


011723*  140000 

011724'  '00000 

011725'  ;oooi 

011726'  340000 


011727*  140000 

011730*  400000 

011731*  240001 

011732*  340000 


011741* 
011744* 


011771' 
000100 
011774' 
000000 


011771* 
000100 
011775* 
000000 


011771' 
000100 
011776' 
000000 


011771' 
000100 
011777' 
000000 


SCOPER  MA35 

JRST  TL35 

JRST  TX35 

JUMPE  ERFLG,TA35 

;  End  of  test 

TX35:   RTN 

;  Test  Execute  Table,  as: 

TS35:   TTABLE  (TCALL,TS35IN) 

TS35L:  TTABLE  (TCALLC,TS35NE) 


print  error  message 

loop  on  error 

altfflode  exit 

do  next  sstep  table  entry 


;  return 
(CMD, parameters) 


;  Shifted  8  bits 

TS35A:  TTABLE  (TCALL,TS35NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK.1,TS35RS) 

TTABLE  (TEXIT) 

;  Shifted  16  bits 

TTABLE  (TCALL,TS35NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1.TS35RS+1) 

TTABLE  (TEXIT) 

;  Shifted  24  bits 

TTABLE  (TCALL,TS35NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS35RS+2) 

TTABLE  (TEXIT) 

;  Shifted  32  bits 

TTABLE  (TCALL,TS35NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECKJ  JS35RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  couit 
start  up  port 
check  if  completed 
exit  if  error  yet 


r 


0FPTA9 
DFPTA9 

8U6 

8H7 

81A8 

81 A9 

8150 

8151 

8152 

8153 

81 5A 

8155 

8156 

8157 

8158 

8159 

8160 

8161 

8162 

8163 

81 6A 

8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

81 74 

8175 

8176 

8177 

8178 

8179 

8180 

8181 

8182 

8183 

81 8A 

8185 

8186 

8187 

8188 

8189 

8190 

8191 

8192 

8193 

8194 

8195 
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011733' 
011734' 
011735' 
011736' 
011737' 
011740' 


140000 
400000 
240001 
340000 
300000 
000000 


011741'  201  00 
011742'  202  00 
011743'   263  17 


011744' 
011745' 
011746' 
011747' 
011750' 
01175V 
0'  752' 
01175J;' 
011754' 
011755' 
011756' 
011757' 
011760' 


011761' 
011762' 
011763' 
011764' 
011765' 
011766' 
011767' 
011770' 


011771' 
011772' 
011773' 

011774' 


350  01 
307  01 
350  00 

200  00 

201  02 
242  00 
303  02 
661  00 

202  00 
350  00 
307  02 
254  00 
4ui  00 


201 
242 
260 
201 
260 
400 
260 
263 


201 
272 
263 


Shifted  40  bits 


011771' 

000100 

012000' 

000000 

011712' 

000000 


0  00  000000# 
0  00  014036' 
0  00  000000 


TTABLE  (TCALL.TS35NN) 

TTABLE  (TSSTAR.IOO) 

TTABLE  (TCHECKj,TS35RS+4) 

TTABLE  (TEXIT) 

TTABLE  (TJRST,TS35L) 

TTABLE  (TLAST) 


01 
01 
17 
01 
17 
01 
17 
17 


00 
00 
17 


Initialize  stuff 


TS35IN: 


MOVE  I 
MOVEM 
RTN 


BUFF-1 
T35BUF* 


Set  up  next  data  pattern 


00 
00 
17 
01 
00 
00 
00 
00 
02 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 


014036' 

000000* 

000000 

000000 

011774' 

777770 

011774' 

036000 

000000 

000002 

012000' 

011751' 

014061' 


000200 

000001 

011671* 

000010 

011677* 

000000 

011765* 

000000 


00  000010 
00  014061' 
00  000000 


TS35NE 


TS35N0: 


AOS 

CAIG 

AOS 

MOVE 

HOVE  I 

LSH 

CAILE 

TLO 

MOVEM 

AOS 

CAIG 

JRST 

SETZM 


1,T35BUF 

l,BUFF+5 

(P) 

(1) 

2JS35RS 

-8 

2.TS35RS 

36000 

(2) 

2 

2JS35RS+4 

TS35N0 

TS35NM# 


Read  the  next  word 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 

RTN 


1.200 

1.1 

LDRAR 

1 .MPRUN 

LDCSR 

1. 

LDCSR 


Increment  shift  count 


TS35NN:  MOVEI 
ADDM 
RTN 


8 
TS35NM 


TS35RS:  BLOCK   5 


SEQ  1792 


DFI 
DFI 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  tilt  done 


initialize  buffer  pointer 

•  «  ■ 

return 


point  to  next  data  pattern 
done  yet? 

no  -  set  up  proper  return 
get  data  pattern 

get  initial  address  of  EBUF  data 
shift  4  bits 

if  past  the  first  shift,  insert 
the  PLIN  data  into  left  8  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


get  start  address 

fosition  correctly 
oad  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


;  get  a  8 

:  add  it 

;  return 

;  correct  EBUF  data 


r 


0FPTA9 
DFPTA9 

8196 

8197 

8198 

8199 

8200 

8201 

8202 

8203 

8204 

8205 

8206 

8207 

8208 

8209 

8210 

8211 

8212 

8215 

82U 

8215 

8216 

8217 

8218 

8219 

8220 

8221 

8222 

8223 

8224 

8225 

8226 

8227 

8228 

8229 

8230 

8231 

8232 

8233 

8234 

8235 

8236 

8237 

8238 

8239 

8240 

8241 

8242 

8243 

8244 

8245 

8246 

8247 

8248 

8249 

8250 
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SEQ  1793 


012001' 
012002' 

012003' 
012004' 
012005' 
012006' 
012007' 
012010' 
012011' 
012012' 
012013' 


012014' 
012015' 
012016' 
012017' 
012020" 
012021' 
012022' 
012023' 


012024' 
012025' 
012026' 
012027' 
012030' 
012031' 
012032' 
012033' 
012034' 
012035' 
012036' 
012037' 
012040' 
012041' 
012042' 
012043' 


012044' 
012045' 
012046' 
012047' 
012050' 
012051' 
012052* 


240000  012003' 
000000000000* 


037  00 
200  01 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


010001 
001000 
01  CI  00 
001000 
010200 
732002 
010351 
001000 


020002 
OuJOOO 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 


00 
00 
01 
00 
00 
00 
00 
00 
00 


013336' 

014036' 

000000 

000000 

013502' 

014061* 

000000 

013343' 

000000 


010000 
000040 
000226 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310017 
240300 
030000 


;  Error  messages 
MA35: 


CALL1TXN0T!MA35PN 
LAST! CALL !TXALL!TTPNT 


MA35PN:  TMSGC 
MOVE 
MOVE 
PNTHU 
THS6 
MOVE 
PNTDEC 
TMSG 
RTN 


<Data  > 
1,T35BUF 

<  shifted  down  from  PLIN  > 


print  data  pattern 
print  test  data 

get  data  and 
print  it 


TS35NM 

<.  bits,  result  in  EBUF> 


;  get  shift  count 


;  Microcode  -  Shift  8  bits 

T35M:   MUORD   <ADDR=100JMAP.J=101  ,D=1> 
MWORD   <C0NT,D=1.SELF.MGC=226> 
MWORD   <CONT,SD0,OR,B=4,D=2,SELM,MGC=200> 
MWORD   <JMAP,J=5100.D=1> 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MUORD  <ADDR=200,JMAP,J=201> 

MWORD  <CJP,J=203,D=1,CENA.CCCA> 

MWORD  <JMAH.J=201.D=1> 

MWORD  <CONT,D=1,SELF.MGC=200> 

MWORD  <CONT,D=1,SELF,MGC=204> 

MWORD  <C0NT,D=1.SELC.MGC=4> 

MWORD  <CONT,SD0,OR,B=3.D=2,SELM,MGC=200> 

MWORD  <JZ> 

;      Initialization 

MWORD   <ADDR=1000,JMAP,J=1001 ,SELM,MGC=20> 
MWORD   <C0NT,D=1.SELC,MGC=200> 
MWORD   <LDCT,J=31,SD0,OR,D=2.SKCN.MGC=017> 
MWORD   <RPCT.J=10O3.S0A,OR,D=5> 


100 
101 
102 
103 

200 
201 
202 
203 
204 
205 
206 
207 

1000 
1001 
1002 
1003 


L 


1781 


DFPTA9 
DFPTA9 

8251 

8252 

8253 

825A 

8255 

8256 

8257 

8258 

8259 

8260 

8261 

8262 

8263 

826A 

8265 

8266 

8267 

8268 

8269 

8270 

8271 

8272 

8273 

827A 

8275 

8276 

8277 

8278 

8279 

8280 

8281 

8282 

8283 

828A 

8285 

8286 
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012053' 
01205A' 
012055' 
012056' 
012057' 
012060' 
012061' 


435000 
100400 
431000 
100500 
701000 
000000 
000000 


012062'  500050 

012063'  000000 

012064'  500100 

012065'  000000 


012066' 
012067' 
012070' 
012071' 
012072' 
012073' 
012074' 
012075' 
012076' 
012077' 
012100' 
012101' 
012102' 
012103' 
012104' 
012105' 
012106' 
012107' 
012110* 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
Oo'OOO 
510700 
431010 
511051 
431040 

inm 


000220 
002040 
002340 
000006 
001000 
000000 
000000 


010100 
004040 
000020 
002000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 

mm 


MUORD   <CONT,S0A,OR,D=l,OENA,SELM,MGC=40> 
MWORD   <JZ,SD0,D=1,SELP,MGC=6> 
MWORD   <ADDR=0,JZ> 

Initialization  step 

MWORD   <ADDR=5000,JMAP.J=5001 .SELC.M6C=100> 

MWORD   <J2.SELM,MGC=20> 


;  Subroutine  - 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
-1 


Passed  -  Write  1  to  bit  12  of  GSR  register 
<ADDR=5100,C0NT,SD0.AND,8=2,D=2> 
<C0NT, SOB, PLUS, B=2,D=2,CRY> 
<LDCT,J=26> 

<RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2> 
<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC--4> 
<CJP,J=5107,CENA,CC6C,D=1  ,SELE  ,f(6C=40> 
<JMAP,J=5105,D=1> 

<C0NT.S0A,A=1,0R,D=1,SELE,MGC=200> 
<JMAP,J=5110,SOA.A=4,OR.D=1.0ENA.SELE.MGC=4> 


1004 
1005 
0 

;  5000 
;  5001 

5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5110 


DF( 
DFF 

PR( 
CPl 

2o; 


EQ  1782 


DFPTA9 
DFPTA9 

8287 

8288 

8289 

8290 

8291 

82^: 

8293 

8294 

8295 

8296 

8297 

8298 

8299 

8300 

8301 

8302 

8303 

8304 

8305 

8306 

8307 

8308 

8309 

8310 

8311 

8312 

8313 

8314 

8315 

8316 

8317 

8318 

8319 

8320 

8321 

8322 

8323 

8324 

8325 

8326 

8327 

8328 

8329 

8330 

8331 

8332 

8333 

8334 

8335 

8336 
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*  Test  36  -  Fmtr  Down  Shift  8  (from  PLIN)  Test  -  SELRHTNIB=1 


Description: 


Procedure: 


Verify  that  the  formatter  can  shift  various  data 
patterns  down  4  bits  at  a  time  while  inserting 
bits  from  the  PLIN  into  the  formatter.  The  data 
loaded  into  the  PLIN  initially  is  360. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 
UC>  Load  PLIN  with  360 

UC>  Shift  down  4  bits 

UC>  Read  formatter  contents  and  write  into  EBUF 

KL>  Read  EBUF  and  verify  the  data 

KL>  Start  up  the  ucode  to  shift  again 

Repeat  the  above  shifting  then  verifying  EBUF 
contents  10  times,  until  the  data  becomes 
all  zero. 


Do  for  data  patterns; 


012111' 
012112' 
012113' 
012114' 
012115' 
012116' 


254  00 

100604 

012275' 

013263' 

000000 

777777 


0  00  012117' 
000036 
013507' 
012716' 
012372' 
777777 


O's 

1's 

525252,, 525252 

000000,, 007777 

000000,, 007070 

000000,, 000707 

Failure:     — 
#«*******♦***********•*♦♦***************************•**************** 

Test  data 

TSTC36:  JRST    TG36  ;  go  start  test 

CBUS !NDMP!NDCfl!Z CBUS! 36        ;  test  mask 

T36M,,CASCIZ  *Fmtr  Down  Shift  4  (from  PLIN)  Test  -  SELRHTNIB=1*] 
[EXP  C20,C12,MLAST!C8:,,CEXP  C4,«LAST!C2] 
TSTC37  ;  failure  test  table 

I  «      •  •  • 


Start  test 


012i17'  201  00 
012120'  260  17 


012121' 
012122' 


201  01 
260  17 


012123'  263  }7 


00  000000' 
00  011637* 
00  012275' 
00  011641* 
00  000000 


TG36: 


MOVE  I 

GO 

MOVEI 

60 

RTN 


Z9 

TRACE 
1,T36M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


J 


IQ   1783 


DFPTA9 
DFPTA9 

8337 

8338 

8339 

8340 

8341 

8342 

8343 

8344 

8345 

8346 

8347 

8348 

8349 

8350 

8351 

8352 

8353 

8354 

8355 

8356 

8357 

8358 

8359 

8360 

8361 

8362 

8363 

8364 

8365 

8366 

8367 

8368 

8369 

8370 

8371 

8372 
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SEQ  1796 


012124'  400 
012125'  260 
012126'  402 


15 
17 
00 


00  000000 
00  011644* 
00  011645* 


012127'  205  00  0  00  013330' 
012130'  541  00  0  00  011662* 
012131'  251  00  0  00  000000* 


;  Initialization 

TL36:   SET2    ERFLG- 

GO     IPACLR 

SETZM   TSTSUB 

MOVSI  COOOOOO,, 000000 
777777 , ,777777 
525252,, 525252 
000000,, 007777 
000000,. 007070 
000000,, 000707 J 

HRRI    BUFF 

BLT     BUFF +5 


First  ensure  the  data  transfer  is  reset 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


012132' 
012133' 
012134' 
012135' 
012136' 
012137' 
012140' 


012141' 
012142' 
012143' 
012144' 
012145' 
012146' 
012147' 


201 
242 
260 
201 
260 
400 
260 


200 
260 
551 
2o! 
400 
260 
201 


01 
01 
17 
01 
17 
01 
17 


01 
17 
01 
02 
03 
17 
06 


00 
00 
00 
00 
00 
00 
00 


005000 

000001 

011763* 

000010 

011767* 

000000 

012136* 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

SETZ 

GO 


1,5000 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1, 

LDCSR 


00  013210' 
00  011661* 
00  012130* 
00  000006 
00  000000 
00  011665* 
00  012172' 


Now  generate  CCW  list 

MOVE  1,CCBUFSZ,,CBUFJ 

60  CHINIT 

HRRZl  1,BUFF 

MOVE!  2,6 

SETZ  3, 

60  6ENCCU 

MOVEI  6,TS36 

Start  up  the  data  transfer 


8373 
8374 

012150' 

201  01  0  00  001000 

MOVEI 

1,1000 

8375 

012151' 

242  01  0  00  000001 

LSH 

1,1 

8376 

012152' 

260  17  0  00  012134* 

GO 

LDRAR 

8377 

012153' 

201  01  0  00  000010 

MOVEI 

1 ,MPRUN 

8378 

012154' 

260  17  0  00  012140* 

60 

LDCSR 

8379 

012155' 

201  00  0  00  000001 

MOVEI 

1 

8380 

012156' 

260  17  0  00  011675* 

60 

ODELAY 

8381 

012157' 

400  01  0  00  000000 

SETZ 

1, 

8382 

012160' 

260  17  0  00  012154* 

60 

LDCSR 

8383 

8384 

;  Loop 

on  test 

execute  table  entries 

8385 

8386 

012161' 

260  17  0  00  011700* 

TA36: 

60 

TEXEC 

012162' 

254  00  0  00  012171' 

JRST 

TX36 

8388 

012163' 

254  00  0  00  012161' 

JRST 

TA36 

8389 

012164' 

474  15  0  00  000000 

SETO 

ERFL6. 

build  the  BLT  pointer 
insert  data  into  buffer 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  z-^ro  fill  specifier 

generate  a  CCU  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
set  up  delay  of  1  ms 
wait  a  bit 
clear  data 
stop  the  port 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  EBUf  data  incorrect 


L 


Q  178A 


0FPTA9 
DFPTA9 

8390 

8391 

8392 

8393 

8394 

8395 

8396 

8397 

8398 

8399 

8A00 

8A01 

8402 

8403 

8404 

8405 

8406 

8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 

8422 

8423 

8424 

8425 

8426 

8427 

8428 

8429 

8430 

8431 

8432 

8433 

8434 
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r 

D 
D 


;  Handle  error  printouts  and  scope  looping 


012165'  027 

012166'  254 

012167'  254 

012170'  322 


00 
00 
00 
15 


00  012262' 
00  012124' 
00  012171' 
00  012161' 


SCOPER 
JRST 
JR5T 
JUMPE 


MA36 
TL36 
TX36 
ERFL6,TA36 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


012171'  263  17  0  00  000000 


012172'  140000 
012173'  200000 


012174' 
012175' 


140000 
4OCC0O 


012176'  240001 
012177'  340000 


012200'  140000 

012201'  400000 

012202'  240001 

012203'  340000 


012204'  140000 

012205'  400000 

012206'  240001 

012207'  340000 


012210'  140000 

012211'  400000 

012212'  240001 

012213'  340000 


012222' 
012225' 


012252' 
000100 
012255' 
000000 


012252' 
000100 
012256' 
000000 


012252' 
000100 
012257' 
000000 


012252' 
000100 
012260' 
000000 


;  End  of  test 

TX36:   RTN 

;  Test  Execute  Table,  as 


;  return 
(CMD, parameters) 


TS36:   TTA8LE   (TCALL,TS36IN) 
TS36L:  TTABLE   (TCALLC,TS36NE) 

;  Shifted  8  hits 

TS36A:   TTABLE  (TCALL,TS36NN) 

TTABLE  (TSSTARJOf)) 

TTABLE  (TCHECK,1,TS36RS) 

TTABLE  (TEXIT) 

;  Shifted  16  bits 

TTABLE  (TCALL.TS36NN) 

TTABLE  (TSSTAR.100) 

TTABLE  (TCHECICJ,TS36RS+1) 

TTABLE  (TEXIT) 

;  Shifted  24  bits 

TTABLE  (TCALL,TS36NN) 

TTABLE  (TSSTAR.100) 

TTABLE  (TCHECK,1,TS36RS+2) 

TTABLE  (TEXIT) 

;  Shifted  32  bits 

TTABLE  (TCALL.TS36NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1.TS36RS+3) 

TTABLE  (TEXIT) 


initialize  stuff 

set  up  next  data  pattern 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  orror  yet 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 


Q  1785 
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8435 

8A36 

8A37 

8438 

8439 

8440 

8441 

8442 

8443 

8444 

8445 

8446 

8447 

8448 

8449 

8450 

8451 

8452 

8453 

8454 

8455 

8456 

8457 

8458 

8459 

8460 

8461 

8462 

8463 

8464 

8465 

8466 

8467 

8468 

8469 

8470 

8471 

8472 

8473 

8474 

8475 

8476 

8477 

8478 

8479 

8480 

8481 

8482 

8483 

8484 


012214' 
012215' 
012216' 
012217' 
012220* 
012221' 


140000 
400000 
240001 
340000 
300000 
000000 


012252' 

000100 

012261' 

000000 

012173' 

000000 


012222'  201  00  0  00  000000* 
012223'  202  00  0  00  014037' 
012224'  263  17  0  00  000000 


012225' 
012226' 
012227' 
012230' 
012231' 
012232' 
012233' 
012234' 
012235' 
012236' 
012237' 
012240' 
012241' 


012242' 
012243' 
012244' 
012245' 
012246' 
012247' 
012250' 
012251' 


350  01 
307  01 
350  00 

200  00 

201  02 
242  00 
303  02 
661  00 

202  00 
350  00 
307  02 
254 
4uJ 


00 
00 


0 
0 
0 
0 


0  00  014037' 
0  00  000000* 
0  17  000000 
0  01  000000 
0  00  012255' 
00  177770 
00  012255' 
00  740000 
.  02  000000 
0  00  000002 
0  00  012261' 
0  00  012232' 
0  00  014062' 


201 
242 
260 
201 
260 
400 
260 
263 


01 
01 
17 
01 
17 
01 
17 
17 


00  000200 
00  000001 
00  012152* 
00  000010 
00  012160* 
00  000000 
00  012246* 
00  000000 


012252'  201  00  0  00  000010 

012253'  272  00  0  00  014062' 

012254'  263  17  0  00  000000 

012255' 


Shifted  40  bits 


TTABLE  (TCALL.TS36NN) 

TTABLE  (TSSTARJOO) 

TTABLE  (TCHECK,1,TS36RS+4) 

TTABLE  (TEXIT) 

TTABLE  (TJRST,TS36L) 

TTABLE  (TLAST) 


Initialize  stuff 


TS36IN: 


MOVE  I 
MOVEM 
RTN 


BUFF-1 
T368UF# 


Set  up  next  data  pattern 


TS36NE 


TS36N0: 


AGS 

CAI6 

AOS 

HOVE 

MOVE  I 

LSH 

CAILE 

TLO 

MOVEM 

AOS 

CAIG 

JRST 

SETZM 


1,T368UF 

1 -BUFF +5 

{h 

(1) 

2-TS36RS 

-8 

2JS36RS 

7^0000 

(2) 

2 

2,TS36RS+4 

TS36N0 

TS36NM# 


Read  the  next  word 


MOVE! 

LSH 

60 

MOVE  I 

GO 

SETZ 

GO 

RTN 


1,200 

1.1 

LDRAR 

1 ,MPRUN 

LDCSR 

1. 

LDCSR 


Increment  shift  count 


TS36NN; 


MOVE  I 

ADDM 

RTN 


8 
TS36NM 


TS36RS:  BLOCK   5 


SEO  1798 


D 
D 


increment  shift  count 
start  up  port 
check  if  completed 
exit  if  error  yet 
loop  till  done 


;  in^'lialize  ouiier  pointer 
;  return 


point  to  next  data  pattern 
done  yet? 

no  -  set  up  proper  return 
get  data  pattern 

get  initial  address  of  E6UF  data 
shift  4  bits 

if  past  the  first  shift,  insert 
the  PLIN  data  into  left  8  bits 
save  it 

point  to  next  address 
done  yet? 

no  -  loop  till  done 
initialize  number  of  shifts 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
clear  data 
stop  the  port 
return 


get  a  8 
add  it 
return 

correct  EBUF  data 


L 


0  1786 


0FPTA9 
DFPTA9 

8A85 

8A86 

8487 

8A88 

8A89 

8490 

8491 

8492 

8493 

8494 

8495 

8496 

8497 

8498 

8499 

8500 

8501 

8502 

8503 

8504 

8505 

8506 

8507 

8508 

8509 

8510 

8511 

8512 

8513 

8514 

8515 

8516 

8517 

8518 

8519 

8520 

8521 

8522 

8523 

8524 

8525 

8526 

8527 

8528 

8529 

8530 

8531 

8532 

8533 

8534 

8535 

8536 

8537 

8538 

8539 
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012262* 
012263' 

012264' 
012265' 
012266' 
012267' 
012270' 
012271' 
012272' 
012273' 
012274' 


012275' 
012276' 
012277' 
012300' 
012301' 
012302' 
012303' 
012304' 


012305' 
012306' 
012307' 
012310' 
012311' 
012312' 
012313' 
012314' 
012315' 
012316' 
012317' 
012320' 
012321' 
012322' 
012323' 
012324' 


012325' 
012326' 
012327' 
012330' 
012331' 
012332' 
012333* 


240000  012264' 
000000000000* 
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;  Error  messages 
MA36: 


SEO  1799 


037  00  0 
200  01  0 
200  00 
037  13 
037  00 
200  00 
037  15 
037  00 
263  17 


00 
00 
01 
00 
00 
00 
00 
00 
00 


013336' 

014037' 

000000 

000000 

013502' 

014062' 

000000 

013343' 

000000 


010001 
001000 
01C100 
001000 
010200 
732002 
010351 
001000 


020002 
OuJOOO 
020102 
001400 
020202 
001000 
020300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
000000 


100010 
000000 
100100 
001000 
100200 
732000 
100310 


010000 
000040 
000226 
003340 
000200 
002340 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004340 
310360 
240300 
030000 


CALI.!TXN0T!MA36PN 
LAST! CALL ITXALLITTPNT 


MA36PN: 


TMS6C 

MOVE 

MOVE 

PNTHU 

TMS6 

MOVE 

PNTDEC 

TMSG 

RTN 


<Data  > 

1J36BUF 

(1) 


;  print  data  pattern 
;  print  test  data 

;  get  data  and 

print  it 


<  shifted  down  from  PLIN  > 
TS36NM  ; 

<•  bits,  result  in  EBUF> 


get  shift  count 


;  Microcode  -  Shift  8  bits 

T36M:   MUORD   <ADDR=100,JMAP,J=101.D=1> 
MWORD   <C0NT,D=1,SELF,M6C=226> 
MUORD   <CONT,SD0.OR,B=4,D=2.SELM,MGC=200> 
MWORD   <JMAP.J=5100,D=1> 

;      Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200,JMAP,J=201> 

MWORD  <CJP,J=203,D=1,CENA,CCCA> 

MWORD  <JMAP,J=201.D=1> 

MWORD  <CONT,D=1,SELF.MGC=200> 

MWORD  <C0NT,D=1,SELF,MGC=204> 

MWORD  <C0NT.D=1,SELC.MGC=4> 

MWORD  <CONT,SDO,OR.B=3,D=2,SELM,MGC=200> 

MWORD  <JZ> 

;      Initialization 

MWORD   <ADDR=1000,JMAP,J=1001 ,SELM,MGC=20> 
MWORD   <C0NT,D=1.SELC,MGC=200> 
MWORD   <LDCT,J=31,SD0,OR.D=2.SKCN,MGC=360> 
MWORD   <RPCT,J=1003,S0A.OR,D=5> 


100 
101 
102 
103 

?00 
201 
202 
203 
204 
205 
206 
207 

1000 
1001 
1002 
1003 


.._.] 


1  1787 


0FPTA9 
DFPTA9 

85A0 

85A1 

8542 

85A3 

85AA 

85A5 

85A6 

8547 

8548 

8549 

8550 

8551 

8552 

8553 

8554 

8555 

8556 

8557 

8558 

8559 

8560 

8561 

8562 

8563 

8564 

8565 

8566 

8567 

8568 

8569 

8570 

8571 

8572 

8573 

8574 

8575 
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012334' 
012335* 
012336* 
012337* 
012340* 
01234  V 
012342* 


435000 
100400 
431000 
100500 
701000 
000000 
000000 


012343*  500050 

012344'  000000 

012345*  500100 

012346*  000000 


012347* 
012350* 
012351* 
012352* 
012353* 
012354* 
012355* 
012356* 
012357* 
012360* 
012361' 
012362* 
012363* 
012364* 
012365* 
012366* 
012367* 
012370* 
012371* 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
OulOOO 
510700 
431010 
511051 
431040 

mm 


000220 
002040 
002340 

QOOOOO 
000000 


010100 
004040 
000020 
002000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 

mm 
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MUORD  <CONT,S0A,QR,D=1,OENA,SELM,MGC=40>  ;  1004 

HWORD  <JZ,SD0,D=1,SELP,MGC=6>  ;  1005 

MWORD  <ADDR=0,JZ>  ;  0 

;      Initialization  step 

MWORD  <ADDR=5000,JMAP,J=5001,SELC,MGC=100>  ;  5000 

MUORD  <JZ,SELM,MGC=20>  ;  5001 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MUORD  <ADDR=5100,CONT,SD0,AND,B=2,D=2>  ;  5100 

MWORD  <C0NT. SOB. PLUS, 8=2, D=2,CRY>  ;  5101 

MWORD  <LDCT.J=26>  ;  5102 

MWORD  <RPCT,J=5103. SAB, PLUS. A=2,B=2.D=2>  ;  5103 

MWORD  <C0NT,S0A,A=2,0R.D=1.0ENA,SELE.M6C=4>  ;  5104 

MWORD  <CJP.J=5107.CENA.CC6C,D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP.J=5105,D=1>  ;  5106 

MWORD  <CONT,S0A.A=1.0R,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP.J=5110,SOA.A=4.0R,D=1.0ENA.SELE.M6C=4>    ;  5110 
-1 


SEO  1800 


..._J 
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SEQ  1801 


8576 
8577 
8578 
8579 
8580 
8581 
8582 
8583 
8584 
8585 
8586 
8587 
8588 
8589 
8590 
8591 
8592 
8593 
8594 
8595 
8596 
8597 
8598 
8599 
8600 
8601 
8602 
8603 
8604 
8605 
8606 
8607 
8608 
8609 
8610 
8611 
8612 
8613 
8614 
8615 
8616 
8617 
8618 
8619 
8620 
-8621 
8622 


012372'  2S4  00  0  00  012377' 

012373'  100604  000037 

012374'  012536'  013545' 

012375'  013263'  012716' 

012376'  mm   mm 


012377'  201  00  0 

012400'  260  17  0 

012401'  201  01  0 

012402'  260  17  0 

012403'  263  17  0 


00  000000' 
00  012120* 
00  012536' 
00  012122* 
00  000000 


/If**********************************  ****************************  ****** 
*  Test  37  -  Fmtr  Ring  Buffer  Test 


Description; 


Procedure: 


Ven'f)f  that  the  formatter  is  capable  of  shifting 
down  in  a  circular  manner,  retaining  the  data  in 
the  formatter. 

KL>  Port  Clear 

KL>  Set  up  data  transfer  for  data  patterns 

UC>  Read  a  data  pattern  over  the  CBUS 

UC>  Shift  formatter  up/down  8  bits  to  clear  it 

UC>  Load  data  into  formatter 

UC>  Shift  down  4  bits  (11  times) 

UC>  Read  formatter  contents  and  verify  same 

as  it  was  originally 
UC>  Repeat  the  above  2  steps  512  times 

Repeat  the  above  6  steps  6  times,  for  each  data 
pattern. 


Do  for  data  patterns: 


O's 

1's 

525252,, 525252 

000000,, 007777 

000000,, 007070 

000000,, 000707 

Failure:     — 
/If******************************************************************** 

Test  data 

TSTC37:  JRST    T637  ;  go  start  test 

CByS!NDf1P!NDCB!ZCBUS!37       ;  test  mask 
T37M,,CASCIZ  *Fffltr  Ring  Buffer  Test*3 
CEXP  C20,C12,MLAST!C8D,,CEXP  C4,MLAST!C2] 
-1  ;  failure  test  table 


Start  test 


TG37: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


Z9 

TRACE 
1,T37M 
TLOAD 


:  get  address  of  module  start 
;  nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


J 
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8623 

862A 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 

863A 

8635 

8636 

8637 

8638 

8639 

86A0 

8641 

8642 

8643 

8644 

8645 

8646 

8647 

8648 

8649 

8650 

8651 

8652 

8653 

8654 

8655 

8656 

8657 

8658 

8659 

8660 

8661 

8662 

8663 

8664 

8665 

8666 

8667 

8668 

8669 

8670 


012404'  400  15  0 
012405'  260  17  0 
012406'  402  00  0 


00  000000 
00  012125* 
00  012126* 


012407'  205  00  0  00  013330' 
012410'  541  00  0  00  012143* 
012411'  251  00  0  00  000000* 


012412' 
012413' 
012414' 
012415' 
012416' 
012417' 
012420' 
012421' 
012422' 


012423' 
012424' 
012425' 
012426' 
012427' 
012430' 
012431' 


012432' 
012433' 
012434' 
012435' 
012436' 
012437' 
012440* 
012441' 
012442' 


201  01 
242  01 
260  17 
201  01 
260  17 
201  00 
260  17 
400  01 
260  17 


200  01 
2o.'  17 
551  01 

201  02 
400  03 
260  17 
201  06 


201  01 
242  01 
260  17 
201  01 
260  17 
201  00 
260  17 
400  01 
260  17 


00  005000 
00  000001 
00  012244* 
00  000010 
00  012250* 
00  000001 
00  012156* 
00  000000 
00  012416* 


0  00  013210' 
0  00  012142* 
0  00  012410* 
0  00  000006 
0  00  000000 
0  00  012146* 
0  00  012477' 


00 
00 
00 
00 
00 
00 
00 
00 
00 


001000 

000001 

012414* 

000010 

012422* 

000001 

012420* 

000000 

012436* 


Initialization 


37:   SETZ 

ERFL6. 

GO 

IPACLR 

SETZM 

TSTSUB 

MOVSI 

COOOOOO. 

.000000 

mm. 

.mm 

525252, 

.525252 

000000, 

.007777 

000000, 

.007070 

000000, 

,0007073 

HRRI 

BUFF 

BLT 

BUFF +5 

First  ensure 

the  data 

transfer 

MOVE  I 

l.,5000 

LSH 

1.1 

60 

LDRAR 

MOVE  I 

1 .MPRUN 

GO 

LDCSR 

MOVE  I 

1 

60 

ODELAY 

SETZ 

1. 

60 

LDCSR 

Now  generate 

CCW  list 

MOVE 

1.CC8UFSZ..CBUF] 

60 

CHINIT 

HRRZl 

1.8UFF 

MOVEl 

2.6 

SETZ 

3. 

60 

GENCCU 

MOVE  I 

6.TS37 

Start  up  the  data  transfer 


MOVE  I 

LSH 

GO 

MOVE  I 

GO 

MOVE  J 

GO 

SETZ 

GO 


1,1000 

1,1 

LDRAR 

1 , MPRUN 

LDCSR 

1 

ODELAY 

1, 

LDCSR 


SEQ  1802 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  address  of  buffer 
contents 


build  the  BLT  pointer 
insert  data  into  buffer 


is  reset 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
wait  a  little  bit 
(1  millisecond) 
clear  data 
stop  the  port 


get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

get  test  execute  table  address 


get  start  address 
position  correctly 
load  the  register 
get  MPRUN  bit 
start  up  the  port 
wait  a  little  bit 
(1  millisecond) 
clear  data 
stop  the  port 
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DFPTA9 
DFPTA9 

8671 

8672 

8673 

867A 

8675 

8676 

8677 

8678 

8679 

8680 

8681 

8682 

8683 

8684 

8685 

8686 

8687 

8688 

8689 

8690 

8691 

8692 

8693 

869A 

8695 

8696 

8697 

8698 

8699 

8700 

8701 

8702 

8703 

8704 

8705 

8706 

8707 

8708 

8709 

Q710 

8711 

8712 

8713 

8714 

8715 

8716 

8717 

8718 

8719 

8720 

8721 
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SEQ  1803 


012443'  260  17  0  00  012161* 

012444'  254  00  0  00  012476' 

012445'  254  00  0  00  012443' 

012446'  474  15  0  00  000000 


012447' 
012450' 
012451' 
012452' 
012453' 
012454' 
012455' 
012456' 
012457' 
012460' 
012461' 
012462' 
012463' 
012464' 
012465' 
012466' 
012467' 
012470' 
012471' 


012472'  027  00  0  00  012525' 

012473'  254  00  0  00  012404' 

012474'  254  00  0  00  012476' 

012475'  322  15  0  00  0!2443' 


012476'  263  17  0  00  000000 


260 

17  0  00  012405* 

201 

01 

0  00  002000 

242 

01 

0  00  000001 

260  17  0  00  012434* 

201 

01 

0  00  000010 

260  17  0  00  012442* 

201 

01 

0  00  200000 

260 

17  0  00  012454* 

260  17  0  00  007021* 

202 

01 

0  00  000000* 

201 

01 

0  00  002002 

242 

01 

0  00  000001 

260 

17 

0  00  012452* 

201 

01 

0  00  000010 

260 

17  0  00  012456* 

201 

01 

0  00  200000 

260 

17  0  00  012465* 

260 

17 

0  00  012457* 

202 

01 

0  00  000000* 

012477' 
012500' 
012501' 
012502' 
012503' 
012504' 
012505' 


140000 
200000 
400000 
240005 
340000 
300000 
000000 


012506' 

012510' 

000100 

000000 

000000 

012500' 

000000 


;  Loop  on  test  execute  table  entries 


TA37; 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX37 
TA37 
ERFLG, 


;  Get  correct/actual  data  (R3/R4) 


GO 

HOVE  I 

LSH 

GO 

MOVE  I 

GO 

MOVE  I 

GO 

GO 

MOVEM 

MOVE  I 

LSH 

GO 

MOVE  I 

GO 

MOVE  I 

GO 

60 

MOVEM 


IPACLR 

1,2000 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1,TSTEBF 

LDCSR 

RDEBUF 

1,TEBUFC 

1,2002 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1,TSTEBF 

LDCSR 

RDEBUF 

1,TEBUFA 


execute  table  entry 

end  of  table 

keep  looping  after  call 

error  -  EBUP  data  incorrect 


do  a  'port  clear' 
set  start  address  to 
2000 


;  start  the  port 

;  stop  the  port 

:  read  EBUF  data 

;  save  it 

;  set  start  address  to 

;   2002 


start  the  port 

stop  the  port 
read  EBUF  data 
save  it 


;  Handle  error  printouts  and  scope  looping 

SCOPER  MA37 
JRST  TL37 
JRST  TX37 
JUMPE   ERFL6,TA37 

;  End  of  test 


;  print  error  message 

;  loop  on  error 

;  altmode  exit 

;  do  next  sstep  table  entry 


TX37:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD, parameters) 


TS37:   TTABLE  (TCALL.TSSTJ.'J) 

TS37A:  TTABLE  (TCALLC,TS37CH) 

TTABLE  (TSSTAR,100) 

TTABLE  (TCHECK,5,0) 

TTABLE  (TEXIT) 

TTABLE  (TJRST,TS37A) 

TTABLE  (TLAST) 


init  data  pattern 

set  up  next  data  pattern 

start  up  port 

check  if  completed 

exit  if  error  yet 

loop  till  done 
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8722 
8723 

012506' 

476  00  0  00  014063' 

TS37IN: 

SETOM 

TS37DA* 

init  word  number 

8724 
8725 
8726 

012507' 

263  17  0  00  OOOOOO 

RTN 

1 

•  return 

012510' 

350  01 

0  00  014063' 

TS37CH: 

AOS 

1,TS37DA 

■  point  to  next  word  number 

8727 

012511' 

305  01 

0  00  000006 

CAIGE 

1,6 

done  yet? 

8728 

012512' 

350  00  0  17  OOOOOO 

AOS 

no  -  set  up  proper  return 

8729 

8730 
8731 
8732 

;  Read 

the  next 

word 

012513' 

201  01 

0  00  000200 

HOVE  I 

1,200 

■  get  start  address 

8733 

012514' 

242  01 

0  00  000001 

LSH 

1J 

•  position  correctly 

8734 

012515' 

260  17  0  00  012463* 

60 

LDRAR 

•  load  the  register 

8735 

012516' 

201  01 

0  00  000010 

MOVE! 

1 .MPRUN 

•  get  MPRUN  bit 

8736 

012517' 

260  17  0  00  012467* 

GO 

LDCSR 

■  start  up  the  port 

8737 

012520' 

201  00  0  00  000001 

MOVE! 

1 

■  wait  a  little  bit 

8738 

012521' 

260  17  0  00  012440* 

GO 

ODELAY 

(1  millisecond) 

8739 

012522' 

400  01 

0  00  oooooo 

SETZ 

1, 

■  clear  data 

8740 

012523' 

260  17  0  00  012517* 

GO 

LDCSR 

■  stop  the  port 

8741 

012524' 

263  17  0  00  OOOOOO 

RTN 

•  return 

8742 

8743 

;  Error 

messages 

8744 

8745 

012525' 

240000 

012527' 

MA37: 

CALLITXN0TIMA37PN 

;  print  data  pattern  ... 

8746 
8747 
8748 

012526' 

000000000000* 

LAST! CALL !TXALL!TTPNT 

;  print  test  data 

012527' 

037  00  0  00  013336' 

MA37PN: 

TMS6C 

<Data  > 

;  get  data  and 

8749 

012530' 

200  01 

0  00  014063' 

MOVE 

1,TS37DA 

;   print  it 

8750 

012531' 

200  00 

0  01  012425* 

MOVE 

BUFF(I) 

8751 

012532' 

037  13  0  00  OOOOOO 

PNTHW 

8752 

012533' 

03'  00  0  00  013552' 

TMSG 

<  changed  while  being  sh 
<Result  in  EBUF.> 

if ted  down  continuously.: 

> 

8753 

012534' 

037  00  0  00  013564' 

TMSGC 

8754 

012535' 

263  17  0  00  OOOOOO 

RTN 

8755 

8756 

;  Microcode 

8757 

8758 

012536' 

010001 

010000 

T37M: 

MUORD 

<ADDR=100, JMAP,J=101 ,S0B,AND,B=5,D=2> 

■  100 

8759 

012537' 

342002 

400040 

8760 

012540' 

010110 

OOOOOO 

MWORD 

<LDCT,J=1000> 

1 

■  101 

8761 

012541' 

OOOOOO 

000300 

8762 

012542' 

010200 

000204 

MUORD 

<C0NT, SOB, PLUS, B=5,D=2. CRY, SELF. MGC=204> 

■  102 

8763 

012543' 

302002 

403740 

8764 

012544' 

010300 

000104 

MUORD 

<C0NT,SELF,MGC=104> 

•  103 

8765 

012545' 

OOOOOO 

003340 

8766 

012546' 

010400 

000204 

MUORD 

<C0NT,SELF,M6C=204> 

•  104 

8767 

012547- 

OOOOOO 

003340 

8768 

012550' 

010500 

000104 

MUORD 

<C0NT,SELF,MGC=104> 

•  105 

8769 

012551' 

OOOOOO 

003340 

8770 

012552' 

010600 

000204 

MUORD 

<CONT.SELF,MGC=204> 

■  106 

8771 

012553' 

OOOOOO 

003340 

8772 

012554' 

010700 

000104 

MUORD 

<CONT,SELF,MGC=104> 

•  107 

8773 

012555' 

OOOOOO 

003340 

8774 

012556* 

011000 

000204 
003340 

MUORD 

<CONT,SELF,MGC=204> 

■  110 

8775 

012557' 

OOOOOO 

8776 

012560' 

011100 

000104 

MUORD 

<C0NT,SELF,MGC=104> 

■  111 

SEQ  1804 


r 


1792 


DFPTA9 
DFPTA9 

8777 

8778 

8779 

8780 

8781 

8782 

8783 

878A 

8785 

8786 

8787 

8788 

8789 

8790 

8791 

8792 

8793 

8794 

8795 

8796 

8797 

8798 

8799 

8800 

8801 

8802 

8803 

8804 

8805 

8806 

8807 

8808 

8809 

8810 

8811 

8812 

8813 

88U 

8815 

8816 

8817 

8818 

8819 

8820 

8821 

8822 

8823 

8824 

8825 

8826 

8827 

8828 

8829 

8830 

8831 


MACRO  X53B(1242)  09:42  1 
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SEQ  1805 


012561' 
012562' 
012563' 
012564' 
012565' 
012566' 
012567' 
012570' 
012571' 
012572' 
012573' 


012574' 
012575' 
012576' 
012577' 
012600' 
012601' 
012602' 
012603' 
012604' 
012605' 
012606' 
012607' 
012610' 
012611' 
012612' 
012613' 


012614' 
012615' 
012616' 
012617' 
012620' 
012621' 


012622' 
012623' 
012624' 
012625' 
012626' 
012627' 
012630' 
012631' 


000000 
011200 
732002 
011301 
111432 
011452 
001000 
011501 
000000 
011651 
001000 


020002 
000000 
020102 
001400 
020202 
001000 
02C300 
001000 
020400 
001000 
020500 
001000 
020600 
732001 
020700 
432033 


10001 J 
000000 
100100 
001000 
000000 
000000 


200020 
432030 
200120 
000000 
200220 
432030 
200320 
000000 


012632^  500050 
012633'  000000 


003340 
000200 
002340 
150000 
020460 
000000 
000040 
020000 
000220 
000000 
000040 


010000 
000040 
030000 
000060 
010000 
000040 
000200 
003340 
000204 
003340 
000004 
004340 
000200 
402340 
000000 
000000 


010020 
002040 
000200 
004000 
000000 
000000 


012004 
005040 
010000 
000040 
032004 
005040 
030000 
000040 


010100 
004040 


MWORD  <CONT,SD0,OR,B=4.D=2,SELM,M6C=200> 

MWORD  <CJPJ=115.SAB,A=3,B=4,D=1,SMIN,CRY,CENA,CCFZ> 

MWORD  <JMAP,J=5200,D=1> 

MWORD  <RPCT,J=102> 

MWORD  <JMAP,J=5100,D=1> 

Routine  to  read  a  word  from  CBUS  into  the  formatter. 

MWORD  <ADDR=200,JMAP,J=201> 

MWORD  <CJP,J=203,D=1,CENA.CCCA> 

MWORD  <JMAP.J=201.D=1> 

MWORD  <CONT,D=1.SELF,MGC=200> 

MWORD  <C0NT,D=1.SELF,M6C=204> 

MWORD  <C0NT,D=1.SELC,MGC=4> 

MWORD  <CONT,SD0,OR,B=3.D=2,SELM.M6C=200> 

MWORD  <JZ.S0A,OR.A=3,8=6.D=2> 

Initialization 

MWORD  <ADDR=1000JMAP,J-'!001.SELM,M6C=20> 

MWORD  <JZ,D=1.SELC.M6C=200> 

MWORD  <ADDR=0,J2> 


112 
113 
114 
115 
116 

200 
201 
202 
203 
204 
205 
206 
207 

1000 
1001 
0 


Read  correct/actual  data 

MWORD       <ADDR=2000 JMAP.J=2001 ,SOA,A=3.0R,D=2,OENA,SELE,MGC=4> 


MWORD       <JMAP.J=2001> 

MWORD       <JMAP,J=20O3,S0A.A=3,OR,D=2,OENA.SELE,MGC=4> 

MWORD   <JMAP,J=2003> 

Initialization  step 

MWORD   <ADDR=5OOO.JMAP,J=5001,SELC,MGC=10O> 


2001 
2002 
2003 

;  5000 


r 


1793 
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8832 
8833 
8834 
8835 
8836 
8837 
8838 
8839 
8840 
88A1 
8842 
8843 
8844 
8845 
8846 
8847 
8848 
8849 
8850 
8851 
8852 
8853 
8854 
8855 
8856 
8857 
8858 
8859 
8860 
8861 
8862 
8863 
8864 
8865 
8866 
8867 
8868 
8869 
8870 
8871 
8872 
8873 
8874 
8875 
8876 
8877 
8878 
8879 
8880 
8881 
8882 
8883 
8884 
NO  ERRORS 


012634' 
012635' 


500100 
000000 


012636' 
012637' 
012640' 
012641* 
012642' 
012643' 
012644' 
012645' 
012646' 
012647' 
012650' 
012651' 
012652' 
012653' 
012654' 
012655' 
012656' 
012657' 


012660' 
012661' 
012662' 
012663' 
012664' 
012665' 
012666' 
012667' 
012670' 
012671' 
012672' 
012673' 
012674' 
012675' 
012676' 
012677' 
012700' 
012701' 
012702' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
431040 


520000 
742001 
520100 
302001 
5^J200 
000000 
520352 
102021 
520400 
431020 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
431040 

mm 


DETECTED 


000020 
002000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
102004 
005040 

mm 
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MUORD  <JZ,SELM.MGC=20> 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD  <ADDR=51O0,CONT.SD0,AND,B=2.D=2> 

MWORD  <CONT, SOB, PLUS, 8=2, D=2.CRY> 

MWORD  <LDCT,J=26> 

MWORD  <RPCT,J=5103, SAB, PLUS, A=2, 8=2, D=2> 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4> 

MWORD  <CJP.J=5107,CENA,CCGC,D=1,SELE,M6C=40> 

MWORD  <JMAP,J=5105,D=1> 

MWORD  <CONT.S0A,A=1,OR,D=1,SELE,MGC=200> 

MWORD  <JMAP,J=5110,S0A,OR,A=4,D=1,OENA,SELE.MGC=4> 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 

MWORD  <ADDR=52O0,CONT,SD0,AND,8=2,D=2> 

MWORD  <C0NT, SOB, PLUS, 8=2, D=2,CRY> 

MWORD  <LDCT,J=25> 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2, 8=2, D=2> 

MWORD  <CONT,S0A,A=2,OR,D=1 ,0ENA,SELE,MGC=4> 

MWORD  <CJP,J=5207,CENA,CCGC,D=1 ,SELE,MGC=40> 

MWORD  <JMAP,J=5205,D=1> 

MWORD  <CONT.S0A,A=1,OR,D=1.SELE,M6C=200> 

MWORD  <JMAP,J=5210,S0A,OR,A=4,D=1,OENA,SELE,MGC=4> 
-1 


SEO  1806 


5001 

5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5110 

5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5210 


End  of  CBUS  Tests  (Part  1) 
XLIST 
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SEQ  1807 


PROGRAM  BREAK  IS  0U065 
CPU  TIME  USED  07:37.654 

207P  CORE  USED 


>EQ  1795 


DFPTA9 
DFPTA9 

BBPNT 

BEXEC 

BUFCOM 

BUFF 

BUFGEN 

CI 

C12 

C13 

CU 

CIS 

C16 

CI  7 

C18 

C19 

C2 

C20 

C21 

C22 

C23 

C24 

C3 

C4 

C5 

C8 

CALL 

CBUF 

CBUFSZ 

CBUS 

CCALL 

CCALLC 

CCOMP 

CCPNT 

CDERR 

CEBUFA 

CEXEC 

CEXIT 

CHINIT 

CJRST 

CLAST 

CLEN 

CPAT 

CRAMPE 

CSETRD 

CSETRU 

CSETWR 

CSRPNT 

CSTART 

CSTATF 

CWAIT 

El 

EA 

EBUSPE 

ERFLG 

6ENCCW 

GO 
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SYMBOL  TABLE 


000000 

ext 

IPACLR 

003056' 

ext 

IPASRT 

002642' 

ext 

LAST 

012531' 

ext 

LDCSR 

000000 

ext 

LDRAR 

000054 

spd 

MAI 

000067 

spd 

MA10 

000070 

spd 

MA10CH 

000071 

spd 

MA11 

000072 

spd 

MAI  2 

000073 

spd 

MA12P1 

000074 

spd 

MA12PN 

000075 

spd 

MAI  3 

000076 

spd 

MA13PN 

000055 

spd 

MAI  4 

000077 

spd 

MA14PN 

000100 

spd 

MA15 

000101 

spd 

MA15PN 

000102 

spd 

MAI  6 

000103 

spd 

MA16PN 

000056 

spd 

MAI  7 

000057 

spd 

MA17PN 

000060 

spd 

MA2 

000063 

spd 

MA20 

200000  000000 

spd 

MA20PN 

013210' 

ext 

MA21 

000315 

spd 

MA21PN 

100000  000000 

spd 

MA22 

000005 

spd 

MA22PN 

000006 

spd 

MA23 

GuJOlO 

spd 

MA23PN 

000000 

ext 

MA24 

002643' 

ext 

MA24PN 

013105' 

ext 

MA25 

002571 ' 

ext 

MA25P1 

000012 

spd 

MA25PN 

012424' 

ext 

MA26 

000011 

spd 

MA26PN 

000000 

spd 

MA27 

013102' 

ext 

MA27PN 

002641 ' 

ext 

MA3 

004000  000000 

spd 

MA30 

000001 

3pd 

MA30PN 

000003 

spd 

MA31 

000002 

spd 

MA31PN 

007037' 

ext 

MA32 

000004 

spd 

MA32PN 

001715' 

ext 

MA33 

000007 

spd 

MA33PN 

000001 

spd 

MA34 

000004 

spd 

MA34PN 

004000 

spd 

MA35 

000015 

MA35PN 

012430' 

ext 

MA36 

2607^0  000000 

MA36PN 

010000 


012447' 

007000' 

000000 

012523' 

012515' 

000150' 

002632' 

002635' 

003072' 

003155' 

003157' 

003171' 

003414' 

003416' 

003713' 

003715' 

004216' 

004220' 

004527' 

004531 ' 

005040' 

005042' 

000715' 

005352' 

005354' 

005632' 

005634 ' 

006111' 

006113' 

006367' 

006371 ' 

006650' 

006652' 

007027' 

007031 ' 

007043' 

007272' 

007274 ' 

007600' 

007602' 

001121' 

010114' 

010116' 

010432' 

010434' 

010750' 

010752' 

011234' 

011236' 

011517' 

011521' 

012001' 

012003' 

012262' 

012264' 


ext 
ext 
spd 
ext 
ext 


MA37 

MA37PN 

MA4 

MAS 

MA5CH0 

MA5CHE 

MA6 

(1A6CH0 

MA6CH1 

MA6CHE 

MA7 

MA7CHE 

nB12 

MB25 

MBCN 

MBUS 

MLAST 

MPRUN 

MSG 

NDCB 

NDMP 

ODELAY 

P 

PAT 

PATBUF 

PDEC 

PNTDEC 

PNTHW 

PNTMS6 

PORTCI 

PORTNI 

RDCSR 

RDEBUF 

RTN 

SAVCSR 

SAVDAl 

SAVDA2 

SAVDAT 

SAVNUM 

SCOPER 

SCOSU 

SDATA 

SNEXT 

SSLAST 

SSSTRT 

T10M 

T11M 

T12M 

T13BUF 

T13M 

T14BUF 

T14H 

T15BUF 

T15M 

T16BUF 


010000 
400000 

100000 
000200 
000400 


006000 
037640 
037540 
037000 


263740 


027000 


012525' 

012527' 

001216' 

001370' 

001406' 

001373' 

001742' 

001760' 

002006' 

001745' 

002321 ' 

002324' 

003167' 

007041 ' 

000016 

000000 

000000 

000010 

000000 

000000 

000000 

012521' 

000017 

000014 

001674' 

000000 

000000 

000000 

000000 

001710' 

001706' 

007031 ' 

012470' 

000000 

014010' 

014011' 

014012' 

014013' 

0U014' 

000000 

000000 

006777' 

006775' 

000000 

000001 

002645' 

003074' 

003175' 

014015' 

003427' 

014016' 

003726' 

014017' 

004231 ' 

014020' 


SEQ  1808 

T16M 

004542' 

T17BUF 

)1402r 

T17M 

)05053' 

TIM 

)00152' 

T20BUF 

)14022' 

T20M 

)05365' 

T21BUF 

)14023' 

T21M 

)05645' 

T22BUF 

)14024' 

T22M 

)06124' 

T23BUF 

)14025' 

T23M 

)06402' 

T24BUF 

)14026' 

T24M 

)06663' 

T25M 

)07047' 

spd 

T26BUF 

)14027' 

spd 

T26M 

)07305' 

spd 

T27BUF 

)14030' 

spd 

T27M 

)07613' 

spd 

T2M 

)00717' 

spd 

T30BUF 

)14031' 

ext 

T30M 

010127' 

T31BUF 

)14032' 

T31M 

)10445' 

ext 

T32BUF 

)14033' 

T32M 

)10763' 

T33BUF 

)14034' 

T33M 

)11247' 

T34BUF 

)14035' 

ext 

T34M 

)11532' 

ext 

T35BUF 

)14036' 

ext 

T35M 

)12014' 

ext 

T36BUF 

)14037' 

T36M 

)12275' 

T37M 

)12536' 

T3M 

)01123' 

T4M 

)01220' 

T5M 

)01453' 

T6M 

)02022' 

T6MM 

)01717' 

ext 

T7M 

)02334' 

ext 

TA1 

)00022' 

ext 

TA10 

002570' 

spd 

TA11 

003056' 

spd 

TA12 

003117' 

TA13 

003262' 

TA14 

003563' 

TA15 

004063' 

TA16 

004376' 

TA17 

004707' 

TA2 

000657' 

TA20 

005217' 

TA21 

005530' 

TA22 

006011' 

TA23 

006267' 

;EQ  1796 
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TA24  006546* 

TA25  006771 ' 

TA26  007135' 

TA27  007446' 

TA3  001066' 

TA30  007762' 

TA31  010300' 

TA32  010616' 

TA33  011133' 

TA34  011416' 

TA35  011700' 

TA36  012161' 

TA37  012443' 

TA4  001174' 

TA5  001316' 

TA6  001632' 

TA7  002267' 

TB10  002571' 

TB3  001067' 

TB4  001175' 

TBS  001317' 

TB6  001633' 

TB7  002270* 

TCALL  000003  spd 

TCALLC  000004  spd 

TCHECK  000005  spd 

TEBUFA  012471'  ext 

TEBUFC  012460'  ext 

TEXEC  012443'  ext 

TEXIT  000007  spd 

TGI  OuJOir 

TG10  002526' 

TG11  003045' 

TGI 2  003112' 

TGI  3  003220' 

TGI  4  003521' 

TGI  5  004021* 

TGI  6  C04334' 

TGI  7  004645' 

TG2  000646' 

TG20  005155* 

TG21  005466* 

TG22  005747' 

TG23  006225' 

TG24  006504' 

TG25  006764' 

TG26  007073' 

TG27  007404 ' 

TG3  001055' 

TG30  007720' 

TG31  010236' 

TG32  010554' 

TG33  011071* 

TG34  011354* 

TG35  011636* 
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SEQ  1809 


TG36 
TG37 
T64 

T67 

TJRST 

TLl 

TLIO 

TLll 

TL13 

TL14 

TL15 

TL16 

TL17 

TL2 

TL20 

TL21 

TL22 

TL2i 

TL24 

TL26 

TL27 

TL3 

TL30 

TL31 

TL32 

TL33 

TL34 

TL35 

TL36 

TL37 

TL4 

TL5 

TL6 

TL7 

TLAST 

TlOAD 

TRACE 

TS1 

TS10 

TSIOA 

TS10IN 

TS10SE 

TSIOSW 

TS11 

TS13 

TS13A 

TS13IN 

TS13L 

TS13N0 

TS13NE 

TS13NM 

TS13NN 

TS13RS 


)12117' 
)12377' 
)01162' 
)1305' 
J1621' 
)Q2225' 
300006 
500016' 
302533' 
503052' 
503225' 
503526' 
504026* 
504341  * 
504652* 
500653* 
005162' 
005473' 
005754; 

006511' 
007100' 
007411' 
001062' 
007725' 
010243' 
010561' 
011076' 
011361' 
011643' 
012124' 
012404' 
001167' 
001312' 
001626' 
002252' 
000000 
012402' 
012400' 
QQ0033' 
002602' 
002603' 
002616* 
002613* 
002623* 
303067* 
303273* 
33275* 
33347* 
J3274* 
503357* 
003352* 
014040* 
003377' 
003402' 


spd 


spd 
ext 
ext 


TS14 

TS14A 

TS14IN 

TS14L 

TS14N0 

TS14NE 

TS14NM 

TS14NN 

TS14RS 

TS15 

TS15A 

TS15IN 

TS15L 

TS15N0 

TS15NE 

TS15NM 

TS15NN 

TS15RS 

TS16 

TS16A 

TS16IN 

TS16L 

TS16N0 

TS16NE 

TS16NM 

TS16NN 

TS16RS 

TS17 

TS17A 

TS17IN 

TS17L 

TS17N0 

TS17NE 

TS17NM 

TS17NN 

TS17RS 

TS2 

TS20 

TS20A 

TS20IN 

TS20L 

TS20N0 

TS20NE 

TS20NM 

TS20NN 

TS20RS 

TS21 

TS21A 

TS21IN 

TS21L 

TS21N0 

TS21NE 

TS21NM 

TS21NN 

TS21RS 


003574' 
003576' 
003650' 
003575' 
003660' 
003653' 
014041' 
003676' 
003701 ' 
004074' 
004076' 
004150' 
004075' 
004160' 
004153' 
014042* 
004201  * 
004204' 
004407' 
004411' 
004463' 
004410* 
004473' 
004466' 
014043' 
004512' 
004515' 
004720' 
004722' 
004774' 
004721 ' 
005004' 
004777' 
014044' 
005023' 
005026' 
000670' 
005230' 
005232' 
005304' 
005231 ' 
005314' 
005307' 
014045' 
005335' 
005340' 
005541 ' 
005543' 
005571 • 
005542' 
005601 • 
505574' 
14046' 
55622' 
)5625' 


TS22 

TS22A 

TS22IN 

TS22L 

TS22N0 

TS22NE 

TS22NM 

TS22NN 

TS22RS 

TS23 

TS23A 

TS23IN 

TS23L 

TS23N0 

TS23NE 

TS23NM 

TS23NN 

TS23RS 

TS24 

TS24A 

TS24IN 

TS24L 

TS24N0 

TS24NE 

TS24NM 

TS24NN 

TS24RS 

TS26 

TS26A 

TS26IN 

TS26L 

TS26N0 

TS26NE 

TS26NM 

TS26NN 

TS26RS 

TS27 

TS27A 

TS27IN 

TS27L 

TS27N0 

TS27NE 

TS27NM 

TS27NN 

TS27RS 

TS3 

TS30 

TS30A 

TS30IN 

TS30L 

TS30N0 

TS30NE 

TS30NM 

TS30NN 

TS30RS 


306022* 
306024* 
06052* 
306023* 
006062* 
006055* 
014047* 
006101* 
006104' 
006300* 
006302* 
006330' 
006301  * 
006340* 
006333* 
014050* 
006357* 
006362* 
006557* 
006561  * 
006607* 
006560* 
006617* 
006612* 
014051' 
006640' 
006643* 
007146* 
007150* 
007222* 
007147* 
007233* 
007225* 
014052* 
007255' 
007260' 
007457' 
007461 ' 
007533' 
007460' 
007543' 
007536' 
014053' 
007563' 
007566' 
001100' 
007773' 
007775' 
010047' 
007774' 
010057' 
010052' 
014054' 
010077' 
010102* 
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TS31 

010311' 

TS37A         ( 

12500' 

TS31A 

)10313' 
10365' 

TS37CH        1 

12510' 

TS31IN 

TS37DA        1 

1^63' 

TS31L 

10312' 
10375' 

TS37IN        1 

1?506' 

TS31N0 

TS3A         1 

01101' 

TS31NE 

10370' 

TS3EBU        1 

TS3lNh 

U055' 

TS3INC        1 

01112' 

TS31NN 

10A15' 

TS3SEE        1 

01116' 

TS31RS 

10420' 

TS3SET        1 

OHIO' 

TS32 

10627' 

TS4           1 

2ii96: 

TS32A 

10631' 

TS5           1 

01330' 

TS32IN 

10703' 

TS5A          1 

301331 ' 

TS32L 

10630' 

TS5CHE        1 

301356' 

TS32N0 

010713' 

TS5INC 

01346' 

TS32NE 

10706' 

TS5SET        1 

01340' 

TS32NM 

U056' 

TS6           i 

01644' 

TS32NN 

10733' 

TS6A 

01645' 
01730' 
01666' 

TS32RS 

10736' 

TS6CHE        ( 

TS33 

1114A' 

TS6INC 

TS33A 

111A6' 

TS6S          ( 

01647' 
01654' 

TS33IN 

1117A' 

TS6SET 

TS33L 

11U5' 

TS7 

02301 ' 
02302' 

•^S33NG 

11204' 

TS7A          ( 

TS33NE 

11177' 

TS7IN 

02314' 

TS33NM 

14057' 

TS7SE 

02311' 

TS33NN 

11224' 

TSL0D1 

01707' 

TS33RS 

11227' 

TSL0D2 

Q17T 
00010 

TS3A 

11427' 

TSSTAR 

TS3AA 

11431'    • 

TSTC1 

00000' 

TS3AIN 

11457- 

TSTC10 

02517' 

TS3AL 

/I '430' 

TSTC11 

03034' 
03101' 

TS3AN0 

)11467' 

TSTC12 

TS3ANE 

)11462' 

TSTC13 

03210' 

TS3ANM 

)14060' 

TSTC14 

03510' 

TS3ANN 

)11507' 

TSTC15 

04007' 

TS3ARS 

)11512' 

TSTC16 

04322' 
)04633' 

TS35 

)11711' 

TSTC17 

TS35A 

)11713' 

TSTC2 

00637' 

TS35IN 

)11741' 

TSTC20 

05144' 

TS35L 

)11712' 

TSTC21 

05456' 

TS35N0 

)11751' 

TSTC22 

05736' 
06215' 

TS35NE 

)11744' 

TSTC23 

TS35NM 

)14061' 

TSTC24 

06473' 

TS35NN 

)11771' 

TSTC25 

06754' 

TS35RS 

)11774' 

TSTC26 

07062' 

TS36 

)12172' 

TSTC27 

07372' 

TS36A 

)12174' 

TSTC3 

01044' 

TS36IN 

)12222' 

TSTC30 

07710' 

TS36L 

)12173' 

TSTC31 

10224' 

TS36N0 

)12232' 

TSTC32 

10542' 

TS36NE 

)12225; 

TSTC33 

11060' 
11344' 
11627' 

TS36NM 
rS36NN 

TSTC34 
TSTC35 

TS36RS 

)^2255' 

TSTC36 

)12111' 

TS37 

012477' 

TSTC37 

012372' 
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ext 
ext 
spd 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 
ent 


TSTC4 

TSTC40 

TSTC41 

TSTC5 

TSTC6 

TSTC7 

TSTEBF 

TSTS18 

TTPNT 

TX1 

TX10 

TX11 

TX12 

TX13 

TX14 

TX15 

TX16 

TX17 

TX2 

TX20 

TX21 

TX22 

TX23 

TX24 

TX25 

TX26 

TX27 

TX3 

TX30 

TX31 

TX32 

TX33 

TX34 

TX35 

TX36 

TX37 

TX4 

TX5 

TX6 

TX7 

TXALL 

TXNOT 

UDEBUG 

USER 

Z9 

ZCBUS 

SARG2 

SB 

$CHR 

SGARG 

ZADDR 

XML 

XMR 

.LA 

.LADDR 


060000 
040000 


000004 


521052 
431040 

000100 


301152' 
JOQOOO 
300000 
)1275' 
Jl612' 
^02215' 
?00000 
312406' 
300000 
300032' 
502601 ' 
003066' 
003154' 
003272' 
003573' 
004073' 
304406' 
304717' 
300667' 
305227' 
505540' 
006021 ' 
006277' 
006556' 
007026' 
007145' 
007456' 
001077' 
007772' 
010310' 
010626' 
011143' 
011426' 
011710' 
012171' 
012476' 
001205' 
001327' 
001643' 
002300' 
000000 
000000 
002546' 
030037 
000000' 
000000 
000004 
000043 
554743 
000001 
005211 
1Q2Q04 
005040 
000000 
000000 


ent 
ext 
ext 
ent 
ent 
ent 
spd 
ext 
ext 


spd 
spd 
ext 


spd 


spd 
spd 
spd 
spd 
spd 


.LAND 

.LB 

.LBAD 

.LCCCA 

.LCCCE 

.LCCCP 

.LCCER 

.LCCFZ 

.LCCGC 

.LCCLW 

.LCCMB 

.LCENA 

.LCJP 

.LCJS 

.LCONT 

.LCRTN 

.LCRY 

.LD 

.LJ 

.LJMAP 

.LJZ 

.LLDCT 

.LMGC 

.LOENA 

.LOR 

.lPLUS 

.LRPCT 

.LSOA 

.LSOe 

.LSA6 

.LSDO 

.LSELC 

.LSELE 

.LSELF 

.LSELM 

.LSELP 

.LSKCN 

.LSMIN 

.LXNOR 

.LXOR 

.HA 

.HAND 

.m 

.nSAD 
.HCCCA 

.ncccE 

.«CCCP 

.HCCER 

.MCCFZ 

.MCCGC 

.MCCLU 

.nCCMB 

.nCENA 

.HCJP 

.MCJS 


000000 
'30000 
0000 
0000 

Joooo 

000000 
000000 
000000 
000000 
000000 
QOOOOO 
QOOOOO 
000000 
000000 
QOOOOO 
000000 
000000 
QOOOOO 
010000 
QOOOOO 
000000 
000000 
000001 
002000 
000000 
000000 
000000 
000000 
QOOOOO 
000000 
000000 
000000 
000000 
OQOOOO 

S  00000 
00000 
00000 
000000 
000000 
000000 
000017 
Q00007 
000017 
000001 
000037 
000037 
000037 
000037 
000037 
000037 
000037 
Q00037 
000001 
000017 
000017 


spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 
spd 


L 


r 
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DFPTA9 
DFPTA9 

.MCONT 
.MCRTN 
.HCRY 

.no 

.MJ 

.HJMAP 

.MJZ 

.HLDCT 

.WGC 

.P10ENA 

.MOR 

.MPLUS 

.HRPCT 

.MSOA 

.nsOB 

.MSAB 

.nSDO 

.HSELC 

.HSELE 

.MSELF 

.HSELM 

.HSELP 

.NSKCN 

.MSMIN 

.nXNOR 

.nxoR 

.RA 

.RAND 

.RB 

.RBAD 

•RCCCA 

.RCCCE 

.RCCCP 

.RCCER 

.RCCFZ 

.RCCGC 

.RCCLW 

.RCC«B 

.RCENA 

.RCJP 

.RCJS 

.RCONT 

.RCRTN 

.RCRY 

.RD 

.RJ 

.RJMAP 

.RJZ 

.RLOCT 

.RMGC 

.ROENA 

.ROR 

.RPLUS 

.RRPCT 

.RSOA 
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MAC 


000010 
OAOOOO 


000400 


001000 


030000 
400000 


18-Apr-85  11:00 

00001 /  spd 

000017  spd 

000001  spd 

m'r  Hi 

000017  spd 

000017  spd 

000017  spd 

001777  spd 

000001  spd 

000007  spd 

000007  spd 

000017  spd 

000007  spd 

000007  spd 

000007  spd 

000007  spd 

000007  spd 

000007  spd 

000007  spd 

00C007  spd 

000007  spd 

000037  spd 

000007  spd 

000007  spd 

000007  spd 

000000  spd 

000000  spd 
400000  spd 

000001  spd 
GuJOOO  spd 
160000  spd 
140000  spd 
100000  spd 
020000  spd 
010000  spd 
17G000  spd 
120000  spd 
000000  spd 
000060  spd 
000020  spd 
000340  spd 
000240  spd 
000400  spd 
000000  spd 
000000  spd 
000040  spd 
000000  spd 
000300  spd 
000000  spd 
000000  spd 
DOOOOO  spd 
DOOOQO  spd 
D00220  spd 
DOOOOO  spd 


SEQ  1811 


.RSOB 

.RSAB 

.RSDO 

.RSELC 

.RSELE 

.RSELF 

.RSELM 

.RSELP 

.RSKCN 

.RSniN 

.RXNOR 

.RXOR 


300000 
1Q000Q 
700000 


010000 
070000 
060000 


000000  spd 

QQOOOO  spd 

000000  spd 

QQ4000  spd 

005000  spd 

003000  spd 

002000  spd 

001000  spd 

240000  spd 

QOQOOO  spd 

000000  spd 

000000  spd 


EG  1799 


' 



.- 

. _ . 

2481 



■ 

— 



i  BBPNT 

22# 

190 

713 

1 

BEXEC 

22# 
32# 

91 

670 

2456 

BUFCOM 

1661 

1668 

1969 

2263 

BUFF 

21# 

927 

1891 

1895 

1898 

2174 

2178 

2181 

2244 

2245 

2247 

2248 

i?^2 

2666 
3432 

2667 

2683 

2799 

m 

Ws^ 

2979 

2995 

3111 

3118 

3292 

3293 

3309 

3425 
4279 

3617 

3618 

3634 

3940 

3941 

3957 

4073 

4080 

4262 
4979 

4263 

4395 

4402 

4585 

4586 
5447 

4602 

4683 

4690 

\ll\ 

4875 

4891 

4972 

5160 
5987 

5161 

5177 

5258 

5265 

5448 

5464 

5545 

5847 

5848 

5864 

5980 

6170 

6171 

6187 

6303 

6310 

6496 

6497 

6513 
7480 

nil 

6636 

6824 

mi 

^fA 

^lll 

6964 
7868 

7152 

7153 

7169 

7285 

7292 

7479 

7577 

7584 

77S7 

7875 

8060 

8061 

8077 

8158 

8165 

8349 

8350 

8366 

8447 

8454 

8635 

8636 

8654 

8750 

6UFGEN 

32* 

CI 

861 

1003 

1172 

1493 

1859 

2143 

C12 

67 

648 

1172 

1493 

1859 

2143 

2432 

2518 

2641 

2952 

3265 

3590 

3913 

4236 

4560 

4848 

5135 

5421 

5699 

5821 

6143 

6471 

6797 

7125 

7453 

7745 

8036 

8326 

8613 

C13 

648 

C14 

861 

1172 

1859 

C15 

1003 

1493 

2143 

C16 

1493 

2143 

C17 

1172 

1859 

C18 
C19 
C2 

67 
"6? 

2432 

648 

861 

1003 

1172 

1493 

1859 

2143 

2432 

2518 

2641 

2952 

3265 

3590 

3913 

4236 

4560 

4848 

5135 

5421 

5699 

5821 

6143 

6471 

6797 

7125 

7453 

7745 

8036 

8326 

8613 

C20 

67 

648 

2432 

2518 

2641 

2952 

3265 

3590 

3913 

4236 

4560 

4848 

5135 

5421 

5699 

5821 

6143 

6471 

6797 

7125 

7453 

7745 

8036 

8326 

8613 

C21 

648 

C22 

648 

C23 

67 

648 

2432 

If 

C4 

67 
67 
67 

648 
648 
648 

2432 

2432 

861 

1003 

1172 

1493 

1859 

2143 

2432 

2518 

2641 

V^ll 

3265 

3590 

3913 

4236 

4560 

4848 

5135 

5421 

5699 

5821 

6143 

6471 

6797 

7125 

7453 

7745 

8036 

3326 

8613 

C5 

861 

1003 

1172 

1493 

1859 

2143 

C8 

67 

648 

861 

1003 

1172 

1493 

1859 

2143 

2432 

2518 

2641 

2952 

3265 

3590 

3913 

4236 

4560 

4848 

5135 

5421 

5699 

5821 

6143 

6471 

6797 

7125 

7453 

7745 

8036 

8326 

8613 

CALL 

190 

713 

934 

1058 

1261 

1262 

1612 

1613 

1961 

1962 

2255 

2256 

2481 

2573 

2585 

2840 

2841 

3150 

3151 

3467 

3468 

3790 

3791 

4113 

4114 

4437 

4438 

4725 

4726 

5012 

5013 

5298 

5299 

5587 

5588 

5753 

5765 

6024 

6025 

6344 

6345 

6670 

6671 
8746 

21# 

6998 

6999 

7326 

7327 

7618 

7619 

7909 

7910 

8199 

8200 

8488 

8489 

8745 

CBUF 

1896 

2179 

2681 

2993 

3307 

3632 

3955 

4277 

4600 

4889 

5175 

5462 

5862 

6185 

6511 

6839 

7167 

7494 

7785 

8075 

8364 

8652 

CBUFSZ 

1896 

2179 

2681 

2993 

3307 

3632 

3955 

4277 

4600 

4889 

5175 

5462 

5862 

6185 

6511 

6839 

7167 

7494 

7785 

8075 

8364 

8652 

CBUS 

65 

646 

859 

1001 

1170 

1491 

2141 

2430 

2516 

2639 

2950 

3263 

3588 

3911 

4234 

4558 

4846 

5133 

5419 

5697 

5819 

6141 

6469 

6795 

7123 

7451 

7743 

! 
j 

8034 

8324 

8611 

1 

CCALL 

904 

905 

907 

908 

1214 

1215 

1219 

1220 

1534 

1535 

1539 

1540 

1935 

1936 

r 


SEO  1812 


.„ J 


CCALLC 

CCOMP 

CCPNT 

CDERR 

CEBUFA 

CEXEC 

CEXIT 

CHINIT 

CJRST 

CLAST 

CLEN 

CPAT 

CRAMPE 

CSETRD 

CSETRW 

CSETWR 

CSRPNT 

CSTART 

CSTATF 

CUAIT 

El 

EA 

EBUSPE 

ERFLG 


GENCCW 
IPACLR 


IPASRT 
LAST 


LDCSR 


2218 

905 

19A0 

23# 

23# 

23# 

23# 
1049 

28# 
6186 
910 
911 

23# 

23# 

2558 

1046 

1937 

906 

21# 
908 

23# 

909 

1859 

1859 

2560 

84 
1191 
1645 
2543 
3339 
4914 
5739 
7192 
8626 

2SM 
6190 

27* 
2188 
5439 

27* 
190 
3791 
7619 

27ft 
2561 
3301 
3969 
4710 
5456 
6179 
6853 
7603 
8358 


2219 
906 

1941 
934 

1669 

1248 
886 

1897 

6512 

911 

912 

1229 

915 

5738 

1047 

1938 

907 

2581 

909 

881 

910 

2143 

2143 

5740 

94 

1199 

1663 

2544 

3608 

4921 

5838 

7199 

^677 

1901 

6516 

85 

2199 

5718 

2542 

713 

4114 

7910 

1288 

2675 

3303 

3973 

4712 

5458 

6181 

6857 

7605 

8360 


2221 
1215 
2224 
1058 
1964 
1267 
1028 

2180 
6840 
1220 
1053 
1249 
920 

1050 
2220 
1216 
5761 
1047 
1022 
1048 


101 
1206 
1875 
2545 
3657 
5151 
5887 
7470 
8706 
2184 
6844 

664 
2237 
5839 
5722 

934 
4438 
8200 
1293 
2677 
3321 
4098 
4883 
5476 
6199 
6983 
7779 
8378 


2222 
1216 
2225 
1262 
1970 
1276 
1196 

2682 
7168 
1221 
1054 
1268 
1225 

1051 
2221 
1217 

1048 
1242 
1049 


663 
1250 
1878 
2549 
3664 
5200 
5894 
7519 

2686 
7172 
885 
2C0 
6162 

1058 
4726 
8489 
1295 
2695 
3325 
4100 
4885 
5480 
6203 
6985 
7781 
8382 


1535 

1613 
2258 
1280 
1516 

2994 
7495 
1540 
1221 
1273 
1234 

1536 


1051 
1583 
1052 


673 
1253 
1920 
2557 
3931 
5207 
6161 
7526 

2998 
7499 
1027 
2538 
6488 

1262 
5013 
8746 
1299 
2699 
3452 
4271 
4903 
5572 
6329 
7161 
7799 
8473 


1536 

1962 
2264 
1316 
1917 

3308 
7786 
1541 
1222 
1549 
1545 

1537 


1052 
1053 


680 
1266 
1927 
2559 
3980 
5438 
6210 
7761 

3312 
7790 
1195 
2658 
6816 

1613 
5299 

1304 
2820 
3454 
4273 
4907 
5574 
6331 
7163 
7803 
8475 


1936    1937   2219   2220 
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6087 

6089* 
6359* 

6095* 

6095 

6097* 

6097    6099* 

6099 

6101* 
6374* 

6101 

6365* 
6382* 

6365 

6370* 

6370   6372* 

6372 

6374 

6376* 
6393* 

6382 

6384* 

6384    6389* 

6389 

6391* 

6391 

6399* 

6399 

6401* 

6401    6406* 

6406 
6423 

nm 

6408 

6413* 

6419* 

6419 

6421* 

6421    6423* 

6425 

6427* 

6687* 
6704* 

6687 

6689* 

6689    6691* 

6691 
6708 

^^?^ 

6696 

6698* 

6704 

6706* 

6706    6708* 

6710 

6715* 

6721* 

6721 

6723* 

6723    6725* 

6725 

6727* 

6727 

6732* 

6741* 

6741 

6743* 

6743    6745* 

6745 
7015 

6747* 

6747 

6749* 

6755* 

6755 

7013* 

7013    7015* 

7017* 

7017 

7019* 

7028* 

7028 

7030* 

7030    7032* 

7032 

7034* 

7034 

7036* 
7053* 
7073* 

7045* 

7045 

7047* 

7047    7049* 

7049 

7051* 

7051 

7062* 

'062 

7067* 

7067    7069* 

7069 

7071* 

7071 

7079* 
7352* 

7079 

7081* 

7081    7083* 

W, 

7341* 

7341 

7343* 

7352 

7354* 

7354    7356* 
7371    7373* 

7358* 

7358 

m 

7366* 

7366 

7371* 

7Z7Z 

7375* 

7375 

7383* 

7383 

7388* 

7388    7390* 

7390 

7395* 

7395 

73970 

7403* 

7403 

7405* 

7405    7407* 

7407 

7409* 

7409 

7411* 

7637* 

7637 

7639* 

7639    7644* 

7644 

7646* 
7663* 
7680* 

7646 

7648* 

7654* 

7654 

7656* 

7656    7658* 

7658 

7663 

7665* 
7682* 

7671* 

7671 

7673* 

7673    7675* 

7675 

7680 

7691* 

7691 

7693* 

7693    7695* 

7695 

7697* 

7697 

7699* 

7924* 

7924 

7926* 

7926   7928* 

7928 
7945 

7930* 

7930 

7935* 

7941* 

7941 

7943* 

7943    7945* 

7947* 

7947 

7949* 

7958* 

7958 

7960* 

7960    7962* 
7980    7982* 

7962 

7964* 

7964 

7966* 
7986* 

7978* 

7978 

7980* 

7982 

7984* 

7984 

7992* 

7992 

7994* 

7994    fl 

214* 

3214 

8216* 

8216 

218* 

^22711 

8227 

8229* 

8229   t 

231* 

J231 

8244* 

8244 

§^§' 

8246   c 

282* 

\¥^ 

8c50* 

8250 

c52* 

8261* 

8261 

8263* 

8263   c 

8270* 

8270 

c72* 

8278* 

8278 

8280* 

8280   \ 

8284* 
8518* 

8518 

503* 
520* 

8509* 

8509 

8514* 

516* 

4512 
4746 

5053 
5070 
5087 
5319 
5339 
5356 
5373 
5608 
5628 
5645 
5662 
5780 
6052 
6069 
6089 
6359 
6376 
6393 
6413 
6427 
6698 
6715 
6732 
6749 
7019 
7036 
7053 
7073 
7343 
7360 
7377 
7397 
7411 
7648 
7665 
7682 
7699 
7935 
7949 
7966 
7986 
8218 
8235 
8252 
8272 
8503 
8520 


4514* 
4751* 
4768* 
4785* 


2^ 
5055* 

5072* 
5089* 
5324* 
5341* 
5358* 
5375* 
5613* 
5630* 
5647* 
5664* 
5782* 
6054* 
6071* 
6091* 
6361* 
6378* 
6395* 
6415* 
6429* 
6700* 
6717* 
6734* 
6751* 
7024* 
7038* 
7055* 
7075* 
7345* 
7362* 
7379* 
7399* 
7633* 
7650* 
7667* 
7687* 
7701* 
7937* 
7954* 
7971* 
7988* 
8220* 
3237* 
254* 
]74* 
]05* 
)522* 


4514 
4751 
4768 
4785 

n% 

5055 

5072 

5089 

5324 

5341 

53'?8 

53^5 

5613 

5630 

5647 

5664 

5782 

6054 

6071 

6091 

6361 

6378 

6395 

6415 

6429 

6700 

6717 

6734 

6751 

7024 

7038 

7055 

7075 

7345 

7362 

7379 

7399 

7633 

7650 

7667 

7687 

7701 

7937 

7954 

7971 

7988 

8220 

8237 

8254 

8274 

8505 

8522 


4516* 
4753* 

4516 

4753    SI 

4770* 

4770 

4790* 

4790 

4)04* 

4804 

5040 

5057* 
5077* 

5057 

5077 

5091* 
5326* 
5343* 

5091 

5326 

5343 

5363* 

5363 

5377* 

5377 

5615* 

5615 

5632* 

5632 

5652* 

5652 

'<m 

5666 

60:9 

^^. 

6056 

6073 

mii 

6093 

6363 

6380* 

6380 

6397* 

6397 

6417* 

6417 

6685* 

6685 

6702* 

6702 

6719* 

6719 

6739* 

6739 

6753* 

6753 

7026* 

7026 

7043* 

7043 

7060* 
7077* 

7060 

7077 

7347* 

7347 

7364* 

7364 

7381* 

7381 

7401* 

7401 

7635* 

7635 

7652* 

7652 

7669* 

7669 

7689* 

7689 

7703* 

7703 

7939* 

7939 

7956* 
7973* 

7956 

7973 

7990* 

7990 

8225 

8239* 

8239 

8256* 

8256 

8276* 
8507* 
8524* 

?276 

8507 

8524 

SEQ  1828 


r 


:Q  1816 


SB 


|526# 
5A3# 
563# 
i760# 
8774# 
8791  # 

IP» 

88A5« 

8862« 

19A# 

?08# 

]2# 

J6# 

>50# 

^6A# 

>87# 

J07# 

527# 

50# 

l70# 

i90# 

41 3# 

A33# 

453# 

A76# 

A96# 

51 6# 

539# 

559# 

579# 

599# 

71 7# 

731  # 

754# 

774# 

794# 

81 7# 

938# 

964# 

1071# 

1100# 

1118# 

1334# 

1351# 

1375# 

1394# 

1408# 

1428# 

1451# 

1676# 

1693# 

1710# 


8526 

B528# 
S545# 

8528 

8545 

B563 

565# 

8565 

B760 

8762 

8774 
8791 

8776 
8793 

m 

B830# 

lllo 

B845 

5847# 

8  )47 

B862 

3864# 

8864 

194 

196# 

196 

208 

21 0# 

210 

222 

224# 

224 

238# 

238 

250 

252# 

252 

264 

266# 

266 

287 

289# 

289 

307 

3Q9# 

309 

327 

332 

350 

352# 

352 

370 

372# 

372 

390 

395# 

395 

413 

4  5# 

415 

433 

4J5# 

453 

458# 

458 

476 

478# 

478 

496 

498# 

498 

516 

521# 

521 

539 

541# 

541 

559 

561  # 

561 

579 

584# 

584 

599 

604« 

604 

717 

71 9# 

719 

731 

733# 

733 

754 

756# 

756 

774 

776# 

776 

794 

799# 

799 

817 

822# 

822 

938 

943# 

943 

964 

966# 

966 

1071 

1il76# 

1076 

1100 

1  02* 

1102 

1118 

1  20# 

1120 

1334 

i;36# 

1336 

1351 

i;56# 

1356 

1375 

i;77# 

1377 

1394 

i:96# 

1396 

1408 

1410* 

1410 

1428 

1430* 

1430 

1451 

1456* 

1456 

1676 

1678* 

1678 

1693 

1695* 

1695 

1710 

1712* 

1712 

8533* 
8550* 
8567* 
8764* 
8778* 
8795* 
8812* 
8832* 
8849* 

»?$« 

212* 

240* 

254* 

268* 

291* 

314* 

334* 

354* 

377* 

397* 

417* 

440* 

460* 

480* 

503* 

523* 

543* 

566* 

586* 

609* 

721* 

735* 

758* 

781* 

801* 

824* 

948* 

971* 

1081* 

1108* 

1122* 

1341* 

1358* 

1379* 

1398* 

1412* 

1432* 

1458* 

1680* 

1697* 

1714* 


8533 
8550 
8567 

l^% 

8795 

III 

849 

866 

198 

212 

226 

240 

254 

268 

291 

314 

334 

354 

377 

397 

417 

440 

460 

480 

503 

523 

543 

566 

586 

609 

721 

735 

758 

781 

801 

824 

948 

971 

1081 

1108 

1122 

1341 

1358 

1379 

1398 

1412 

1432 

•  458 

1680 

1697 

1714 


_  IM 

296* 

316* 

336* 

359* 

379* 

399* 

422* 

442* 

462* 

485* 

505* 

525* 

548* 

568* 

588* 

611* 

723* 

740* 

763* 

783* 

803* 

826* 

950* 

973* 

1083* 

1110* 

1127* 

1343* 

1360* 

1381* 

1400* 

1414* 

1437* 

1586* 

1682* 

1699* 

1716* 


8535 
8552 
1569 

H^ 

|78Q 

797 

837 

3851 

8368 

200 

214 

256 

273 

296 

316 

336 

359 

379 

399 

422 

442 

462 

485 

505 

525 

548 

568 

588 

611 

723 

740 

763 

783 

803 

826 

950 

973 

1083 

1110 

1127 

1343 

1360 

1381 

1400 

1414 

1437 

1586 

1682 

1699 

1716 


* 
19* 
39* 
53* 
70* 
02* 

1^. 

44* 
_58* 
275* 
298* 
318* 
341* 
361* 
381* 
404* 
424* 
444* 
467* 
487* 
507* 
530* 
550* 
570* 
593* 
613* 
725* 
742* 
765* 
785* 

m 

955* 
1062* 
1088* 
1112* 
1129* 
1345* 
1365* 
1383* 
1402* 
1416* 
1439* 
1588* 
1684* 
1701* 
1718* 


8537 

8557 

8571 

8768 

§782 

8799 

8819 

8839 

8853 

8870 

202 

216 

230 

244 

258 

275 

298 

318 

341 

361 

381 

404 

424 

444 

467 

487 

507 

530 

550 

570 

593 

613 

725 

742 

765 

785 

808 

828 

955 

1062 

1088 

1112 

1129 

1345 

1365 

1383 

1402 

1416 

1439 

1588 

1684 

1701 

1718 


539* 
559* 
573* 
770* 
784* 
1* 
1* 
1* 

7h 

04* 
32* 

% 

0* 

'* 

# 

43* 

3* 

J6* 

406* 

426* 

449* 

469* 

489* 

512* 

532* 

552* 

575* 

595* 

615* 

727* 

747* 

767* 

790* 

810* 

830* 

957* 

1064* 

1093* 

1114* 

1330* 

1347* 

1371* 

1385* 

1404* 

1421* 

1444* 

1590* 

1686* 

1706* 

1720* 


8539 
8559 
1573 
1770 
J784 
801 

ki 

8858 

8872 

204 

218 

232 

246 

260 

280 

300 

323 

343 

363 

386 

406 

426 

449 

469 

489 

512 

532 

552 

575 

595 

615 

727 

7^7 

767 

790 

810 

830 

957 

1064 

1093 

1114 

1330 

1347 

1371 

1385 

1404 

1421 

1444 

1590 

1686 

1706 

1720 


541* 
561* 
758* 
772» 
786* 
803* 
823* 
843* 

^» 

206* 

220* 

234* 

248* 

262* 

282* 

305* 

325* 

345* 

368* 

388* 

408* 

431* 

451* 

471* 

494* 

514* 

534* 

557* 

577* 

597* 

617* 

729* 

749* 

7720 

792* 

812* 

832* 

959* 

1066* 

1095* 

1116* 

1332* 

1349* 

1373* 

1392* 

1406* 

1423* 

1446* 

1592* 

1691* 

1708* 

1722* 


|541 

561 

1758 

\772 

786 

803 

823 

843 

B860 

8874 

206 

220 

234 

248 

262 

282 

305 

325 

345 

368 

388 

408 

431 

451 

471 

494 

514 

534 

557 

577 

597 

617 

729 

749 

772 

792 

812 

832 

959 

1066 

1095 

1116 

1332 

1349 

1373 

1392 

1406 

1423 

1446 

1592 

1691 

1708 

1722 


SEQ  1829 


;0  1817 


172A* 
1738# 
1755* 
1773* 
1791* 
1811# 
1979# 
199A# 
'01 6# 
033# 
0A7# 
?061# 
>082« 
096# 
?272# 
>287* 
|310# 
2327* 
23A1# 
2355* 
2372* 
2390* 
2A07# 
2600# 
2868# 
2885* 
2905# 
31 69* 
3186# 
3209# 
3223# 
3A97# 
35K# 
353A# 
35A8# 
3820# 
3837* 
3857# 
387U 
41A3# 
A160# 
4180# 
4194# 
4467* 
4A84# 
4504# 
4518# 
4755* 
4772# 
4792# 
4806# 
5042* 
5059# 


1724 
1738 
1755 
1773 
1791 
1811 
1979 
1994 
2016 
2033 
2047 
2061 
2082 
2096 
2272 
2287 
2310 
2327 
2341 
2355 
2372 
2390 
2407 
2600 
2868 
2885 
2905 
3169 
3186 
3209 
3223 
3497 
3514 
<534 
3548 
3820 
3837 
3857 
3871 
4143 
4160 
4180 
4194 
4467 
4484 
4504 
4518 
4755 
4772 
4792 
4806 
5042 
5059 


1726* 
174Q# 
1757# 
1775# 
1793* 
1813# 
1981* 
1997* 
201 8# 
2035# 
2049« 
2063# 
2084« 
2098« 
2274# 
2289* 
2312* 
2329# 
2343# 
2357* 
2374* 
2392* 
2409* 
2602* 
2870* 
2890* 
2907* 
3171* 
3191* 
3211* 
3482* 
3499* 
3516* 
3536* 
3805* 
3822* 
3839* 
3859* 
4128* 
4145* 
4162* 
4182* 
4452* 
4469* 
4486* 
4506* 
4740* 
4757* 
4774* 
4794* 
5027* 
5044* 
5061* 


2870 
2890 
2907 
3171 
3191 
3211 
3482 
3499 
3516 
3536 
3805 
3822 
3839 
3859 
4128 
4145 
4162 
4182 
4452 
4469 
4486 
4506 
4740 
4757 
4774 
4794 
5027 
5044 
5061 


1728* 
1742* 
1759* 
1777* 
1795* 

111" 


086* 
100/1 


3193* 
3213* 
3484* 
3501* 
3518* 
3538* 
3807* 
3824* 
3841* 
3861* 
4130* 
4147* 
4164* 
4184* 
4454* 
4471* 
4488* 
4508* 
4742* 
4759* 
4776* 
4796* 
5029* 
5046* 
5063* 


2037 

2051 

2065 

2086 

2100 

2276 

2292 

2314 

2331 

2345 

2359 

2380 

2394 

2485 

2855 

2872 

2892 

2909 

3176 

3193 

3213 

3484 

3501 

3518 

3538 

3807 

3824 

3841 

3861 

4130 

4147 

4164 

4184 

4454 

4471 

4488 

4508 

4742 

4759 

4776 

4796 

5029 

504 

506 


1730* 
1744* 
1761* 
1783* 
1797* 
1823* 
1986* 

u 

>* 
53* 
J70* 
088« 

1* 
>98* 
16* 
J33* 
347* 
>361* 
>382* 
396* 
487* 
857* 
874* 
?897* 
>911* 
3178* 
3195* 
3215* 
3486* 
3503* 
3520* 
3540* 
3809* 
3826* 
18^3* 
3863* 
4132* 
4149* 
4166* 
4186* 
4456* 
4473* 
4490* 
4510* 
4744* 
4761* 
4778* 
4798* 
5031* 
5048* 
5065* 


—.—.,.  . 

1730 

1732* 

1732 

1744 

1749* 

1749 

1761 
1783 

1763* 
1785* 

1763 
1785 

1797 
1823 

15Q2* 

2008 

201? 

201  * 

2022 

2027* 

2027 

c039 

2041* 

2041 

2053 

2055* 

2055 

2070 

2072* 

2088 

2090* 

2090 

2102 

2107* 

2107 

2280* 

2280 

2298 

2300* 

2300 

h 

2335* 

2318 

2335 

2347 

2349* 

2349 

2361 

2363* 

2363 

2:82 

2384* 

2384 

2:96 

2398* 

2398 

2487 

2594* 

2594 

2857 

2859* 

2859 

2874 

2876* 

2876 

2897 

2899* 

2899 

2911 

2913* 

2913 

3178 

3180* 

:180 

M95 

3200* 

;200 

;i215 

3217* 

'217 

:486 

3488* 

3488 

:503 

3508* 

3508 

:520 

3525* 

3525 

:540 

3542* 

:542 

;809 

3811* 

:8ii 

1826 

3831* 
3848* 
3865* 

;83i 

:843 

3848 

3863 
4132 

4134 

4134* 

4149 

4154* 

4154 

4166 

4171* 

4171 

4186 

4188* 

4188 

4456 

4458* 

4458 

4473 

4478* 

4478 

4490 

4495* 

4495 

4510 

4512* 

4512 

4744 

4746* 

4746 

4761 

4766* 

4766 

4778 

4783* 

4783 

4798 

4800* 
5033* 

4800 
5033 

5031 

5048 

5065 

5070* 

5070 

1734* 
1751* 
1765* 
1787* 

1990* 
112* 

543* 

557* 

074* 

092* 

109* 

]83* 

$02* 

520* 

337* 

351* 

?365* 

>386* 

^400* 

596* 

i861* 

2881* 

2901* 

3165* 

3182* 

3202* 

3219* 

3493* 

1510* 

J527* 

5544* 

J816* 

833* 

850* 

$867* 

4139* 

4156* 

4173* 

4190* 

4463* 

4480* 

4497* 

4514* 

4751* 

4768* 

4785* 

im 

5055* 
5072* 


1736* 
1753* 


2351 
2365 
]386 
^400 
>596 
|861 
1881 
1901 
1165 
]182 
3202 
3219 
3493 
3510 
3527 
3544 
3816 
3833 
3850 
3867 
4139 
4156 
4173 
4190 
4463 
4480 
4497 
4514 
4751 
4768 
4785 
4802 
5039 
5055 
5072 


23S9* 
2353* 
2370* 
2388# 
2402* 
2598* 
2866* 
2883* 
2903* 
3167* 
3184* 
3207* 
3221* 
3495* 
3512* 
3532* 
3546* 
3818* 
3835* 
3855* 
3869* 
4141* 
4158* 
4178* 
4192* 
4465* 
4482* 
4502* 
4516* 
4753* 
4770* 
4790* 
4804* 
5040* 
5057* 
5077* 


1736 

1753 

1767 

1789 

1809 

1977 

1992 

2014 

2031 

2045 

2059 

2080 

2094 

2269 

2285 

2308 

2322 

2339 

2353 

2370 

2388 

2402 

2598 

2866 

2883 

2903 

3167 

3184 

3207 

3221 

3495 
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4128 
4145 
4162 
4182 
4452 
4469 
4486 
4506 
4740 
4757 
4774 
4794 
5027 
5044 
5061 
5081 
5313 
5330 
5347 
5367 
5602 
5619 
5636 
5656 
5774 
6043 
6060 
6080 
6097 
6370 
6384 


514* 

31* 

45* 

559* 

\m 

\720 
92* 
J09* 
5176* 
J 193* 
3213* 
3484* 
3501* 
3518* 
3538* 
3807* 
3824* 
3841* 
3861* 
4130* 
4147* 
4164* 
4184* 
4454* 
4471* 
4488* 
4508* 
4742* 
4759* 
4776* 
4796* 
5029* 
5046* 
5063* 
5083* 
■5315* 
5332* 
5349* 
5369* 
5604* 
5621* 
5638* 
5658* 
5776* 
6045* 
6062* 
6085* 
6099* 
6372* 
6389* 


'314 
231 

159 

112 

485 
?855 

IS92 
'909 
1176 
5193 
1213 
3484 
3501 
3518 
3538 
3807 
3824 
3841 
3861 
4130 
4147 
4164 
4184 
4454 
4471 
4488 
4508 
4742 
4759 
4776 
4796 
5029 
5046 
5063 
5083 
5315 
5332 
5349 
5369 
5604 
5621 
5638 
5658 
5776 
6045 
6062 
6085 
6099 
6372 
6389 


516* 
533* 
547* 
561* 
82* 
.396* 
?487* 
357* 
74* 
97* 
?11* 
1178* 
5195* 
5215* 
486* 
5503* 
520* 
540* 
809* 
826* 
*3*3* 
3863* 
4132* 
4149* 
4166* 
4186* 
4456* 
4473* 
4490* 
4510* 
4744* 
4761* 
4778* 
4798* 
5031* 
5048* 
5065* 
5085* 
5317* 
5334* 
5351* 
5371* 
5606* 
5623* 
5640* 
5660* 
5778* 
6050* 
6064* 
6087* 
6101* 
6374* 
6391* 


215 
486 
5503 
5520 
5540 
5809 
5826 
5843 
3863 
4132 
4149 
4166 
4186 
4456 
4473 
4490 
4510 
4744 
4761 
4778 
4798 
5031 
5048 
5065 
5085 
5317 
5334 
5351 
5371 
5606 
5623 
5640 

m 

6050 
6064 
6087 
6101 
6374 
6391 


m 

h7* 
5488* 
5508* 
5525* 
5542* 
5811* 
5831* 
3848* 
3865* 
4134* 
4154* 
4171* 
4188* 
4458* 
4478* 
4495* 
4512* 
4746* 
4766* 
4783* 
4800* 
5033* 
5053* 
5070* 
5087* 
5319* 
5339* 
5356* 
5373* 
5608* 
5628* 
5645* 
5662* 
578C 


'318 
335 
349 

'384 
?398 
'594 
?859 
2876 
2899 
2913 
3180 
3200 
3217 
3488 
3508 
3525 
3542 
3811 
3831 
3848 
3865 
4134 
4154 
4171 
4188 
4458 
4478 
4495 
4512 
4746 
4766 
4783 
4800 
5033 
5053 
5070 
5087 
5319 
5339 
5356 
5373 
5608 
5628 
5645 
5662 
5780 
6052 
6069 
6089 
6359 
6376 
6393 


5* 
4190* 
4463* 
4480* 
4497* 
4514* 
4751* 
4768* 
4785* 
4802* 
5038* 
5055* 
5072* 
5089* 
5324* 
5341* 
5358* 
5375* 
5613* 
5630* 
5647* 
5664* 
5782* 
6054* 
6071* 
6091* 
6361* 
6378* 
6395* 


m 

2351 
2365 
2386 
2400 
2596 
2861 
2881 
2901 
3165 
3182 
3202 
3219 
3493 
3510 
3527 
3544 
3816 
3833 
3850 
3867 
4139 
4156 
4173 
4190 
4463 
4480 
4497 
4514 
4751 
4768 
4785 
4802 
5038 
5055 
5072 
5089 
5324 
5341 
5358 
5375 
5613 
5630 
5647 
5664 
5782 
6054 
6071 
6091 
6361 
637r 
639 


'322* 
339* 
?353* 
'370* 
388* 
402* 
598* 
^866* 
'883* 
j903* 
^167* 
3184* 
3207* 
3221* 
3495* 
3512* 
3532* 
3546* 
3818* 
3835* 
3855* 
3869* 
4141* 
4158* 
4178* 
4192* 
4465* 
4482* 
4502* 
4516* 
4753* 
4770* 
4790* 
4804* 
5040* 
5057* 
5077* 
5091* 
5326* 
5343* 
5363* 
5377* 
5615* 
5632* 
5652* 
5666* 
6039* 
6056* 
6073* 
6093* 
6363* 
6380* 
6397* 


2322 
2339 
2353 
2370 
'388 
402 
598 
^866 
>883 
|903 

3184 
3207 
3221 
3495 
3512 
3532 
3546 
3818 
3835 
3855 
3869 
4141 
4158 
4178 
4192 
4465 
4482 
4502 
4516 
4753 
4770 
4790 
4804 
5040 
5057 
5077 
5091 
5326 
5343 
5363 
5377 
5615 
5632 
5652 
5666 
6039 
6056 
6073 
6093 
6363 
6380 
6397 


SEQ  1836 


.L 


EQ  1824 


XAODR 


6399* 
6419* 
6687« 
6704^ 
6721  # 
6741  # 
6755# 
7028# 
7045# 
7062# 
7079# 
7352* 
7366# 
7383# 
7403# 
7637# 
7654* 
7671  # 
7691  # 
7924* 
7941* 
7958* 
7978* 
7992* 
8227* 
8244* 
8261* 
8278* 
R509* 
8526* 
8543* 
8563* 
8760* 
8774* 
8791* 
8805* 
8825* 
8845* 
8862* 
194* 


6399 
6419 
6687 
6704 
6721 
6'<41 
6755 
7028 
7045 
7062 
7079 
7352 

m 

7403 
7637 
7654 
7671 
7691 
7924 
7941 
7958 
7978 
7992 
8227 
8244 
8261 
8278 
8509 
8526 
8543 
8563 
8760 
f774 
8791 
8805 
8825 
8845 
8862 
194 
208* 
2220 
236* 
250* 
264* 
287 
307* 
327* 
350 
370* 
390* 
413 
433* 


6401* 
6421* 
669, 


"1 


%'{H     ? 


6706* 

6723* 

i743* 

)13* 

7030* 

7047* 

7067* 

7081* 

7354* 

7371* 

7388* 

7405* 

7639* 

7656* 

7673* 

7693* 

7926* 

7943* 

7960* 

7980* 

7994* 

8229* 

8246* 

8263* 

8280* 

8514* 

8528* 

8545* 

8565* 

8762* 

8776* 

8793* 

8810* 

8830* 

8847* 

8864* 

196 

210 

224 

238 

252 

266 

289 

309 

332* 

352 

372 

395* 

415 

435 


6401 
6421 
6689 
6706 
6723 
743 

7047 
7067 
7081 
7354 
7371 
7388 
7405 
7639 
7656 
7673 
7693 
7926 
7943 
7960 
7980 
7994 
8229 
8246 
8263 
8280 
8514 
8528 
8545 
8565 
8762 
8776 
8793 
8810 
8830 
8847 
8864 
196* 
210* 
224* 
238* 
252* 
266* 
289* 
309* 
332 
352* 
372* 
395 
415* 
435* 


6691* 
6708* 


-  i* 

7390* 

7407* 

7644* 

7658* 

7675* 

7695* 

7928* 

7945* 

7962* 

7982* 

8214* 

8231* 

8248* 

8268* 

8282* 

8516* 

8533* 

8550* 

8567* 

8764* 

8778* 

8795* 

8812* 

8832* 

8849* 

8866* 

198 

212 

226 

240 

254 

268 

291 

314* 

334 

354 

377* 

397 

417 

440* 


6691 

6  Q8 
6725 
6745 
7015 
7032 
7049 
7069 
7083 
7356 
7373 
7390 
7407 
7644 
7658 
7675 
7695 
7928 
7945 
7962 
7982 
8214 
8231 
8248 
8268 
8282 
8516 
8533 
8550 
8567 
8764 
8778 
8795 
8812 
8832 
8849 
8866 
198* 
212* 
226* 
240* 
254* 
268* 
291* 
314 
34* 
54* 
77 
.97* 
417* 
440 


6710* 
6727* 
6747* 
7017* 
7034* 
7051* 
7071* 
7341* 
7358* 
7375* 
7395* 
7409* 
7646* 
7663* 
7680* 
7697* 
7930* 
7947* 
7964* 
7984* 
8216* 
8233* 
8250* 
8270* 
8284* 
8518* 
8535* 
8552* 
8569* 
8766* 
8780* 
8797* 
8814* 
8837* 
8851* 
8868* 
200 
214 
228 
242 
256 
273* 
296* 
316 
|36 
59* 
79 
399 
422* 
442 


672' 
6747 
7017 
7034 
7051 
7071 
7341 
7358 
7375 
7395 
7409 
7646 
7663 
7680 
7697 
7930 
7947 
7964 
7984 
8216 
8233 
8250 
8270 
8284 
8518 
8535 
8552 
8569 
8766 
8780 
8797 
8814 
8837 
8851 
8868 
]00* 
14* 
i28* 
242* 
"i* 


6413* 
6427* 

mi 


7397* 
7411* 
7648* 
7665* 
7682* 
7699* 
7935* 
7949* 
7966* 
7986* 


^. 


6415* 
6429* 
6700* 
6717* 
6734* 
751* 
024* 
7038* 
7055* 
7075* 
7345* 

m 

7399* 
7633* 
7650* 
7667* 
7687* 
7701* 
7937* 
7954* 
7971* 
7988* 


i54* 

8274* 

8505* 

8522* 

8539* 

8559* 

8573* 

8770* 

8784* 

8801* 

8821* 

8841* 

8858* 

8872* 

204 

218 

232 

246 

260 

280* 

300 

323* 

343 

386* 
406 
426 
449* 


6415 

6417* 

6429 

mi 

6719* 

m 

6734 

6739* 

6751 

6753* 
7026* 
7041* 

7055 

7060* 
7077* 

7075 

7345 

7. 47* 

7362 
7379 

7364* 
7381* 

7399 

7401* 

7633 

7635* 

7650 

7652* 

7667 

7669* 
7689* 
7703* 

7687 

7701 

7937 

7939* 

7954 

7956* 
7973* 

7971 

7988 

7990* 

8220 

8237 

8239* 

8254 

8256* 

8274 

8276* 

8505 

8507* 

8522 

8524* 

8539 

8541* 

8559 

8561* 

8573 

8758* 

8770 

J772* 

8784 

)786* 

8801 

)803* 

8821 

8841 

8860* 

8858 

8872 

8874* 

204* 

218* 

220 

232* 

234 

246* 

248 

260* 

262 

280 

282 

300* 

:i05* 

323 

343* 

:45 

363* 

368* 

386 

406* 

408 

426* 

431* 

449 

451 

6417 
6685 
6702 
6719 
6739 
6753 
7026 
7043 
7060 
7077 
7347 
7364 
7381 
7401 
7635 
7652 
7669 
7689 
7703 
7939 
7956 
7973 
7990 
8225 
8239 
8256 
8276 
8507 
8524 
8541 
8561 
8758 
8772 
8786 
8803 
8823 
8843 
8860 
8874 
206* 
220* 
234* 
248* 
262* 
282* 
305 
525* 
345* 
368 
388* 
408* 
431 
451* 


SEQ  1837 


:Q  1825 


453 
476# 

453# 
476 

^78 

^^§ 

460 

^^Q'^ 

462* 

467* 

467 

469 
489 

469* 
489* 

471 

471* 

478* 

480 

480* 

485* 

487 

487* 

494* 

494    SEQ  1838 

49q 

496# 

498 

498* 

503* 

503 

505 

5Q5* 

507* 

512* 

514 

514* 

5  Is 

w 

521* 

521 

523 

523* 

525 

525* 

530* 

532* 

534 

534* 

f39# 

541 

541* 

543 

543* 

548* 

548 

550 

55  )* 

55c 

552* 

557* 

557 

m 

559# 

561 

2$1* 

566* 

lil 

588* 

570 

57  J* 

575* 

575 

577 

577* 

579 

579# 

584* 

584 

f 

609 

593* 

593 

595 

595* 

597 

597* 

r  ^ 

599* 

604* 
719 

719* 

^H 

611* 
723* 

742 

613* 
725* 

615 
727 

615* 
7270 

617 
729 

617* 
729* 

'n7» 

717 

721* 

731 

731* 

753 

733* 

735 

735* 

740* 
763* 

740 

742* 

7i^7» 

7A7 

749 

749* 

754# 

754 

756 

756* 

758 

758* 

783* 

}t[ 

765* 
785* 

7t7 

767* 

7720 

772 

^ 

77(,» 

776 

776* 

781* 

781 

783 

790* 

790 

792 

7920 

79(,» 

799* 

799 

801 

801* 
824* 

803 

810 

11^ 

812 

812* 

81 7# 
938# 

817 

822* 

822 

824 

826 

8<:6* 

328 

8c8* 

830 

832* 

938 

943 

943* 

948 

948* 

950 

950* 
973* 

955 

955* 

957 

957* 

959 

959* 

964 

964* 
1071* 

966 
1076 
1102 

^^ 

971* 

971 

973 

W 

loil* 

1064 

W. 

1066 

1066* 

1071 

1081 

1081* 

1083 

1083* 

1093 

1095 

1095* 

1100 

1100* 

]]lli 

110*^ 

1108* 

1110 

1110* 

1  12 

lilt* 

1114 

1114* 

1116 

1116* 

1118 

1118* 

1120 

11r  ! 

1122* 

1127* 

1127 

1129 

1129* 

1330* 

1330 

1332 

1332* 

1334 

1334* 

1336 

1336* 

13' 

1341* 

1343 

1343* 

1345 

1345* 

1347 

1347* 

1349 

1349* 

1351 

1351* 

1356 

1377* 

1358 

1358* 

1360 

1360* 

1365 
1383 

mi 

1371 

1371* 

1373 

1373* 

1375 

1375* 

1377 

1379 

1379* 

1381 

1381* 

1385 

1385* 

1392* 

1392 

1394 

1394* 

1396 
1410 

1396* 
1410* 

1398 

1398* 

1400 

1400* 

1402 

1402* 

1404 

1404* 

1406 
1423 

]t^ 

1408 

1408* 

1412 

1412* 

1414 

1414* 

1416 

1416* 
1439* 

1421 

1421* 

1428 

1428* 

1430 

1430* 

1432 

1432* 

1437* 

1437 

1439 

1444* 

1444 

1446 

1446* 

1451* 

1451 

1456* 

1456 

1458 

1458* 

1586* 

1586 

1588 

1588* 

1590 

1590* 

1592 

1592* 

1676# 

1676 

1678 

1678* 

1680 

1680* 

1682 

1682* 

1684 
1701 

1684* 
1701* 

1686 

1686* 

1691* 

1691 

1693 

1693* 

1695 

1695* 
I4I2* 

1697 

1697* 
1714* 

1699 

1699* 

1706* 

1706 

1708 

1708* 

1710 

1710* 

1712 

1714 

1716 

1716* 

1718 

1718* 

1720 

1720* 

1722 

1722* 

1724 

1724* 

1726 

1726* 

1728 

1728* 

1730 

1730* 

1732 

1732* 

1734 

1734* 

1736 

1736* 

1738 

1738* 

1740 

1740* 

1742 

1742* 

1744 

1744* 

1749 

1749* 

1751 

1751* 

1753 

1753* 

1755 

1755* 

1757 

1757* 

1759 

1759* 

1761 

1761* 

1763 
1785 

1763* 
1785* 

1765 

1765* 

1767 

1767* 

1773 

1773* 

1775 

1775* 

1777 

1777* 

1783 

1783* 

1787 

1787* 

1789 

1789* 

1791 

!791* 

1793 

1793* 

1795 

1795* 

1797 

1797* 

1802* 

1802 

1804 

1804* 

1809* 

1809 

1811 

1811* 

1813 

1813* 

1818* 

1818 

1823* 

1823 

182S 

1825* 

1975* 

1975 

1977 

1977* 

1979 

1979* 

1981 

1981* 

1984 

1984* 

1986 

1986* 

1988 

1988* 

1990 

1990* 

1992 

1992* 

1994 

1994* 

1997 

1997* 

2002 

lolli 

2008* 

W 

2012 

2012* 

2014 

2014* 

^91§ 

2016* 

2018 

2018* 

2020 

2022 

l>27* 

2029 

2029* 

2031 

2031* 

2033 

iS'S 

IQ35* 
2049* 

2037 

Wu 

2039 

2039* 

Iq^i^ 

2043 

2043* 

2045 

2045* 

2047 

2047* 

2049 

2051 

2053 

2053* 

2)55 

2057 

2057* 

2059 

2059* 

I9lk\ 

2061* 

2063 

2063* 

2065 

2065* 
2086* 

2070* 

2070 
2088* 

2)720 

2074 

2074* 

2080* 

2080 

2082 

2082* 

2084 

2084* 

2086 

2088 

2090* 

2092 

2092* 

2094 

2094* 

2096 

2096* 

2098 

2098* 

2100 

2100* 

2102 

2102* 

2107 

2109 

2109* 

2269* 

2269 

2272 

2272* 

2274 

2274* 

2276 

2278 

2278* 

2283 

2283* 

2285 

2285* 

22B7 

2287* 

2289 

2289* 

2292 

2292ir 

2298 

2298* 

230 ) 

ii??* 

2308 

2308* 

2310 

?|1Q* 

2312 

Ivi^ 

2314 

2314* 

2316 

2316* 

2318 

2320 

2320* 

2322* 

2Z270 

2327 

2329 

t|29* 

2331 

2331* 

2333 

2333* 

2335 

2335* 

2337 

2337* 

2339 

2339* 

2341 

Ihl^ 

2343 

2343* 

2345 

2345* 

2347 

2347* 

2349 

2349* 

2351 

2351* 

2353 

2353* 

2355 

lilt* 

IIV 

2357* 

2359 

2359* 

2361 

2361* 

2363* 

2365 

2365* 

2370* 

2370 

2372 

2Z72» 

2Z7t, 

2374* 

2380* 

2380 

2382 

2386 

2386* 

2388* 

??29 

2390* 

2592 

?392* 

2394 

2394* 

2396 

2396* 

2398 

2398* 

2400 

2400* 
2596* 

2402 

2402* 

l^E" 

Ml 

2409 

2409* 

2485* 

2485 

2487 

2487* 

2594* 

2594 

2596 

2598 

2598* 

2600 

2600* 

2602 

2602* 

2855* 

2855 

2857 

2857* 

2859 

2859* 

2861 

2861* 

2866* 

2866 

1 

m 

W 

2870 
2890* 

2870* 

2872 

2872* 

2874 

2874* 

2876 

2876*   2 

881* 

2881 

2883 

2883* 

2890 

2892 

2892* 

2897* 

2897 

2899 

2899*  I 
2913* 

901 

901* 

903 

2903* 

SEQ  1839 

905 

\ 

905* 

2907 

2907* 
3171* 

909 
176* 

2909* 
3176 

2911 

2911* 

2913 

165* 

, 

1$5 
182* 

184 

3167* 
3184* 

3 

169 

169* 

3171 

3178 

3178* 
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7381* 

7401* 

7635* 
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7669* 

7689* 

7703* 

7939* 

7956* 

7973* 

7990* 
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8239* 

8256 
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8541* 

8561* 
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71 7# 

731  # 

75A* 

77A# 

79A# 

81 7# 

938# 

96A# 

1071# 

1100# 

1118# 

133A# 

135U 

1375* 

1394* 

1408* 

U28* 

U51* 

1676* 

1693* 

1710* 

1724* 

1738* 

1755* 

1773* 

1791* 

1811* 

1979* 

1994* 

2016* 

2033* 

2047* 

2061* 

2082* 

2096* 

imti 

2287M 
2310* 
2327* 
2341* 
2355* 
2372* 
2390* 
2407* 
2600* 
2868* 
2885* 
2905* 
3169* 
3186* 
3209* 
3223* 
3497* 


717 
731 
754 
774 
794 
817 
938 
964 
1071 
1100 
1118 
1334 
1351 
1375 
1394 
1408 
1428 
1451 
1676 
1693 
1710 
1724 
1738 
1755 
1773 
1791 
1811 
1979 
1994 
2016 
2033 
2047 
2061 
i082 
2096 
2272 
22S7 
2310 
2327 
2341 
2355 
2372 
2390 
2407 
2600 
2868 
2885 
2905 
3169 
3186 
3209 
3223 
3497 


719* 
733* 
756* 
776* 
799* 
822* 
943* 
966* 
1076* 
1102* 
1120* 
1336* 
1356* 
1377* 
1396* 
1410* 
1430* 
1456* 
1678* 
1695* 
1712* 
1726* 
1740* 
1757* 
1775* 
1793* 
1813* 
1981* 
1997* 
2018* 
2035* 
2049* 
2063* 
2084* 
2098* 
2274* 
2289* 
2312* 
2329* 
2343* 
2357* 
2374* 
2392* 
2409* 
l$Q2* 
2870* 
2890* 
2907* 
3171* 
3191* 
3211* 
3482* 
3499* 


1336 
1356 
1377 
1396 
1410 
1430 
1456 
1678 
1695 
1712 
1726 
1740 
1757 
1775 
1793 
1813 
1981 
1997 
2018 
2035 
2049 
2063 
2084 
2098 
2274 
2289 
2312 
2329 
2343 
2357 
2374 
2392 
2409 
2602 
2870 
2890 
2907 
3171 
3191 
3211 
3482 
3499 


721* 
735* 
758* 
781* 
801* 
824* 
948* 
971* 
1081* 

1122* 
1341* 
1358* 
1379* 
1398* 
1412* 
1432* 
1458* 
1680* 
1697* 
1714* 
1728* 
1742* 
1759* 
1777* 
1795* 
1818* 
1984* 
2002* 
2020* 
2037* 
2051* 
2065* 
2086* 
2100* 
2276* 
2292* 
2314* 
2331* 
2345* 
2359* 
2380* 
2394* 
'485* 
855* 
872* 
?892* 
>9Q9* 
5176* 
5193* 
213* 
484* 
5501* 


721 
735 
758 
781 
801 
824 
948 
971 
1081 
1108 
1122 
1341 
1358 
1379 
1398 
1412 
1432 
1458 
1680 
1697 
1714 
1728 
1742 
1759 
1777 
1795 
1818 
1984 
2002 
2020 
2037 
2051 
2065 
2086 
2100 
2276 
2292 
2314 
2331 
2345 
2359 
2380 
2394 
2485 
2855 
2872 
2892 
>909 
)^76 
5193 
5213 
1484 
5501 


1083* 
1110* 
1127* 
1343* 
1360* 
1381* 
1400* 
1414* 
1437* 
1586* 
1682* 
1699* 
1716* 
1730* 
1744* 
1761* 
1783* 
1797* 
1823* 
1986* 
2008* 
2022* 
2039* 
2053* 
2070* 
2088* 
2102* 
2278* 
2298* 
2316* 
2333* 
2347* 
2361* 
2382* 
2396* 
2487* 
2857* 
2874* 
2897* 
2911* 
3178* 
3195* 
3215* 
3486* 
3503* 


723 
740 

m 
III 

950 
973 
1083 
1110 
1127 
1343 
1360 
1381 
1400 
1414 
1437 
1586 
1682 
1699 
1716 
1730 
1744 
1761 
1783 
1797 
1823 
1986 
2008 
2022 
2039 
2053 
2070 
2088 
2102 
2278 
2298 
2316 
2333 
2347 
2361 
2382 
2396 
2487 
2857 
2874 
2897 
?911 
5178 
5195 
5215 
3486 
3503 


2^ 
>* 

Iff 
!^ 
?* 
1129* 
1345* 
1365* 
1383* 
1402* 
1416* 
1439* 
1588* 
1684* 
1701* 
1718* 
1732* 
1749* 
1763* 
1785* 
1802* 
1825* 
1988* 
2010* 
2027* 
2041* 
2055* 
2072* 
2090* 
2107* 


1064* 
1093* 
1114* 
1330* 
1347* 
1371* 
1385* 
1404* 
1421* 
1444* 
1590* 
1686* 
1706* 
1720* 
1734* 
1751* 
1765* 
1787* 
1804* 
1975* 
1990* 
2012* 
2029* 
2043* 
2057* 
2074* 
2092* 
2109* 
2283* 
'  ^2* 
0* 
\70 
,51* 
J365* 
2386* 
2400* 
2596* 
2861* 
2881* 
■1901* 
1165* 
5182* 

'02* 
Jl9* 

493* 
5510* 


727 
7k7 
767 
790 
810 
830 
957 
1064 
1093 
1114 
1330 
1347 
1371 
1385 
1404 
1421 
1444 
1590 
1686 
1706 
1720 
1734 
1751 
1765 
1787 
1804 
1975 
1990 
2012 
2029 
2043 
2057 
2074 
2092 
2109 
2283 
2302 
2320 
2337 
2351 
2365 
2386 
2400 
2596 
2861 
2881 
2901 
3165 
3182 
fe02 
3219 
3493 
3510 


10^ 
11V» 
13  .* 
1349* 
1373* 
1392* 
1406* 
1423* 
1446* 
1592* 
1691* 
1708* 
1722* 
1736* 
1753* 
1767* 
1789* 
1809* 
1977* 
1992* 
2014* 
2031* 
2045* 
2059* 
2080* 
2094* 
2269* 
2285* 
2308* 
2322* 
"539* 
(53* 
370* 
i388* 
2402* 
2598* 
2866* 
?883* 
>903* 
h67* 
5184* 
5207* 
5221* 
5495* 
5512* 


729 
749 
772 
792 
812 
832 
959 
1066 
1095 
1116 
1332 
1349 
1373 
1392 
1406 
1423 
1446 
1592 
1691 
1708 
1722 
1736 
1753 
1767 
1789 
1809 
1977 
1992 
2014 
2031 
2045 
2059 
2080 
2094 
2269 
2285 
2308 
2322 
2339 
2353 
2370 
2388 
2402 
2598 
2866 
2883 
2903 
3167 
3184 
3207 
3221 
3495 
3512 


SEQ  1841 


L 


Q   1829 


53A# 
J548« 
J82Q« 

S857# 
3871* 
AU3# 
4160# 
A180# 
A19A# 
4A67# 
4A84# 
AS0A4r 
451 8# 
4755* 
4772# 
4792# 
4806# 
5042# 
5059# 
5079# 
5093* 
S328« 
5345* 
5365* 
5379* 
5617* 
5634* 
5654* 
5668* 
6041* 
6058* 
6078* 
6095* 
6365* 
6382* 
6399* 
6419* 
6687* 
6704* 
6721* 
6741* 
6755* 
7028* 
7045* 
7062* 
7079* 
7i52* 
7366* 
7383* 
7403* 
7637* 


3514 
3534 
3548 
3820 
3837 
3857 
3871 
4143 
4160 
4180 
4194 
4467 
4484 
4504 
4518 
4755 
4772 
4792 
4806 
5042 
5059 
5079 
5093 
5328 
5345 
5365 
5379 
5617 
5634 
5654 
5668 
6041 
6058 
-078 
6095 
6365 
6382 
6399 
6419 
6687 
6704 
6721 
6741 
6755 
7028 
7045 
7062 
7079 
7352 
7366 
7383 
7403 
7637 


;5i6* 

J536* 
5805* 

]9* 
3859* 
4128* 
4145* 
4162* 
4182* 
4452* 
4469* 
4486* 
4506* 
4740* 
4757* 
4774* 
4794* 
5027* 
5044* 
5061* 
5081* 
5313* 
5330* 
5347* 
5367* 
5602* 
5619* 
5636* 
5656* 
5774* 
6043* 
6060* 
6080* 
6097* 
6370* 
6384* 
6401* 
6421* 
6689* 
6706* 
6723* 
6743* 
7013* 
7030* 
7047* 
7067* 
7081* 
7354* 
7371* 
7388* 
7405* 
7639* 


JO* 
4147* 
4164* 
4184* 
4454* 
4471* 
4488* 
4508* 
4742* 
4759* 
4776* 
4796# 
5029* 
5046* 
5063* 
5083* 
5315* 
5332* 
5349* 
5369* 
5604* 
5621* 
5638* 
5658* 
5776* 
6045* 
6062* 
6085* 
6099* 
6372* 
6389* 
6406* 
6423* 
6691* 
6708* 
6725* 
6745* 
7015* 
7032* 
7049* 
7069* 
7083* 
7356* 
7373* 
7390* 
7407* 
7644* 


;518 
J538 

?24 
j41 

4130 
4147 
4164 
4184 
4454 
4471 
4488 
4508 
4742 
4759 
4776 
4796 
5029 
5046 
5063 
5083 
5315 
5332 
5349 
5369 
5604 
5621 
5638 
5658 
5776 
6045 
6062 
6085 
6099 
6372 
6389 
6406 
6423 
6691 
6708 
6725 
6745 
7015 
7032 
7049 
7069 
7083 
7356 
7373 
7390 
7407 
7644 


4149* 
4166* 
4186* 
4456* 
4473* 
4490* 
4510* 
4744* 
4761* 
4778* 
4798* 
5031* 


6050* 
6064* 
6087* 
6101* 
6374* 
6391* 
6408* 
6425* 
6696* 
6710* 
6727* 
6747* 
7017* 
7034* 
7051* 
7071* 
7341* 
7358* 
7375* 
7395* 
7409* 
7646* 


[520 
1540 

il 

4132 
4149 
4166 
4186 
4456 
4473 
4490 
4510 
4744 
4761 
4778 
4798 
5031 
5048 
5065 
5085 
5317 
5334 
5351 
5371 
5606 
5623 
5640 

m 

6050 
6064 
6087 
6101 
6374 
6391 
6408 
6425 
6696 
6710 
6727 
6747 
7017 
7034 
7051 
7071 
7341 
7358 
7375 
7395 
7409 
7646 


4800* 
5033* 
5053* 
5070* 
5087* 
5319* 
5339* 
5356* 
5373* 
5608* 
5628* 
5645* 

mii 

6052* 
6Q$9* 
6089* 
6359* 
6376* 
6393* 
6413* 
6427* 
6698* 
6715* 
6732* 
6749* 
7019* 
7036* 
7053* 
7073* 
7343* 
7360* 
7377* 
7397* 
7411* 
7648* 


5525 
J542 

ip 

4134 
4154 
4171 
4188 
4458 
4478 
4495 
4512 
4746 
4766 
4783 
4800 
5033 
5053 
5070 
5087 
5319 
5339 
5356 
5373 
5608 
5628 
5645 

ini 

6052 
6069 
6089 
6359 
6376 
6393 
6413 
6427 
6698 
6715 
6732 
6749 
7019 
7036 
7053 
7073 
7343 

7397 
7411 
7648 


4190* 
4463* 
4485* 
4497* 
4514* 
4751* 
4768* 
4785* 
4802* 
5038* 
5C55* 
50)'2* 
5089* 
5324* 
5341* 
5358* 
5375* 
5613* 
5630* 
5647* 

1^. 

6054* 
6071* 
6091* 
6361* 
6378* 
6395* 
6415* 
6429* 
6700* 
6717* 
6734* 
6751* 
7024* 
7038* 
7055* 
7075* 
7345* 


7399* 
7633* 
7650* 


5l 

\^ 

^? 
4139 
4156 
4173 
4190 
4463 
4480 
4497 
4514 
4751 
4768 
4785 
4802 
5038 
5055 
5072 
5089 
5324 
5341 
5358 
5375 
5613 
5630 
5647 
5664 
5782 
6054 
6071 
6091 
6361 
6378 
6395 
6415 
6429 
6700 
6717 
6734 
6751 
7024 
7038 
7055 
7075 
7345 
7362 
7379 
7399 
7633 
7650 


[532* 
546* 
118* 
35* 
155* 
869* 
4141* 
4158* 
417 
419 
446 
448 
450. 
4516* 
4753* 
4770* 
4790* 
4804* 
5040* 
5057* 
5077* 
5091* 

m 

5615* 
5632* 
5652* 

6056* 
6073* 
6093* 
6363* 
6380* 
6397* 
6417* 
6685* 
6702* 
6719* 
6739* 
6753* 
7026* 
7043* 
7060* 
7077* 
7347* 
7364* 
7381* 
7401* 
7635* 
7652* 


[532 

it 

l55 

4141 

4158 

4178 

4192 

4465 

4482 

4502 

4516 

4753 

4770 

4790 

4804 

5040 

5057 

5077 

5091 

5326 

5343 

5363 

5377 

5615 

5632 

5652 

5666 

6039 

6056 

6073 

6093 

6363 

6380 

6397 

6417 

6685 

6702 

6719 

6739 

6753 

7026 

7043 

7060 

7077 

7347 

7364 

7381 

7401 

7635 

7652 


SEQ  1842 


.Hi 


M 


L 


Q   1830 


XMR 


765A 
7671 
7691 
7924 
79A1 
7958 
7978 
7992 
127 

}l 

509 

526 

i5A3 

8563 

8760 

877A 

8791 

8805 

8825 

88A5 

8862 

19A 

208 

222 

236 

250 

26A 

287 

307 

327 

350 

370 

390 

A13 

433 

453 

476 

496 

516 

539 

559 

579 

599 

717 

731 

754 

774 

794 

817 

938 

964 


8793# 
881 0« 
8830# 
8847# 
8864# 
196# 
21 0# 
224* 
238# 
252* 
266* 
289* 
309* 
332* 
352* 
372* 
395* 
415* 
435* 
458* 
478* 
498* 
521* 
541* 
561* 
584* 
604* 
719* 
733* 
756* 
776* 
799* 
822* 
943* 
966* 


8776 
8793 
8810 
8830 
8847 
8864 
196 
210 
224 
238 
252 
266 
289 
309 
332 
352 
372 
395 
415 
435 
458 
478 
498 
521 
541 
561 
584 
604 
719 
733 
756 
776 
799 
822 
943 
966 


812* 
832* 
849* 
)66* 
198* 

n2* 

i26* 
240* 
]54* 

91* 
$14* 
334* 
354* 
377* 
397* 
417* 
440* 
460* 
480* 

523* 
543* 
566* 
586* 

721* 
735* 
758* 
781* 

m 

948* 

971* 


765 

767 

7695 

7928 

7945 

7982 
48 


7665* 


8 


«f 


853^ 
8550 
8567 
8764 
8778 
8795 
8812 
8832 
8849 

2^2 
226 
240 
254 
268 
291 
314 
334 
354 
377 
397 
417 
440 
460 
480 
503 
523 
543 
566 
586 
09 

735 
758 
781 
801 
824 
948 
971 


794) 

7964* 

7984* 

"% 

284* 
518* 
535* 
3552* 
8569* 
8766* 
8780* 
8797* 
]814* 
|37* 
51* 


609    61 
721    72 


fo 


520* 


\S17 

8557 

8571 

8768 

8782 

8799 

8819 

8839 

8853 

8870 

202 

216 

230 

244 

258 

275 

298 

318 

341 

361 

381 

404 

424 

444 

467 

487 

507 

530 

550 

570 

593 

613 

725 

742 

765 

785 

808 

828 

955 

1062 


232* 

^$* 
60* 

80* 

ioo* 

323* 
343* 
363* 
386* 
406* 
426* 
449* 
469* 
489* 
512* 
532* 
552* 
575* 
595* 
615* 
727» 
7k7» 
767» 
790* 
810* 
830* 
957* 
1064* 


7669* 

7689* 

7703* 

7939* 

7956* 

7973* 

7990* 

3225* 

;39* 

56* 

?76* 

507* 

524* 

)541* 

J561* 

8758* 

8772* 

8786* 

8803* 

8823* 

8843* 

8860* 

8874* 

206* 

220* 

234* 

248* 

262* 

282* 

305* 

325* 

345* 

368* 

388* 

408* 

431* 

451* 

471* 

494* 

514* 

534* 

557* 

577* 

597* 

617* 

729* 

749* 

772* 

792* 

812* 

832* 

959* 

1066* 


SEQ  1843 


L_- 


r' 


1071* 

1071 

1076* 

MOO* 
118* 

1100 

1102* 

1118 

1120* 

1334* 

1334 

1336* 

1351* 

1351 

1356* 
1377* 

1375* 

1375 

1394* 

1394 

1396* 
1410* 

1408* 

1408 

1428* 

1428 

1430* 

1451* 

1451 

1456* 

1676* 

1676 

1678* 

1693* 
1710* 

1693 

1695* 

1710 

1712* 

1724* 

1724 

1726* 

1738* 

1738 

1740* 

1755* 

1755 

1757* 

1773* 

1773 

1775* 

1791* 

1791 

1793* 

1811* 

1811 

1813* 

1979* 

1979 

1981* 

1994* 

1994 

1997* 

2016* 

2016 

2018* 

2033* 

2033 

2035* 

2047* 

2047 

2049* 

2061* 

2061 

2063* 

2082* 

2082 

2084* 

2096* 

2096 

2098* 

2n2» 

2272 

2274* 

22B70 

2287 

2289* 

2310* 

2310 

2312* 

2327* 

2327 

2329* 

2341* 

2341 

2343* 

2355* 

^355 

2357* 

2372* 

i372 

2374* 

2390* 

2390 

2392* 

2407* 

2407 

2409* 

2600* 

2600 

2602* 

2868* 

2868 

2870* 

2885* 

2885 

2890* 

2905* 

2905 

2907* 

3169* 

3169 

3171* 

3186* 

3186 

3191* 

3209* 

3209 

3211* 

3223* 

3223 

3482* 

3497* 

3497 

3499* 

3514* 

3514 

3516* 

3534* 

3534 

3536* 

3548* 

3548 

3805* 

3820* 

3820 

3822* 

3837* 

3839* 

3857* 

3857 

3859* 

3871* 

3871 

4128* 

4143* 

4143 

4145* 

1076 
1102 
1120 
1336 
1356 
1377 
1396 
1410 
1430 
1456 
1678 
1695 
1712 
1726 
1740 
1757 
1775 
1793 
1813 
1981 
1997 
2018 
2035 
2049 
2063 
2084 
2098 
2274 
2289 
2312 
2329 
2343 
2357 
2374 
2392 
2409 
2602 
2870 
2890 
2907 
3171 
3191 
3211 
3482 
3499 
3516 
3536 
3805 
3822 
3839 
3859 
4128 
4145 


1083* 
1110* 


\W 


1714# 
1728* 
1742* 
1759* 
1777* 
1795* 
1818* 
1984* 
'002* 
020* 
037* 
]051* 
2065* 
2086* 
2100* 
2276* 
2292* 
2314* 
2331* 
2345* 
2359* 
2380* 
2394* 
2485* 
2855* 
2872* 
2892* 
2909* 
3176* 
3193* 
3213* 
3484* 
3501* 
3518* 
3538* 
3807* 
3824* 
3841* 
3861* 
4130* 
4147* 


1783* 
1797* 


?333* 


yj-* 


0* 
9* 


3r 

3863* 
4132* 
4149* 


1083 
1110 
1127 
1343 
1360 
1381 
1400 
1414 
1437 
1586 
1682 
1699 
1716 
1730 
1744 
1761 
1783 
1797 
1823 
1986 
2008 
2022 
2039 
2053 
2070 
2088 
2102 
2278 
2298 
2316 
2333 
2347 
2361 
2382 
2396 
2487 
2857 
2874 
2897 
2911 
3178 
3195 
3215 
3486 
3503 
3520 
3540 
38C9 
3826 
3843 
3863 
4132 
4149 


1684* 
1701* 
1718* 
1732* 
1749* 
1763* 
1785* 
1802* 
1825* 
1988* 
'010* 
027* 
041* 
055* 
072* 
]09Q* 
2107* 
2280* 
2300* 
2318* 
2335* 
2349* 
2363* 
2384* 
2398* 
2594* 
2859* 
2876* 
2899* 
2913* 
3180* 
3200* 
3217* 
3488* 
3508* 
3525* 
3542* 
3811* 
3831* 
3848* 
3865* 
4134* 
4154* 


1701 
1718 
1732 
1749 
1763 
1785 
1802 
1825 
1988 
2010 
2027 
2041 
2055 
2072 
2090 
2107 
2280 
2300 
2318 
2335 
2349 
2363 
2384 
2398 
2594 
2859 
2876 
2899 
2913 
3180 
3200 
3217 
3488 
3508 
3525 
3542 
3811 
3831 
3848 
3865 
4134 
4154 


1093*   1093 

11 

14*   1114 

i;30* 

530 

i;47* 

347 

i; 

71* 

271 

i! 

85* 

385 

1404*   1404 
1421*   1421 

1444*   1444 

1590*   1590 

1686*   1 
1706*   1 

686 

h 

1720*   1 
1734*   1 

734 

1751*   1751 

1765*   1765 
1787*   1787 

1804*   1804 

1975*   1975 

1990*   1990 

2012*   2 

012 

2029*   2 

029 

m   18^? 

2074*   2 

074 

2092*   2 

092 

2109*   2 

109 

2283*   2283 

2302*   2 

302 

2320*   2 

320 

2337*   2337 

2351*   2351 

2365*   2 

i 

2386*   2 

2400*   2 

2596*   2 

596 

2861*   2861 

2881*   2881 

2901*   2 

901 

:!165*  \ 

165 

]AS2»      1 

182 

:202*   3202 

:219*   3219 

:493*   :i493 

:510*   : 

510 

3527*   ] 

527 

:544*   :i544 

;816*   :i816 

:833*   :833 

850*   :850 

3867*   3867 
4139*   4139 

4156*   4156 

1095* 
1116* 
1|32* 
1349* 
1373* 
1392* 

1446* 
1592* 
1691* 
1708* 
1722* 
1736* 
1753* 
1767* 
1789* 
1809* 
1977* 
1992* 
2014* 
2031* 
2045* 
2059* 
2080* 
2094* 
2269* 
2285* 
|308* 
2322* 
2339* 
2353* 
2370* 
2388* 
2402* 
2598* 
2866* 
2883* 
2903* 
3167* 
3184* 
3207* 
3221* 
3495* 
3512* 
3532* 
3546* 
3818* 
3835* 
3855* 
3869* 
4141* 
4158* 


1095 

1116 

1332 

1349 

1373 

1392 

1406 

1423 

1446 

1592 

1691 

1708 

U22 

1736 

1753 

1767 

1789 

1809 

1977 

1992 

2014 

2031 

2045 

2059 

2080 

2094 

2269 

2285 

2308 

2322 

2339 

2353 

2370 

2388 

2402 

2598 

2866 

2883 

2903 

3167 

3184 

3207 

3221 

3495 

3512 

3532 

3546 

3818 

3835 

3855 

3869 

4141 

4158 


SEO  1844 


L„ 


Q  1832 


4160* 
4180* 

4160 
4180 

4162* 

4162 

4164* 

4164 

4182* 

418 

2 

4184* 

4184 

4194# 

4194 

4452* 

445 

2 

4454* 

4454 

4467* 
4484* 

4467 
4484 

4469* 

446 

9 

4471* 

4471 

4486* 

4486 

4488* 
4508* 

4508 

4504* 

4504 

4506* 

4506 

4S18* 
4755* 

4518 
4755 

4740* 

4740 
4757 

4742* 

4742 

4757* 

4759* 

4759 

4772* 

4772 

4774* 

4774 

4776* 

4776 

4792* 

4792 

4794* 

4794 

4796* 

4796 

4806* 

4806 

5027* 

5027 

5029* 

5029 

5042* 

5042 

5044* 

5044 

5083* 

5083 
5315 

5059* 
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!^ 

887A 
196 

P 

300 
363 
426 
489 
552 
617 
758 
822 
1095 
1351 
1423 
1691 
1730 
1785 
1997 
2098 
2310 
?409 
i903 
3219 
3544 
3867 
4190 
4514 
4802 
5089 
5375 
5664 
6095 
6423 
6749 
7077 
7405 
7697 
7988 
8278 
8567 
8821 


7411 


198 
]26 
54 
07 
570 
433 
496 
559 
717 
765 
832 
1102 
1360 
1432 
1693 
1732 
1789 
2008 
2102 
2314 
2485 
2907 
3223 
3548 
3871 
5194 
4518 
4806 
5093 
5379 
5668 
6097 
6425 
6751 
7079 
7407 
7699 
7990 
8280 
8569 
8823 


^84^ 
^?8 


948 
1110 
1373 
1439 
1697 
1736 
1797 
2014 
2109 
2322 
2594 
2913 
3488 
3811 
4134 
4458 
4746 
5033 
5319 
5608 
5778 
6359 

m 

7341 
7633 
7924 
8214 


397 
460 
523 
586 
729 
792 
973 
1127 
1394 
1458 
1716 
1755 
1811 
2072 
2283 
2384 
2861 
3178 
3508 
3831 
4154 
4478 
4766 
5053 
5339 
5628 
6050 
6374 
6700 
7028 
7356 
7648 
7939 
8229 
8518 
8784 
8849 


1396 

1586 

1718 

1757 

1823 

2080 

2285 

2386 

2866 

3180 

3512 

3835 

4158 

4482 

4770 

5057 

5343 

5632 

6052 

6389 

6715 

7043 

7371 

7663 

7954 

8244 

8533 

87i 

88 


1^1 


SEQ  1856 


79e 


lit 


Kt 


6719   6/ 

7047     n 


i086 
2298 
2398 
2881 

5536 
3859 
4182 
4506 
4794 
5081 
5367 
5656 
6078 
6406 
6732 
7060 
7388 
7680 
7971 
8261 
8550 
8795 
8868 


1726 
1775 
1990 
2088 
2300 
2402 
2890 
3213 
3538 
3861 
4184 
4508 
4796 
5083 
5369 
5658 
6089 
6417 
6743 
7071 
7599 
7691 
7982 
8272 
8561 
8810 
8870 


0  18*^      .HJ«AP 


.WJZ 


.HLDCT 


.MMGC 


4!5 

?f] 
938 
1129 
U58 
2016 
2370 
2866 
3482 
3867 
4478 
5038 
5602 
6069 

7699 
8244 
8786 
1451 
3202 
4488 
5358 
6725 
7682 
8812 
289 
415 
541 
1108 
1783 
3859 
6393 
8537 
611 
1071 
1371 
1456 
1763 
1986 
2084 
2312 
2407 
2892 
3217 
3540 
3850 


2870 
3488 
3871 
4495 
5042 
5608 
6078 
6700 
7347 
7703 
8261 
8791 
1686 
3503 
4490 
5623 
6727 
7949 
8814 
298 
424 
550 
1371 
1809 
4158 
6417 
8561 
613 
1076 
1375 
1458 
1777 
1992 
2090 
2314 
2409 
2905 
3221 
3542 
3863 


579    51 
735    7< 


J82 
881 
U93 
4128 
4514 
5053 
5613 
6097 
6715 
7352 
7924 
8280 
8795 
1701 
3518 
4497 
5638 
6734 
7964 
8832 
307 
433 
559 
1394 
2008 
4182 
6719 
8760 
615 
1088 
1377 
1586 
1783 
1994 
2092 
2318 
2485 
2907 
3223 
3546 
3865 


316 
442 
568 
1678 
2072 
4482 
6743 
8841 
824 
1100 
1381 
1588 
1787 
2002 
2096 
2320 
2487 
2911 
3484 
3548 
3869 


325 
451 
577 
1682 
2096 
4506 
7047 
8862 
826 
1108 
1383 
1590 
1789 
2008 
2100 
2370 
2594 
2913 
3486 
3807 
3871 


\n 

480 

m 

1757 
>084 
402 
913 
)52S 
4143 
4746 
5093 
5645 
6365 
6755 
7388 
7939 
8509 
8821 
2074 
3826 
4778 
6064 
7055 
8239 

334 
460 
586 
1693 
2269 
4770 
7071 

828 
1112 
1392 
1592 
1793 
2012 
2107 
2372 
2596 
3167 
3499 
3809 
4130 


343 
469 
595 
1697 
2298 
4794 
7375 

830 
1114 
1404 
1678 
1795 
2014 
2109 
2374 
2600 
3169 
7501 

4132 


m 

$843 


352 
478 
756 
1714 
2308 
5057 
7399 


361 
48/ 
765 
1718 
2396 
5081 
7667 


943 

955 

1118 

1120 

1406 

1421 

1693 

1706 

1802 

1818 

2018 

2020 

2272 

2274 

2380 

2382 

2857 

2859 

3182 

3184 

3508 

3510 

3824 

3831 

4145 

4147 

370 
496 
774 
1722 
2901 
5343 
7691 


957 
1127 
1428 
1708 
1823 
2070 
2280 
2384 
2872 
3191 
3512 
3833 
4154 


>14 


6406        6< 
7028       n 


379 
505 
783 
1726 
3211 
5367 
7958 


388 
514 
792 
1730 
3512 
5632 
7982 


5S?5 
6050 
6685 
7079 
7663 
8225 
8758 
8874 
3193 
4173 
5349 
6408 
7673 
8552 

397 
523 
801 
1734 
3536 
5656 
8248 

971 
1358 
1444 
1749 
1981 
2080 
2302 
2396 
2883 
3202 
3525 
3841 
4162 


22 

h 

300 

426 

552 

729 

832 

1127 

1456 

1990 

2322 

m 

3848 
4467 
5033 
5379 
6054 
6691 
7083 
7680 
8229 
8782 


3195 
4473 
5351 
6710 
7675 
8805 

406 
532 
810 
1773 
3835 
6089 
8272 

973 
1365 
1451 
1761 
1984 
2082 
2i08 
2400 
2890 
3215 
3527 
3848 
4164 


SEQ  1857 


0  1845 


.MOENA 


.WOR 


.MPLUS 


.«RPCT 


A171 
A488 
A77A 
5057 
5341 
5628 

7047 
7364 
7650 
7703 
7986 
8254 
8535 
8770 
8832 
611 
1761 
2905 
4510 
5780 
7411 
8823 
824 
1375 
169S 
1742 
2018 
2320 
2911 
3548 
4186 
4772 
5332 
5668 
6421 
7049 
7656 
7994 
8565 
282 
406 
532 
783 
3209 
5365 
7689 
597 
1732 
3514 


4173 
4495 
4776 
5061 
5343 
5630 
6043 
6363 
6427 
6734 
7051 
7371 
7652 
7926 
7988 
8261 
8537 
8772 
8845 
615 
1787 
2913 
4518 
6093 
7671 
8845 
828 
1381 
1699 
1744 
2020 
2372 
?913 
<809 
4192 
4774 
5343 
5776 
6427 
7051 
7667 
8218 
8571 
289 
415 
541 
792 
3213 
5369 
7693 
609 
1736 
J538 


6! 
6429 
6747 
7053 
7373 
7654 
7928 
7992 
§263 
8541 
8774 
8847 
824 
1795 
3215 
4774 
6101 
7695 
8853 
957 
1383 
1706 
1783 
2072 
2392 
3169 
3824 
4194 
4798 
5345 
5778 
6429 
7075 
7669 
8237 
8573 
298 
424 
550 
801 
3534 
5654 
7980 
822 
1775 
3837 


6 
61  - 

mi 
m 

7656 
7941 
7994 
§276 
8543 
8776 
8851 
830 
1802 
3223 
4798 
6397 
7703 
8866 
959 
1406 
1708 
1785 
2092 
2394 
3184 
3835 
4456 
4804 
5347 
5780 
6689 
7081 
7671 
8248 
8778 
307 
433 
559 
810 
3538 
5658 
7984 
1110 
1785 
3861 


4192 

W 

56! 
65 

m 

8550 
8778 
8853 
959 
1984 
3516 
4806 
6421 
7962 
8874 
1108 
1437 
1710 
1787 
2094 
2396 

4471 
4806 
5371 
6043 

7695 

8250 

8803 

316 

442 

568 

822 

3857 

6087 

8270 

1373 

1811 

4160 


448< 


SEQ  1858 


1110 
1444 
1712 
1793 
2096 
2398 
3221 
3839 
4482 
5031 
5377 
6062 
6719 
7345 
7701 
8252 
8805 
325 
451 
577 
1336 
3861 
6091 
8274 
1396 
1997 
4184 


7994 

1112 
1586 
1716 
1795 
2098 
2485 
3223 
3863 
4484 
5046 
5379 
6093 
6721 
7364 
7703 
8276 
8819 
334 
460 
586 
1347 
4180 
6415 
8559 
1680 
2010 
4484 


73^0 
7671 
7954 
8233 
8505 
8567 
8801 
8872 
1120 
2020 
3839 
5093 
6747 
8252 

1118 
1588 
1720 
1802 
2272 
2487 
3486 
3869 
4486 
5057 
5606 
6099 
6723 
7375 
7928 
8282 
8823 
343 
469 
595 
1763 
4184 
6419 
8563 
1684 
2098 
45 


1120 
1590 
1724 
1981 
2280 
2596 
3501 
3871 
4510 
5059 
5621 
6101 
6747 
7377 
7947 
8284 
8845 
352 
478 
597 
1986 
4504 
6741 
8762 
1695 


!i?? 


08 


1383 
2312 
4162 
5379 
7075 
8541 


1349 
1678 
1732 
1992 
2308 
2600 
3514 
4147 
4518 
5085 
5634 
6382 
755 
403 
7960 
8526 
8853 
370 
496 
749 
2274 
4792 
7069 
8843 
1716 
2310 
5059 


^: 


1430 
2320 
4186 

8565 

1358 
1680 
1736 
2008 
2310 
2859 
3516 
4158 
4744 
5091 
5636 
6393 
7017 
7409 

"I? 

8866 

379 

505 

756 

2292 

4796 

7073 

8860 

1720 

2398 

5083 


1437 
2487 
4194 

W^ 

8573 

1371 
1684 
1738 
2010 
2312 
2874 
3540 
4160 
4759 
5093 
5660 
6395 
7036 
7411 
7986 
8539 
8872 
388 
514 
765 
2899 
5079 
7397 
8864 
1724 
2903 
5345 


1444 
2600 
4486 
5668 
7403 
8819 

1373 
1693 
1740 
2012 
2318 
2905 
3546 
4162 
4770 
5317 
5666 
6397 
7047 
7637 
7992 
8541 
8874 
397 
523 
774 
2903 
5083 
7401 

1728 
3213 
5369 


.^.  I 


1  1846 


.MSO^ 


.MSOB 
.MSAB 

.MSDO 


.MSELC 


.MSELE 


.MSELF 


2272 
3217 
4194 
5373 
6427 
7695 
8571 
611 


5 
8 

566 
674 
7671 
8539 

1347 

1732 

2310 

6415 

282 

406 

532 

765 

2903 

7401 

280 

404 

530 

772 

1406 

1981 

3184 

4158 

5046 

5776 

'017 

7687 

3543 

955 

1749 

2302 

3200 

4768 

6380 

7680 

830 

1787 

2274 

3221 

4510 

5377 

6429 

7697 

8573 

1071 


6091 
8274 
824 
1430 
2094 
3221 
4186 
5061 
5774 
6753 
7695 
8541 

1349 

1736 

2398 

6741 

289 

415 

541 

774 

3213 

7693 

287 

413 

539 

781 

1586 

2008 

3207 

4164 

5057 

6043 

7036 

7928 

8557 

964 

1763 

2372 

3499 

4783 

6391 

7945 

959 

1789 

2280 

3223 

4512 

5379 

6747 

7701 

8819 

1761 


395 
539 

Si? 


-i1 

322. 

4192 

5085 

5778 

6755 

7701 

8565 


1373 

1763 

2402 

7069 

298 

424 

550 

783 

3538 

7984 

296 

422 

548 

790 

1588 

2092 

3486 

4178 

5063 

6062 

7047 

7947 

8778 

971 

1777 

2374 

3510 

5044 

6406 

7956 

1112 

1793 

2312 

3540 

4516 

5660 

6749 

7703 

8823 

2287 


419 

HI 

1444 

im 

4194 
5091 

7703 
8571 


449 


7992 
8851 
3484 


S94 


3857 

8270 

334 

460 

586 

822 

4796 

8843 

"2 
458 
584 


3532 
4488 
5343 
6393 
7364 
8218 

1127 
2072 

m 

5341 
7034 
8261 
1358 
1986 
2487 
3863 
4804 
5780 
7077 
7994 


7073 

tilt 

6395 

\w 

882 


7577        7401    7669    7693    7960 


1356 
2074 
2407 
4145 
5356 
7045 
8524 
1375 
1992 
2600 
3865 
4806 
6093 
7081 

8866 
4130 


nn  ^ 


1332 
1795 
2594 
3837 
4518 
5377 
6397 
7377 
7994 
8845 

1695 

2098 

4504 

8758 

352 

478 

597 

1343 

5369 


550 

476 

604 

938 

1693 

2485 

3824 

4744 

5363 

413 

381 

8248 


1365 
2080 
2857 
4156 
5619 
7060 
8535 
1377 
1994 
2905 
3869 
5085 
6095 
7083 
827' 
886. 
4454 


1334 


1699 

2102 

4792 

8762 

361 

487 

599 

1740 

.  58 

359 

485 

613 

957 

1706 

2596 

3835 

4759 

5606 

6689 

7395 

8254 

1392 
2084 
2872 
4171 
5630 
7362 
8550 
13fe" 
2012 
2907 
3871 
5087 
6099 
7403 
8282 
8§72 
4742 


1404 

m 

4469 
5645 
7r73 
8801 
13b3 
2014 
2911 
4186 
5091 
6101 
7405 
8284 
8874 
5029 


i: 


?! 


1720 


505 

742 

1744 

6419 

377 
503 
747 
1064 
1710 
2874 
3855 
4776 
5632 
6719 
7656 
8507 

1421 
2100 
2890 
4480 


SEQ  1859 


8282 
8872 

1724 
2287 
5654 

388 

514 

749 

1984 

6745 

386 
512 
754 
1108 
1712 
2897 
4132 
4790 
5638 
725 
667 
8526 


?, 


1428 
2107 
3182 
4495 
6071 
7654 
8830 
1437 
2020 
3215 
4192 
5371 
6423 
7411 
8567 


5315   5604 


EQ  18A7 


5774 

6041 

6056 

6058 

6361 

6376 

6378 

6687 

6702 

6704 

7015 

7030 

7032 

7343 

7358 

7360 

7635 

7650 

7652 

7926 

7941 

7943 

8216 

8231 

8233 

8505 

8520 

8522 

3762 

8764 

8766 

8768 

8770 

8772 

8774 

8776 

8797 

8799 

.MSELM    613 

824 

828 

957 

973 

1129 

1406 

1451 

1458 

1818 

1825 

1981 

2070 

2082 

2092 

2109 

2370 

2382 

2392 

2409 

2485 

2596 

2859 

2874 

2881 

2892 

3169 

3184 

3191 

3202 

3486 

3501 

3508 

3516 

3527 

3809 

3824 

3831 

3839 

3850 

4132 

4147 

4154 

4162 

4173 

4456 

4471 

4478 

4486 

4497 

4744 

4759 

4766 

4774 

4785 

5031 

5046 

5053 

5061 

5072 

5317 

5332 

5339 

5347 

5358 

5606 

5621 

5628 

5636 

5647 

5776 

6043 

6062 

6069 

6080 

6363 

6382 

6389 

639/ 

6408 

6689 

6708 

6715 

6723 

6734 

7017 

7036 

7043 

7051 

7062 

7345 

7364 

7371 

7379 

7390 

7637 

7656 

7663 

7671 

7682 

7928 

7947 

7954 

7962 

7973 

8218 

8237 

8244 

8252 

8263 

8507 

8526 

8533 

8541 

8552 

8778 

8803 

8810 

8832 

.MSELP    826 

7964 

.MSKCN    1108 

3518 
8254 
1371 

3841 
8543 
1586 

4164 

4488 

4776 

5063 

5349 

5638 

6399 

6725 

7053 

7381 

7673 

1588 

1590 

1592 

1678 

16^3 

1706 

1708 

1710 

1712 

1783 

2008 

2096 

2308 

2396 

3512 

3835 

4158 

4482 

4770 

5057 

5343 

5632 

6393 

6719 

7047 

7375 

7667 

7958 

8248 

8537 

.MSMIN    1765 

8780 

.MXNOR    275 

742 

1066 

1408 

1430 

.MXOR    1343 

.RA       275 

282 

289 

298 

307 

316 

325 

334 

343 

352 

361 

370 

379 

388 

397 

406 

415 

424 

433 

442 

451 

460 

469 

478 

487 

496 

505 

514 

523 

532 

541 

550 

559 

568 

577 

586 

595 

597 

599 

609 

611 

615 

742 

749 

756 

765 

774 

783 

792 

801 

810 

822 

824 

8?0 

1112 

1118 

1120 

1332 

1334 

1336 

1343 

1358 

1375 

1381 

1383 

1430 

1437 

14^4 

1740 

1742 

1744 

1761 

1787 

1793 

1795 

1802 

1984 

1992 

2012 

2018 

2020 

2072 

2094 

2272 

2312 

2318 

2320 

2372 

2394 

2903 

2905 

2911 

2913 

3213 

3215 

3221 

3223 

3538 

3540 

3546 

3548 

3861 

3863 

3869 

3871 

4184 

4186 

4192 

4194 

4508 

4510 

4516 

4518 

4796 

4798 

4804 

4806 

5083 

5085 

5091 

5093 

5369 

5371 

5377 

5379 

5658 

5660 

5666 

5668 

6091 

6093 

6099 

6101 

6419 

6421 

6427 

6429 

6745 

6747 

6753 

6755 

7073 

7075 

7081 

7083 

7401 

7403 

7409 

7411 

7693 

7695 

7701 

7703 

7984 

7986 

7992 

7994 

8274 

8276 

8282 

8284 

8563 

8565 

8571 

8573 

8780 

8805 

8819 

8823 

8843 

8845 

8851 

8853 

8864 

8866 

8872 

8874 

.RAND     273 

280 

287 

296 

305 

314 

323 

332 

341 

350 

359 

368 

377 

386 

395 

404 

413 

422 

431 

440 

449 

458 

467 

476 

485 

494 

503 

512 

521 

530 

539 

548 

557 

566 

575 

584 

593 

604 

740 

747 

754 

763 

772 

781 

790 

790 

808 

817 

938 

1062 

1064 

1334 

1404 

1410 

1676 

1691 

2102 

2269 

2402 

289, 

3207 

3532 

3855 

4178 

4502 

4790 

5077 

5363 

5652 

6085 

6413 

6739 

7067 

7395 

7687 

7978 

8268 

8557 

8758 

8837 

8858 

.RB      273 

275 

280 

282 

287 

289 

296 

298 

305 

307 

314 

316 

323 

325 

332 

334 

341 

343 

350 

352 

359 

361 

368 

370 

377 

379 

386 

388 

395 

397 

404 

406 

413 

415 

422 

424 

431 

433 

440 

442 

449 

451 

458 

460 

467 

469 

476 

478 

485 

487 

494 

496 

503 

505 

5^2 

514 

521 

523 

530 

532 

539 

541 

548 

550 

557 

559 

566 

568 

575 

577 

584 

586 

593 

595 

597 

599 

604 

609 

613 

740 

742 

747 

749 

754 

756 

763 

765 

772 

774 

781 

783 

790 

792 

799 

801 

808 

810 

817 

822 

828 

1108 

1110 

1332 

1334 

1336 

1343 

1347 

1349 

1371 

1373 

1404 

1406 

1408 

1410 

1588 

1590 

1592 

1676 

1678 

1680 

1684 

1691 

1693 

1695 

1699 

1708 

1710 

1712 

17  6 

1720 

1724 

1728 

1732 

1736 

1738 

1740 

1742 

1744 

1763 

1765 

1783 

1785 

1981 

1984 

1986 

1994 

2008 

2010 

2072 

2092 

2094 

2096 

2098 

2102 

2269 

2272 

2274 

2280 

2287 

2292 

2308 

2310 

2372 

2392 

2394 

2396 

2398 

2402 

2859 

2874 

2897 

2899 

2903 

3169 

3184 

3207 

3209 

3213 

3486 

3501 

3532 

3534 

3538 

3809 

3824 

3855 

3857 

3861 

4132 

4147 

4178 

4180 

4184 

4456 

4471 

4502 

SEQ  1860 


EQ  1848 


.RBAD 
.RCCCA 


.RCCCE 
.RCCCP 
.RCCER 
.RCCFZ 
.RCCGC 

.RCCLW 
.RCCMB 
.RCENA 


.RCJP 


.RCJS 
.RCONT 


^345 
798A 
8780 
2602 
9A8 
AA65 
8793 
U12 
M^U 
1988 
13A3 
11K 
5662 
K08 
1349 
948 
1765 
3217 
5373 
7646 
948 
1765 
5217 
5373 
7646 
1330 
273 
395 
521 
754 
059 
1358 
1590 
1793 
2033 
2061 
2327 
2355 
2872 
3484 
3833 
4186 
4757 
5077 
5604 
6056 
6391 
6739 
7075 
7635 


4508 
5365 
6413 
7364 
8218 
8803 
5782 
1081 
4753 

1751 
1753 
2276 
1765 
1377 
6095 


1081 
1789 
3495 
5615 
7697 
1081 
1789 
3495 
5615 
7697 
1341 
280 
404 
530 
763 
964 
1365 
1592 
1795 
2035 
2063 
2329 
2357 
2874 
3486 
3839 
4192 
4759 
5079 
5606 
6058 
6397 
6741 
7081 
7637 


4744 
5369 
6415 
7395 
8237 
8805 

1093 
5040 


2598 
1789 
6423 


1093 
1975 
3542 
5662 
7937 
1093 
1975 
3542 
5662 
7937 
1749 
287 
413 
539 
772 
1071 
1375 
1708 
1979 
2037 
2090 
2331 
2359 
2897 
3499 
3855 
4454 
4768 
5085 
5619 
6060 
6413 
6747 
7343 
7650 


4759 
7397 

1398 
5326 


5778 
2014 
6749 


1114 
1988 
3818 
5778 
7988 
1114 
1988 
3818 
5778 
7988 
1994 
296 
422 
548 
781 
1076 
1381 
1710 
1981 
2039 
2092 
2333 
2361 
2899 
3501 
3857 
4456 
4774 
5091 
5621 
6062 
6415 
6753 
7345 
7652 


1755 
5615 


8780 
2314 
7077 


1343 
2014 
3865 
6052 
8227 
1343 
2014 
3865 
6052 
8227 
2289 
305 
431 
557 
790 
1088 
1383 
1712 
1984 
2041 
2094 
2335 
2363 
2905 
3510 
3863 
4469 
4790 
5315 
5630 
6085 
6421 
7015 
7358 
7654 


1975 
6052 


2907 
7405 


1349 
2086 
4141 
6095 
8278 
1349 
2086 
4141 
6095 
8278 

314 
440 
566 
799 
1100 
1392 
1738 
1986 
2043 
2100 
2337 
2372 
2911 
3516 
3869 
4471 
4792 
5317 
5636 
6087 
6427 
7017 
7360 
7656 


4796 
5654 
6739 

8858 

im 


3217 
7697 


1377 
2276 
4188 
6372 
8516 
1377 
2276 
4188 
6372 
8516 

323 
449 
575 
808 
1112 
1402 
1740 
1992 
2045 
2272 
2339 
2390 
3167 
3532 
4130 
4480 
4798 
5330 
5652 
6093 
6687 
7030 
7362 
7665 


031 
.658 
6741 
7687 

860 


2283 
6698 


3542 
7988 


1398 
2283 
4465 
6423 
8567 
1398 
2283 
4465 
6423 
8567 

332 
458 
584 
824 
1118 
1404 
1742 
2002 
2047 
2274 
2341 
2392 
3169 
3534 
4132 
4486 
4804 
5332 
5654 
6099 
6689 
7032 
7364 
7671 


504, 
6043 
6745 
7689 
8557 
8864 


'386 
^026 


3865 
8278 


1408 
2314 
4512 
6698 
8780 
1408 
2314 
4512 
6698 
8780 

341 
467 
593 
826 
1120 
1406 
1744 
2012 
2049 
2280 
2343 
239^4 
3182 
3540 
4145 
450^ 
5029 
5341 
5660 
6361 
6702 
7034 
7373 
7687 


5077 
6062 
7017 
7693 
8559 


m 


4188 
8567 


1412 
2386 
4753 
6749 
8793 
1412 
2386 
4753 
6749 
8793 

350 
476 
611 
828 
1332 
1410 
1759 
2018 
2051 
2287 
2345 
2400 
3184 
3546 
4147 
4504 
5031 
5347 
5666 
6363 
6704 
7036 
7379 
7689 


3178 
7646 


4512 
8847 


1414 
2598 
4800 
7026 
8847 
1414 
2598 
4800 
7026 
8847 

359 
485 
613 
830 
1334 
1421 
1761 
2020 
2053 
2302 
2347 
2596 
3207 
3807 
4156 
4510 
5044 
5363 
5776 
6376 
6"06 
7045 
7395 
7695 


6087 
7067 
7947 
8758 


J495 
^937 


4800 
8868 


1751 
2868 
5040 
7077 
8868 
1751 
2868 
5040 
7077 
8868 

368 
494 
615 
943 
1336 
1428 
1763 
2027 
2055 
2312 
2349 
2600 
3209 
3809 
4162 
4516 
5046 
5365 
5780 
6378 
6708 
7051 
7397 
7701 


5317 

%l 

7978 
8762 


3818 
8227 


5087 


1753 
2907 
5087 
7354 

1753 
2907 
5087 
7354 


377 
503 
740 
955 
1347 
1430 
1777 
2029 
2057 
2318 
2351 
2857 
3215 
3822 
4178 
4742 
5055 
5371 
6041 
6380 
6717 
7067 
7403 
7926 


5332 

7980 
8778 


^1 


SEQ  1861 


4141 
8516 


5373 


1755 
3178 
5326 
7405 

1755 
3178 
5326 
7405 


386 
512 
747 
957 
1356 
1588 
1787 
2031 
2059 
2320 
2353 
2859 
3221 
3824 
4180 
4744 
5061 
5577 
6043 
6382 
6723 
7069 
7409 
7928 


.RCRTN 
.RCRY 


.RD 


1718 

1761 

1992 

2272 

2396 

2870 

3169 

3223 

3532 

3822 

3871 

4178 

4469 

4518 

4790 

5044 

5093 

5363 

5619 

5668 

6062 

6372 

6421 

6708 

7013 

7053 

7356 

7405 

m 


7%l 

8237 

§541 

8797 

1813 

289 

415 

541 

JJ? 

8780 
275 
334 
397 
460 
523 
586 
754 
817 
1064 
1330 
1404 
1682 
1720 
1763 
1994 
2274 
2398 
2872 
3171 
3482 
3534 
3824 
M28 
4180 
4471 
4740 
4792 
5046 
5313 
5365 
5621 
5774 
6071 
6374 
6423 
6717 
7015 
7067 
7358 
7407 
7667 
7928 


7945 

m 

8799 

'% 

424 

5P 

8839 

^ 

404 
467 
530 
593 
756 
822 
1066 
1332 
1406 
1684 
1722 
1765 
2008 
2280 
2402 
2874 
3178 
3484 
3538 
3833 
4130 
4184 
4480 
4742 
4796 
5055 
5315 
5369 
5630 
5776 
6085 
6376 
6425 
6719 
7017 
7069 
7360 
7409 
7669 
7930 


7947 

8252 

8559 

8801 

2365 

307 

433 

559 

1347 

5365 

8860 

282 

406 
469 
532 
595 
763 
824 
1071 
1334 
1408 
1691 
1724 
1783 
2010 
2287 
2485 
2883 
3180 
3486 
3540 
3835 
4132 
4186 
4482 
4744 
4798 
5057 
5317 
5371 
5632 
5778 
6087 
6378 
6427 
6721 
7019 
7073 
7362 
7411 
7671 
7937 


287 
350 
413 
476 
539 
597 
765 
8^6 
U  5 
13j6 
1410 
1693 
1726 
1785 
2012 
2289 
2487 
2897 
3182 
3488 
3542 
3837 
4134 
4188 
4484 
4746 
4800 
5059 
5319 
5373 
5634 
5780 
6091 
6380 
6429 
6723 
7026 
7075 
7364 
7633 
7673 
7939 


si) 


411 
478 
541 
599 
772 
828 
1081 
1341 
1430 
1695 
1728 
1787 
2018 
2292 
2594 
2899 
3184 
3495 
3544 
3839 
4141 
4190 
4486 
4753 
4802 
5061 
5326 
5375 
5636 
6039 
6093 
6382 
6685 
6725 
7028 
7077 
7373 
7635 
7687 
7941 


334 

460 

586 

1994 

6415 

296 
359 
422 
485 
548 

^, 

830 
1083 
1343 
1437 
1697 
1730 
1793 
2020 
2308 
2596 
2903 
3193 
3497 
3546 
3841 
4143 
4192 
4488 
4755 
4804 

5577 
5638 
6041 
6095 
6391 
6687 
6739 
7030 
7079 
7375 
7637 
7689 
7943 


343 

469 

595 

2274 

6741 

298 

424 

487 

550 

609 

781 

938 

1088 

1347 

1444 

1699 

1732 

1795 

2072 

2310 

2598 

2905 

3207 

3499 

3548 

3855 

4145 

4194 

4502 

4757 

^§?^ 

5330 
5379 
5652 
6043 
6097 
6393 
6689 
6741 
7032 

m 

7639 
7693 
7945 


305 

307 
370 
433 

431 

494 

496 
559 

557 

611 
783 

613 
790 

943 

948 

1093 

1095 
1358 

1349 

1586 

1588 

■7§6 

2?92 

809 

2094 

2312 

2600 

2855 

2909 

3??? 

3510 

3805 

3J07 

3857 

3  161 

4147 

4' 56 

4452 

4454 

mi 

4508 

4768 

5027 

5079 
5332 

5341 

5602 

5604 

5654 

5658 

6045 

6052 

6099 

6101 

6395 

6397 

6691 

6698 

6745 

6747 

7034 

7036 

7341 

7379 

7381 

7646 

7648 

7695 

7697 

7947 

7956 

8216 
8520 
§770 
8860 

370 
496 

3209 
7689 

314 
377 
440 
503 
566 
615 
792 
950 
1108 
1371 
1590 
1710 
1738 
1811 
2096 
2320 
2857 
2911 
3215 
3512 
3809 
3863 
4158 
4456 
4510 
4770 
5031 
5085 
5343 
5606 
5660 
6054 
6359 
6399 
6700 
6749 
7045 
7343 
7395 
7650 
7699 
7958 


8231 

8774 
8872 


SEQ  1862 


379 

505 

774 

3534 

7980 

316 
379 
442 
505 
568 
740 
799 
955 
1110 
1373 
1592 
1712 
1740 
1981 
2098 
2372 
2859 
2913 
3217 
3514 
3811 
3865 
4160 
4458 
4512 
4772 
5033 
5087 
5345 
5608 
5662 
6056 
6361 
6413 
6702 
6751 
7047 
7345 
7397 
7652 
7701 
7960 


323 
386 
449 
512 
575 
742 
801 
957 
1112 
1375 
1676 
1714 
1742 
1984 
2102 
2392 
2861 
3165 
3219 
3516 
3818 
3867 
4162 
4465 
4514 
4774 
5040 
5089 
5347 
5615 
5664 
6058 
6363 
6415 
6704 
6753 
7049 
7347 
7401 
7654 
7703 
7962 


397 

523 

792 

4180 

8559 

325 
388 
451 
514 
577 
747 
808 
959 
1118 
1381 
1678 
1716 
1744 
1986 
2269 
2394 
2868 
3167 
3221 
3518 
3820 
3869 
4164 
4467 
4516 
4776 
5042 
5091 
5349 
5617 
5666 
6060 
6365 
6419 
6706 
6755 
7051 
7354 
7403 
7656 
7924 
7964 


Q  1850 


79i 


.RJ 


.RJMAP 


1Q93 
13A9 
KU 

1728 
1783 
199A 
2096 
2308 
2407 
2901 
3217 
3542 
3865 
4188 
4512 
4800 
5087 
5373 
5662 
6091 
6419 
6745 
7073 
7401 
7693 
7984 
8274 
8563 
8819 
8874 
194 


539 
780 
839 
1874 
196 

y 

426 

489 

552 

617 

758 

822 

1095 

1351 

1423 

1691 

1730 

1785 

1997 

2098 

2310 

2409 

2903 

3219 

3544 

3867 

4190 

';514 

4802 
5089 
5375 
5664 
6095 
6423 
6749 
7077 
7405 
7697 
7988 
8278 
8567 
8821 

196 
224 
252 
318 


198 

307 
370 
433 
496 
559 
717 
765 
832 
1102 
1360 
1432 
1693 
1732 
1789 
2008 
2102 
2314 
2485 
2907 
3223 
3548 
3871 
4194 
4518 
4806 
5093 
5379 
5668 
6097 
6425 
6751 
7079 
7407 
7699 
7990 
8280 
8569 
8823 

198 
226 
254 
327 


1? 

435 
498 
561 
719 
767 
938 
1108 
1371 
1437 
1695 
1734 
1791 
2010 
2107 
2316 
2487 
2909 
3482 
3805 
4128 
4452 
4740 
5027 
5313 
5602 
5774 
6101 
6429 
6755 
7083 
7411 
7703 
7994 
8284 
8573 
8825 

200 
228 
256 
336 


793 
847 


U2 
505 
568 
721 
774 
948 
1110 
1373 
1439 
1697 
1736 
1797 
2014 
2109 
2322 
2594 
2913 
3488 
3811 
4134 
4458 
4746 
5033 
5319 
5608 
5778 
6359 
6685 
7013 
7341 
7633 
7924 
8214 
8503 
8758 
8830 


>58 
545 


7990 
8248 
8507 
8559 
8795 
8849 

^^ 

$81 
444 
507 
570 
723 
776 
950 
1114 
1377 
1444 
1699 
1749 
1802 
2016 
2269 
2370 
2598 
3165 
3493 
3816 
4139 
4463 
4751 
5038 
5324 
5613 
5782 
6365 
6691 
7019 
7347 
7639 
7930 
8220 
8509 
8760 
8841 

204 
232 
260 
354 


7994 
252 

799 
853 


It     II 


388 

451 
514 
577 
725 
783 
966 
1116 
1379 
1446 
1706 
1751 
1804 
2022 
2276 
2380 
2602 
3171 
3495 
3818 
4141 
4465 
4753 
5040 
5326 
5615 
6039 
6370 
6696 
7024 
7352 
7644 
7935 
8225 
8514 
8780 
8843 

206 
234 
262 
363 


8 


516 

579 

727 

785 

971 

1122 

1385 

1456 

1714 

1753 

1809 

2070 

k\ 

|855 
3176 
3497 
3820 
4143 
4467 
4755 
5042 
5328 
5617 
6045 
6372 
6698 
2S?6 
7354 
7646 
7937 
8227 
8516 
8782 
8847 

iQ8 
236 

264 

372 


212 
240 
268 
390 


§05 
1864 

>14 

75 

i43 

406 

469 

532 

595 

733 

801 

1064 

1330 

1398 

W2t 
1765 
1825 
2082 
2289 
2388 
2868 
3191 
3514 
3837 
4160 
4484 
4772 
5059 
5345 
5634 
6054 
6393 
6719 
7047 
7375 
7667 
7958 
8248 
8537 
8791 
8862 

214 
242 

399 


SEQ  1863 


'it 

82 
i45 
408 
471 
534 
597 
735 
803 
1066 
1341 
1400 
1678 
1722 
1767 
1975 
2084 
2292 
2396 
2870 
3200 
3525 
3848 
4171 
4495 
4783 
5070 
5356 
5645 
6069 
6395 
6721 
7049 
7377 
7669 
7960 
8250 
8539 
8793 
8864 

216 
244 
282 
408 


87f 

§812 
8868 

118 

J52 
415 
478 
541 
599 
742 
810 
1081 
1343 
1408 
1680 
1724 
1773 
1988 
2086 
2298 
2398 
2881 
3211 
3536 
3859 
4182 
4506 
4794 
5081 
5367 
5656 
6078 
6406 
6732 
7060 
7388 
7680 
7971 
8261 
8550 
8795 
8868 

218 
246 
291 
417 


220 

248 

291 

354 

417 

480 

543 

604 

749 

812 

1083 

1345 

1412 

1682 

1726 

1775 

1990 

2088 

2300 

2402 

2890 

3213 

3538 

3861 

4184 

4508 

4796 

5083 

5369 

5658 

6089 

6417 

6743 

7071 

7399 

7691 

7982 

8272 

8561 

8810 

8870 

220 
248 
300 
426 


Q  1851 


.RJZ 


•RLDCT 


.RMGC 


§058 
5602 
6069 

^^t 

7699 
82AA 
8786 
U51 
3202 
4488 
5358 
6725 
7682 
8812 
289 
415 
541 
1108 
1783 
3859 
6393 
8537 
611 
1071 
1371 
1456 
1763 
1986 
2084 
2312 
2407 
2892 
3217 
3540 
3850 
4171 
4488 
4774 
5057 
5341 


3S03 
4490 
5623 
6727 
7949 
8814 
298 
424 
550 
1371 
1809 
4158 
6417 
8561 
613 
1076 
1375 
1458 
1777 
1992 
2090 
2314 
2409 
2905 
3221 
3542 
3863 
4173 
4495 
4776 
5061 
5343 


II 


881 
i493 
4128 
4514 
5053 
5613 
6097 
6715 

m 
m 

1701 
3518 
4497 
5638 
6734 
7964 
8832 

1% 

559 
1394 
2008 
4182 
6719 
8760 

615 
1088 
1377 
1586 
1783 
1994 
2092 
2318 
2485 
2907 
3223 
3546 
3865 
4186 
4497 
4783 
5063 
5347 


325 

451 

577 

1682 

2096 

4506 

7047 

8862 

826 

VA 

1590 
1789 
2008 
2100 
2370 
2594 
2913 
3486 
3807 
3871 
4192 
4512 
4798 
5072 
5356 


334 
460 
586 
1693 
2269 
4770 
7071 

828 
1112 
1392 
1592 
1793 
2012 
2107 
2372 
2596 
3167 
3499 
3809 
4130 
4194 
4516 
4800 
5085 
5358 


343 
469 
595 
1697 
2298 
4794 
7375 

830 
1114 
1404 
1678 
1795 
2014 
2109 
2374 
2600 
3169 
3501 
3822 
4132 
4454 
4518 
4804 
5087 
5371 


352 
478 
756 
1714 
2308 
5057 
7399 

943 
1118 
140 
1$9- 
1802 
18 
72 
80 
857 
3182 
3508 
3824 
4145 
4456 
4742 
4806 
5091 
5373 


955 
1120 
1421 
1706 
1818 
2020 
2274 
2382 
2859 
3184 
3510 
3831 
4147 
4469 
4744 
5029 
5093 
5377 


370 
496 
774 
1722 
2901 
5343 
7691 

957 
1127 
1428 
1708 
1823 
2070 
2280 
2384 
2872 
3191 
3512 
3833 
4154 
4471 
4757 
5031 
5315 
5379 
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ni 

1726 
3211 
5367 
7958 

959 
1129 
1430 
1710 
1825 
2072 
2287 
2390 
2874 
3193 
3516 
3835 
4156 
4478 
4759 
5044 
5317 
5604 


812 
1116 
1444 
1833 
15 


44l. 
4806 
5356 
6045 
6429 
7060 
7648 

8870 
3186 
4166 
5334 
6401 
7658 
8545 

388 
514 
792 
1730 
3512 
5632 
7982 

964 
1356 
1437 
1712 
1979 
2074 
2289 
2392 
2881 
3200 
3518 
3839 
4158 
4480 
4766 
5046 
5330 
5606 


543 

727 

817 

1122 

1446 

1825 

2855 
3219 
3831 
4463 
5027 
5375 
6050 
6685 
7079 
7663 
8225 
8758 
8874 
3193 
4173 
5349 
6408 
7673 
8552 

397 
523 
801 
1734 
3536 
5656 
8248 

971 
1358 
1444 
1749 
1981 
2080 
2302 
2396 
2883 
3202 
3525 
3841 
4162 
4482 
4768 
5053 
5332 
5619 


552 
729 
832 
1127 
1456 
1990 
2322 
2861 
3223 
3848 
4467 
5033 
5379 
6054 
6691 
7083 
7680 
8229 
8782 

3195 
4473 
5351 
6710 
7675 
8805 

406 
532 
810 
1773 
3835 
6089 
8272 

973 
1365 
1451 
1761 
1984 
2082 
2308 
2400 
2890 
3215 
3527 
3848 
4164 
4486 
4770 
5055 
5339 
5621 


SEQ  1864 


Q  1852 


.POENA 


.ROR 


.RPLUS 


.RRPCT 


.RSOA 


732 
047 
7364 
7650 
7703 
7986 
8254 
8535 
8770 
8832 
611 
1761 
2905 
4510 
5780 
7411 
8823 
824 
1375 
1695 
1742 
2018 
2320 
2911 
3548 
4186 
4772 
5332 
5668 
6421 
7049 
7656 
7994 
8565 
282 
406 
532 
783 
3209 
5365 
7689 
597 
1732 
3514 
5634 
7984 
611 
1381 
2020 


5630 

5632 

6043 

6^76 

6363 

6427 

6429 

6734 
7051 
7371 

6747 

kl 

7652 

7654 

7926 

7928 

7988 

7992 
8263 

8541 

8772 

8774 

8845 

8847 

615 
1787 

M 

2913 

3215 

4518 

4774 

6093 

6101 

7671 

7695 

8845 

8853 

828 

957 

1381 

1383 

1699 

1706 

1744 

1783 

2020 

2072 

2372 

2392 

2913 

3169 

3809 

3824 

4192 

4194 

4774 

4798 

5343 

5345 

5776 

5778 

6427 

6429 

7051 

7075 

7667 

7669 

8218 

8237 

8571 

8573 

289 

298 

415 

424 

541 

550 

792 

801 

3213 

3534 

5369 

5654 

7693 

7980 

609 

822 

1736 

1775 

3538 

3837 

5658 

6091 

8250 

8274 

615 

824 

1383 

1430 

2072 

2094 

563{ 


^ 


959 

m 

1785 
2092 
2394 
3184 
3835 
4456 
4804 
5347 
5780 
6689 
7081 
7671 
8248 
8778 

lai 

559 
810 
3538 
5658 
7984 
1110 
1785 
3861 
6395 
8539 
830 
1437 
2312 


95 
b<!50 
8803 

442 

568 

822 

3857 

6087 

8270 

1373 

1811 

4160 

6419 

8563 

959 

1444 

2318 


1110 
1444 
1712 
1793 

^4 

3221 
3839 
4482 
5031 
5377 
6062 
6719 
7345 
7701 
8252 
8805 
325 
451 
577 
1336 
3861 
6091 
8274 
1396 
1997 
4184 
6721 
8784 
1071 
1738 
2320 


799 


IV 


7994 

1112 
1586 
1716 
1795 
2098 
2485 
3223 
3863 
4484 
5046 
5379 
6093 
6721 
7364 
7703 
8276 
8819 
334 
460 
586 
1347 
4180 
6415 
8559 
1680 
2010 
4484 
6745 
8843 
1112 
1761 
2372 


1118 
1588 
1720 
1802 
2272 
2487 
3486 
3869 
4486 
5057 
5606 
6099 
6723 
7375 
7928 
8282 
8823 
343 
469 
595 
1763 
4184 
6419 
8563 
1684 
2098 
4508 
7049 
8864 
1118 
1787 
2394 


1120 
1590 
1724 
1981 
2280 
2596 
3501 
3871 
4510 
5059 
5621 
6101 
6747 
7377 
7947 
8284 
8845 
352 
478 
597 
1986 
4504 
6741 
8762 
1695 
2292 
4772 
7073 

1120 
1793 
2487 


1375 
2287 
3871 
5371 
7051 
8284 

1332 
1592 
1728 
1984 
2287 
2598 
3512 
4132 
4516 
5061 
5632 
6363 
6753 
7379 
7958 
8507 
8851 
361 
487 
609 
1994 
4508 
6745 
8839 
1699 
2300 
4796 
7377 

1332 
1795 
2594 


6399 
6717 
7034 
7345 

5774 

6095 

m 

m 

7962 

7411 
7695 
7964 

8244 

8246 

8524 

8762 

8764 

8812 

8819 

1383 

1430 

2312 

2320 

4162 
5379 

4186 

^t¥, 

7075 

8541 

8565 

1349 

1358 

]ni 

1680 
1736 

1992 

2008 

2308 

2310 

2600 

2859 

3514 

3516 

4147 

4158 

4518 

4744 

5085 

5091 

5634 

5636 

6393 

6755 

7017 

7403 

7409 

7960 

7962 

8526 

8537 

8853 

8866 

370 

379 

496 

505 

749 

756 

2274 

2292 

4792 

4796 

7069 

7073 

8843 

8860 

1716 

1720 

2310 

2398 

5059 

5083 

7401 

7669 

1334 
1802 
2598 


1336 
1992 
2600 


1437 
2487 
4194 

8573 

1371 
1684 
1738 
2010 
2312 
2874 
3540 
4160 
4759 
5093 
5660 
6395 
7036 
7411 
7986 
8539 
8872 
388 
514 
765 
2899 
5079 
7397 
8864 
1724 
2903 
5345 
7693 

1358 
2012 
2905 


^/'80 
6101 
6421 
6725 
7045 
7362 
7637 
7701 
7973 
8252 
8533 
8768 
8830 

1444 
2600 
4486 
5668 
7403 
8819 

1373 
1693 
1740 
2012 
2318 
2905 
3546 
4162 
4770 
5317 
5666 
6397 
7047 
7637 
7992 
8541 
8874 
397 
523 
774 
2903 
5083 
7401 

1728 
3213 
5369 
7960 

1375 
2018 
2911 


SEQ  1865 
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.RSOB 
.RSAB 

.RSDO 


.RSELC 


.RSELE 


.RSELF 


.RSELM 


2913 
4160 
A806 

m 

1110 

1728 

2292 

6087 
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397 

523 

756 

2272 

7073 
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395 

521 
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1371 

1783 

3169 
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5031 

5652 

6739 

7673 

8537 

943 

1456 

2289 

3193 

4757 

6078 

7665 

615 

1444 

2272 

3217 

4194 

5373 

6427 

7695 

8571 

611 

5774 

7358 

8762 

613 

2092 


3221 
4186 
5061 
5774 
67' 3 
76'.: 
8541 


3223 
4192 
5085 
5778 
6755 
7701 
8565 
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4194 
5091 
5780 
7049 
7703 
8571 


4484 
5093 
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1349 

1373 

1404 

1408 
1785 

1736 

1763 

1765 

2310 

2398 

2402 

2899 

3209 
7689 

6415 

6741 

7069 

7397 

282 

289 
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442 

406 

415 

424 

532 

541 

550 

559 
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801 

765 
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783 

792 

2903 

3213 

3538 

4184 

7401 

7693 

7984 

8274 

8563 
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m 
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404 
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440 

530 

539 

548 

557 

566 

772 

781 

790 

799 

m 

1406 

1586 

1588 

1590 

1981 

2008 

2092 

2096 

2280 

3184 

3207 

3486 

3501 

3512 

4158 

4164 

4178 

4456 

4471 

5046 

5057 

5063 

5077 

5317 

5776 

6043 

6062 

6085 

6363 
7067 

7017 

7036 

7047 

7053 

7687 

7928 

7947 

7958 

7964 

8543 

8557 

8778 

8803 

8837 
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IP 
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1749 
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2302 

2372 

2374 
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2384 

3200 

3499 

3510 

3822 

4768 

4783 

5044 

5055 

5070 

6380 

6391 

6406 

6706 

6717 

7680 

7945 

7956 

7971 

8235 

830 
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1112 

1114 

1118 

1787 

1789 

1793 

1795 

1802 

2274 
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2312 

2314 

3221 

3223 

3540 

3542 

3546 

4510 

4512 

4516 

4518 

4798 

5377 

5379 

5660 

5662 

5666 

6429 

6747 

6749 

6753 

6755 

7697 

7701 

7703 

7986 

7988 

8573 

8819 

8823 

8845 

8847 

1071 

1761 

2287 

2594 

3167 

6041 

6056 

6058 

6361 

6376 
7926 

7360 

7635 

7650 

7652 

8764 

8766 

8768 

8770 

8772 

824 

828 

957 

973 

2109 

2370 

2382 

2392 

2409 

1410 

in 
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4508 

8780 
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1676 

2308 

3518 

5332 
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7345 
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2002 
2390 
3833 
5330 
6732 
8246 
1120 
1984 
2320 
3548 
4800 
5668 
7075 
7992 
8851 
3484 
6378 
7941 
8774 
1406 
2485 


1127 
2072 
2400 
3848 
5341 
7034 
8261 
1358 
1986 
2487 
3863 
4804 
5780 
7077 
7994 
8853 
3807 

m 

8776 
1451 
2596 


im 

m 

3548 

3837 

im 
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4516 

4518 
5377 

5371 

5379 

5634 

7409 

5660 

w 
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nn 
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7411 
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1695 

1699 

1716 
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P 
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2287 
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4792 
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8559 

8758 

8762 

8839 

8860 
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370 

379 

388 
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496 

505 

514 

597 
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609 
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im 

1343 

1740 

1742 

1744 

1984 

5369 

5658 

6091 

6419 

6745 

8864 

341 

350 

359 

368 

377 

386 

467 

476 

485 

494 

503 

593 

604 

613 

740 

7^7 

754 

828 

938 
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1062 

1064 

1108 

1691 
2396 

1693 

1706 

1708 

1710 

1712 

2485 

2596 

2874 

2897 

3809 

3824 

3835 

3641 

3855 

4132 

4502 

4744 

4759 

4770 

4776 

4790 

5349 

5363 

5606 

5621 

5632 

5638 

6399 
7375 

6413 

6689 

6708 

6719 

6725 

7381 

7395 

7637 

7656 

7667 

8237 

8248 

8254 

8268 

8507 

8526 

1356 

1365 

1392 

1404 

1421 

1428 

2074 

2080 

2084 

2090 

2100 

2107 

2407 

2857 

2872 

2883 

2890 

3182 

4145 

4156 

4171 

4469 

4480 

4495 

5356 

5619 

5630 

5645 

6060 

6071 

7045 

7060 

7362 

7373 

7388 

7654 

8524 

8535 

8550 

8801 

8812 

8830 

1375 

1377 
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1430 

1437 
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1994 
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3865 

2905 

2907 

2911 

2913 

3215 

3869 

3871 

4186 

4188 

4192 

4806 

5085 

5087 

5091 

5093 

5371 

6093 
7081 

6095 

6099 

6101 

6421 

6423 

7083 

7403 

7405 

7409 

7411 

8276 

8278 

8282 

8284 

8565 

8567 

8866 

8868 

8872 

8874 

4130 

4454 

4742 

5029 

5315 

5604 

6704 

7015 

7030 

7032 

7343 

§797 

8231 

8233 

8505 

8520 

8522 

1799 

1458 

1818 
2874 

1825 

1981 

2070 

2082 

2859 

2881 

2892 

3169 

3184 
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.RSELP 
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.RXOR 
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7^ 
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w: 
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158( 
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§ 

7954 
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1590 
1430 


3527 

m 


1678 
4482 
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1 


1693 
4770 


3824 

m 

8237 


5349    5638 


m 
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4759 

1 

8244 
6399 
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if 

m 

8252 
6725 
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3850 
4774 
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W 

7053 

1712 
6393 


4132 
4785 

im 

7656 
8507 


1783 
6719 


4147 
5031 
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23 


f 
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m 
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m 

165 

'h 

453 
496 
539 
579 
717 
754 
794 
938 
1071 
1118 
1351 
1394 
1428 
1676 
1710 
1738 
1773 
1811 
1994 
2033 
2061 
2096 
2287 
2327 
2355 
2390 
2600 
2885 
3169 
3209 
3497 
3534 
3820 
3857 
4143 
4180 
4467 
4504 
4755 
4792 
5042 
5079 


111 
139 

696 

52 

J72 
415 
458 
498 
541 
584 
719 

756 
799 
943 
1076 
1120 
1356 
1396 
1430 
1678 
1712 
1740 
1775 
1813 
1997 
2035 
2063 
?098 
2289 
2329 
2357 
2392 
2602 
2890 
3171 
3211 
3499 
3536 
3822 
3859 
4145 
4182 
4469 

4794 
5044 
5081 


Hi 

171 


m 

543 
586 

7V 
758 
801 
948 
1081 

1358 
1398 
1432 
1680 
1714 
1742 
1777 
1818 
2002 
2037 
2065 
2100 
2292 
2331 
2359 
2394 
2855 
2892 
3176 
3213 
3501 
3538 
3824 
3861 
4147 
4184 
4471 
4508 
4759 
4796 
5046 
5083 


548 
568 
7  " 
7 
8 
9 

10, 
1127 
1360 

]i^ 

1682 
1716 
1744 
1783 
1823 
2008 
2039 
2070 
2102 
2298 
2333 
2361 
2396 
2857 
2897 
3178 
3215 
3503 
3540 
3826 
3863 
4149 
4186 
4473 
4510 
4761 
4798 
5048 
5085 


1088 


ins 

1749 
1785 
1825 
2010 
2041 
2072 
2107 
2300 
2335 
2363 
2398 
2859 
2899 
3180 
3217 
3508 
3542 
3831 
3865 
4154 
4188 
4478 
4512 
4766 

im 

5087 


>3Q2 
?337 


45 

J8 

431 

471 

514 

557 

597 

729 

772 

812 

959 

1095 

1332 

1373 

1406 

1446 

1691 

1722 

1753 

1789 

1977 

2014 

2045 

2080 

2269 

2308 

2339 

2370 

2402 

2866 

2903 

3184 

3221 

3512 

3546 

3835 

3869 

4158 

4192 

4482 

4516 

4770 

4804 

5057 

5091 


599 
731 
774 
817 
964 
1100 
1334 
1375 
1408 
1451 
1693 
1724 
1755 
1791 
1979 
2016 
2047 
2082 
2272 
2310 
2341 
2372 
2407 
2868 
2905 
3186 
3223 
3514 
3548 
3837 
3871 
4160 
4194 
4484 
4518 
4772 
4806 
5059 
5093 


1726 
1757 
1793 
1981 
2018 
2049 
2084 
2274 
2312 

2374 
2409 
2870 
2907 
3191 
3482 
3516 
3805 
3839 
4128 
4162 
4452 
4486 
4740 
4774 
5027 
5061 
5313 


1728 
1759 
1795 
1984 
2020 
2051 
2086 
Ii76 
2314 
2345 
2380 
2485 
2872 
2909 
3193 
3484 
3518 
3807 
3841 
4130 
4164 
4454 
4488 
4742 
4776 
5029 
5063 
5315 


131 
159 
688 

'dt 

75 
}18 

404 

444 

487 

530 

570 

613 

742 

785 

828 

1062 

1112 

1345 

1383 

1588 
1701 
1732 
1763 
1802 
1988 
2027 
2055 
2090 
2280 
2318 
2349 
2384 
2594 
2876 
2913 
3200 
3488 
3525 
3811 
3848 
4134 
4171 
4458 
4495 
4746 
4783 
5033 
5070 
5319 


133 

690 

'18 
Hi 


135 
1$3 
692 
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Hs 
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449 
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747 
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1114 

1347 

1385 

V^ 
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2029 
2057 
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2283 
2320 
2351 
2386 
2596 
2881 
3165 
3202 
3493 
3527 
3816 
3850 
4139 
4173 
4463 
4497 
4751 
4785 
5038 
5072 
5324 


368 

408 

451 

494 

534 

577 

617 

749 

792 

832 

1066 

1116 

1349 

1392 

1423 

1592 

1708 

1736 

1767 

1809 

1992 

2031 

2059 

2094 

2285 

2322 

2353 

2388 

2598 

2883 

3167 

3207 

3495 

3532 

3818 

3855 

4141 

4178 

4465 

4502 

4753 

4790 

5040 

5077 

5326 


I 
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P 

i 

7047 
7081 
7371 
7A05 
7656 

7943 

7980 

8229 

8263 

85U 

8545 

8762 

8793 

8830 

8864 

196 

224 

252 

289 

332 

372 

415 

458 

498 

541 

584 

719 

756 

799 

943 

1076 

1120 

1356 

1396 

1430 

1678 

1712 

1740 

1775 

1813 

1997 
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t 

k 

408 

m 

7017 

7051 

7341 

7375 

7409 

7663 

7697 

7947 

7984 

8233 

8270 

8518 

8552 

8766 

8797 

8837 

8868 

200 

228 

256 

296 

336 

379 

422 

462 

505 

548 

588 

723 

763 

803 

950 

1083 

1127 

1360 

1400 

1437 

1682 

1716 

1744 

1783 

1823 

2008 


>62{ 


541 
575 
^30 


II  m 


?732 
7019 
7053 
7343 
7377 
7411 
7665 
7699 
7949 
7986 
8235 
8272 
8520 
8557 
8768 
8799 
8839 
8870 

230 

258 

298 

341 

381 

424 

467 

507 

550 

593 

725 

765 

808 

955 

1088 

1129 

1365 

1402 

1439 

1684 

1718 

1749 

1785 

1825 

2010 


5 

k 

7055 
7345 
7379 
7633 
7667 
7701 
7954 
7988 
8237 
8274 
8522 
|559 
770 
801 
i841 
8872 
]04 
32 

S8 

343 

386 

426 

469 

512 

552 

595 

727 

767 

810 

957 

1093 

1330 

1371 

1404 

1444 

1686 

1720 

1751 

1787 

1975 

2012 


7m9 
7703 
7956 
7990 
J239 
]76 
)24 

|803 

1874 

'06 

34 

62 

J05 

345 

388 

431 

471 

514 

557 

597 

729 

772 

812 

959 

1095 

1332 

1373 

1406 

1446 

1691 

1722 

1753 

1789 

1977 

2014 


350 

433 

476 

516 

559 

599 

731 

774 

817 

964 

1100 

1334 

1375 

1408 

1451 

1693 

1724 

1755 

1791 

1979 

2016 


210 

238 

266 

309 

352 

395 

435 

478 

521 

561 

604 

733 

776 

822 

966 

1102 

1336 

1377 

1410 

1456 

1695 

1726 

1757 

1793 

1981 

2018 


212 

240 

268 

314 

354 

397 

440 

480 

523 

566 

609 

735 

781 

824 

971 

1108 

1341 

1379 

1412 

1458 

1697 

1728 

1759 

1795 

1984 

2020 


5) 

6064 

6101 

6391 

6425 

ivs 

7034 
7071 
7358 
7395 
7646 
7680 
7930 
7964 
8216 
8250 
8284 
8535 
8569 
8780 
8814 
8851 

214 

242 

273 

316 

359 

399 

442 

485 

525 

568 

611 

740 

783 

826 

973 

1110 

1343 

1381 

1414 

1586 

1699 

1730 

1761 

1797 

1986 

2022 


216 

244 

275 

318 

361 

404 

444 

487 

530 

570 

613 

742 

785 

828 

1062 

1112 

1345 

1383 

1416 

1588 

1701 

1732 

1763 

1802 

1988 

2027 


218 

246 

280 

323 

363 

406 

449 

489 

532 

575 

615 

747 

790 

830 

1064 

1114 

1347 

1385 

1421 

1590 

1706 

1734 

1765 

1804 

1990 

2029 


j5| 
)39 
)73 

Jr 

6685 
6719 


SEQ  1869 


t 


220 

248 

282 

325 

368 

408 

451 

494 

534 

577 

617 

749 

792 

832 

1066 

1116 

1349 

1392 

1423 

1592 

1708 

173'. 

17.:.' 

1809 

1992 

2031 


1  1857 


C TABLE 


}7 

7 

>5 

m 

600 
885 

209 

A97 
5554 

820 
W57 
AU3 
A180 
A467 
A  504 
4755 
4792 
5042 
5079 
5328 
5365 
5617 
5654 
6041 
6078 
6365 
6399 
6687 
6721 
6755 
7045 
7079 
7366 
7403 
7654 
7691 
7941 
7978 
8227 
8261 
8509 
8543 
8760 
8791 
8825 
8862 

904 
1052 
1538 


2035 
2063 
2Q98 
2289 

2357 
2392 
2602 
2890 
3171 
3211 
3499 
3536 
3822 
3859 
4145 
4182 
4469 
4506 
4757 
4794 
5044 
5081 
5330 
5367 
5619 
5656 
6043 
6080 
6370 
6401 
6689 
')723 
'013 
7047 
7081 
7371 
7405 
7656 
7693 
7943 
7980 
8229 
8263 
8514 
8545 
8762 
8793 
8830 
8864 
905 
1053 
1539 


345 


)47 


!8  m 


^, 


6372 
6406 
6691 
725 
015 
7049 
7083 
7373 
7407 
7658 
7695 
7945 
7982 
8231 
8268 
8516 
8550 
8764 
8795 
8832 
8866 
906 
1214 
1540 


I 

97 

if 

l03 
540 

lll^ 

4149 

tin 

4510 
4761 
4798 
5048 

l^ 

5371 
5623 
5660 
6050 

6408 
6696 
6727 
7017 
7051 
7341 
7375 
7409 
7663 
7697 
7947 
7984 
8233 
8270 
8518 
8552 
8766 
8797 
8837 
8868 
907 
1215 
1541 


13/ 
40 


m 
P 

5869 
4158 
4192 
4482 
4516 
4770 
4804 
5057 
5091 
5343 
5377 
5632 
5666 
605 
609 
6380 
6417 


541 

>407 
868 
905 

3§14 
3548 
3837 
3871 
4160 
4194 
4484 
4518 
4772 
4806 
5059 
5093 
5345 
5379 
5634 
5668 
6058 
6095 
6382 
6419 
6704 
6741 
7028 
7062 
7352 
7383 
7637 
7671 
7924 
7958 
7992 
8244 
8278 
8526 
8563 
8774 
8805 
8845 

911 
1219 
1938 


2049 

>)ii 

374 

409 

870 

907 

]191 

3482 

3516 

^§Q5 
3839 

4128 
4162 
4452 
4486 
4740 
4774 
5027 
5061 
5313 
5347 
5602 
5636 
5774 
6060 
6097 
6384 
6421 
6706 
6743 
7030 
7067 
7354 
7388 
7639 
7673 
7926 
7960 
7994 
8246 
82?0 
85;.8 
S565 
8776 
8810 
8847 

1046 
1220 
1939 


1047 
1221 
1940 


809 
3843 
4132 
4166 
4456 
4490 
4744 
4778 
5031 
5065 
5317 
5351 
5606 
5640 
5778 
6064 
6101 
6391 
6425 
6710 
6747 
7034 
7071 
7358 
7395 
7646 
7680 
7930 
7964 
8216 
8250 
8284 
8535 
8569 
8780 
8814 
8851 

1048 
1534 
1941 


)55 
)90 

m 

349 
384 
594 

1200 

^88 

J525 

5811 

3848 

4134 

4171 

4458 

4495 

4746 

4783 

5033 

5070 

5319 

5356 

5608 

5645 

5780 

6069 

6359 

6393 

6427 

6715 

6749 

7036 

7073 

7360 

7397 

7648 

7682 

7935 

7966 

8218 

8252 

8503 

8537 

8571 

8782 

8819 

8853 

1049 
1535 
1942 


SEQ  1870 


10 

J86 
596 
881 

IW 

3816 

3850 

4139 

4173 

4463 

4497 

4751 

4785 

5038 

5072 

5324 

5358 

5613 

5647 

5782 

6071 

6361 

6395 

6429 

6717 

6751 

7038 

7075 

7362 

7399 

7650 

7687 

7937 

7971 

8220 

8254 

8505 

8539 

8573 

8784 

8821 

8858 

1050 
1536 
2218 


3!_ 
388 
598 
883 

3495 

3532 

3818 

3855 

4141 

4178 

4465 

4502 

4753 

4790 

5040 

5077 

5326 

5363 

5615 

5652 

6039 

6073 

6363 

6397 

6685 

6719 

6753 

7043 

7077 

7364 

7401 

7652 

7689 

7939 

7973 

8225 

8256 

8507 

8541 

8758 

8786 

8823 

8860 

1051 
1537 
2219 


L 


3  1858 


FIELD 


All 

^^§ 
498 

5A1 

58A 

719 

756 

799 

9A3 

1076 

1120 

1356 

1396 

U30 

1678 

1712 

1740 

1775 

1813 

1997 

2035 

2063 

2098 

2289 

2329 

'357 

i392 

2602 

2890 

3171 

3211 

3499 

3536 

3822 

3859 

4145 

4182 

4469 

4506 

4757 

4794 

5044 

5081 

5330 

5367 

5619 


91 

If? 

417 

543 
586 
721 
758 
801 
948 
1081 
1122 
1358 
1398 
1432 
1680 
1714 
1742 
1777 
1818 
2002 
2037 
2065 
2100 
2292 
2331 
2359 
2394 
2855 
2892 
3176 
3213 
3501 
3538 
3824 
3861 
4147 
4184 
4471 
4508 
4759 
4796 
5046 
5083 
5332 
5369 
5621 


422 

^5^f 
548 
588 
723 
763 
803 
950 
1083 
1127 
1360 
1400 
1437 
1682 
1716 
1744 
1783 
1823 
2008 
2039 
2070 
2102 
2298 
2333 
2361 
2396 
2857 
2897 
3178 
3215 
3503 
3540 
3826 
3863 
4149 
4186 
4473 
4510 
4761 
4798 
5048 
5085 
5334 
5371 
5623 


i?25 
1751 
1787 
1975 
2012 
2043 
2074 
2109 
2302 
2337 
2365 
2400 
2861 
2901 
3182 
3219 
3510 
3544 
3833 
3867 
4156 
4190 
4480 
4514 
4768 
4802 
5055 
5089 
5341 
5375 
5630 


772 
812 
959 
1095 
1332 
1373 
1406 
1446 
1691 
1722 
1753 
1789 
1977 
2014 
2045 
2080 
2269 
2308 
2339 
2370 
2402 
2866 
2903 
3184 
3221 
3512 
3546 
3835 
3869 
4158 
4192 
4482 
4516 
4770 
4804 
5057 
5091 
5343 
5377 
5632 


2047 
2082 
2272 
2310 
2341 
2372 
2407 
2868 
2905 
3186 
3223 
3514 
3548 
3837 
3871 
4160 
4194 
4484 
4518 
4772 
4806 
5059 
5093 
5345 
5379 
5634 


]1 

776 
822 

1336 
1377 
1410 
1456 
1695 
1726 
1757 
1793 
1981 
2018 
2049 
2084 
2274 
2312 
2343 
2374 
2409 
2870 
2907 
3191 
3482 
3516 
3805 
3839 
4128 
4162 
4452 
4486 
4740 
4774 
5027 
5061 
5313 
5347 
5602 
5636 


.14 
554 
397 
440 

m 

566 
609 
735 
781 
824 
971 
1108 
1341 
1379 
1412 
1458 
1697 
1728 
1759 
1795 
1984 
2020 
2051 
2086 
2276 
2314 
2345 
2380 
2485 
2872 
2909 
3193 
3484 
3518 
3807 
3841 
4130 
4164 
4454 
4488 
4742 
4776 
5029 
5063 
5315 
5349 
5604 
5638 


»14 
73 

599 
442 


.>5 
568 
611 
740 
783 
826 
973 
1110 
1343 
1381 
1414 
1586 
1699 
1730 
1761 
1797 
1986 
2022 
2053 
2088 
2278 
2316 
2347 
2382 
2487 
2874 
2911 
3195 
3486 
3520 
3809 
3843 
4132 
4166 
4456 
4490 
4744 
4778 
5031 
5065 
5317 
5351 
5606 
5640 


75 
18 

404 
444 

742 
785 
828 
1062 
1112 
1345 
1383 
1416 
1588 
1701 
1732 
1763 
1802 
1988 
2027 
2055 
2090 
2280 
2318 
2349 
2384 
2594 
2876 
2913 
3200 
3488 
3525 
3811 
3848 
4134 
4171 
4458 
4495 
4746 
4783 
5033 
5070 
5319 
5356 
5608 
5645 


218 

220 

248 

fciu 

282 

323 

325 

4oe 

449 

368 
408 

451 

489 

494 

534 

575 

577 

615 
747 

617 

749 

790 

792 

830 

832 

1064 

1066 

1114 

1116 

1347 

1349 

1385 

1392 

1421 

1423 

1590 

1592 

1706 

1708 

1734 

1736 
1767 

1765 

1804 

1809 

1990 

1992 

2029 

2031 

2057 

2059 

2092 

2094 

2283 

2285 

2320 

2322 

2351 

2353 

2386 

2388 

2596 

2598 

2881 

2883 

3165 

3167 

3202 

3207 

3493 

3495 

3527 

3532 

3816 

3818 

3850 

3855 

4139 

4141 

4173 

4178 

4463 

4465 

4497 

4502 

4751 

4753 

4785 

4790 

5038 

5040 

5072 

5077 

5326 

5358 

5363 

5613 

5615 

5647 

5652 

SEQ  1871 


1  1859 


GO 


79A3 
7980 
8229 
8263 
85U 
8545 

l^tl 

8830 
8864 
79 
1028 
1304 
1640 
1916 
219 
255t 
2695 
?994 
5301 
3609 
3924 
4098 
4299 
4616 
4901 
5176 
5456 
5718 
5863 
6177 
6482 
6657 
6981 
7185 
7508 
7790 
8071 
8356 


r 

7049 

m 

7695 
7945 
7982 
8231 
8268 
8516 
8550 
8764 
8795 

8866 

1181 
1306 
1661 
1917 
2199 
2561 
2697 
2998 
3303 
3624 
3926 
4100 
4420 

%^ 

5180 
5458 
5722 
5867 
6179 
6488 
6808 
6983 
7189 
7510 
7797 

I!" 


5 

tw 

6374 
6408 

i 

7051 
7341 
7375 
7409 

7697 
7947 
7984 
8233 
8270 
8518 
8552 
766 
797 

868 
91 
1183 
1307 
1668 
1953 
2200 
2562 
2699 
3005 
3308 
3626 
3932 
4246 
4i.22 
4622 
4905 
5187 
5^63 
5735 
5874 
6181 
6503 
6810 
6985 
7309 
7512 
7799 
080 
360 


i413 

H 

7343 
7377 
7411 
7665 
7699 
7949 
7986 
8235 
8272 
8520 
8557 
8768 
8799 
8839 
8870 
656 
1195 
1501 
1868 
1969 
2237 
2575 
2703 
3007 
3312 
3628 
3947 
4248 
4424 
4708 
4907 
5189 
5467 
5736 
5876 
6186 
6505 
6816 
7136 
7311 
7516 
7801 
8087 
8365 


i 


700   6702 
734    6739 


5664 

6734 
7024 
7055 
7345 
7379 
7633 

W^ 

7954 
7988 
8237 
8274 
8522 
8559 
8770 
8801 

ii^^ 

658 
1196 
1503 
1870 
2151 
2263 
2581 
2820 
3009 
3319 
3633 
3949 
425^ 
4569 
4710 
4911 
5191 
5474 
5741 
5878 
6190 
6507 
6831 
7138 
7313 
7601 
7803 
8089 
8369 


5774 


\?72 
803 


5197 
5478 
5755 
5884 
6199 
6516 
6835 
7159 
7465 
7605 
7892 
8093 
8378 


5780 
6069 
6359 

5782 
6071 

k 

?7 

6429 

m 

6^  ' 

6717 

674V 

6751 
7038 

Vdl 

7(75 

7077 

7362 
7399 

7364 

7401 

7648 

7650 

7652 

7682 

7687 

7$89 
7939 

7935 

7937 

7966 

7971 

7973 

)218 

8220 

8225 
8256 

1252 

8254 

1503 

8505 

8507 

1537 

8539 

8541 

1571 

8573 

8758 

1782 

8784 

8786 

J819 

8821 

8823 

8853 

8858 

8860 

SEQ  1872 


886 
1295 
1632 
1905 
2184 
2530 
2677 
2970 
3276 
3452 
3654 
3971 
4289 
4601 
4883 
5152 
5431 
5572 
5839 
6011 
6327 
652y 
6853 
7172 
7490 
7777 
8046 
8186 
8471 


1012 
1296 
1635 
1908 
2188 
2578 
26C2 
2985 
3278 
3454 
3773 
3973 
4291 
4605 
4885 
5167 
5433 
5574 
5854 
6154 
6329 
6533 
6855 
7179 
7495 
7779 
8052 
8333 
8473 


1014 
1299 
1637 
1910 
^191 
2542 
2686 
2987 
3284 
3601 
3775 
3977 
4293 
4612 
4890 
5169 
5439 
5708 
5856 
6^56 
6j31 
6653 
6S57 
7181 
7499 
7781 
8067 
8335 
8475 


MFLD 


8619 

8621 

8627 

8642 

6^^ 

8681 

8684 

8686 

8688 

689 

19A# 

194 

196* 

196 

198* 

208# 

208 

210* 

210 

212* 

222# 

224* 

224 

226* 

236# 

236 

238* 

238 

240* 

2504 

250 

252* 

252 

254* 

26A# 

264 

266* 

266 

268* 

287# 

287 

289* 

289 

291* 

307# 

307 

309* 

309 

314* 

327# 

327 

332* 

332 

334* 

350# 

350 

352* 

352 

354* 

370# 

370 

372* 

372 

377* 

390# 

390 

395* 

395 

397* 

41 3# 

413 

415* 

415 

417* 

433/ir 

433 

435* 

435 

440* 

453# 

453  . 

458* 

458 

^60* 

476/^ 

476 

478* 

478 

480* 

496# 

496 

498* 

498 

503* 

51 6# 

516 

521* 

521 

523* 

539# 

539 

541* 

541 

543* 

559# 

559 

561* 

561 

566* 

579# 

579 

584* 

584 

586* 

599* 

599 

604* 

604 

609* 

71 7# 

717 

719* 

719 

721* 

731* 

731 

733* 

733 

735* 

754* 

754 

756* 

756 

758* 

774* 

774 

776* 

776 

781* 

794* 

794 

799* 

799 

801* 

817* 

817 

822* 

822 

§2i* 

938* 

938 

943* 

943 

948* 

964* 

964 

966* 

966 

971* 

1071* 

1071 

1076* 

1076 

1081* 

1100* 

noo 

1102* 

1102 

1108* 

1118* 

1118 

1120* 

1120 

1122* 

1334* 

1334 

1336* 

1336 

1341* 

135U' 

1351 

1356* 

1356 

1358* 

1375* 

1375 

1377* 

1377 

1379* 

1394* 

1394 

1396* 

1396 

1398* 

1408* 

1408 

1410* 

1410 

1412* 

1428* 

1428 

1430* 

1430 

1432* 

1451* 

1451 

1456* 

1456 

1458* 

1676* 

1676 

1678* 

1678 

1680* 

1693* 

1693 

1695* 

1695 

1697* 

1710* 

1710 

1712* 

1712 

1714* 

1724* 

1724 

1726* 

1726 

1728* 

1738* 

1738 

1740* 

1740 

1742* 

1755* 

1755 

1757* 

1757 

1759* 

1773* 

1773 

1775* 

1775 

1777* 

1791* 

1791 

1793* 

1795 

1795* 

1811* 

1811 

1813* 

1813 

1818* 

1979* 

1979 

1981* 

1981 

10"** 

1994* 

1994 

1997* 

1997 

2Uu2* 

8646 

8648 

8693 

8695 

198 

200* 

212 

214* 

226 

228* 

240 

242* 

254 

256* 

268 

273* 

291 

296* 

314 

316* 

334 

336* 

354 

359* 

377 

379* 

397 

399* 

417 

422* 

440 

442* 

460 

462* 

480 

485* 

503 

505* 

523 

525,' 

543 

548* 

566 

568* 

586 

588* 

609 

611* 

721 

723* 

735 

740* 

758 

763* 

781 

783* 

801 

803* 

824 

826* 

948 

950* 

971 

973* 

1081 

1083* 

1108 

1110* 

1122 

1127* 

1341 

1343* 

1358 

1360* 

1379 

1381* 

1398 

1400* 

1412 

1414* 

1432 

1437* 

1458 

1586* 

1680 

1682* 

1697 

1699* 

1714 

1716* 

1728 

1730* 

1742 

1744* 

1759 

1761* 

1777 

1781* 

1795 

1797* 

1818 

1986* 
2008* 

1984 

2002 

8653 

8657 

8664 

869^ 

8698 

8734 

200 

202* 

202 

214 

216* 

216 

228 

230* 

230 

242 

244* 

244 

258* 

258 

273 

273* 

275 

296 

298* 

298 

316 

319* 

318 

336 

34  V 

341 

359 

361* 

361 

379 

381* 

381 

399 

404* 

404 

422 

424* 

424 

<42 

444* 

444 

465 

467* 

467 

485 

487* 

487 

505 

507* 

507 

525 

530* 

530 

548 

550* 

550 

568 

570* 

570 

588 

593* 

593 

611 

613* 

613 

723 

725* 

725 

740 

742* 

742 

763 

765* 

765 

783 

785* 

785 

803 

808* 

808 

826 

828* 

828 

950 

955* 

955 

973 

1062* 

1062 

1083 

1088* 

1088 

1110 

1112* 

1112 

1127 

1129* 

1129 

1343 

1345* 

1345 

1360 

1365* 

1365 

1381 

1383* 

1383 

1400 

1402* 

1402 

1414 

1416* 

1416 

1437 

1439* 

1439 

1586 

1588* 

1588 

1682 

1684* 

1684 

1699 

1701* 

1701 

1716 

1718* 

1718 

1730 

1732* 

1732 

1744 

1749* 

1749 

1761 

1763* 

1763 

1783 

1785* 

1785 

1797 

1802* 

1802 

1823 

1825* 

1825 

1986 

1988* 

1988 

2008 

2010* 

2010 

6 

204* 

218* 

232* 

246* 

260* 

280* 

300* 

323* 

343* 

363* 

386* 

406* 

426* 

449* 

469* 

489* 

512* 

532* 

552* 

575* 

595* 

615* 

727* 

747* 

767* 

790* 

810* 

830* 

957* 

1064* 

1093* 

1114* 

1330* 

1347* 

1371* 

1385* 

1404* 

1421* 

1444^ 

1590* 

1686* 

1706* 

1720* 

1734* 

1751* 

1765* 

1787* 

1804* 

1975* 

1990* 

2012* 


8668 
8738 

8670 
8740 

204 

206* 

218 

220* 

232 

234* 

246 

248* 

260 

262* 

280 

282* 

300 

305* 

323 

325* 

:43 

345* 

;63 

368* 

386 

388* 

406 

408* 

426 

431* 

449 

451* 

469 

471* 

489 

494* 

512 

514* 

532 

534* 

552 

557* 

575 

577* 

595 

597* 

615 

617* 

m 

729* 

7U7 

749* 

767 

77Ht 

790 

792M 

810 

812* 

830 

832* 

957 

959* 

1064 

1066* 

1093 

1095* 

1114 

1116* 

1330 

1332* 

1347 

1349* 

1371 

1373* 

1385 

1392* 

1404 

1406* 

1421 

1423* 

1444 

1446* 

1590 

1592* 

1686 

1691* 

1706 

1708* 

1720 

1722* 

1734 

1736* 

1751 

1753* 

1765 

1767* 

1787 

1789* 

1804 

1809* 

1975 

1977* 

1990 

1992* 

2012 

2014* 

8674 

206 

220 

234 

248 

262 

282 

305 

325 

345 

368 

388 

408 

431 

451 

471 

494 

514 

534 

557 

577 

597 

617 

729 

749 

772 

792 

812 

832 

959 

1066 

1095 

1116 

1332 

1349 

1373 

1392 

1406 

1423 

1446 

1592 

1691 

1708 

1722 

1736 

1753 

1767 

1789 

1809 

1977 

1992 

2014 


SEQ  1873 


201 6# 

2016 

2018* 

2018 

2020* 

2020 

2022* 

2022 

2033# 

2033 

2035* 

2035 

2037* 

2037 

2039* 

2039 

20A7# 

2047 

2049* 

2049 

2051* 

2051 

2053* 

2053 

2061  # 

2061 

2063* 

2063 

2065* 

2065 

2070* 

2070 

2082# 

2082 

2084* 

2084 

2086* 

2086 

2088* 

2088 

2096# 

2096 

2098* 

2098 

2100* 

2100 

2102* 

2102 

2272# 

2272 

2274* 

2274 

2276* 

2276 

2278* 

2278 

2287# 

2287 

2289* 

2289 

2292* 

2292 

2298* 

2298 

231 0# 

2310 

2312* 

2312 

2314* 

2314 

2316* 

2316 

2327# 

2327 

2329* 

2329 

2331* 

2331 

2333* 

2333 

2341  # 

2341 

2343* 

2343 

2345* 

2345 

2347* 

234/ 

2355# 

2355 

2357* 

2357 

2359* 

2359 

2361* 

2361 

2372# 

2372 

2374* 

2374 

2380* 

2380 

2382* 

2382 

2390* 

2390 

2392* 

2392 

2394* 

2394 

2396* 

2396 

2407# 

2407 

2409* 

2409 

2485* 

2485 

2487* 

2487 

2600 

2602* 

2602 

2855* 

2855 

2857* 

2857 

2868# 

2868 

2870* 

2870 

2872* 

2872 

2874* 

2874 

2885# 

2885 

2890* 

2890 

2892* 

2892 

2897* 

2897 

2905# 

2905 

2907* 

2907 

2909* 

2909 

2911* 

2911 

3169# 

3169 

3171* 

3171 

3176* 

3176 

3178* 

3178 

3186# 

3186 

3191* 

3191 

3193* 

3193 

3195* 

3195 

3209# 

3209 

3211* 

3211 

3213* 

3213 

3215* 

3215 

3223# 

3223 

3482* 

3482 

3484* 

3484 

3486* 

3486 

3497# 

3497 

3499* 

3499 

3501* 

3501 

3503* 

350' 

35K# 

3514 

3516* 

3516 

3518* 

3518 

3520* 

3520 

353A# 

3534 

3536* 

3536 

3538* 

3538 

3540* 

3540 

3548# 

3548 

3805* 

3805 

3807* 

3807 

3809* 

3809 

3820# 

3820 

3822* 

3822 

3824* 

3824 

3826* 

3826 

3837# 

3837 

3839* 

3839 

3841* 

3841 

3843* 

3857# 

3857 

3859* 

3859 

3861* 

3861 

3863* 

3863 

3871  # 

3871 

4128* 

4128 

4130* 

4130 

4132* 

4132 

AK3# 

4  43 

4145* 

4145 

4147* 

4147 

4149* 

4149 

4160# 

4160 

4162* 

4162 

4164* 

4164 

4166* 

4166 

4180# 

':180 

4182* 

4182 

4184* 

4184 

4186* 

4186 

4194# 

4194 

4452* 

4452 

4454* 

4454 

4456* 

4456 

AA67# 

4467 

4469* 

4469 

4471* 

4471 

4473* 

4473 

44S4# 

4484 

4486* 

4486 

4488* 

4488 

4490* 

4490 

A504# 

4504 

4506* 

4506 

4508* 

4508 

4510* 

4510 

4518# 

4518 

5740* 

4740 

4742* 

4742 

4744* 

4744 

4755# 

4755 

4757* 

4757 

A  759* 

4759 

4761* 

4761 

4772# 

4772 

4774* 

A  774 

4776* 

4776 

4778* 

4778 

4792# 

4792 

4794* 

4794 

4796* 

4796 

4798* 

4798 

4806# 

4306 

5027* 

5027 

5029* 

5029 

5031* 

5031 

5042# 

5042 

5>44* 

5044 

5046* 

5046 

5048* 

5048 

5059# 

5059 

ii.ol* 

5061 

5063* 

5063 

5065* 

5065 

5079# 

5079 

5081^ 

5081 

5083* 

5083 

5085* 

5085 

5093# 

5093 

5313* 

5313 

5315* 

5315 

531  yn 

5317 

5328* 

5328 

5330* 

5330 

5332* 

5332 

5ZZi*» 

5334 

5345# 

5345 

5347* 

5347 

5349-? 

5349 

5351* 

5351 

5365# 

5365 

5367* 

5367 

5369* 

5369 

5371* 

5371 

5379* 

5379 

5602* 

5602 

5604* 

5604 

5606* 

5606 
5623 

561 7# 

5617 

5619* 

5619 

5621* 

5621 

5623* 

5634# 

5634 

5636* 

5636 

5638* 

5638 

5640* 

5640 

2027* 
2041* 
2055* 
2072* 
2090* 
2107* 
^280* 
^300* 
2318* 
2335* 
2349* 
2363* 
2384* 
2398* 
2594* 
2859* 
2876* 
2899* 
2913* 
3180* 
3200* 
3217* 
3488* 
3508* 
3525* 
3542* 
3811* 
3831* 
3848* 
3865* 
4134* 
4154* 
4171* 
4188* 
4458* 
4478* 
4495* 
4512* 
4746* 
4766* 
4783* 
4800* 
5033* 
5053* 
5070* 
5087* 
5319* 
5339* 
5356* 
5373* 
5608* 
5628* 
5645* 


2027 

2029* 

2029 

2031* 

2031 

2041 

2043* 

2043 

2045* 

2045 

2055 

2057* 

2057 

2059* 

2059 

2072 

2074* 

2074 

2080* 

2080 

2090 

2092* 

2092 

2094* 

2094 

2107 

2109* 

2109 

2269* 

2269 

2280 

2283* 

2283 

2285* 

2285 

2300 

2302* 

2302 

2308* 

2308 

2318 

2320* 

2320 

2322* 

2322 

2335 

2337* 

2337 

2339* 

2339 

2349 

2351* 

2351 

2353* 

2353 

2363 

2365* 

2365 

2370* 

2370 

2384 

2386* 

2386 

2388* 

2388 

2398 

2400* 

2400 

2402* 

2402 

2594 

2596* 

2596 

2598* 

2598 

2859 

2861* 

2861 

2866* 

2866 

2876 

2881* 

2881 

2883* 

2883 

2899 

2901* 

2901 

2903* 

2903 

2913 

3165* 

3165 

3167* 

3167 

3180 

::i82* 

3182 

3184* 

3184 

3200 

::202* 

3202 

3207* 

3207 

3217 

'219* 

3219 

3221* 

3221 

3488 

:493* 

3493 

3495* 

3495 

3508 

JSIO* 

3510 

3512* 

3512 

3525 

::527* 

3527 

3532* 

353? 

3542 

::544* 

3544 

3546* 

3546 

3811 

::816* 

3816 

3818* 

3818 

3831 

:833* 

3833 

3835* 

3835 

3848 

:850* 

3850 

3855* 

3855 

3865 

:867* 

3867 

3869* 

3869 

4134 

4139* 

4139 

4141* 

4141 

4154 

4156* 

4156 

4158* 

4158 

4171 

4173* 

4173 

4178* 

4178 

4188 

4190* 

4190 

4192* 

4192 

4458 

4463* 

4463 

4465* 

4465 

4478 

4480* 

4480 

4482* 

4482 

4495 

4497* 

4497 

4502* 

450? 

4512 

4514* 

4514 

4516* 

4516 

4746 

4751* 

4751 

4753* 

4753 

4766 

4768* 

4768 

4770* 

4770 

4783 

478'^r 

;785 

4790* 

4:^90 

4800 

4802* 

4802 

48Ci* 

4804 

5033 

5038* 

5038 

5040* 

5040 

5053 

5055* 

5055 

5057* 

5057 

5070 

5072* 

5072 

5077* 

5077 

5087 

5089* 

5089 

5091* 

5091 

5319 

5324* 

5324 

5326* 

5S26 

5339 

5341* 

5341 

5343* 

53^3 

5356 

5358* 

5358 

5363* 

5363 

5373 

5375* 

5375 

537";' 

5377 

5608 

5613* 

5613 

5615* 

5615 

5628 

5630* 

5630 

5632* 

563? 

5645 

5647* 

5647 

5652* 

5652 

SEQ  WA 


NUORD 


5654* 

5654 

5656* 

5656 

5668* 

5668 

5774* 

5r74 

6041* 

6041 

6043* 

6043 

6058* 

6058 

6060* 

6060 

6078* 

6078 

6080* 

6080 

6095* 

6095 

6097* 

6097 

6365* 

6365 

6370* 

6370 

6385* 

6382 

6384* 

6384 

639v* 

6399 

6401* 

6401 

6419* 

6419 

6421* 

6421 

6687* 

6687 

6689* 

6689 

6704* 

6704 

6706* 

6706 

6721* 

6721 

6723* 

6723 

6741* 

6741 

6743* 

6743 

6755* 

6755 

7013* 

7013 

7028* 

7028 

7030* 

7030 

7045* 

7045 

704"* 

7047 

7062* 

7062 

706?* 

7067 

7079* 

7079 

7081* 

7081 

7352* 

7352 

7354* 

7354 

7366* 

7366 

7371* 

7371 

7383* 

7383 

7388* 

7388 

7403* 

7403 

7405* 

7405 

7637* 

7637 

7639* 

7639 

7654* 

7654 

7656* 

7656 

7671* 

7671 

7673* 

7673 

7691* 

7691 

7693* 

7693 

7924* 

7924 

7926* 

7926 

7941* 

7941 

7943* 

7943 

7958* 

7958 

7960* 

7960 

7978* 

7978 

7980* 

7980 

7992* 

7992 

7994* 

7994 

3227* 

8227 

8229* 

1229 

8244* 

f244 

8246* 

8261* 

8261 

8263* 

J263 

8278* 

8278 

8280* 

)280 

8509* 

8509 

8514* 

J514 

8526* 

8526 

8528* 

J528 

8543* 

8543 

8545* 

1545 

8563* 

8563 

8565* 

1565 

8760* 

8760 

8762* 

1762 

8774* 

8774 

8776* 

1776 

8791* 

8791 

8793* 

)793 

8805* 

8805 

8810* 

8825* 

8825 

8830* 

)830 

8845* 

8845 

8847* 

1847 

8862* 

8862 

8864* 

)864 

194 

196 

198 

200 

222 

224 

226 

228 

250 

252 

254 

287 

291 

296 

327 

332 

334 

336 

370 

372 

377 

379 

5658* 

5658 

mi 

5660 

Woi 

5662 

5664* 

5664 

5666* 

5666 

5776* 

5776 

5778 

5780 

5782* 

5782 

6039* 

6039 

6045* 

6045 

6050* 

6050 

6052* 

6052 

6054* 

6054 

6056* 

6056 

6062* 

6062 

6064* 

6064 

6069* 

6069 

607U 

6071 

6073* 

6073 

6085* 

6087* 

6087 

6089* 

6089 

6091* 

6091 

6093* 

6093 

6099* 

6099 

6101* 

6101 

6359* 

6359 

6361* 

6361 

6363* 

6363 

6372* 

6372 

6374* 

6374 

6376* 
6393* 

6376 

6378* 

6378 

6380* 

6380 

6389* 

6389 

6391* 

6391 

6393 

6395* 

6395 

6397* 

6397 

6406* 

6406 

6408* 

6408 

6413^ 

6413 

6415* 

6415 

6417* 

6417 

6423* 

6423 

6425* 

6425 

6427* 

6427 

6429* 

6429 

6685* 

6685 

6691* 

6691 

6696* 

6696 

6698* 

6698 

6700* 

6700 

6702* 

6702 

6708* 

6708 

6710* 

6710 

6715* 

6715 

6717* 

6717 

6719* 

6719 

6725* 

6725 

6727* 

6727 

6732* 

6732 

6734* 

6734 

6739* 

6739 

6745* 

6745 

6747* 

6747 

6749* 

6749 

6751* 

6751 

6753* 

6753 

7015* 

7015 

7017* 

7017 

7019* 

7019 

7024* 

7024 

7026* 

7026 

7032* 

7032 

7034* 

7034 

7036* 

7036 

7038* 

7038 

7043* 

7043 

7049* 

7049 

7051* 

7051 

7053* 

7053 

7055* 

7055 

7060* 

7060 

7069* 

7069 

7071* 

7071 

7073* 

7073 

7075* 

7075 

7077* 

7077 

7083* 

7083 

7341* 

7341 

7343* 

7343 

7345* 

7345 

7347* 

7347 

7356* 

7356 

7358* 

7358 

7360* 

7360 

7362* 

7362 

7364* 

7364 

7373* 

7373 

7375* 

7375 

7377* 

7377 

7379* 

7379 

7381* 

7381 

7390* 

7390 

7395* 

7395 

7397* 

7397 

7399* 

7399 

7401* 

7401 

7407* 

7407 

7409* 

7409 

7411* 

7411 

7633* 

7633 

7635* 

7635 

7644* 

7644 

7646* 

7646 

7648* 

7648 

7650* 

7650 

7652* 

7652 

7658* 

7658 

7663* 

7663 

7665* 

7665 

7667* 

7667 

7669* 

7o69 

7675* 

7675 

7680* 

7680 

7682* 

7682 

7687* 

7687 

7689* 

7689 

7695* 

7695 

7697* 

7697 

7699* 

7699 

7701* 

7701 

7703* 

7703 

7928* 

7928 

7930* 

7930 

7935* 

7935 

"937* 

7937 

7939* 

7939 

7945* 

7945 

7947* 

7947 

7949* 

7949 

7954* 

7954 

7956* 

7956 

7962* 

7962 

7964* 

7964 

7966* 

7966 

7971* 

7971 

7973* 

7973 

7982* 

7982 

7984* 

7984 

7986* 

7986 

7988* 

7988 

7990* 

7990 

J214* 

§21^ 

8216* 

8216 

8218* 

8218 

8220* 

8220 

8225* 

8225 

1231* 

8231 

8233* 

8233 

8235* 

8235 

8237* 

8237 

8239* 

8239 

^2*8* 

8248 

8250* 

8250 

J252* 

8252 

8254* 

8256* 

8256 

1268* 

8268 

8270* 

8270 

J272* 

8272 

8274* 

8274 

8276* 

8276 

)282* 

8282 

8284* 

8284 

J503* 

8503 

8505* 

8505 

8507* 

8507 

§tlW 

8516 

8518* 

8518 

1520* 

8520 

8522* 

8522 

8524* 

8524 

8533* 

8533 

8535* 

8535 

1537* 

8537 

8539* 

8539 

8541* 

8541 

§550* 

8550 

8552* 

8552 

IJ57* 

1557 

8559* 

8559 

8561* 

8561 

8567* 

8567 

8569* 

8569 

1571* 

1571 

8573* 

8573 

8758* 

8758 

8764* 

8764 

8766* 

8766 

1768* 

)768 

8770* 

8770 

8772* 

8772 

8778* 

8778 

8780* 

8780 

1782* 

1782 

8784* 

8784 

8786* 

8786 

8795* 

8795 

8797* 

8797 

J799* 

1^99 

8801* 

8801 

8803* 

8803 

8812* 

8812 

8814* 

8814 

1819* 

1819 

8821* 

821 

8823 

§§32* 

8832 

8837* 

8837 

1839* 

J839 

8841* 

841 

8843* 

8843 

8849* 

8849 

8851* 

8851 

J853* 

J853 

8858* 

858 

8860* 

8860 

8866* 

8§66 

8868* 

8868 

8870* 

8870 

8872* 

8872 

8874* 

8674 

M 

204 

206 

208 
236 

210 

212 

214 

216 

218 

220 

230 

232 

234 

238 

240 

244 

246 

258 

260 

262 

l^i 

266 

268 

273 

275 

280 

282 

298 
341 

300 

305 

307 

309 

314 

316 

318 

343 

345 

350 

352 

354 

359 

361 

'63 

368 

381 

386 

388 

390 

395 

397 

399 

404 

406 

408 

1 


SEQ  1875 


A13 

415 

453 

458 

496 

498 

539 

541 

579 

584 

717 

719 

754 

756 

794 

799 

938 

943 

1071 

1076 

1118 

1120 

1351 

1356 

1394 

1396 

1428 

1430 

1676 

1678 

1710 

1712 

1738 

1740 

1773 

1775 

1811 

1813 

1994 

1997 

2033 

2035 

2061 

2063 

2096 

2098 

2287 

2289 

2327 

2329 

2355 

2357 

2390 

2392 

2600 

2602 

2885 

2890 

3169 

3171 

320 

3211 

3497 

349«^ 

3534 

3556 

3820 

<822 

3857 

3859 

4143 

4145 

4180 

4182 

4467 

4469 

4504 

4506 

4755 

4757 

4792 

4794 

5042 

5044 

5079 

5081 

5328 

5330 

5365 

5367 

5617 

5619 

5654 

5656 

6041 

6043 

6078 

6080 

6365 

6370 

6399 

6401 

6687 

6689 

6721 

6723 

417 
460 
503 
543 
586 
721 
758 
801 
948 
1081 
1122 
1358 
1398 
1432 
1680 
1714 
1742 
1777 
1818 
2002 
2037 
2065 
2100 
2292 
2331 
2359 
2394 
2855 
2892 
3176 
3213 
3501 
3538 
3824 
3861 
4147 
4184 
4471 
4508 
4759 
4796 
5046 
5083 
5332 
5369 
5621 
3658 
6045 
(S085 
6372 
6406 
6691 
6725 


422 

424 

462 

467 

505 

507 

548 

550 

588 

593 

7dS 

725 

76} 

765 

803 

808 

950 

955 

1083 

1088 

1127 

1129 

1360 

1365 

1400 

1402 

1437 

1439 

1682 

1684 

1716 

1718 

1744 

1749 

1783 

1785 

1823 

1825 

2008 

2010 

2039 

2041 

2070 

2072 

2102 

2107 

2298 

2300 

2333 

2335 

2361 

2363 

2396 

2398 

2857 

2859 

2597 

2899 

3178 

3180 

3215 

3217 

3503 

3508 

3540 

3542 

3826 

3831 

3863 

3865 

4149 

4154 

4186 

41 88 

4473 

4478 

4510 

4512 

4761 

4766 

4798 

4800 

5048 

5053 

5085 

5087 

5334 

5339 

5371 

5373 

5623 

5628 

5660 

5662 

6050 

6052 

6087 

6089 

6374 

6376 

6408 

6413 

6696 

6698 

6727 

6732 

426 

431 

469 

471 

512 

514 

552 

557 

595 

597 

727 

729 

767 

772 

810 

812 

957 

959 

1093 

1095 

1330 

13o2 

1371 

1373 

1404 

1406 

1444 

1446 

1686 

1691 

1720 

1722 

1751 

1753 

1787 

1789 

1975 

1977 

2012 

2014 

2043 

2045 

2074 

2080 

2109 

2269 

2302 

2308 

2337 

2339 

2365 

2370 

2400 

2402 

2861 

2866 

2901 

2903 

3182 

3184 

3219 

3221 

3510 

3512 

3544 

3546 

3833 

3835 

3867 

3869 

4156 

4158 

4190 

4192 

4480 

4482 

4514 

4516 

4768 

4770 

4802 

4804 

5055 

5057 

5089 

5091 

5341 

5343 

5375 

5377 

5630 

5632 

5664 

5666 

6054 

6056 

6091 

6093 

6378 

6380 

6415 

6417 

6700 

6702 

6734 

6739 

433 
476 
516 
559 
599 
731 
774 
817 
964 
1100 
1334 
1375 
1408 
1451 
1693 
1724 
1755 
1791 
1979 
2016 
2047 
2082 
2272 
2310 
2341 
2372 
2407 
2868 
2905 
3186 
3223 
3514 
3548 
3837 
3871 
4160 
4194 
4484 
4518 
4772 
4806 
5059 
5093 
5345 
5379 
5634 
5668 
6058 
6095 
6382 
6  VI 9 
6704 
6741 


435 

440 

442 

444 

478 

485 

487 

5?1 

525 

54Q 

561 

566 
609 

568 

570 

604 

611 

613 

733 

735 

740 

742 

776 

781 

783 

785 

822 

824 

826 

828 

966 

971 

973 

1062 

1102 

1108 

1110 

1112 

1336 

1341 

1343 

1345 

1377 

1379 

1381 

1383 

1410 

1412 

1414 

1416 

1456 

1458 

1586 

1588 

1695 

1697 

1699 

1701 

1726 

1728 

1730 

1732 

1757 

1759 

1761 

1763 

1793 

1795 

1797 

1802 

1981 

1984 

1986 

1988 

2018 

2020 

2022 

2027 

2049 

2051 

2053 

2055 

2084 

2086 

2088 

2090 

2274 

2276 

2278 

2280 

2312 

2314 

2316 

2318 

2343 

2345 

2347 

2349 

2374 

2380 

2382 

2384 

2409 

2485 

2487 

2594 

2870 

2872 

2874 

2876 

2907 

2909 

2911 

2913 

:i9i 

3193 

3195 

3200 

:482 

3484 

3486 

3488 

:516 

3518 

3520 

3525 

3807 

3809 

3811 

::i39 

3841 

3843 

3848 

4128 

4130 

4132 

4134 

4162 

4164 

4166 

4171 

4452 

4454 

4456 

4458 

4486 

4488 

4490 

4495 

4740 

4742 

4744 

4746 

4774 

4776 

4778 

4783 

5027 

5029 

5031 

3033 

5061 

5063 

5065 

5070 

5315 

5317 

5319 

5347 

5349 

5351 

5356 

5602 

5604 

5606 

5608 

5636 

5638 

5640 

5645 

5774 

5776 

5778 

5780 

6060 

6062 

6064 

6069 

6097 

6099 

6101 

6359 

6384 

6389 

6391 

6393 

6421 

6423 

6425 

6427 

6706 

6708 

6710 

6715 

6743 

6745 

6747 

6749 

449 

451 

489 

494 

534 

575 

577 

615 

617 

747 

749 

790 

792 

830 

832 

1064 

1066 

1114 

1116 

1347 

1349 

1385 

1392 

1421 

1423 

1590 

1592 

1706 

1708 

1734 

1736 

1765 

1767 

1804 

1809 

1990 

1992 

2029 

20il 

2057 

2059 

2092 

2094 

2283 

2285 

2322 

2351 

2353 

2386 

2388 

?596 

2598 

«i881 

2883 

3165 

3167 

3202 

3207 

3493 

3495 

3527 

3532 

3816 

3818 

3850 

3855 

4139 

4141 

4173 

4178 

4463 

4465 

4497 

4502 

4751 

4753 

4785 

4790 

5038 

5040 

5072 

5077 

5324 

5326 

5358 

5363 

5613 

5615 

5647 

5652 

5782 

6039 

6071 

6073 

6361 

6363 

6395 

6397 

6429 

6685 

6717 

6719 

6751 

6753 

SEQ  1876 


6755 

7013 

70A5 

70A7 

7079 

7081 

7366 

7371 

7A03 

7A05 

765A 

7656 

7691 

7693 

7941 

79A3 

7978 

7980 

8227 

8229 

8261 

8263 

8509 

851A 

85A3 

85A5 

8760 

8762 

8791 

8793 

8825 

8830 

8862 

886A 

PDEC 

1273 

1276 

PNTDEC 

1282 

1318 

6679 

7007 

PNTHU 

1322 

1325 

5593 

5769 

PNTMSG 

1271 

1272 

1625 

1627 

3A77 

3793 

5019 

5022 

635A 

6673 

7916 

7919 

RTN 

80 

105 

12A3 

1256 

19A8 

1956 

2568 

2582 

3161 

3279 

3991 

':075 

A713 

A719 

5309 

5A3A 

6012 

6018 

6681 

6811 

7530 

7579 

8187 

8193 

SCORER 

98 

677 

3661 

398A 

<'523 

781 A 

TMSG 

127A 

1277 

A120 

A123 

6351 

635A 

8A95 

8A98 

TMSGC 

1271 

1272 

28A3 

3153 

7001 

7329 

TTABLE 

2721 

Z122 

27A7 

27t*B 

2771 

2772 

7015 
70A9 
7083 
7373 
7A07 
7658 
7695 
79A5 
7982 
8231 
8268 
8516 
8550 
876A 
8795 
8832 
8866 
1623 
28A9 
7335 
1651 
6030 
127A 
16A8 
3797 
5301 
6677 
8202 

659 
131A 
1965 
2590 
33A3 
A101 
A736 
5A98 
6035 
6875 
7606 
8210 

893 
A306 
81 OA 
1283 
AAAA 
6677 
8752 
1275 
3A70 
7621 
2726 
27A9 
2776 


7017 
7051 
73A1 
7375 
7A09 
7663 
7697 
79A7 
798A 
8233 
8270 
8518 
8552 
8766 
8797 
8837 
8868 
1626 
3159 
7627 
165A 
6350 
1275 
16A9 
3800 
5305 
6680 
8206 
68A 
1326 
1971 
2653 
3A27 
4107 
A861 
5547 
6157 
6959 
7612 
8336 
1 035 
4629 
8393 
1319 
4447 
6680 

1279 
3793 
7912 
2727 
2750 
2777 


7019 
7053 
7343 
7377 
7411 
7665 
7699 
7949 
7986 
8235 
8272 
8520 
8557 
8768 
8799 
8839 
8870 

3476 
7918 
2589 
6676 
1277 
1652 
4116 
5308 
7001 
8209 
874 
1504 
2154 
2717 
3455 
4124 
4925 
5575 
6221 
6986 
7629 
8400 
1203 
4918 
8703 
1624 
4732 
7005 

1315 
4116 
8202 
2728 
2755 
2778 


7024 
7055 
7345 
7379 
7633 
7667 
7701 
7954 
7988 
8237 
8274 
8522 
8559 
8770 
8801 
8841 
8872 

3799 
8208 
2846 
7004 
1279 
2587 
4120 
5590 
7005 
8491 
900 
1530 
2214 
2801 
3461 
4249 
4974 
5581 
6305 
6992 
7757 
8449 
1523 
5204 

1627 
4735 
7008 

1320 
4440 
8491 
2729 
2756 
2779 


7026 
7060 
7347 
7381 
7635 
7669 
7703 
7956 
7990 
8239 
8276 
8524 
8561 
8772 
8803 
8843 
8874 

4122 
8497 
3156 
7332 
1283 
2843 
4123 
5594 
7008 
8495 
916 
1554 
2232 
2828 
3478 
4313 
5000 
5598 
6332 
7009 
7821 
8476 
1924 
5491 

2847 
5019 
7333 

1323 
4728 
8748 
2733 
2757 
2783 


7028 
7062 
7352 
7383 
7637 
7671 
^924 
7958 
7992 
8244 
8278 
8526 
8563 
8774 
8805 
8845 


7030 
7067 
7354 
7388 
7639 
7673 
7926 
7960 
7994 
82A6 
8280 
8528 
8565 
8776 
8810 
8847 


4446    4734 


3473 
7624 
1315 
2847 
4440 
5597 
7329 
8498 
923 
1584 
2240 
2834 
3604 
4397 
5006 
5711 
6338 
7139 
7870 
8482 
2207 
5726 

2850 
5022 
7336 

1621 
5015 
8753 
2734 
2758 
2784 


3796 
7915 
1319 
2850 
4444 
5767 
7333 
8748 
929 
1607 
2250 
2851 
3668 
4425 
5023 
5748 
6355 
7203 
7897 
8499 
2463 
5744 

3157 
5305 
7625 

1622 
5301 

2735 
2762 
2785 


7032 
7069 
7356 
7390 
7644 
7675 
7928 
7962 
8214 
8248 
8282 
8533 
8567 
8778 
8812 
8849 


5021 

4119 
8205 
1320 
3153 
4447 
6027 
7336 
8752 
1015 
1655 
2259 
2965 
3752 
4431 
5147 
5762 
6483 
7287 
7903 
8622 
2546 
5891 

3160 
5308 
7628 

1625 
5590 

2736 
2763 
2786 


7034 
7071 
7358 
7395 
7646 
7680 
7930 
7964 
8216 
8250 
8284 
8535 
8569 
8780 
8814 
8851 


5307 

4443 
8494 
1323 
3157 
4728 
6031 
7621 
8753 
1042 
1665 
2265 
3029 
3778 
4448 
5211 
5770 
6547 
7314 
7920 
8710 
2564 
6214 

3474 
5594 
7916 

1648 
5767 

2740 
2764 
2790 


7036 
7073 
7360 
7397 
7648 
7682 
7935 
7966 
8218 
8252 
8503 
8537 
8571 
8782 
8819 
8853 


7038 
7075 
7362 
7399 
7650 
7687 
7937 
7971 
8220 
8254 
8505 
8539 
8573 
8784 
8821 
8858 


7043 
7077 
7364 
7401 
7652 
7689 
7939 
7973 
8225 
8256 
8507 
8541 
8758 
8786 
8823 
8860 


SEQ  1877 


5596    6033    6353 


4731 
8751 
1621 
3160 
4732 
6034 
7625 

1184 
1670 
2445 
3113 
3784 
4572 
5260 
5834 
6631 
7320 
8047 
8724 
2710 
6540 

3477 
5597 
7919 

1649 
6027 

2741 
2765 
2791 


5018    5304 


1622 
3470 
4735 
6347 
7628 

1210 
1871 
2470 
3138 
3801 
4636 
5286 
5898 
6658 
7337 
8111 
8741 
3022 
6868 

3797 
6031 
8206 

1652 
6347 

2742 
2769 
2792 


162A 
3A7A 
5015 
6351 
7912 

1230 
1931 
2531 
31 AA 
3927 
A685 
5292 
5982 
666A 
7A66 
8160 
875A 
3336 
7196 

3800 
603A 
8209 

2587 
6673 

27A3 
2770 
2793 


279A 

2795 

3033 

3034 

305A 

3055 

3059 

3060 

3081 

3082 

3083 

3084 

31 OA 

3105 

3106 

3107 

:;366 

3367 

3368 

3369 

3390 

3391 

3396 

:A16 

3417 

3418 

3419 

:686 

3687 

3691 

3692 

•713 

3714 

3715 

3716 

:;736 

3737 

3741 

3742 

4007 

4008 

4009 

4010 

4031 

4032 

4036 

4037 

4057 

4058 

4059 

4060 

4324 

4325 

4329 

4330 

4351 

4352 

4353 

4354 

4374 

4375 

4379 

4380 

4645 

4646 

4647 

4648 

4669 

4670 

4674 

4675 

4941 

4942 

4943 

4944 

4965 

4966 

4967 

4968 

5234 

5235 

5236 

5237 

5502 

5503 

5507 

5508 

5528 

5529 

5530 

5531 

5909 

5910 

5914 

5915 

5936 

5937 

5938 

5939 

5959 

5960 

5964 

5965 

6230 

6231 

6232 

6233 

6253 

6254 

6258 

6259 

6280 

6281 

6282 

6283 

6551 

6552 

6556 

6557 

6577 

6578 

6579 

6580 

6601 

6602 

6606 

6607 

6624 

6625 

6879 

6880 

6900 

6901 

6905 

6906 

6927 

6928 

6929 

6930 

6950 

6951 

6952 

6953 

7226 

7227 

7228 

7229 

7250 

7251 

7255 

7256 

7276 

7277 

7278 

7279 

7548 

7549 

7553 

7554 

7572 

7573 

7825 

7826 

7846 

7847 

7851 

7852 

n20 

8121 

1122 

'1?^ 

n43 

8144 

1149 

n50 

J416 

8417 

1418 

1419 

8440 

8441 

8442 

8443 

3033 

30f1 

3088 

3347 

3373 

3397 

3420 

3693 

3720 

3743 

4014 

4038 

4064 

4331 

4358 

4381 

4652 

4676 

4948 

5215 

5241 

5509 

5536 

5916 

5943 

5966 

6237 

6260 

6287 

6558 

6585 

6608 

6884 

6907 

6934 

7207 

7233 

7257 

7280 

7555 

7830 

7853 

8127 

8151 

8423 

8714 


3039 

3062 

3089 

3348 

3374 

3398 

3421 

3694 

3721 

3744 

4015 

4039 

4065 

4332 

4359 

4382 

4653 

4677 

4949 

5216 

5242 

5510 

5537 

5917 

5944 

5967 

6238 

6261 

6288 

6559 

6586 

6609 

6885 

6908 

6935 

7208 

7234 

7258 

7281 

7556 

7831 

7854 

8128 

8152 

8424 

8715 


3040 

3067 

3090 

3352 

3375 

3402 

3672 

3698 

3722 

3745 

4016 

4043 

4066 

4336 

4360 

4386 

4654 

4678 

4950 

5220 

5243 

5514 

5538 

5921 

5945 

5971 

6239 

6266 

6289 

6563 

6587 

6613 

6886 

6913 

6936 

7212 

7235 

7262 

7534 

7560 

7832 

7858 

8129 

8153 

8425 

8716 


3041 

3068 

3091 

3353 

3376 

3403 

3673 

3699 

3723 

3746 

4017 

4044 

4067 

4337 

4361 

4387 

4655 

4679 

4951 

5221 

5244 

5515 

5539 

5922 

5946 

5972 

6240 

6267 

6290 

6564 

6588 

6614 

6887 

6914 

6937 

7213 

7236 

7263 

7535 

7561 

7833 

7859 

8130 

8154 

8426 

8717 


3045 

3069 

3095 

3354 

3381 

3404 

3677 

3700 

3727 

3995 

4021 

4045 

4068 

4338 

4365 

4388 

4660 

4929 

4956 

5222 

5249 

5516 

5540 

5923 

5950 

5973 

6244 

6268 

6294 

6565 

6592 

6615 

6891 

6915 

6941 

7214 

7240 

7264 

7539 

7562 

7837 

7860 

8134 

8404 

8430 

8718 


3046 

3070 

3096 

3355 

3382 

3405 

3678 

3701 

3728 

3996 

4022 

4046 

4069 

4339 

4366 

4389 

4661 

4930 

4957 

5223 

5250 

5517 

5541 

5924 

5951 

5974 

6245 

6269 

6295 

6566 

6593 

6616 

6892 

6916 

6942 

7215 

7241 

7265 

7540 

7563 

7838 

7861 

8135 

8405 

8431 

8719 


3047 
3074 
3097 
3359 
3383 
3409 
3679 
3706 
3729 
4000 
4023 
4050 
4317 
4343 
4367 
4390 
4662 
4934 
4958 
5227 
5251 
5521 
5902 
5928 
5952 
5975 
6246 
6273 
6296 
6570 
6594 
6620 
6893 
6920 
6943 
7219 
7242 
7269 
7541 
7568 
7839 
7862 
8136 
8409 
8432 
8720 


3048 

3075 

3098 

3360 

3384 

3410 

3680 

3707 

3730 

4001 

4024 

4051 

4318 

4344 

4368 

4391 

4663 

4935 

4959 

5228 

5252 

5522 

5903 

5929 

5953 

5976 

6247 

6274 

6297 

6571 

6595 

6621 

6894 

6921 

6944 

7220 

7243 

7270 

7542 

7569 

7840 

7863 

8137 

8410 

8433 


3052 

3076 

3102 

3361 

3388 

3411 

3684 

3708 

3734 

4002 

4029 

4052 

4322 

4345 

4372 

4640 

4667 

4936 

4963 

5229 

5253 

5523 

5907 

5930 

5957 

6225 

6251 

6275 

6298 

6572 

6599 

6622 

6898 

6922 

6948 

7221 

7248 

7271 

7546 

7570 

7844 

8115 

8141 

8411 

8438 


3053 
3077 
3103 
3362 
3389 
3412 
3685 
3709 
3735 
4003 
4030 
4053 
4323 
4346 
4373 
4641 
4668 
4937 
4964 
5230 
5254 
5524 
5908 
5931 
5958 
6226 
6252 
6276 
6299 
6573 
6600 
6623 
6899 
6923 
6949 
7222 
7249 
7272 
7547 
7571 
7845 
8116 
8142 
8412 
8439 


SEQ  1878 


DFPTA 
DFPTA, 

57 
57 
57 


DFPTAA 
DFPTAA 
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8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 


MAC 


18-Apr-85  11:00 


CBUS  MODULE  TESTS 


SEQ  1879 


TITLE 
SUBTTL 

SALL 

SEARCH 

INTERN'S 

ENTRY 
ENTRY 


DFPTAA 

CBUS  MODULE  TESTS 


DFPTA,M0NSYM 


TSTC40,TSTC41,TSTC42,TSTC43,TSTC44,TSTC45,TSTC46,TSTC47.TSTC50 
TSTC5r,TSTC52,TSTC53,TSTC54,TSTC55,TSTC56,TSTC57,TSTC60 


000000' 


;  EXTERN's  located  In  DFPTA1.MAC  (Mainline  code..) 

EXTERN  UDEBUG, BUFF, CBUF.TLOAD, TRACE. TSTFL6,TSTSUB,0DELAY 
EXTERN  BEXEC.BBPNT,TEXEC.TTPNT,CEXEC,CCPNT,CSTATF,CEBUFA 

;  EXTERN's  located  in  DFPTAI.MAC  (Port  Device  Handling  Routines  module) 
EXTERN  LDRAR.LDCSR,RDE8UF,IPACLR,CHINIT,GENCCW,6ETL0G.L0GBUF 

;  EXTERN's  Located  in  DFPTAU.MAC  (Utility  Routines  module) 
EXTERN  PAT8UF,BUFC0M,SC0SU 

;  Zm  -  Aaclress  for  use  in  DDT 

Ml  ;  address  of  00000' 


**' 


DFPTAA 
OFPTAA 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 


MACRO  X53B(1242)  10:04 
MAC     18-Apr-85  11:00 


1-Jul-85  Pac 
CBU! 


le  2 
MODULE 


TESTS 


SEQ  1880 


*  Test  40  -  CMUX  Selected  by  PLINTOCMUX 


Description; 


Procedure: 


This  test  verifies  the  PLINTOCMUX  select  line. 
First  the  PLIN  is  loaded  with  377  and  the  FMTR  is 
loaded  with  777777 ,. 7771*00.  Then  the  PLIN  is  read 
and  verified  and  the  formatter  read  and  verified. 

KL>  Port  Clear 

KL>  Load  test  microcode 

KL>  Start  microcode  at  location  0 

UC>  Load  PLIN  with  377 

UC>  Load  FMTR  with  777777 .,777 kOO 

UC>  Read  PLIN  through  CMUX  with  PLINTOCMUX 

signal  asserted 
UC>  Verify  data  is  000000., 000377 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 

KL>  Start  microcode  at  location  100 

UC>  Load  PLIN  with  377 

UC>  Load  FMTR  with  777777 . .777 t^OO 

UC>  Read  PLIN  through  CMUX  with  PLINTOCMUX 

signal  not  asserted 
UC>  Verify  data  is  777777 ..777^00 
UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 

\    ilure:     — 


000000' 
000001 • 
000002' 
000003' 
000004' 
000005' 
000006' 
000007' 
000010' 


00001 r 

000012' 
000013' 
000014' 
000015' 


254  00 

100604 

000052' 

004743' 

000000 

000000 

000000 

000000 

777777 


)   00  000011 
000040 
004735' 
000000 
000163' 
000413' 
000503' 
000572' 
777777 


Test  data 

TSTC40:  JRST    T640 

CBUS!NDMP!NDCB!ZCBUS!40  ;  !est  mask 
T40M,,[ASCIZ  *CMUX  Selected  by  PLINTOCMUX*] 
CEXP  C8.MLAST!C23],,0 


;  go  start  test 
;  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
000000* 
000052' 
000000* 
000000 


TSTC41 
TSTC42 
TSTC43 
TSTC44 
-1 

;  Start  test 

TG40:   MOVE I 
GO 

MOVE  I 
GO 
RTN 


failure  test  table 


ZA 

TRACE 
1,T40M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


DFPTAA 
DFPTAA 

A 

86 
87 
88 
89 
90 

^l 

93 
94 
95 

96 

97 

98 

99 

100 

101 

102 

103 

10A 

105 

106 

107 

108 

109 

110 

111 

112 

113 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 
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CBUS  MODULE  TESTS 


SEQ  1881 


000016'  400  15  0  00  000000 

000017'  260  17  0  00  000000* 

000020'  402  00  0  00  000000* 

000021'  201  06  0  00  000034' 


000022' 
000023' 
000024' 
000025' 
000026' 


260  17 
260  17 
254  00 
254  00 


00  000017* 
00  000000* 
00  000033' 
00  000023' 


474  15  0  00  000000 


000027'  027  00  0  00  000043' 

000030'  254  00  0  00  000016' 

000031'  254  00  0  00  000033' 

000032'  322  15  0  00  000022' 


000033'  263  17  0  00  000000 


000034'  040000 
000035'  240001 
000036'  340000 


000000 

004745' 

000000 


000037'  040000  000100 

000040'  240001  004746' 

000041'  340000  000000 

000042'  000000  000000 


000043'  240000  000045' 

000044'  000000000000* 

000045'  200  01  0  00  000020* 

000046'  256  00  0  01  000047' 

000047'  263  17  0  00  000000 

000050'  037  00  0  00  004747' 

000051'  037  00  0  00  004762' 


Initialization 


TL40: 


SETZ 
GO 

SETZM 
MOVE  I 


ERFL6, 
IPACLR 
TSTSUB 
6,TS40 


Loop  on  test  execute  table  entries 


TA40: 
TB40: 


GO 

60 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX40 

T840 

ERFLG, 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  address 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


DFP1 
DFPT 

i 


Handle  error  printouts  and  scope  looping 

SCOPER  MA40 

JRST  TL40 

JRST  TX40 

JUMPE  ERFLG, TA40 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX40:   RTN 

;  Test  Execute  Table,  as 

;  PLINTOCMUX  set 


;  return 
(CMD, parameters) 


TS40:   TTABLE   (TSTART,0)  ,_^ 
TTABLE  (TCHECKJ,C3773) 
TTABLE   (TEXIT) 

;  PLINTOCMUX  not  set 

TTABLE  (TSTARTJOO) 


start  up  port 
check  if  completed 
exit  if  error  yet 


TTABLE  (TSTARTJOO)  ;  start  up  port 

TTABLE  (TCHECK,1, [7777777774003)  ;  check  if  completed 


TTABLE   (TEXIT) 
TTABLE  (TLAST) 

Error  messages 


MA40: 
MA40LP; 

MA40L : 


CALLITXN0T1MA40LP 
LAST! CALL !TXALL!TTPNT 


MOVE 

XCT 

RTN 

TMS6C 
TMSGC 


1, TSTSUB 
MA40L-1(1) 


exit  if  error  yet 
done 


print  subtest  description 
print  test  data 

get  subtest  number 
print  message 
return 


<PLIN  not  read  correctly  with  PLINTOCMUX  asserted> 
<FMTR  not  read  correctly  with  PLINTOCMUX  not  asserted> 


1 


DFPTAA 
DFPTAA 

137 

138 

139 

UC 

K1 

142 

143 

1AA 

H5 

U6 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 


184 
185 
186 
187 
188 
189 
190 
191 
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000052' 
000053* 
000054* 
000055' 
000056* 
000057' 
000060' 
000061  * 
000062* 
000063* 
000064* 
000065* 
000066* 
000067' 
000070* 
000071  * 
000072* 
000073* 


000000 
001000 
000100 
752000 
000200 
435000 
000300 
473000 
000400 
431000 
000500 
701000 
000600 
732005 
000751 
121405 
001052 
001000 


000074' 
000075' 
000076' 
000077' 
000100' 
000101' 
000102' 
000103' 
000104' 
000105' 
000106* 
000107' 
000110' 
000111' 
000112' 
000113' 
000114' 
000115' 


0C0116' 
000117* 
000120' 
000121' 
000122* 
000123' 
000124' 
000125' 


010001 
001000 
010100 
732000 
G I J201 
435000 
010300 
473000 
010400 
431000 
010500 
701000 
010600 
732005 
010751 
121415 
011052 
001000 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 


010000 
000040 
310377 
240300 
020000 
000220 
002040 
403340 
002040 
002340 
000006 
001340 
000300 
002340 
000000 
020460 
000000 
000040 


010000 
000040 
310377 
240300 
020000 
000220 
002040 
403340 
002040 
002340 
000006 
001340 
000200 
002340 
000000 
020460 
000000 
000040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
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CBUS  MODULE  TESTS 

;  Microcode: 

Read  PLIN  with  PLINTOCMUX  asserted 

T40M:   MUORD  <ADDR=0JMAP,J=1  ,D=1>  ;  0 

MWORD  <LDCT,J=31,SD0,OR,D=2,SKCN,M6C=377>  ;  1 

MWORD  <RPCTJ=2,SOA,OR,D=5>  ;  2 

MWORD  <CONT,S0A,XNOR, 8=1, D=3,0ENA, SELF, M6C=40>  ;  3 

MWORD  <CONT,S0A,OR,D=1,OENA,SELM,MGC=40>  ;  4 

MWORD  <C0NT,SD0,D=1,SELP,MGC=6>  ;  5 

MWORD  <CONT,SD0,OR,8=12,D=2,SELM,MGC=300>  ;  6 

MWORD  <CJP,J=5100,SA8,A=0,B=12,RMIN,D=1,CRY,CENA,CCFZ>;  7 

MWORD  <JMAP,J=5200,D=1>  ;  10 

;      Read  PLIN  without  PLINTOCMUX  asserted 

MWORD  <ADDR=100,JMAP,J=101,D=1>  ;  100 

MWORD  <LDCT,J=31,SD0,OR,D=2.SKCN.MGC=377>  ;  ICi 

MWORD  <RPCT,J=102,S0A.OR,D=5>  ;  102 

MWORD  <C0NT,S0A,XN0R, 8=1, D=3,0ENA, SELF, MGC=40>  ;  103 

MWORD  <CONT.S0A,OR,D=1,0ENA,SELM,MGC=40>  ;  104 

MWORD  <CONT,SD0,D=1,SELP,MGC=6>  ;  105 

MWORD  <CONT,SD0,OR,8=12,D=2.SELM,MGC=200>  ;  106 

MWORD  <CJP,J=5100, SAB, A=1, 8=12, RMIN,D=1, CRY, CENA,CCFZ>;  107 

MWORD  <JMAP,J=5200,D=1>  ;  110 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD  <ADDR=5100,CONT,SD0,AND,8=2,D=2>  ;  5100 

MWORD  <C0NT, SOB, PLUS, 8=2, D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT.J=5103. SAB, PLUS, A=2. 8=2, D=2>  ;  5103 


SEQ  1882 


I 


"■ ) 
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192  000126' 

193  000127' 
19A  000130' 

195  000131' 

196  000132' 

197  000133' 

198  0001 3A' 

199  000135' 

200  000136' 

201  000137' 
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CBUS  MODULE  TESTS 


SEQ  1883 


DFF 
DFP 


181 


204 

205  000140' 

206  000141' 

207  000142' 

208  000143' 

209  000144' 

210  000145' 

211  000146' 

212  000147- 

213  000150' 

214  000151' 

215  000152' 

216  000153' 

217  000154' 

218  000155' 

219  000156' 

220  000157' 

221  000160' 

222  000161' 

223  000162' 


510400 

002004 

nuoRD 

431020 

005340 

510551 

070040 

nuoRD 

001400 

015060 

510651 

050000 

MUORD 

001000 

000040 

510700 

000200 

MUORD 

431010 

005340 

511051 

102004 

MWORD 

431120 

005040 

;  Subroutine  - 

520000 

000000 

MWORD 

742001 

000340 

520100 

000000 

MUORD 

302001 

000740 

520200 

250000 

MWORD 

000000 

000300 

520352 

030000 

MWORD 

102021 

000220 

520400 

002004 

MWORD 

431020 

005340 

520552 

070040 

MWORD 

001400 

015060 

520652 

050000 

MWORD 

001000 

000040 

520700 

000200 

MWORD 

431010 

005340 

521052 

102004 

MWORD 

4in20 

005040 

mm 

mm 

-1 

<CONT.S0A,A=2,0R.D=1,OENA.SELE,M6C=4> 

<CJP,J=5107,CENA,CC6C,D=1,SELE.MGC=40> 

<JMAP,J=5105,D=1> 

<CONT,S0A,A=1 ,0R,D=1 .SELE,M6C=200> 

<JMAP.J=5110,S0A,A=12,OR,D=1,OENA,SELE,MGC=4> 

Failed  -  Write  1  to  bit  13  of  CSR  register 
<ADDR=5200,CONT.SDO,AND,8=2,D=2> 
<CONT, SOB, PLUS, 8=2, D=2,CRY> 
<LDCT,J=25> 

<RPCT,J=5203, SAB, PLUS. A=2,B=2,D=2> 
<CONT,S0A,A=2,OR,D=1,OENA.SELE,M6C=4> 
<CJP,J=5207,CENA,CCGC,D=1 .SELE,MGC=40> 
<JMAP,J=5205,D=1> 

<CONT,S0A.A=1,OR.D=1,SELE,MGC=200> 
<JMAP,J=521O,S0A.A=12,OR,D=1,0ENA.SELE,MGC=4> 


5104 
5105 
5106 
5107 
5110 

5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5210 


OFPTAA 
DFPTAA 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23A 

235 

236 

237 

238 

239 

2A0 

2A1 

242 

2A3 

24A 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

253 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

271 
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le  5 
.  MODULE 


TESTS 


SEQ  1884 


DFI 
DPI 


000163' 
000164- 
000165' 
000166' 
000167' 
000170' 
000171' 
000172' 


000173' 
000174' 
000175' 
000176' 
000177' 


254  00 

;  00604 

000272' 

005002' 

000000 

000000 

000000 

777777 


0  00  000173' 
000041 
004775' 
005003' 
000413' 
000503' 
000572' 
777777 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
000012* 
000272' 
000014* 
000000 


#******•*****************************■•******************************** 
*  Test  41  -  CBUF  Loaded  Correctly 


Description: 


Procedure; 


This  test  verifies  that  the  CBUF  is  loaded 
correctly  at  full  speed.  The  formatter  is  loaded 
alternately  with  data  from  Local  storage,  and  the 
2901 's.  After  each  load  the  data  is  read  back 
and  verified. 

KL>  Port  Clear 

KL>  Lnad  test  microcode 

KL>  Start  microcode  at  location  0 

UC>  Load  2901  RIO  with  525252525252 

UC>  Load  LS  location  111  with  252525252525 

UC>  Load  formatter  with  2901  RIO  data,  then 

read  it  back  and  verify  the  data 
UC>  Load  formatter  with  LS  data,  then  read 

it  buck  and  verify  the  data 

Repeat  the  above  512  times,  on  any  error  set  bit 
13  (ENABLE  Complete)  in  the  CSR  register,  load 
R11  w^"th  type  of  data  (0=R10,1=LS),  and  load 
R12  and  R13  with  cor-rect/actual. 

If  no  error  -  set  bit  12  (DISABLE  Complete) 

Failure:     — 

#**•*************•****♦******•*************************************** 


;  Test  data 
TSTC41:  JRST 


T641 


;  go  start  test 
C8US!NDMP!NDCB1ZCBUS!41        .  test  mask 
T41M,,[ASCIZ  *CBUF  Loaded  Correctly*] 
CEXP  MLAST1C24J,,CEXP  C18,MLAST!C22] 


TSTC42 
TSTC43 
TSTC44 
-1 

Start  test 


failure  test  table 


TG^I 


MOVE  I 
60 

MOVE  I 
GO 
RTN 


ZA 

TRACE 
1,T41M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  adjress 

load/verify  it 

failed  -  exit  test 


DFPTAA 
DFPTAA 

274 

275 

276 

111 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

281 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 
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SEQ  1885 


DF 
DF 


000200'  '.00  15  0  GO  000000 

000201'  260  17  0  00  000022* 

000202'  402  00  0  00  000045* 

000203'  201  06  0  00  000216' 


000204' 
000205' 
000206' 
G00207' 
000210' 


OCOd'  i  I 


260 
260 
254 
254 
474 


027 
000212'  234 
000213'  25^ 
000214'  i: 


17 
17 
00 
UO 
15 


00 
00 
00 

15 


00 
00 
00 
00 
00 


000201* 
000023* 
000215* 
000205' 
000000 


00  000222' 
00  000200" 
00  000215' 
CO  000204' 


000215'  263  17  0  00  000000 


0002^^'  040000  OOOCOO 

OOOrV  2hJ04O  000000 

'^'  i^20'  340000  000000  • 

;;0221'  000000  000000 


000222' 
000223' 

000224' 
000225' 
000226' 
000227' 
000230' 
000231 ' 
000232' 
000233* 
000234* 


24C0C0  000224' 
OOOOOCOOOOOO* 


400  01  0  00 

260  17  0  00 

201  01  0  00 

242  01  0  00 

260  17  0  00 

201  01  0  00 
260  M  0  00 
260  If'  0  00 

202  01  0  00 


000000 

000000* 

OOjOOO 

OOOOOi 

OOOOOC- 

220010 

000225* 

OOOUOO^. 

005723* 


;  Initialization 

TL41:   SETZ  ERFLG, 

GO  IPACIR 

SETZM  TSTSUB 

MOVEJ  6,TS41 

;  Loop  on  test  execute  table  entrii.'s 


rA41: 
TB4i: 


GO 

GC 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX41 

TB41 

ERFLG, 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  address 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 


;  Handle  error  printouts  and  jcope  looping 


SCOPER 
JRST 
JRST 
JCMPE 


MA41 
TL41 
TX4i 
ERFLG.TA41 


print  error  message 

loop  en  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

rX41:   RTN 

;  Test  Execute  Table,  as 

TS41: 


;  return 
(CMD,pc^rameters) 


T TABLE 
TTABLL" 
TTABLF 
TTA3LE 


;  Error  (r.essages 
MA41: 


(ISIART.,;:^ 
(TCHECK/iO) 
(TEXIT; 
(TLAST) 


CALLITXN0T!'1A41LP 
LASTIC/^LLITXALLiTTPNT 


P">.-  P:  SETZ  1. 

GO      DCSR 

MOVE  I  1,5000 

LSH  (J 

GO  LDRAR 

MOVEI  1,MPRUN!SINtYCITSTEBf 

60  LDCSR 

GO  RDEBUF 

MOVE!"  1,SAVR11# 


start  up  port 
check  if  completed 
exit  if  error  yet 
dcrie 


print  subtest  description 
print  test  data 

clear  AC1 

clear  CSR  reqistpr 

get  address  to  read  registers 

position  properly 

write  to  RAR 

set  up  singU  '^tep  data 

write  to  CSR  tegister 

read  EBUF  data 

save  R11  data 


DFPTAA 
DFPTAA 

322 

323 

32^ 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

362 
3o3 
364 
365 
366 
367 
368 
369 
370 
J71 

y2 

373 
374 

y5 

376 
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CBUS  MODULE  TESTS 


SEQ  1886 


000235' 
000236' 
000237' 
000240' 
000241 ' 
000242' 
000243' 
000244' 
000245' 

000246' 
000247' 
000250' 
000251 ■ 
000252' 
000253' 
000254' 
000255' 
000256' 
000257' 
000260' 
000261 ' 

000262' 
000263' 
000264' 
000265' 
000266' 
000267' 
000270' 
000271 • 


400  01 
260  17 
201  01 
242  01 
260  17 

201  01 
260  17 
260  17 

202  01 


000272' 
000275' 
000274' 
000275' 
000276' 
000277' 
000300' 
000301 ' 
000302' 
000303' 

000304 • 
000305' 


0  00  000000 
0  00  000232* 
0  00  005000 
0  00  000001 
0  00  000230* 
0  00  220010 
0  00  000236* 
0  00  000233* 
0  00  005726' 


400  01  0 
260  17  0 
201  01  0 
242  01  0 
2t0   17  0 

201  01  0 
260  17  0 
260  17  0 

202  01  0 
331  01  0 
303  01  0 
263  17  0 


00  000000 
00  000243* 
00  005000 
00  000001 
00  000241* 
00  220010 
00  000247* 
00  000244* 
00  005727' 
00  005725' 
00  000001 
CO  000000 


256  00  0 

037  00  0 


01 

00 

200  00  0  00 

13  0 


037 
037  00 
20n  00 
Gi'  13 
263  ^7 


00 
00 
00 
00 
00 


005023' 

005025' 

005726' 

000000 

005031 ' 

005727' 

000000 

000000 


000000 
732004 
000100 
442004 
000200 
307004 
000300 
337004 
000410 
307004 

000500 
471100 


010777 
640040 
210000 
000300 
000000 
000740 
020000 
000220 
000000 
000700 

002040 
230340 


000306'  000600  002040 


SETZ 

GO 

MOVE  I 

LSH 

GO 

HOVE] 

GO 

GO 

HOVEM 

SETZ 

GO 

HOVE  I 

LSH 

GO 

HOVE  I 

GO 

GO 

HOVEM 

SKIPL 

CAILE 

RTN 

XCT 

TMSGC 

HOVE 

PNTHU 

TMSGC 

MOVE 

PNTHW 

RTN 

Microcode: 


1. 

LDCSR 

1.5000 

1.1 

LDRAR 

1,MPRUN!SINCYC!TSTEBF 

LDCSR 

RDEBUF 

1,SAVR12# 

1, 

LDCSR 

1.5000 

1,1 

LDRAR 

I.MPRUNISINCYCITSTEBF 

LDCSR 

RDEBUF 

1.SAVR13# 

l.SAVRH 

U 


clear  AC1 

clear  CSR  register 

get  address  to  read  registers 

position  properly 

write  to  hAR 

set  up  single  step  data 

write  to  CSR  register 

read  EBUF  data 

save  R11  data 

clear  AC1 

clear  CSR  register 

get  address  to  read  registers 

position  properly 

write  to  RAR 

set  up  single  step  data 

write  to  CSR  register 

read  EBUF  data 

save  R11  data 

within  range  0-1? 


;  no  -  exit 
CTMSGC  <Failing  write  -  2901  RIO  to  FMTR> 
TMSGC  <Failing  write  -  LS111  to  FMtR>](1) 
<FMTR  Correct:  > 
SAVR12 


DFPTAA 
DFPTAA 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 


<     Actual : 
SAVR13 


return 


Load  2901  RIO  with  525252525252 

Load  LS  location  40  with  252525252525 

T41M:   HWORD  <ADDR=0. JMAP.J=1 .SD0.OR.D=2.B=l 1 .SKCN.MGC=777> 

HUORD  <LDCT.J=21.S0A.AND.D=2.B=10> 

HWORD  <CONT, SOB. 8=10. PLUS. D=7,CRY> 

HWORD  <RPCT.J=2.SOB,B=10.0R.D=7> 

HWORD  <LDCT.J=1000. SOB. PLUS, B=10. CRY. D=7> 

HWORD  <CCNT.SoA.XN0R.A=10,D=1.0ENA.LDLM.MGC=40> 


;  0 
;  1 
;  2 
;  3 
;  4 

;  5 


Load  formatter  with  2901  RIO  data,  then  read  and  verify 
HWORD   <CONT.S0A. OR, A=10. 8=12. D=3,0ENA, SELF. HGC=40>    ;  6 


J     L 


DFPTAA 
DFPTAA 

377 

378 

379 

380 

381 

382 

383 

38A 

385 

386 

387 

388 

389 

390 

391 

392 

393 

39A 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

4U 

415 

416 

417 

418 

419 

420 

421 

422 

423 
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CBUS  MODULE   TESTS 


SEQ  1887 


000307' 
000310" 
000311* 
000312' 
000313* 
000314* 
000315* 


000316' 
000317' 
000320' 
001321 ' 
000322* 
000323* 
000324' 
000325' 


433105 
000700 
732005 
001000 
110525 
001101 
001000 


001200 
732005 
001300 
73)2005 
001400 
110525 
001501 
001000 


000326* 
000327* 
000330* 
000331  * 


000332* 
000333' 
000334' 
000335* 
000336' 
000337' 


001600 
001000 
001751 
001000 


OinC52 
4hJ004 
010100 
442004 
010252 
302004 


000340' 
000341' 
000342' 
000343' 
000344 ' 
000345' 


424 

000346' 

425 

000347' 

426 

000350' 

427 

000351  * 

<i8 

000352* 
000353' 

429 

430 

000354* 

431 

000355* 

500050 
431110 
500150 
431120 
500250 
431130 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 


003340 
000200 
402340 
120000 
420460 
000000 
000040 


000040 
223340 
000200 
402340 
160000 
420460 
010000 
000040 


050000 
000220 
000000 
000040 


000000 
400040 
000000 
400340 
000000 
400440 


012004 
005040 
022004 
005040 
022004 
005040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 


MWORD  <CONT.SD0.OR.B=13,D=2.SELM.MGC=200> 

MUORD  <CJP.J=12,SAB,A=12,B=13,SMiN.CRY,CENA,CCFZ> 

MUORD  <JMAP,J=100.D=1> 

Load  formatter  with  LS  data,  then  read  read  and  verify 

MUORD  <CONT,SD0,OR.B=12,D=2,RDLM,SELF.MGC=40> 

MUORD  <CONT,SDO,OR.B=13.D=2,SELM.MGC=200> 

MUORD  <CJPJ=16.SAB,A=12.B=13,SMIN,CRY.CENA.CCFZ> 
MUORD   <JMAP,J=101.D=1> 

Now  loop  till  done 
MUORD   <RPCT.J=5,D=1> 
MUORD   <JMAP,J=5lOO,D=1> 

Failed  loading  with  RIO  data  (100) 

Failed  loading  with  LS  data  (101) 

MUORD   <ADDR=100.JMAP.J=5200.S0A.AND.B=11,D=2> 

MUORD   <C0NT,S0A.AND.B=11.D=2> 

MUORD   <JMAP,J=5200, SOB, PLUS, D=2.B=11.CRY> 


7 

10 

11 

12 
13 
14 
15 

;  16 
;  17 


100 
101 
102 


;  Routine  to  read  2901  Register  11.12.13 

MUORD   <ADDR=5000,JMAP,J=5001  ,S0A,A--1 1 ,0R,D=1 .0ENA,SELE  ,riGC=4> 
MUORD   <JMAP,J=5O02,S0A,A=12,OR.D=1,OENA,SELE,MGC=4> 
MUORD   <JMAP,J=5002,S0A,A=13,OR,D=1.OENA,SELH,MGC=4> 


;  Subroutine  -  Passed  -  Unite  1  to  bit  12  of  CSR  register 
MUORD   <ADDR=51O0,CONT,SD0,AND,a=2,D=2> 
MUORD   <CONT, SOB, PLUS. B=2,D=2,CRY> 
MUORD   <LDCT.J=26> 
MUORD   <RPCT,J=5103, SAB, PLUS, A=2,B=2.D=2> 


5100 
5101 
5102 
5103 


— , 


DFPTAA 
DFPTAA 

A32 
A33 
A3A 
A35 
A36 
437 
A38 
439 
440 
441 

443 

444 

445 

^^6 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 
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SEQ  1888 


000356' 
000357" 
000360* 
000361 • 
000362' 
000363' 
000364' 
000365' 
000366' 
000367' 


000370' 
000371 ' 
000372' 
000373' 
000374' 
000375' 
000376' 
000377' 
000400' 
000401 • 
000402' 
000403' 
000404' 
000405' 
000406' 
000407' 
000410' 
000411* 
000412' 


510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


520000 

742001 

520100 

302001 

520200 

000000 

520352 

102021 

520400 

431020 

520552 

001400 

520652 

001000 

520700 

431010 

521052 

OulOOO 

777777 


002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
U70040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 
777777 


MWORD  <CONT,S0A,A=2.0R,D^1,0ENA,SELE,MGC=4>  ;  5104 

MUORD  <CJPJ=5107,CENA,CCGC,D=1.SELE.MGC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MUORD  <CONT,S0A,A=1,0R.D=1,SELE,M6C=200>  ;  5107 

MWORD  <JMAP.J=5110,D=1>  ;  5110 

Subroutine  -  Failed  -  Write  1  to  bit  13  of  GSR  register 

MWORD  <ADDR=5200.CONT,SD0,AND.3=2,D=2>  ;  5200 

MWORD  <C0NT, SOB, PLUS, B=2.D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 

MWORD  <RPCT,J=5203,SAB,PLUS,A=2,B=2,D=2>  ;  5203 

MWORD  <CONT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5204 

MWORD  'CJP,J=5207,CENA,CC6C,D=1.SELE,M6C=40>  ;  5205 

MWORD  <JMAP,J=5205.D=1>  ;  5206 

MWORD  <CONT,SOA,A=1.0R,D=1,SELE,MGC=200>  ;  5207 

MWORD  <JMAP.J=5210,D=1>  ;  5210 
-1 


DFPTAA 
DFPTAA 

A6A 

A65 

466 

A67 

A68 

A69 

A70 

A71 

A72 

A73 

A7A 

A75 

i,lt 

Wfl 

A78 

A79 

A80 

A81 

A82 

A83 

A8A 

A85 

A86 

A87 

A88 

A89 

A90 

A91 

A92 

A93 

A9A 

A95 

A96 

A97 

A98 

A99 

500 

501 

502 

503 

50A 

505 

506 

507 

508 

509 

510 

ill 

512 

513 

51A 

515 

516 
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MODULE 
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SEQ  1889 


000413' 
000A1A' 
000A15' 
000A16' 
000A17' 
000A20' 
000A21 ' 
0O0A22' 


000A23' 
000A2A' 
000A25' 
000A26' 
000A27' 


*  Test  A2  -  PMUX  Selected  by  MPCBUFTOPLOUT 


Description: 


Procedure: 


23'  00 

100604 

000454' 

005044' 

000000 

000000 

000000 

777777 


0  00  000423' 
000042 
005035' 
000000 
000503' 
000572' 
002141' 
777777 


This  test  verifies  the  select  line  of  the  PMUX. 
A  data  pattern  is  written  to  the  formatter  and 
the  complement  of  that  data  pattern  is  written  to 
the  PLOUT  with  MPCBUFTOPLOUT  signal  asserted.  The 
data  written  to  the  PLOUT  is  then  verified. 

KL>  Port  Clear 

KL>  Load  test  microcode 

KL>  Single  step  5  times  from  Location  0 

UC>  Load  formatter  with  O's 

UC>  Load  PLOUT  with  1's 

UC>  Read  PLOUT  and  put  into  EBUF 

KL>  Verify  EBUF  data 

KL>  Single  step  6  times  from  location  10 

UC>  Load  formatter  with  I's 

UC>  Load  PLOUT  with  O's 

UC>  Read  PLOUT  and  put  into  EBUF 

KL>  Verify  EBUF  data 

Failure:     — 

Test  data 

TSTC42:  JRST    TG42  ;  go  start  test 

CBUS!NDMP!NDCBIZCBUS!42  ;  test  mask  ^ 
TA2M..CASCIZ  *PMUX  Selected  by  MPCBUFTOPLOUT*] 
CEXP  C8,MLAST!C22]..0  ^  ., 

TSTC43  ;  failure  test  table 

TSTC44 
TSTC52 
-1 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000* 
000174* 
000454' 
000176* 
000000 


000430'  400  15  0  00  000000 

000431'  260  17  0  00  000204* 

000432'  402  00  0  00  000202* 

000433'  201  06  0  00  000445' 


;  Start  test 

T642:   MOVEl  ZA 

GO  TRACE 

MOVE I  1,T42M 

GO  TLOAD 
RTN 

;  Initialization 

TL42:   SETZ  ERFL6, 

GO  IPACLR 

SETZM  TSTSUB 

MOVEI  6.TS42 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  sstep  table  address 
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SEQ  1890 


517 

518 

519 

520 

521 

522 

523 

524 

Sc:5 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 


000434*  260  17  0  00  000000* 

000435'  254  00  0  00  000444' 

000436'  254  00  0  00  000434' 

000437'  474  15  0  00  000000 


000440'  027  00  0  00  000452' 

00^^441'  254  00  0  00  000430' 

000442'  254  00  0  00  000444' 

000443'  322  15  0  00  000434' 


000444'  263  17  0  00  000000 


000445'  100500  000004 

000446'  000000  000377 

000447'  100600  100015 

000450'  000000  000000 

000451'  000000  000000 


000452'  1 40000  005046' 
000453'  GuJOOOOOOOOO* 


000454' 
000455' 
000456' 
000457' 
000460' 
000461 • 
000462' 
000463' 
000464' 
000465' 

000466' 
000467' 
000470' 
000471 • 
000472' 
000473' 
000474' 
000475' 
000476' 
000477' 


;  Loop  on  single  step  table  entries 
TA42: 


60 

JRST 
JRST 
SETO 


BEXEC 
TX42 
TA42 
ERFL6, 


;  execute  table  entry 

;  end  of  sstep  table 

;  keep  looping  after  call 

;  error  -  tBUF  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


;  print  error  message 

;  loop  on  error 

;  altmode  exit 

;  do  next  sstep  table  entry 


;  return 
(CMD,#Steps. Start  addr,End  Addr,EBUF  data) 


SCQPER  MA42 

JRST  TL42 

JRST  TX42 

JUMPE  ERFL6.TA42 

;  End  of  test 

TX42:   RTN 

;  Sstep  table,  with  EBUF  data,  as 

TS42:   ATABLE  (SSSTRT,5,0.4,377) 

ATABLE  (SSSTRT,6,10,15,0) 

mTABLE  (SSLAST) 

;  Error  messages 

MA42:   MSG!TXNOT![ASCIZ  /Incorrect  data  loaded  into  PLOUT  (read  and  put  into  EBUF)/] 
LAST! CALL !TXALL!BBPNT         ;  print  sequencer  data 


;  Microcode: 

000000 

012040 

T42M:   MWORD 

443000 

003040 

000100 

002040 

MWORD 

471000 

002340 

000200 

000006 

MWORD 

701000 

001340 

000300 

000300 

MWORD 

732001 

002340 

000400 

042004 

MWORD 

401020 

005040 

001000 

110000 

MWORD 

442000 

C00C40 

001100 

C 02040 

MWORD 

473000 

(03340 

001200 

(02040 

MWORD 

471000 

(02340 

001300 

(00006 

MWORD 

701000 

(01340 

001400 
732001 

(00300 

MWORD 

002340 

<ADDR=0,JMAP,J=1,S0A, AND, D=3,0ENA. SELF, MGC=40> 
<C0NT,S0A,XN0R,D=1 ,0ENA,SELM,MGC=40> 
<C0NT,SD0,D=1,SELP,MGC=6> 
<CONT,SDO,OR,B=2,D=2,SELM,MGC=300> 
<JMAP,J=4,S0A,A=2,D=1,0ENA,SELE.MGC=4> 

<ADDR=1O,JMAP,J=11,S0A.AND,D=2> 
<CONT,S0A,XNOR,D=3,OENA,SELF,MGC=40> 
<C0NT.S0A,XN0R,D=1 ,0ENA,SELM,MGC=40> 
<C0NT,SD0,D=1 ,SELP,MGC=6> 
<CONT,SD0,OR,B=2,D=2,SELM,MGC=300> 


0 
1 
2 
3 
4 

10 
11 
12 
13 
14 


878 
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Page 
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CBU 
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MODULE 


TESTS 


SEQ  1891 


DFP1 
DFP1 


MUORD   <JMAP,J=15,S0A,A=2,D=1,OENA,SELE,M6C=4> 
-1 


15 


879 


DFPTAA 
DFPTAA 

575 

576 

577 

578 

579 

580 

581 

582 

58? 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 
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CBUJ 


le  10 
MODULE 


TESTS 


SEQ  1892 


000503' 
000504' 
000505' 
000506' 
000507' 
000510' 
000511' 


000512' 
000513' 
000514' 
000515' 
000516' 


/>***************•**************************************************** 
*  Test  43  -  PMUX  Selected  by  MPCBUFTOPLOUT/MPZEROLFTNIB 


Description: 


Procedure: 


254  00 

100604 

000543' 

005044' 

000000 

000000 

777777 


0  00  000512' 
000043 
005062' 
000000 
000572' 
002141' 
777777 


This  test  verifies  the  select  line  of  the  PMUX. 
A  data  pattern  is  written  to  the  fornfiatter  and 
the  complement  of  that  data  pattern  is  written  to 
the  PLOUT  with  MPCBUFTOPLOUT  and  MPZEROLFTNIB 
signals  asserted.  The  data  written  to  the  PLOUT 
is  then  verified. 

KL>  Port  Clear 

KL>  Load  test  microcode 

KL>  Single  step  5  times  from  location  0 

UC>  Load  formatter  with  O's 

UC>  Load  PLOUT  with  1's 

UC>  Read  PLOUT  and  put  into  EBUF 

KL>  Verify  EBUF  data 

KL>  Single  step  6  times  from  location  10 

UC>  Load  formatter  with  I's 

UC>  Load  PLOUT  with  O's 

UC>  Read  PLOUT  and  put  into  EBUF 

KL>  Verify  EBUF  data 

Failure:     — 
#**•********•**********••******************************************** 

;  Test  data 

TSTC43:  JRST    TG43  ;  go  start  test 

CBUS!NDMP!NDCB!ZCBUS!43  ;  test  mask  ,___  _  ,„^^ 

T43M,,CASCIZ  *PMUX  Selected  by  MkBUFTOPLOUT/MPZEROLFTNIB*] 

[EXP  C8,MLAST!C22],,0  ^  ., 

TSTC44  ;  failure  test  table 

TSrC52 

-1 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
000424* 
000543' 
000426* 
000000 


T643: 


MOVE  I 
10 

MOVE  I 
60 
RTN 


ZA 

TRACE 
1.T43M 
TLOAD 


000517'  400  15  0  00  000000 

000520'  260  17  0  00  000431* 

000521 •  402  00  0  00  000432* 

Q0Q522'  201  06  0  00  000534' 


;  Initialization 

TL43:   SETZ  ERFLG, 

60  IPACLR 

SETZM  TSTSUB 

MOVE  I  6JS43 


get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  address 


OFPTAA 
DFPTAA 

628 

629 

630 

631 

632 

633 

63A 

635 

636 

637 

638 

639 

640 

6A1 

6A2 

6A3 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 
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000523'  260 

000524'  254 

000525'  254 

000526'  474 


17 
00 
00 
15 


00  000434* 
00  000533* 
00  000523' 
00  000000 


-85  Page  11 

CBUS  MODULE  TESTS 

;  Loop  on  single  step  taiLe  entries 
TA43: 


SEQ  1893 


000527'  027 

000530'  254 

000531'  254 

000532'  322 


00 
00 
00 
15 


00  000541 • 
00  000517' 
00  000533' 
00  000523' 


000533'  263  17  0  00  000000 


000534' 
000535' 
000536' 
000537' 
000540' 


100500 
000000 
100600 
000000 
000000 


000004 
000377 
100015 
000000 
000000 


000541'  140000  005046' 
000542'  OuJOOOOOOOOO* 


000543' 
000544' 
000545' 
000546' 
000547' 
000550' 
000551 • 
000552' 
000553' 
000554' 

000555' 
000556' 
000557' 
000560' 
000561  • 
000562' 
000563' 
000564' 
000565' 
000566' 


000000 
443000 
000100 
471000 
000200 
701000 
000300 
732001 
000400 
401020 

001000 
442000 
001100 
473000 
001200 
471000 
001300 
701000 
001400 
732001 


012041 
003040 
002040 
002340 
000006 
001340 
000300 
002340 
042004 
005040 

110000 
000040 
002041 
003340 
002040 
002340 
000006 
001340 
000300 
002340 


60 
'RST 
.RST 
SETO 


BEXEC 
TX43 
TA43 
ERFLG, 


;  execute  table  entry 

;  end  of  sstep  table 

;  keep  looping  after  call 

;  error  -  tBUF  data  incorrect 


;  Handle  error  printouts  and  scope  looping 


;  print  error  message 

;  loop  on  error 

;  altmode  exit 

;  do  next  sstep  table  entry 


;  return 
(CMD.#Steps, Start  addr,End  Addr,EBUF  data) 


SCOPER  MA43 

JRST  TL43 

JRST  TX43 

JUMPE  ERFLG, TA43 

;  End  of  test 

TX43:   RTN 

;  Sstep  table,  with  EBUF  data,  as 

TS43:   ATABLE   (SSSTRT,5,0,4,377) 

ATABLE   (SSSTRT,6.10,15,0) 

ATABLE   (SSLAST) 

;  Error  messages 

MA43:   MSGITXNOTICASCIZ  /Incorreci  data  loaded  into  PLOUT  (read  and  put  into  EBUF)/] 
LAST! CALL !TXALL!BBPNT         ;  print  sequencer  data 


;  Microcode: 
T43M:  MWORD 
MUORD 
MUORD 
MUORD 
MUORD 

MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


<ADDR=0,JMAP,J=1,S0A, AND, D=3,0ENA, SELF ,MGC=41> 
<C0NT,S0A,XN0R,D=1,0ENA,SELM.MGC=40> 
<C0NT,SD0,D=1 .SELP,M6C=6> 
<CONT,SD0,OR,B=2,D=2,SELM,M6C=300> 
<JMAP,J=4,S0A.A=2,D=1,OENA,SELE,MGC=4> 

<ADDR=10,JMAP,J=11,S0A,AND,D=2> 

<CONT,S0A.XNOR,D=3.0ENA,SELF,MGC=41> 

<C0NT,S0A,XN0R,D=1,0ENA,SELM,MGC=40> 

<C0NT,SD0,D=1,SELP,M6C=6> 

<C0NT,SD0,0R,B=2,D=2,SELM,MGC=300> 


0 
1 
2 
3 
4 

10 
11 
12 
13 
14 


1881 


DFPTAA  MACRO  X53B(12A2)  10:0A  1-JuL-85  Pa( 
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le  11-1 
I  MODULE 


TESTS 


SEQ  1894 


683  000567' 
68A  000570' 
685  000571' 


001500 
401020 
777777 


152004 
005040 

mm 


MWORD   <JMAP,J=15,S0A,A=2,D=1,OENA.SELE,M6C^4> 
-1 


15 


_J 


DFPTAA 
DFPTAA 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

70A 

705 

706 

707 

708 

709 

710 

711 

712 

713 

IMi 

715 

716 

717 

718 

719 

720 

721 

722 

723 

Ilk 

725 

726 

727 

728 

729 

730 

731 

732 

733 

73A 

735 

736 

737 
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TESTS 


SEQ  1895 


#********•************•♦********************************************* 
*  Test  44  -  DMUX  Selected  Correctly 

Description:  Verify  that  the  DMUX  can  be  selected  correctly  by 
either  asserting  or  not  asserting  'MPCBUFTOFMTR' 
signal. 

Procedure:    KL>  Port  Clear 

KL>  Set  up  a  CCW  list  to  transfer  2  words 
KL>  Start  up  port 

UC>  Read  word  from  CBUS  into  CBIN 

UC>  Put  O's  on  the  MBUS  and  load  the  formatter 

UC>  Verify  data  O's  ,   ^ 

UC>  Put  O^s  on  the  MBUS  and  load  the  formatter 

with  'MPCBUFTOFMTR'  set 
UC>  Verify  data  Ts 

UC>  Read  word  from  CBUS  into  CBIN 

UC>  Put  Ts  on  the  MBUS  and  load  the  formatter 

UC>  Verify  data  1's 

UC>  Put  Vs  on  the  MBUS  and  load  the  formatter 

with  'MPCBUFTOFMTR'  set 
UC>  Verify  data  O's 

UC>  if  passed  -  set  bit  12  (DISABLE  Complete) 
UC>  if  failed  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Failure:     — 
#•***********************•******************************************* 


000572' 
000573' 
000574' 
000575" 
000576' 
000577' 
000600' 
000601 ' 
000602' 


000603' 
000604 ' 
000605' 
000606' 
000607' 


254  00 

100604 

000654' 

005100' 

000000 

000000 

000000 

000000 

777777 


0  00  000603' 
000044 
005073' 
005102' 
001005' 
001172' 
001326' 
002141' 
777777 


Test  data 
TSTC44:  JRST 


TG44 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
000513* 
000654' 
000515* 
000000 


TSTC45 
TSTC46 
TSTC47 
TSTC52 
-1 

;  Start  test 

T644:   MOVE  I 
GO 

MOVE  I 
GO 
RTN 


;  go  start  test 
CBUS!NDMP!NDCB!ZCBUS!44       ;  test  mask 
T44M,,CASCIZ  *DMUX  Selected  Correctly*] 
CEXP  C8,MLAST!C18],,[EXP  MLAS:!C20] 


failure  test  table 


ZA 

TRACE 
1,T44M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


....} 


1883 


DFPTAA 
DFPTAA 

738 

739 

7A0 

7A1 

7A2 

7A3 

7A4 

7A5 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

7B7 

788 

789 
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SEQ  1896 


OFI 
DFf 


000610'  400 

000611"  201 

000612'  402 

000613'  402 


000614' 
000615* 
000616' 
000617' 
000620' 


260 
260 
254 
254 
474 


15 
06 
00 
00 


17 
17 
00 
00 
15 


00  000000 
00  000626' 
00  000521* 
00  000000* 


00 
00 
00 
00 
00 


000520* 
000205* 
000625* 
000615* 
000000 


000621*  027  00  0  00  000652' 

000622'  254  00  0  00  000610' 

000623'  254  00  0  00  000625* 

000624*  322  15  0  00  000614* 


00062S'  263  17  0  00  000000 


000626* 
000627' 
000630' 
000631  * 
000632* 


140000 
OmJOOO 
240002 
340000 
000000 


000633* 

005002 

000000 

000000 

000000 


000633* 
000634  * 
000635* 
000636* 
000637* 
000640* 
000641  * 
000642* 
000643* 
000644* 
000645' 
000646' 
000647* 
000650* 
000651  * 


201 
242 
260 
201 
260 
260 
476 
402 
200 
260 
551 
201 
400 
260 
263 


01 
01 
17 
01 
17 
17 
00 
00 
01 
17 
01 
02 
03 
17 
17 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


00 
00 
00 
00 
00 
00 
00 


005000 

000001 

000252* 

020010 

000254* 

000637* 

000000* 

000000* 

005103' 

000000* 

000641* 

000002 

000000 

000000* 

000000 


InitlaLization 


TL44: 


SETZ 
MOVEI 
SETZM 
SETZM 


ERFLG, 
6,TS4^ 
TSTS'JB 
CSTATF 


Loop  on  test  execute  table  entries 


TA44: 
TB44: 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX44 

TB44 

ERFL6, 


clear  error  flag 
get  test  table  address 
initialize  subtest  number 
clear  check  logout  status  flag 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


Handle  error  printouts  and  scope  looping 

SCOPER  MA44 

JRST  TL44 

JRST  TX44 

JUMPE  ERFLG,TA44 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


;  End  of  test 
TX44:   RTN 


;  return 


;  Test  Execute  Table,  as:  (CMD, parameters) 


TS44:   TTABlE  (TCALL,TS44DA) 

TTABLE  (TSTART,5002) 

TTABLE  (TCHECK,2) 

TTABLE  (TEXJT) 

TTABLE  (TLAST) 

;  Set  up  data  transfer 


TS44DA:  MOVEI 
LSH 
GO 

MOVEI 
GO 
GO 

SETOM 
SETZM 
MOVE 
GO 

HRRZI 
MOVEI 
SETZ 
GO 
RTN 


1.5000 

U 

LDRAR 

1,SINCYC!MPRUN 

LDCSR 

LDCSR 

BUFF 

BUFF+1 

1.[C8UFSZ,,CBUFJ 

CHINIT 

1,BUFF 

If 

GENCCU 


set  up  data  transfer 
start  up  port 
cneck  if  completed 
exit  if  error  yet 
end  of  table 


get  start  address 
position  correctly 
load  the  register 
get  single  step  data 
single  step  once 
single  step  once  more 
initialize  data  words 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

return 


a  1884 


DFPTAA 
DFPTAA 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799 

80C 

801 

802 

803 

80A 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8K 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

83A 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 
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000652' 
000653' 


140000  005104' 
000000000000# 


000654' 
000655' 
000656' 
000657' 
000660' 
000661 ' 
000662' 
000663' 
000664' 
000665' 


000666' 
000667' 
00067C ' 
000671 ' 
000672' 
000673' 
000674' 
000675' 


000001 
442001 
000100 
431030 
000200 
732001 
000300 
431420 
000452 
001000 


000500 
431030 
000600 
732001 
000700 
471420 
001052 
Gu '  000 


000676' 
000677' 
000700' 
00J701  • 
000/02' 
000703' 
000704' 
000705' 
000706' 
000707' 


000710' 
00071 1 ' 
000712' 
000713' 
000714' 
000715' 
000716' 
000717' 


001101 
372001 
001200 
431030 
001300 
732001 
001 40G 
471420 
001552 
001000 


001600 
471030 
001700 
732001 
002000 
431420 
002152 
001000 


000000 
400020 
002040 
003340 
000200 
002340 
050000 
020060 
000000 
000040 


UUc?04 

004340 
000200 
002340 
110000 
020060 
000000 
000040 


010000 
400020 
00ZG40 
003340 
000200 
002340 
160000 
020060 
000000 
000040 


002004 
004340 
000200 
002340 
220000 
020060 
000000 
000040 


-JuL-85  Page  14 

CBU5  MODULE  lESTS 

;  Error  messages 

MA44:   MSG!TXNOT![ASCIZ  /Formatter  no*  Loaded  correctLy  through  DMUX/J 
LASTICAI  LITXALLITTPNT         ;  print  test  data 

;  Microcode 

Load  fmtr  through  CBUF  O's,  read  fmtr  and  verify 


SEQ  1897 


T44M:   MWORD  <ADDR=0,CJS,J=100,S0A,AND,B=3,D=2> 

MWORD  <CONT,S0A,OR,A=3,D=1,0ENA.SELF,MGC=40> 

MWORD  <CONT,SD0.OR,B=2.D=2,SELM,MGC=200> 

MWORD  <CJP,J=5,S0A,A=2,0R.D=1,CENA,CCFZ> 

MWORD  <JMAP,J=:)200,D=1> 


0 
1 
2 
3 
4 


Put  O's  on  MBUS,  load  fmtr  with  CBIN,  read  fmtr  and  verify 
MWORD   <CONT,S0A,OR,A=3,D=1,0ENA,SELC,MGC=4> 
MWORD   <CONT,SD0,OR,B=2,D=2.SELM,MGC=200> 
MWORD   <CJP,J=11,S0A,A=2,XNOR,D=1,CENA.CCFZ> 
MWORD   <JMAP,J=5200,D=1> 

Load  fmtr  through  CBUF  Ts,  read  fmtr  and  verify 


MWORD  <CJS,J=101 .S0B,XNC^,8=3.D=2> 

MWORD  <CONT,S0A,0R,A=3,D=1 .0ENA,SELF ,MGC=40> 

MWORD  <CONT,SD0,OR,B=2,D=2.SELM.MGC=200> 

MWORD  <CJP,J=16,S0A.A=2,XN0R,D=1 .CENA,CCFZ> 

MWORD  <JMAP,J=5200,D=1> 


5 
6 
7 
10 

11 
12 
13 
14 
15 


Put  I's  on  MBUS,  load  fmtr  with  CBIN,  read  rmtr  and  verify 


MWORD  <C0NT,S0A,XN0R.A=3.D=1 ,0ENA,SELC,MGC=4> 

MWORD  <CONT,SD0,OR,B=2.D=2,SELM,MGC=200> 

MWORD  <CJP.J=22,S0A.A=2,0R.D=1 ,CENA.CCFZ> 

MWORD  <JMAP,J=5200,D=1> 


16 
17 
20 
21 


_J 


DFPTAA 
DFPTAA 

845 

8A6 

8A7 

8A8 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

865 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

S99 
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SEQ  1898 


000720' 
000721 ' 


000722' 
000723' 
000724' 
000725' 
000726' 
000727' 
000730' 
000731 ' 


002251 
001000 


010000 
001000 
010101 
001400 
010201 
001000 
010300 
001000 


000732' 
000733' 
000734' 
000735' 

000736' 
000757' 


500050 
000000 
500150 
OOOC- 

5CG*  ■ 
OOOOuO 


000740' 
000741 • 
000742' 
000743* 
000744' 
000745' 
000746' 
000747' 
000750' 
000751 ' 
000752' 
000755' 
000754' 
000755' 
000756' 
000757' 
000760' 
000761 • 


000762' 
000765' 
000764* 
000765' 
00C766' 


510000 
7hJ001 
510100 
502001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
451010 
511051 
001000 


520000 
742001 
b20100 
502001 
520200 


000000 
000040 


000200 
004340 
030000 
000060 
010000 
000040 
000000 
000240 


010100 
004040 
010020 
002040 

000000 
GOOOOO 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005540 
070040 
015060 
050000 
000040 
000200 
005540 
100000 
000040 


000000 
000540 
000000 
000740 
250000 


ALL  done 

MWORD   <JMAP,J=5100,D=1> 

Read  a  word  from  CBUS  into  CBIN 

MWORD   <ADDR=100,CONT,D=1 ,SELC.M6C=200> 

MUORD   <CJP,j=105,D=1,CENA,CCCA> 

MWORD   <JMAP.J=101,D=1> 

MWORD   <CRTN.D=1> 

im'tiaLization  steps 

MWORD   <ADDR=5000,JMAP,J=5001 .SELC,MGC=100> 

MWORD   <JMAP,J=5001.SELM,M6C=20> 

MWORD   <JZ> 


22 

100 
101 
102 
105 

;  5000 
;  5001 

;  5002 


;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MWORD  <ADDR=510C,CONT,SD0,AND,8=2,D=2>  ;  5100 

MWORD  <CONT, SOB, PLUS, B=2.D=2,CRY>  ;  5101 

MWORD  <LDCT,J=26>  ;  5102 

MWORD  <RPCT,J=S105, SAB, Plus, A=2,B=2,D=2>  ;  5105 

MWORD  <CONT,S0A,A=2,OR,D=1,OENA,SELE,MGC=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,MGC=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <C0NT,SCA,A=1,0R.D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  15  of  CSR  register 

MWORD  <ADDR=5200,C0NT,SD0,AND,B=2,D=2>  ;  5200 

MWORD  <CONT, SOB, PLUS, B=2,D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 


86 
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900  000767'  000000  000300 

901  000770'  520352  030000 

902  000771'  102021  000220 

903  000772'  520A00  00200A 

904  000773*  431020  005340 

905  000774'  520552  070040 

906  000775'  001400  015060 

907  000776'  520652  050000 

908  000777'  001000  000040 

909  001000'  520700  000200 

910  001001'  431010  005340 

911  001002'  521052  100000 

912  001003'  001000  000040 

913  001004'  nnii  iiiiii 
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SEQ  1899 


MWORD 
MUORD 
MUORD 
MWORD 
MUORD 
MWORD 
-1 


<RPCT.J=5203. SAB, PLUS, A=2,B=2,D=2>  ;  5203 

<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4>  ;  5204 

<CJP.J=5207,CENA,CC6C,D=1,SELE,M6C=40>  ;  5205 

<JMAP,J=5205,D=1>  ;  5206 

<CONT,S0A,A=1,OR,D=1,SELE,M6C=200>  ;  5207 

<JMAP,J=5210,D=1>  ;  5210 


DFPTAA 
DFPTAA 

914 
915 
916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

93A 

935 

936 

937 

938 

939 

9A0 

9A1 

9A2 

9A3 

9AA 

9A5 

9A6 

9A7 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 
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SEQ  1900 


-J 


001005' 
001006' 
001007' 
001010' 
001011' 
001012' 
001013' 


001014" 
001015' 
001016' 
001017' 
001020' 


*  Test  45  -  CBUS  Parity  Checking  -  CBUS  to  CBUS  Module 

Description:  This  test  reads  a  pattern  of  floating  Ts  over 
the  CBUS  from  KL  memory,  verifying  with  each  word 
transferee!  that  a  parity  error  has  not  occurred. 

Procedure:    KL>  Port  Clear 

KL>  Set  up  a  CCW  list  to  transfer  36  words 
KL>  Start  up  port 
UC>  Initialize  word  count 
UC>  Read  a  word  from  CBUS  and  put  in  2901  R3 
UC>  Repeat  until  'Last  Wd'  is  seen: 
Read  a  word 

Verify  that  a  parity  error  has  not  occurred 
If  error  -  put  word  in  error  into  R3 

-  put  word  count  in  EBUF 

-  abort  test 

If  ok  -  do  next  word  „  ^ 

UC>  Assert  STOP  and  STORE  and  put  word  count  into  EBUF 
KL>  Stop  microcode,  read  EBUF  -  verify  word  count 
KL>  If  stopped  at  wrong  location,  read  Ri  to  get 

actual  data  that  resulted  in  parity  error. 
KL>  Verify  data  transfer  completed  ok. 

Failure:     — 


Test  data 


254  00 

100604 

001111* 

005126' 

OOOOOC 

000000 

777777 


\   00  001014' 

000045 

005115' 

005130' 

001172' 

001326' 

777777 


TSTC45: 


JRST    TG45 
CBUS1NDMP!NDCB!ZCBUS!45 


?o  start  test 
est  mask 


I45Mi,[AS.CIZ.*CByS  Parityjheckina  -  CBUS  to  CBUS  Module*] 


[EXP  C17  f1LAST!C9],,CEXP  HLASTIC7. 

TSTC46 

TSTC47 


failure  test  table 


201 
260 
201 
260 
263 


00 
(7 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
000604* 

oomr 

000606* 
000000 


001021'  400  15  0  00  000000 
001022'  201  06  0  00  001036' 
001023'  402  00  0  00  000612* 


;  Start  test 

T645:   MOVEl 
60 

MOVEI 
GO 
RTN 

;  Initialization 

TL45:   SETZ 
MOVEI 
SETZM 


ZA 

TRACE 
1,T45N 
TLOAD 


ERFLG. 
6JS4$ 
TSTSUB 


gee  address  of  module  start 

nandlri  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

get  test  tabli  address 

initialize  subtest  number 


88 


DFPTAA 
DFPTAA 

966 
967 
968 
969 
970 
971 
972 
973 
97A 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1U05 
1006 
1007 
1008 


MACRO  X53B(1242)  10:04 
MAC     18-Apr-85  11:00 


1-JuL-85  Page  16 

CBUS  MODULE  TESTS 


SEQ  1901 


Loop  on  te<!t  execute  table  entries 


001024'  260  17  0  00  000614* 

001025'  260  17  0  00  000000* 

001026'  254  00  0  00  001035' 

001027'  254  00  0  00  001025' 

001030'  474  15  0  00  000000 


TA45: 
TB45: 


60 

GO 
JRST 
JRST 
SETO 


IPACLR 
Cf  <EC 
TX45 
TB45 
ERFL6, 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


;  Handle  error  printouts  and  scope  looping 


001031'  027 

001032'  254 

001033'  254 

001034'  322 


00 
00 
00 
15 


00  001052' 
00  001021' 
00  001035' 
00  001024' 


SCOPER 
JRST 
JRST 
JUMPE 


MA45 
TL45 
TX45 
ERFLG,TA45 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


001035'  263  17  0  00  000000 


;  End  of  test 

TX45:   RTN 

;  Data  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


001036' 
001037' 
001040' 
001041' 
001042' 


001043' 
001044' 
001045' 
:01046' 
001047' 
001050' 
001051' 


100120 
200000 
340010 
240000 
000000 


000044 

001000 

000000 

001043' 

000000 


T145:   CTABLE  (CSETURJ20.*D36) 

CTA6LE  (CSTART.IOOO) 

CTABLE  (CWAIT,10,0) 

CTABLE  (CCALL,TS45CH) 

CTABLE  (CLAST) 


set  up  write  (36  words) 
star':  up  port 
check  if  completed 
check  results 
end  of  table 


Check  results 


200 
302 
474 
350 
350 
263 


17 
01 
01 
15 
00 
00 
17 


00  001055' 
00  000000* 
00  000044 
00  000000 
17  171112 
17  111112 


0  00  000000 


MA45CH 

1.CEBUFA 

1,*D36 

ERFLG, 

-6(P) 

-6(P) 


001052'  140000  005131' 
001053'  240000  001055' 
001054'  000000000000* 


TS45CH:  GO 

MOVE 

CAIE 

SETO 

AOS 

AOS 

RTN 

;  Error  messages 

MA45:   MSG!TXNOT!CASCIZ  /Parity  error  detected  in  data  transfer/] 
CALL!TXN0T.'MA45CH  ;  check  other  results 

LAST! CALL !TXALL!CCPNT         ;  print  test  data 


get  additional  data 

get  word  count 

correct? 

no  -  set  error  flag 

set  up  error  return 

set  up  error  return 

return 


-q 


DFPTAA  MACRO  X53B(1242)  10:04  1-JuL-85  Page  17 

DFPTAA  MAC     18-Apr-85  11 :00        CBUS  MODULE  TESTS 


SEQ  1902 


1009 

1010 

1011 

1012 

1013 

101A 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

102A 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

103A 

1035 

1036 

1037 

1C38 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 


001055' 
001056' 
001057' 
001060' 
001061' 


322  15 
200  01 
306  01 
254  00 
331  00 


00  001067' 
00  001044* 
00  000044 
00  001055' 
00  001056* 


001062'  254  00  0  00  005157' 

001063'  037  00  0  00  005165' 

001064'  210  00  0  00  001061* 

001065'  037  15  0  00  000000 

001066'  037  00  0  00  005156' 


001067' 
001070' 
001071' 
001072' 
001073' 
001074' 
001075' 
001076' 
001077' 
001100' 
001101' 
001102' 
001103' 
001104' 
001105' 
0'  106' 
001107' 
OOIIIC 


400 

260 

201 

242 

260 

201 

260 

201 

260 

2oJ 

202 

400 

260 

322 

037 

200 

037 

263 


01 

17 

01 

01 

17 

01 

17 

01 

17 

17 

01 

01 

17 

15 

00 

00 

13 

17 


00 
00 


0  00 


00 
00 
00 
GO 
00 


0  00 
0  00 
0  00 
0  00 


00 
00 
00 
00 
00 
00 


000000 

000640* 

000200 

000001 

000635* 

000010 

001070* 

200000 

001075* 

000255* 

005722' 

000000 

001077* 

005174' 

005175' 

005722' 

oJOOOO 

000000 


Check  results  -  first  the  word  count  left  in  the  EBUF 


MA45CH:  JUMPE 
MOVE 
CAIN 
JRST 
SKI  PL 
JRST 


TMS6C 
MOVN 
PNTDEC 
TMS6 


ERFLG,MA45C0 

1,CEBUFA 

1,*D36 

MA45CH0 

CEBUFA 

CTMSGC  <Port  word  count  error: 

TMSGC  <  Correct:   36. > 

TMSGC  <  Actual :> 

PDEC   6, CEBUFA 

TMSG   <•> 

JRST   MA45C0J 

<Parity  error  occurred  on  word  ff> 
CEBUFA 

<•> 


no  error  yet?  -  continue 

get  word  count 

correct? 

yes  -  continue 


print  it 


Then  the  correct/actual  data  being  read 


MA45C0:  SETZ 
GO 

MOVE  I 
LSH 
GO 

MOVE  I 
GO 

MOVE] 
GO 
GO 

MOVEM 
SETZ 
GO 

JUMPE 
TMSGC 
MOVE 
PNTHW 
RTN 


1, 

LDCSR 

1,200 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1,TSTGBF 

LDCSR 

RDEBUF 

1,SAVDA1# 

LDCSR 

ERFLG,CRTN] 

<Word  with  parity  error; 

SAVDA1 


R3 


data 
EBUF 


ensure  the  port  is 

stopped 
get  address  to  get 
position  correctly 
load  RAR  register 
set  up  initial  CSR 
write  CSR  register 
set  up  CSR  to  read 
write  it 

get  EBUF  data  (actual) 
save  it 
ensure  the  port  is 

stopped 
no  error  yet?  -  continue 
> 

get  data 
print  it 
return 


I 


890 


DFPTAA 
DFPTAA 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 
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001111' 
001112' 
001113' 
001114' 
001115' 
001116' 
001117' 
001120' 
001121' 
001122' 
001123' 
001124' 
001125' 
001126' 


001127' 
001130' 
001131' 
001132' 
001133' 
001134' 


000000 
342002 
000101 
001000 
000200 
001000 
000301 
001000 
000400 
001400 
000500 
001400 
000600 
000000 


000700 
000000 
001000 
471050 
001100 
000000 


001135' 
001136' 
001137' 
001140' 
001141' 
001142' 


001143' 
001144' 
001145' 
001146' 
001147' 
001150' 
001151' 
001152' 
001153' 
001154' 
001155' 
001156' 


001200 
OuJOOO 
001300 
431050 
001400 
000000 


010000 
001000 
010101 
001400 
010201 
001000 
010300 
001000 
010400 
732001 
010500 
302002 


010000 
400040 
000000 
000020 
040000 
000040 
010000 
000020 
070000 
140060 
120000 
170060 
030000 
000040 


000140 
004340 
002004 
005340 
110000 
000040 


000140 
004340 
002004 
005340 
140000 
000040 


000200 
004340 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000000 
400640 
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;  Microcode  -  Read  each  word 

T45M:   MUORD  <ADDR=0, JMAP,J=1 ,S0B,AND,B=5.D=2> 

MUORD  <CJS,J=100,D=1> 

MWORD  <JMAP,J=4,D=1> 

MWORD  <CJS.J=101,D=1> 

MWORD  <CJP,J=7,D=1,CENA.CCCP> 

MWORD  <CJPJ=12,D=1.CENA,CCLW> 

MWORD  <JMAP,J=3> 


SEQ  1903 


0 
1 
2 
3 
4 
5 
6 


Parity  error  occurred  -  set  STOP  and  STORE  and  write  word  count  to  EBUF 

MWORD   <CONT.SELC,MGC=140>  ;  7 

MWORD   <CONT,S0A,XNOR,A=5.D=1,OENA,SELE,M6C=4>  ;  10 

MWORD   <JMAPJ=11>  ;  11 

All  done  -  set  STOP  and  STORE  and  write  word  count  to  EBUF 


MWORD   <CONT,SELC,MGC=140> 

MWORD   <CONT,S0A,OR,A=5,D=1 ,0ENA,SELE,MGC=4> 

MWORD   <JMAP,J=14> 


12 
13 
14 


Routine  to  read  a  word  from  CBUS.  through  formatter  into  R3 
(If  this  routine  is  started  at  101,  then  the  next  word  from 
the  CBUS  is  read). 


MWORD  <ADDR=100,CONT,D=1 ,SELC,MGC=200> 

MWORD  <CJPJ=103,D=1,CENA,CCCA> 

MWORD  <JMAPJ=101,D=1> 

MWORD  <C0NT,D=1,SELC.M6C=4> 

MWORD  <CONT,SD0,OR,B=3,D=2,SELM,MGC=200> 

MWORD  <CRTN, SOB, B=5. PLUS, CRY, D=2> 

Routine  to  read  R3  and  place  in  EBUF 


100 
101 
102 
103 
104 
105 


891 


DFPTAA 
DFPTAA 

1103 
110A 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
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00''161' 
001162' 


001163' 
001164' 


001165' 
001166' 
001167' 
001170' 
001171' 
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r 


020002 
431030 
020102 
000000 


100000 
000000 


500050 
000000 
500150 
000000 

inni 


012004 
005040 
010000 
000040 


000020 
002000 


010100 
004040 
010020 
002040 

mill 


TESTS 
MWORD   <ADDR=200,JMAP,J=201,S0A,A=3,0R.0ENA,D=1,SELE,MGC=4> 

MWORD   <JMAP,J=201>  ;  201 


SEQ  1904 


Initialization 

MWORD   <ADDR=1000.JZ,SELM,M6C=20> 

Initialization  step 

MWORD   <ADDR=5000,JMAP,J=5001 ,SELC.M6C=100> 

MWORD   <JMAP.J=5001,SELM.M6C=20> 

-1 


1000 

5000 
5001 


DFPTAA 
DFPTAA 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 


MACRO  X53B(1242)  10:04  l-Jul-85  Pa| 
MAC     18-Apr-85  11:00        CBUl 


le  19 
;  MODULE 


TESTS 


SEQ  1905 


*  Test  46  -  CBUS  Parity  Checking  -  CBUS  Module  to  CBUS 

Description:  This  test  writes  a  pattern  of  floating  Ts  over 
the  CBUS,  verifying  with  each  word  transfered 
that  a  parity  error  has  not  occurred. 

Procedure:    KL>  Port  Clear 

KL>  Set  up  a  CCW  list  to  transfer  36  words 

KL>  Start  up  port 

UC>  Initialize  word  count/data  pattern 

UC>  Write  36  words  over  CBUS  to  KLIO  memory 

UC>  Assert  STOP  and  STORE  and  put  word  count  into  EBUF 

KL>  Stop  microcode,  read  EBUF  -  verify  word  count 

KL>  If  stopped  at  wrong  location,  read  R3  to  get 

actual  data  that  resulted  in  parity  error. 
KL>  Verify  data  transfer  completed  ok,  particularly 

the  MB  PE  bit  that  should  not  be  set  in  the  channel 

status  word. 

Failure:     — 
#•******************************************************************* 


001172' 
001173' 
001174' 
001175' 
001176' 
001177' 


001200' 
001201' 
001202' 
001203' 
001204' 


254  00 

100604 

001265' 

005126' 

OuJOOO 

mm 


0  00  001200' 
000046 
005203' 
005130' 
001326' 

mm 


Test  data 

TSTC46:  JRST    TC46 

CBUS!NDMP!NDCB!ZCBUS!46 


;  go  start  test 
;  test  mask 


T46M,,[ASCIZ  •CBUS  Parity  Checking  -  CBUS  Module  to  CBUS*3 

CEXP  C17,MLAST!C9],,CEXP  MLASTIC7: 

TSTC47  ;  failure  test  table 

*  I  •      •  •  • 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
001015* 
001265' 
001017* 
000000 


;  Start  test 
TG46: 


001205'  400  15  0  00  000000 
001206'  201  06  0  00  001222' 
001207'  402  00  0  00  001023* 


MOVE I  ZA 

60  TRACE 

MOVEI  1,T46M 

60  TLOAD 
RTN 


;  Initialization 

TL46:  SETZ  ERFL6, 
MOVEI  6,TS46 
SETZM   TSTSUB 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

get  test  table  address 

initialize  subtest  number 


DFPTAA 
DFPTAA 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117A 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

119A 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120A 

1205 

1206 

1207 

1208 
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SEQ  1906 


Loop  on  test  execute  table  entries 


001210' 
001211' 
001212' 
001213' 
001214' 


260 
260 
254 
254 
474 


17 
17 
00 
00 
15 


001215'  027  00 

001216'  254  00 

001217'  254  00 

001220'  322  15 


00 
00 
00 
00 
00 


001024* 
001025* 
001221' 
001211' 
000000 


TA46: 
TB46: 


60 

GO 
JRST 
JRST 
SETO 


IPACLR 

CEXEC 

TX46 

TB46 

ERFLG, 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


00  001236' 
00  001205' 
00  001221' 
00  001210' 


Handle  error  printouts  and  scope  looping 

SCOPER  MA46 
JRST  TL46 
JRST  TX46 
JUMPE   ERFLGJA46 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


001221'  263  17  0  00  000000 


;  End  of  test 

TX46:   RTN 

;  Data  Test  Execute  Table,  as: 


;  return 
(CMD, parameters) 


001222' 
001223' 
001224' 
001225' 
001226' 


001227' 
001230' 
001231' 
001232' 
001233' 
001234' 
001235' 


040120 
200000 
340010 
240000 
000000 


200 
302 
474 
350 
350 
263 


17 
01 
01 
15 
00 
00 
17 


000044 

001000 

000000 

001227' 

000000 


0  00  001241' 
0  00  001064* 
0  00  000044 
0  00  000000 
0  17  777772 
0  17  777772 
0  00  000000 


TS46:   CTABLE  (CSETRD,120/D36) 

CTABLE  (CSTART.IOOO) 

CTABLE  (CWAITjO-0) 

CTABLE  (CCALLJS46CH) 

CTABLE  (CLAST) 


;  Check  results 

TS46CH:  60 
MOVE 
CAIE 
SETO 
AOS 
AOS 
RTN 


MA46CH 

UCEBUFA 

1,*D36 

ERFLG, 

-6(P) 

-6(P) 


001236'  140000  005214' 
001237'  240000  001241' 
001240'  000000000000# 


;  Error  messages 

MA46:   MS6!TXN0T![ASCIZ  /Data 
CALL!TXN0T!M;46CH 
LAST! CALL !TXmLL!CCPNT 


set  up  write  (36  words) 
start  up  port 
check  if  completed 
check  results 
end  of  table 


get  additional  data 

get  word  count 

correct? 

no  -  set  error  flag 

set  up  error  return 

set  up  error  return 

return 


transfer  test  error  detected/] 
;  check  other  results 
;  print  test  data 


DFPTAA 
DFPTAA 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 
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SEQ  1907 


001241' 
001242' 
001243' 
001244' 
001245' 
001246' 
001247' 
001250' 
001251' 


322  15 
200  01 
306  01 
254  00 
037  00 
037  00 
037  00 
006  06 
037  00 


001252' 
001253' 
001254' 
001255' 
001256' 
001257' 
001260' 
001261' 
001262' 
001263' 
001264' 


200  01 

201  02 
260  17 

202  01 
332  00 
336  00 
263  17 
201  01 
201  02 
260  17 
263  17 


Check  results  -  first  the  word  count  left  in  the  EBUF 


0  00  001252' 
0  00  001230* 
0  00  000044 
0  00  001252' 
0  00  005141' 
0  00  005147* 
0  00  005153' 
0  00  001242* 
0  00  005156' 


0  00  005223' 
0  00  000044 
0  00  000000* 
0  00  005724' 
0  00  000015 
0  00  000001 
0  00  000000 
0  00  000001 
0  00  000044 
0  00  001254* 
0  00  000000 


MA46CH:  JUMPE 
MOVE 
CAIN 
JRST 
TMSGC 
TMSGC 
TMSGC 
PDEC 
TMSG 


ERFLG,MA46C0 

1,CEBUFA 

1,*D36 

MA46C0 

<Port  word  count  error; 

<  Correct:   36. > 

<  ActuaL:> 
6,CEBUFA 
<•> 


;  Check  for  data  buffer  compare  error 
MA46C0: 


MOVE 

MOVEI 

GO 

MOVEM 

SKIPE 

SKIPN 

RTN 

MOVEI 

MOVEI 

GO 

RTN 


1,C-1] 

2,*D36 

BUFCOM 

1,SAVNUM# 

ERFL6 

1 

1J 

2.*D36 

BUFCOM 


no  error  yet?  -  continue 

get  word  count 

correct? 

yes  -  continue 


;  print  it 


set  to  'read  -  don't  report  errors' 

get  buffer  length 

do  the  compare 

save  number  of  data  compare  errors 

error  yet? 

any  words  in  error? 

no  -  return 

set  to  'read  -  report  errors 

get  buffer  length 

do  the  compare/print  errors 

done  -  return 


_..._.,] 


1895 


DFPTAA 
DFPTAA 

1235 

1236 

1237 

1238 

1239 

12A0 

12A1 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 
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001265'  000000 

001266'  342002 

001267'  000100 

001270'  402052 


001271' 
001272' 
001273' 
001274' 
001275' 
001276' 
C01277' 
001300' 
001301' 
001302' 
001303' 
001304' 
001305' 
001306' 
001307' 
001310' 


001311' 
001312' 
001313' 
001314' 
001315' 
001316' 


000200 
001000 
000300 
001400 
000400 
001000 
000500 
431040 
000600 
302002 
000700 
337002 
001000 
331402 
001100 
000000 


001200 
000000 
001300 
431050 
001400 
000000 


001317' 
001320' 


001321' 
001322' 
001323' 
001324' 
001325' 


100000 
000000 


500050 
000000 
500150 
000000 

mm 


010000 
400040 
000000 
000740 


000220 
004340 
050000 
000060 
030000 
000040 
002040 
003340 
000002 
404740 
000000 
000340 
120000 
020060 
030000 
000040 


000140 
004340 
142004 
005040 
140000 
000040 


000020 
002000 


010100 
004040 
010020 
002040 

mm 
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;  Microcode 

Init  word  count  and  data  pattern 
T46M:   MWORD   <ADDR=0,JMAP,J=1 ,S0B,AND,B=5,D=2>  ;  0 

MUORD   <CONT.S0A,A=5,B=4, PLUS, CRY, D=2>  ;  1 

;      Write  all  the  words  specified  by  the  CCU  list 

MUORD  <CONT,D=1,SELC,MGC=220>  ;  2 

MUORD  <CJP.J=5,D=1,CENA.CCCA>  ;  3 

MUORD  <JMAP,J=3,D=1>  ;  4 

MUORD  <CONT,S0A,OR,A=4,D=1,OENA,SELF.MGC=40>  ;  5 

MUORD  <C0NT, SOB, PLUS, B=5,D=2. CRY, SELC,M6C=2>  ;  6 

MUORD  <CONT,S0B,OR,8=4,D=7>  ;  7 

MUORD  <CJP,J=12,S0B,0R,B=4,D=1,CENA,CCFZ>  ;  10 

MUORD  <JMAP,J=3>  ;  H 

All  done  -  set  STOP  and  STORE 

MUORD   <C0NT,SELC,MGC=140>  ;  12 

MUORD   <JMAP,J=14,S0A,A=5,OR,OENA,D=1,SELE,MGC=4>  ;  13 

MUORD   <J«AP,J=14>  ;  14 

Initialization 

MUORD   <ADDR=1000,JZ,SELM,MGC=20>  ;  1000 

Initialization  step 

MUORD   <ADDR=5000,JMAP.J=5001,SELC,MGC=100>  ;  5000 

MUORD   <JMAP,J=5001,SELM.MGC=20>  ;  5001 

-1 


SEQ  1908 


a  1896 


DFPTAA 
DFPTAA 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 
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SEQ  1909 


DF( 
DF( 


#**•**********»*********•**•***************************************** 
*  Test  47  -  CBUS  Parity  Checking  -  CBUS  to  CBUS  Module 


Description; 


Procedure: 


001326' 
001327' 
0^^1330' 
001331' 
001332' 
001333' 


254  00 

100604 

001470' 

005126' 

000000 

mm 


0  00  001334' 
000047 
005115' 
005130' 
002141' 

mm 


This  test  reads  a  pattern  of  floating  I's  over 
the  CBUS  from  KL  memory,  verifying  with  each  word 
transfered  that  a  parity  error  has  occurred. 

KL>  Port  Clear 

KL>  Set  up  a  CCU  list  to  transfer  36  words 

KL>  Start  up  port 

UC>  Initialize  word  count 

UC>  Read  a  word  from  CBUS  and  put  in  £^901  R3 

UC>  Repeat  until  'Last  Wd'  is  seen: 

Read  a  word 

Verify  that  a  parity  error  has  occurred 
If  no  -  put  word  in  error  into  R3 

-  put  word  count  in  BBUF 

-  abort  test 
If  yes  -  do  next  word 

UC>  Assert  STOP  and  STORE  and  put  word  count  into  EBUF 
KL>  Stop  microcode,  read  EBUF  -  verify  word  count 
KL>  If  stopped  at  wrong  location,  read  R3  to  get 
actual  data  that  resulted  in  no  parity  error. 
KL>  Verify  data  transfer  completed  ok. 

Failure:     — 

Test  data 

TSTC47:  JRST    T647  ;  QO  start  test 

CBUS1NDMP!NDCB!ZCBUS!47        ;  test  mask 
T47M,,CASCIZ  *CBUS  Parity  Checking  -  CBUS  to  CBUS  Module*] 
[EXP  C17,MLAST!C9],,[EXP  MLAST1C7! 
TSTC52  ;  failure  test  table 

I  »   •  •  • 


1 


DFPTAA 
DFPTAA 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

133A 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 
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001334' 
001335' 


001336' 
001317' 
001340' 
001341' 
001342' 
001343' 
001344' 
001345' 
001346' 


402 
332 


00 
00 


254  00  0 
7  000  24 
202  01  0 
7  000  20 
201  00  0 
260  17  0 
201  01  0 
260  17  0 
254  00  0 


00  005715' 
00  030037 


00  005224' 
0  00  000001 
00  005715' 
0  00  065400 
00  000000' 
00  001201* 
00  001470' 
00  001203* 
00  001363' 


001347'  400  15  0  00  000000 
001350'  201  06  0  00  001373' 
001351'  402  00  0  00  001207* 


001352' 
001353' 
001354' 
001355' 
001356' 


260 

260 

254 

2d 

474 


001357'  027 

001360'  254 

001361'  254 

001362'  322 


17 
17 
00 
00 
15 


00 
00 
00 
15 


00 
00 
00 
00 
00 


001210* 
001211* 
001363' 
001353' 
000000 


001363' 
001364' 
001365' 
001366' 
001367' 
001370' 
001371' 
001372' 


336  00  0 
263  17  0 
7  000  20 
135  01  0 
242  01  0 
660  01  0 
7  000  20 
263  17  0 


00  001431' 
00  001347' 
00  001363' 
00  001352' 


00  005715' 
00  000000 
0  00  027700 
00  005231 ' 
00  000004 
00  100000 
0  01  000000 
00  000000 


start  test 


TG47: 


T647A: 


SETZM 
SKIPE 
JRST 


CONI 
MOVEM 
CONO 
MOVE  I 
GO 

MOVE  I 
GO 
JRST 


SAVAPR* 

USER 

[MOVE 

TLO 

SKIPN 

MOVEM 

JRST 
APR  J 
1,SAVAPR 
APR, 65400 
ZA 

TRACt 
1.T47M 
TLOAD 
TX47 


TSTFLG 

(TUSER) 

UDEBUG 

TSTFLG 

TG47A] 


;  Initialization 

TL47:  SETZ  ERFLG. 
MOVEI  6,TS47 
SETZM   TSTSU8 

;  Loop  on  test  execute  table  entries 


TA47: 
TB47: 


GO 

GO 
JRST 
JRST 
SFTO 


IPACLR 

CEXEC 

TX47 

TB47 

ERFLG. 


SEQ  1910 


r 

Idfi 

IDFI 


clear  APR  data 

user  mode? 

yes  -  ensure  this  test  does  not 

get  run  (but  only  if  not  in 

debug  mode) 


get  processor  flags 

save  flags 

prevent  m   parity  error  interrupts 

get  address  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

get  test  table  address 

initialize  subtest  number 


clear  port 

execute  table  entry 

end  of  test  execute  table 

keep  looping  after  call 

error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPFR 
JRST 
JRST 
JUMPE 

End  of  test 


TX47: 


SKIPN 

RTN 

CONO 

LD6 

LSH 

TRO 

CONO 

RTN 


MA47 
TL47 
TX47 
ERFLG. TA47 


SAVAPR 


APR. 27700 

1. [POINT  8. SAVAPR. 13] 

1,4 

1,100000 

APR.d) 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


need  to  restore  APR  flags? 

no  -  just  return 

clear  flags 

get  original  flags 

position  properly 

set  enable  bit 

set  the  flags 

exit 


j 


Q  1898 


1 OFPTAA 
iDFPTAA 


1372 

1373 

137A 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

138A 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

139A 

1395 

1396 

1397 

1398 

1399 

KOO 

1401 

1A02 

K03 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

nil 

1412 
1413 
1414 
1415 
1416 
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SEQ  1911 


DF 
DF 


001373' 
001374' 
001375' 
001376' 
001377' 
001400' 


001401' 
001402' 
001403' 
001404' 
001405' 
001406' 
001407' 
001410' 
001411' 
001412' 
001413' 
001414' 
001415' 


001416' 
001417' 
001420' 
001421' 
C01422' 
001423' 
001424' 
001425' 
001426' 
0014:7' 
001430' 


Data  Test  Execute  Table,  as:  (CMD, parameters) 


100120 
240000 
200000 
340010 
240000 
000000 


000044 

001401' 

001000 

000000 

001416' 

000000 


TS47:   CTABLE  (CSETWR  J20/D36) 

CTABLE  (CCALL,TS47DA) 

CTABLE  (CSTART.IOOO) 

CTABLE  (CUAITJO.O) 

CTABLE  (CCALLJS47CH) 

CTABLE  (CLAST) 


set  up  write  (36  words) 

set  up  data  patterns  correctly 

start  up  port 

check  if  completed 

check  results 

end  of  table 


Set  up  data  oattern  -  make  each  word  have  bad  parity 


200  00  0 


251 
201 


00 
01 


200  00  0 
336  00  0 
7  004  20 
202  00  0 
336  00  0 
7  C04  20 
350  00  0 
307  01  0 
254  00  0 
263  17  0 


200  01  0 
550  02  0 
4u.^  00  0 
253  01  0 
260  17  0 


200  01 
302  01 


474  15  0 
350  00  0 
350  00  0 
263  17  0 


00  005232' 
00  000000* 

00  000645* 

01  000000 
00  030037 

0  00  200000 

01  000000 
00  030037 

0  00  000000 
00  000001 
00  000000* 
00  001404' 
00  000000 


00  005233' 

00  000001 

01  000000 
00  001417' 
00  001434' 
00  001250* 
00  000044 
00  OOOOOC 
17  111172 
17  Villi 
OC  00000 


TS47DA:  MOVE 
BLT 
MOVE  I 

TS47D0:  MOVE 
SKIPN 
CONO 
MOVEM 
SKIPN 
CONO 
AOS 
CAIG 
JRST 
RTN 

;  Check  results 


C8UFF,.BUFF+*D36: 

BUFF+*D71 

l.BUFF 

(1) 

USER 

PI, 200000 

USER 

PI,0 

1 

1,8UFF+*D35 

TS47D0 


save  copy  of  the 
the  buffer 


fUg 


TS47C.H:  MOVE 
HRRZ 
SET2M 
AOBJN 
60 
MOVE 
CAIE 
SETO 
AOS 
AOS 
RTN 

;  Error  messages 


1,[-*D36,,BUFF: 

(1) 

I, .-2 

MA47CH 

l.CEBUFA 

1,*D36 

ERFLG, 

-6(P) 

-6(P) 


001431'  140000  005234' 
001432'  240000  001434' 
001433'  000000000000* 


MA47:   MSGiTXNOTlCASCIZ  /Parity 
CALL!TXN0T!MA47CH 
LAST! CALL ITXALLICCPNT 


build  BLT  word, 

data  later  in  . 
get  buffer  address 
get  data  word 
user  mode? 

no  -  set  up  for  bad  parity 
write  the  word  back 
user  mode? 

no  -  reset  bad  parity 
point  to  next  address 
done  yet? 

no  -  loop  till  done 
yes  -  return 


build  AOBJN  word  to  rewrite 
each  word  in  the  buffer 
with  correct  parity,  and 
do  so 

get  additional  data 

get  word  count 

correct? 

no  -  set  error  flag 

set  up  error  return 

set  up  error  return 

return 


error  not  detected  in  data  transfer/] 
;  chec;  other  results 
;  print  test  data 


DFPTAA 
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H17 
1A18 

t  /  1  r\ 

;  Check 

results 

-  first  the  word  count  U 

ft  in  the  EBUF 

U19 
K20 

001434' 

322  15  0  00  001446' 

MA47CH: 

JUMPE 

ERFL6,MA47C0 

no  error  yet?  -  continue 

U21 

001435' 

200  01  0  00  001423* 

MOVE 

1,CEBUFA 

get  word  count 

1422 

001436' 

306  01  0  00  000044 

CAIN 

1,*D36 

correct? 

1423 

001437' 

254  00  0  00  001434' 

JRST 

MA47CH0             ; 

yes  -  continue 

1424 

001440' 

331  00  0  00  001435* 

SKIPL 

CEBUFA 

1425 

JRST 

:tMSGC  <Port  word  count 

error:  > 

1426 

TMSGC  <  Correct:   36. 

> 

1427 

TMSGC  <  Actual :> 

1428 

PDEC   6, CEBUFA 

;  print  it 

1429 

TMSG   <•> 

1430 

001441' 

254  00  0  00  005245' 

JRST   MA47C0] 

1431 

001442' 

037  00  0  00  005253' 

TMS6C 

<Parity  error  did  not  occur  on  word  ff> 

1432 

001443' 

210  00  0  00  001440* 

MOVN 

CEBUFA 

1433 

001444' 

037  15  0  00  000000 

PNTDEC 

1434 
1435 
1436 
1437 
1438 

001445' 

037  00  0  00  005156' 

TMS6 

<.> 

;  Then 

the  correct/actual  data  being  read 

001446' 

400  01  0  00  000000 

MA47C0: 

SETZ 

1. 

ensure  the  port  is 

1439 

001447' 

260  17  0  00  001103* 

GO 

LDCSR 

stopped 

1440 

001450' 

201  01  0  00  000200 

MOVE  I 

1.200 

•  get  address  to  get  R3 
position  correctly 

1441 

001451' 

242  01  0  00  000001 

LSH 

U 

1442 

001452' 

260  17  0  00  001073* 

GO 

LDRAR 

•  load  RAR  register 

1443 

001453' 

201  01  0  00  000010 

MOVE  I 

1 ,MPRUN 

■  set  up  initial  CSR  data 

1444 

001454' 

260  17  0  00  001447* 

GO 

LDCSR 

■  write  CSR  register 

1445 

001455' 

201  01  0  00  200000 

MOVE! 

1,TSTEBF 

•  set  up  CSR  to  read  EBUF 

1446 

001456' 

260  17  0  00  001454* 

^ 

LDCSR 

•  write  it 

1447 

001457' 

2o.^  17  0  00  001100* 

RDE8UF 

;  get  EBUF  data  (actual) 

1448 

001460' 

202  01  0  00  005722' 

MOVEM 

1,SAVDA1# 

;  save  it 

1449 

001461' 

400  01  0  00  000000 

SETZ 

1, 

;  ensure  the  port  is 

1450 

001462' 

260  17  0  00  001456* 

GO 

LDCSR 

;   stopped 

1451 

001463' 

322  15  0  00  005174' 

JUMPE 

ERFLG.CRTN] 

;  no  error  yet?  -  continue 

1452 

001464' 

037  00  0  00  005263' 

TMSGC 

<Uord  without  parity  error:  > 

1453 

001465' 

200  00  0  00  005722' 

MOVE 

SAVDA1 

;  get  data 

1454 

001466' 

037  13  0  00  000000 

PNTHW 

;  print  it 

1455 

001467' 

263  17  0  00  000000 

RTN 

;  return 

SEQ  1912 


"1 


DFPTAA 
DFPTAA 

1A56 

1A57 

U58 

K59 

U60 

1A61 

1462 

1A63 

1A6A 

1A65 

1A66 

1A67 

1A68 

1A69 

1A70 

1A71 

1A72 

1A73 

1A7A 

1A75 

1A76 

1A77 

1A78 

1A79 

1A80 

1A81 

1A82 

1A83 

1A8A 

1A85 

1A86 

1A87 

1A88 

1A89 

'.A90 

1A91 

1A92 

1A93 

1A9A 

1A95 

1A96 

1A97 

1A98 
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001A70' 
001471' 
001 A72' 
001 A73' 
001 A7A' 
001 A75' 
001476' 
001477' 
001500' 
001501' 
001502' 
001503' 
001504' 
001505' 
001506' 
001507' 


000000 
342002 
000101 
001000 
000200 
001000 
000301 
001000 
000400 
001400 
000500 
001000 
000600 
001400 
000700 
000000 


001510' 
001511' 
001512' 
001513' 
001514' 
001515' 


001516' 
001517' 
001520' 
001521' 
001522' 
001523' 


001000 
000000 
001100 
471050 
001200 
000000 


001300 
OOOOCO 
001400 
431050 
001500 
OOOOOO 


010000 
400040 
000000 
000020 
040000 
000040 
010000 
000020 
060000 
140060 
100000 
000040 
130000 
170060 
030000 
000040 


000140 
004340 
002004 
005340 
120000 
000040 


000140 
004340 
002004 
005340 
150000 
0000«»0 
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;  Microcode  -  Read  each  word 

T47M:   MWORD  <ADDR=0, JMAP.J=1 ,S0B,AND,B=5,D=2> 

MWORD  <CJS.J=100,D=1> 

MUORD  <JMAP.J=4,D=1> 

MWORD  <CJS.J=101,D=1> 

MWORD  <CJP.J=6,D=1,CENA,CCCP> 

MWORD  <JMAP,J=10,D=1> 

MWORD  <CJP.J=13,D=1.CENA,CCLW> 

MWORD  <JMAP.J=3> 


SEQ  1913 


1499 

001 52A' 

010000 

000200 

1500 

001525' 

001000 

004340 

1501 

001526' 

010101 

030000 

1502 

001527' 

001400 

000060 

1503 

001530' 

010201 

010000 

1504 

001531' 

001000 

000040 

1505 

001532' 

010300 

000004 

1506 

001533' 

001000 

004340 

1507 

001534' 

010400 

000200 

1508 

001535' 

732001 

402S40 

1509 

001536' 
001537* 

010500 

000000 

1510 

302002 

400640 

0 

1 

2 
3 
4 
5 
6 
7 


Parity  error  did  not  occur  -  set  STOP  and  STORE  and  write 
word  count  to  EBUF 

MWORr   <C0NT,SELC,MGC=140> 

MWOR.    <C0NT,S0A,XN0R,A=5,D=1 ,0ENA,SELE.MGC=4> 

MWORD   <JMAP,J=12> 


10 
11 
12 


All  done  -  set  STOP  and  STORE  and  write  word  count  to  EBUF 


MWORD   <CONT,SELC,MGC=140> 

MWORD   <C0MT,S0A,0R,A=5.D=1.0ENA,SELE,MGC=4> 

MWORD   <JMAP,J=15> 


13 
14 
15 


Routine  to  read  a  word  fro.n  CBUS-  through  formatter  into  R3 
(Jf  this  routine  is  started  at  101,  then  the  next  word  from 
the  tBUS  is  read). 


MWORD  <ADDR=100,C0NT,D=1 ,SELC,MGC=200> 

MWORD  <CJP,J=103,D=1.CENA,CCCA> 

MWuRD  <JMAP,J=101,D=1> 

MWORD  <C0NT.D=1,SELC,M6C=4> 

MWORD  <CONT,SD0,OR,8=3,D=2,SELM,M6C=200> 

MWORD  <CRTN,S0B,B=5, PLUS. CRY. D=2> 


100 
101 
102 
103 
104 
105 


._.J 


DFPTAA 

MACRO  X53B(1242 

)    10:04 

DFPTAA 

MAC 

18-Apr- 

35  11:00 

1511 

1512 
1513 
1514 

001540' 

020002 

012004 

1515 

001541' 

431030 

005040 

1516 

001542' 

020102 

010000 

1517 

001543' 

000000 

000040 

1518 

1519 

1520 

1521 

001544' 

100000 

000020 

1522 

001545' 

000000 

002000 

1523 

1524 
1525 
1526 

001546' 

500050 

010100 

1527 

001547' 

000000 

004040 

1528 

001550' 

500150 

010020 

1529 

001551' 

000000 

002040 

1530 

001552' 

777777 

777777 
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SEQ  1914 


Routine  to  read  R5  and  place  'in  EBUF 

MWORD       <ADDR=200,JMAP, J=201 ,S0A,A=3,0R,0ENA,D=1 .SELE,M6C=4> 

MUORD       <JMAP.J=201>  ;  201 


Initialization 

MUORD       <ADDR=1000JZ,SELM,M6C=20> 

Initialization  step 

MWORD       <ADDR=5000JMAP,  J=5001  .SELC.MGC=100> 

MUORD       <JMAP,J=5001,SELM.MGC=20> 

-1 


1000 

5000 
5001 


1 


DFPTAA 
DFPTAA 

1531 

1552 

1533 

153A 

1535 

1536 

1537 

1538 

1539 

15A0 

1541 

15A2 

1543 

15AA 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 
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SEQ  1915 


#**********************♦*******************************♦************* 
*  Test  50  -  T  Field  Timing  Test 

Description:  Verify  that  setting  the  Time  Field  bit  in  each 
microword  causes  tne  microsequencer  to  operate 
about  33X  slower. 

Procedure:    KL>  Port  Clear 

KL>  Load  microcode 

KL>  Start  the  port  at  location  0        ,„^, 
KL>  Wait  10ms  then  stop  the  port  and  read  2901 
register  1  which  contains  the  number  of 
instructions  executed  (each  with  T  field 
not  set) 
KL>  Start  the  port  at  location  lO       ^^^, 
KL>  Wait  10ms  then  stop  the  port  and  read  2901 
register  1  which  contains  the  number  of 
instructions  executed  (each  with  T  field 
set) 

KL>  Compare  the  instruction  counts  expecting  a 
ratio  of  3  to  2  +-  10X 

KL>  In  user  mode  repeat  up  to  2  more  times  if  the 
ratio  is  not  correct  (it  is  more  difficult  to 
exactly  time  how  long  the  wait  is  being  done). 

Failure:     — 
#**********************♦♦************♦******************************* 


001553'  254  00  0  00  001560' 

001554'  100604  000050 

001555'  001657'  005272' 

001556'  005275'  000000 

001557'  linn     777777 


Test  data 
TSTC50 


JRST    T650 
C8US!NDMP!NDCB!ZCBUS!50 
T50ri,,CASCIZ  *T  Field  Timing*] 
CEXP  MLAST!Cn,.0 
-1 


?o  start  test 
est  mask 


failure  test  table 


! 


— I 


DFPTAA 
DFPTAA 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 
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SEQ  1916 


001560'  332  00  0  00  030037 


001561' 
001562' 
001563' 
001564' 
001565' 
001566' 


260 
201 
260 
201 
260 
263 


17 
00 
17 
01 

17 
17 


001567'  400  15 

001570'  400  01 

001571'  260  17 

001572'  202  01 

001573'  201  01 
001574'  260  17 
001575'  202  01 


001576' 
001577' 
001600' 
001601' 
001602' 
001603' 
001604' 
001605' 
001606' 
001607' 
001610' 
001611' 


200  04 
221  04 
2i'  04 
202  04 
317  04 
474  15 
200  04 
221  04 
231  04 
202  04 
311  04 
474  15 


001612'  027  00 
001613'  254  00 
001614'  254  00 


00 
00 
00 
00 
00 
00 


005276' 
000000' 
001343* 
001657' 
001345* 

oonooo 


00  000000 
00  000000 
00  001616' 
00  005716' 

00  000010 
00  001616' 
00  005717' 


0  00 
0  00 


00 
00 


0  00 
0  00 


00 
00 
00 


0  00 
0  00 
0  00 


005716' 

000012 

000016 

005720' 

005717' 

000000 

005716' 

000012 

000020 

005721' 

005717' 

000000 


00  001631' 
00  001567' 
00  001615' 


001615'  263  17  0  00  000000 


Start  test 


T650: 


SKIPE 
GO 


MOVE  I 
60 

MOVE  I 
GO 


USER 

[MOVE   TSTFLG 
TLO    (TUSER) 
SKIPN  UDEBUG 
MOVEM  TSTFLG 
RTNJ 

ZA 

TRACE 

1.T50M 

TLOAD 


Do  the  test 


TA50:   SETZ 
SETZ 
GO 
MOVEM 

MOVEI 

GO 

MOVEM 

;  Check  results 

MOVE 

IMULI 

IDIVI 

MOVEM 

CAMG 

SETO 

MOVE 

IMULI 

IDIVI 

MOVEM 

CAML 

SETO 


ERFLG, 

T$OSS 
1,SAVCN1# 

IJO 

T50SS 

1,SAVCN2# 


4,SAVCN1 

4/D10 

4,*D14 

4.SAVCN3# 

4,SAVCN2 

ERFLG, 

4,SAVCN1 

4.*D10 

4.*D16 

4.SAVCN4# 

4,SAVCN2 

ERFLG, 


user  mode? 

yes  -  ensure  this  test  does  not 

get  run  (but  only  if  not  in 

debug  mode) 


get  addre^.s  of  module  start 

nandle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exi  t  t-est 


clear  error  flag 
set  start  address  to  0 
do  a  test  segment 
save  count 

set  start  address  to  10 
do  a  test  segment 
save  count 


get  count  without  T  field  set 
calculate  1.4  times  the  count 

as  the  maximum  limit 
save  it 
in  range? 

no  -  set  error  flag 
get  count  without  T  field  set 
calculate  1.6  times  the  count 

as  the  minimum  limit 
save  it 
in  range? 
no  -  set  error  flag 


Handle  error  printouts  and  scope  looping 

SCOPER  MA50 
JRST  TA50 
JRST    TX50 


print  error  message 
loop  on  error 
altmode  exit 


;  End  of  test 
TX50:   RTN 


;  return 


DFPTAA 
DFPTAA 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

163A 

1635 

1636 

1637 

1638 

1639 

16A0 

16A1 

16A2 

16A3 

16A4 

16A5 

16A6 

16A7 

16A8 

16A9 

1650 

1651 

1652 

1653 

165A 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

166A 

1665 

1666 

1667 

1668 

1669 

1670 

1671 


MACRO  X53B(1242)  10:04  1-JuL-85  Page  30  ^ 
MAC     18-Apr-85  11:00        CBUS  MODULE 


TESTS 


SEQ  1917 


001616' 
001617' 
001620' 
001621' 
001622' 
001623' 
001624' 
001625' 
001626' 
001627' 
001630' 


260  17  0 
242  01  0 
260  17  0 
201  01  0 
260  17  0 
201  00  0 
260  17  0 
201  01  0 
260  17  0 
260  17  0 
263  17  0 


00  001352* 
00  000001 
00  001452* 
00  000010 
00  001462* 
00  000024 
00  000000* 
00  200000 
00  001622* 
00  001457* 
00  000000 


001631'  270000  001632' 


001632' 
001633' 
001634' 
001635' 
001636' 
001637' 
001640' 
001641' 
001642' 
001643' 
001644' 
001645' 
001646' 
001647' 
001650' 
001651' 
001652' 
001653' 
001654' 
001655' 
001656' 


037  00 
200  00 
603  00 
263  17 
037  00 
200  00 
037  15 
037  00 
037  00 
200  00 
037  15 

Oi/'  00 
037  00 
200  00 
037  15 
037  00 
037  00 
200  00 
037  15 
037  00 
263  17 


001663' 
001664' 
001665' 
001666' 
001667' 


00 
00 


0  00 
0  00 


00 
00 


0  00 


00 
00 
00 
00 


0  00 


00 
00 
00 
00 


0  00 


00 
00 
00 
00 


005303' 

000000* 

000200 

000000 

005313' 

005716' 

000000 

005156' 

005317' 

005721 ' 

000000 

005156' 

005325' 

005720' 

000000 

005156' 

005333' 

005717' 

000000 

005156' 

000000 


001657'  000000 

001660'  442000 

001661'  000100 

001662'  302000 


001000 
442000 
001100 
302000 


010000 
000040 
012004 
005440 

110000 
000050 
112004 
005450 

mm 


:   Routine  to  start  port,  wait  20  msec,  then  read  count 
T50SS 


GO 

LSH 

GO 

MOVE  I 

GO 

MOVE  I 

GO 

MOVEI 

60 

GO 

RTN 


IPACLR 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

*D20 

ODELAY 

1.TSTEBF 

LDCSR 

RDEBUF 


;  Error  messages 

MA50:   LAST! CALL !TXALL!MA50PN 


do  a  'port  clear' 

position  start  address 

set  up  start  address 

get  MPRUN  bit 

start  the  port 

set  up  for  20  msec 

do  the  wait 

set  up  to  read  EBUF 

stop  the  port 

read  EBUF  data 

return 


print  timing  data 


MA50PN:  TMSGC 
MOVE 
TLNE 
RTN 
TMSGC 
MOVE 
PNTDEC 
TMSG 
TMSGC 
MOVE 
PNTDEC 
TMSG 
TMSGC 
MOVE 
PNTDEC 
TMSG 
TMSGC 
MOVE 
PNTDEC 
TMSG 
RTN 

;  Microcode: 

T50M:   MUORD 

MUORD 


<T  field  set  did  not  slow  port  by  33X> 

;  get  switches 

;  inhibit  text? 

;  yes  -  exit 


SCOSW 
TXTINH 

<Count  (TFld=0):  > 
SAVCNl 

<•> 

<Count  (TFld=l)  minimum: 
SAVCN4 

<•> 

<Count  (TFld=1)  maximum: 
SAVCN5 

<•> 

<Count  (TFld=l)  actual: 
SAVCN2 

<•> 


get  count 
print  it 


get  count 
print  it 


get  count 
print  it 


get  count 
print  it 

return 


<ADDR=0, JMAP,J=1 ,S0A,AND,D=2> 

<JMAP,J=1, SOB, PLUS. D=2, CRY, 0ENA,SELE,MGC=4> 


0 
1 


MWORD   <ADDR=10,JMAP,J=11,S0A,AND,D=2,TIM=1>  ;  10 

MWORD   <JMAP,J=11, SOB, PLUS, D=2, CRY, TIM=1,OENA,3ELE,MGC=4>  ;  11 
-1 


DFPTAA 
DFPTAA 

1672 

1673 

167A 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

168A 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 
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SEQ  1918 


001670' 
001671' 
001672' 
001673' 
001674' 
001675' 


001676' 
001677' 
001700' 
001701' 
001702' 
001703' 
001704' 


254  00 

100604 

002116' 

005275' 

000000 

mill 


0  00  001676' 
000051 
005341 ' 
000000 
002141' 

mill 


001710' 
001711' 
001712' 
001713' 
001714' 


201 
2oJ 
201 
260 
263 
200 
251 


001705'  400 
001706'  201 
001707'  402 


260 
260 
254 
254 
474 


00 
17 
01 
17 
17 
00 
00 


15 
06 
00 


17 
17 
00 
00 
15 


00 
00 
00 
00 
00 
00 
00 


000000' 

001563* 

002116' 

001565* 

000000 

005344' 

002011' 


00  000000 
00  001722' 
00  001351* 


/jf  ******************************************************************** 
*  Test  51  -  CBUS  Store 

Description:  Verify  that  the  microcode  command  'MPSTORECBUS' 
does  indeed  cause  the  logout  data  to  be  stored 
when  the  command  is  issued. 

Procedure:    KL>  Port  Clear 

KL>  Set  up  a  CCW  list  to  transfer  1  word 

KL>  Start  up  port 

UC>  Start  data  transfer 

UC>  Read  a  word  and  assert  'MPSTORECBUS'  and  'MPSTOPCBUS' 

KL>  Read  logout  data  and  verify  correct 

Failure:     — 

/jf******************************************************************** 


00 
00 
00 
00 
00 


001616* 
000615* 
001721' 
001711' 
000000 


Test  data 

TSTC51:  JRST    T651 

CBUS!NDMP!NDC8!ZCBUS!51 
T51M,.[ASCIZ  •CBUS  Store*: 
[EXP  MLAST!Ci:,,0 
TSTC52 
-1 

;  Start  test 


T651:   MOVEI 
GO 

MOVEI 
GO 
RTN 
MOVE 
BLT 

;  Initialization 


ZA 

TRACE 
1,T51M 
TLOAD 

[TS51CD.,TS51TC] 
TS51TC+^ 


TL51 


SETZ 

MOVEI 

SETZM 


ERFL6, 
6,TS51 
TSTSUB 


Loop  on  test  execute  table  entries 


TA51 
TB51 


GO 

GO 
JRST 
JRST 
SETO 


IPACLR 

TEXEC 

TX51 

TB51 

ERFL6, 


;  go  start  test 
;  test  mask 


;  failure  test  table 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 

set  up  correct  logout  data 


clear  error  flag 

get  test  table  address 

initialize  subtest  number 


clear  port 
execute  table  entry 
end  of  sstep  table 
keep  looping  after  call 
error  occurred 
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SEQ  1919 


1722 

1723 

1724 

1725 

172C 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

17A0 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 


001715'  027 

001716*  254 

001717'  254 

001720'  322 


00 
00 
00 
15 


00  002017* 
00  001705* 
00  001721' 
00  001710' 


001721'  263  17  0  00  000000 


001722' 
001723' 
001724' 
001725' 
001726' 


001727' 
001730' 
001731' 
001732' 
001733' 
001734' 
001735' 
001736* 
001737' 
001740' 
001741' 
001742' 
001743' 
001744* 
001745* 
001746' 


001747' 
001750' 
001751* 
001752* 
001753* 
001754* 
001755* 


140000 
040000 
140000 
340000 
000000 


551 

2u' 


01 
02 
400  03 
260  17 

201  00 

202  00 
4C0  01 
260  17 
263  17 


001727* 

000000 

001747* 

000000 

000000 


201  01  0 
242  01  0 
260  17  0 
201  01  0 
260  17  0 
200  01  0 
260  17  0 


201  00 
260  17 
260  17 
200  01 
251  01 
336  00 
254  00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


005000 

000001 

001620* 

000010 

001626* 

005103' 

000644* 

001403* 

000001 

000000 

000650* 

123456 

001736* 

000000 

001733* 

000000 


0  00  000001 
0  00  001624* 
0  00  000000* 
0  00  005345' 
0  00  002005' 
0  00  030037 
0  00  001766' 


Handle  error  printouts  and  scope  looping 


MA51 
TL51 
TX51 
ERFL6,TA51 


SCOPER 
JRST 
JRST 
JUMPE 

;  End  of  test 

TX51:   RTN 

;  Test  Execute  Table,  as 

TS51: 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  return 


(CMD, parameters) 


TTABLE  (TCALL,TS51IN) 

TTABLE  (TSTART,0) 

TTABLE  (TCALL,TS51CH) 

TTABLE  (TEXIT) 

TTABLE  (TLAST) 


;  Initialize  data  transfer 

TS51IN:  MOVEI  1,5000 

LSH  1,1 

GO  LDRAR 

MOVEI  l.MPRUN 

GO  LDCSR 

MOVE  l.CCBUFSZ,,C8UFJ 

GO  CHINIT 

HRRZI  1,BUFF 

MOVEI  2,1 

SETZ  3, 

GO  GENCCU 

MOVEI  123456 

MOVEM  BUFF 

SETZ  1, 

GO  LDCSR 
RTN 

;  Inspect  logout  data  to  see  if  correct 

TS51CH:  MOVEI  1 

GO  ODELAY 

GO  6ETL0G 

MOVE  1,[L0GBUF..TS51T9] 

BLT  l,TS51TB+2 

SKIPN  USER 

JRST  TS51C0 


initialize  data  transfer 
start  up  port 
check  if  completed 
exit  if  error  yet 
end  of  table 


get  start  address 

position  correctly 

load  the  register 

get  CSR  data 

start  up  the  port 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 


fill  specifier 
CCW  list 
buffer 


clear  zero 
generate  a 
initialize 
contents 
clear  CSR  data 
stop  the  port 
return 


set  up  a  small  delay  of  1 
millisecond 

?el  channel  status  words 
ransfer  to  TS51T8 

user  mode? 
no  -  continue 


DFPTAA 
DFPTAA 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 
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SEQ  1920 


001756' 
001757' 
001760' 
001761' 
001762' 
001763' 
001764' 
001765' 


135  00  0 
137  00  0 
370  00  0 
137  00  0 
201  01  0 
336  00  0 
257  01  0 
137  01  0 


00  005346' 
00  005347' 
00  000000 
00  005350' 
00  000000* 

00  000000* 

01  000000 
00  005351 ' 


001/66' 
001767' 
001770' 
001771' 
001772' 
001773' 
001774' 
001775' 
00V76' 
001777' 
002000' 
002001  • 
002002' 

002003' 
002007' 


200 
312 
47^ 
200 
312 
474 
200 
312 
474 
336 
350 
350 
263 


01  0  00  002003' 
01  0  00  002007' 
15  0  00  000000 
01  0  00  002004' 
01  0  00  002010' 
15  0  00  000000 
01  0  00  002005' 
01  0  00  002011' 
15  0  00  000000 
00  0  00  000015 

00  0  17  mm 
00  0  17  mm 

17  0  00  000000 


002013'  200000 

002014'  500000 

002015'  600000 

002016'  000000 


002017'  140000 
C0202C'  270000 


000000* 
000000* 
000000* 
000000 


005352' 
002021  • 


002021  • 
002022' 
002023' 
002024' 
002025' 
002026' 
002027* 


200  01 
603  01 
037  00 
607  01 
037  00 

201  03 
260  17 


00  001633* 
00  000200 
00  005365' 
00  000200 
00  005370' 
00  002007' 
00  002037* 


Set  up  correct  data  in  user  mode 

LDB  [POINT  22,TS51TB+1,35J 

DPB  [POINT  22JS51TC+1.35] 

SOS 

DPB  [POINT  22.TS51TC.35] 

HOVEI  1,BUFF+1 

SKIPN  UDEBUG 

MAP  1,(1) 

DPB  1. [POINT  22.TS51TC+2,353 

Now  do  the  compare 


CLP 

CLP  dddress 


TS51C0: 


MOVE 

CAME 

SETO 

MOVE 

CAME 

SETO 

MOVE 

CAME 

SETO 

SKIPN 

AGS 

AGS 

RTN 


1.TS51TB 

1,TS51TC 

ERFLG, 

l,TS5lTB+l 

1,TS51TC+1 

ERFLG, 

l,TS5lTB+2 

l,TS51TC+2 

ERFLG. 

ERFLG 

-6(P) 

-6(P) 


yes  -  ignore  the 

save  the  correct 

subtract  1 

save  the  correct  ICW  address 

get  correct  buffer  address 

debug  mode? 

no  -  map  to  physical 

save  it  in  correct  Location 


get  ICUA 

correct? 

no  -  flag  error 

get  status  word  1 

correct? 

no  -  flag  error 

get  status  word  2 

correct? 

no  -  flag  error 

error  flag  set? 

no  -  set  up  nood  return 

set  up  return 

return 

actual  data 
correct  data 

initialization  data 


TS51TB:  BLOCK   4 
TS51TC:  BLOCK   4 

TS51CD:  200000, ,CBUF 
500000., CBUF+1 
600000,. BUFF+1 
0 

;  Error  messages 

MA51:   MS6!TXN0T![ASCIZ  /'MPSTORECBUS*  did  not  cause  logout  data  to  be  updated/] 


LAST! CALL ITXALLIMA51PN 


MA51PN:  MOVE 
TLNE 
TMSGC 
TLNN 
TMSGC 
HOVEI 
60 


1,SC0SU 

1,TXTINH 

<Logout  (C):> 

1,TXTINH 

<Logout  Data  (Correct) 

3,TS51TC 

MA51LG 


print  logout  data 

get  switches 

full  printout? 

no 

full  printout? 

yes 

get  address  of  correct  oata 

print  it 


I  1908 
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SEQ  1921 


1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1853 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 


002030' 
002031 ' 
002032' 
002033' 
002034' 
002035' 
002036' 


603  01 
037  00 
607  01 
037  00 
201  03 
260  17 
263  17 


0  00  000200 
0  00  005375' 
0  00  000200 
0  00  005400' 
0  00  002003' 
0  00  002037' 
0  00  000000 


002037' 
002040' 
002041 ' 
002042' 
002043' 
002044' 
002045' 
002046' 
002047' 
002050' 
002051 • 
0020S2' 

002053' 
002054' 
002055' 
002056' 
002057' 
002060' 
002061 ' 
002062' 
002063' 
002064' 
002065' 
002066' 
002067' 
002070' 
002071 ' 
002072' 
002073' 
002074' 
002075' 
002076' 
002077' 
002100' 
002101' 
002102' 
002103' 
002104' 


00 


607  01  0 
0 
0 
.  0 
13  0 


254 

037  00 
200  00 
037  ~ 
037  00 
200  00  0 
037  13  0 
037  00  0 
200  00  0 
13  0 
17  0 


037 
263 


00  000200 
00  002053' 
00  005405' 
03  000000 
00  000000 
00  005407' 
03  000001 
00  000000 
00  005411' 
03  000002 
00  OOOOOC 
00  OOOO^'O 


037  00 
200  00 
037  13 
037  00 
200  02 
603  02 
037  00 
6u'  02 
037  00 
607  02 
037  00 
603  02 
037  00 
603  02 
037  00 
603  02 
037  00 
603  02 
037  00 
603  02 
037  00 
603  02 
037  00 
037  00 
135  00 
037  16 


00 
03 
00 
00 
03 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


005413' 

000000 

000000 

005416' 

000001 

200000 

005420' 

100000 

005422' 

040000 

005424' 

020000 

005425' 

000400 

005426' 

000200 

005431' 

000100 

005433' 

000040 

005435' 

000020 

005437' 

005440' 

005444' 

000003 


TLNE 

TMSGC 

TLNN 

TMSGC 

MOVE  I 

GO 

RTN 


I.TXTINH 
<Logout  (A):> 
1,TXTINH 
<Logout  Data 
3,TS51TB 
MA51LG 


(Actual) :> 


Print  logout  data 


MA51LG:  TLNN 
JRST 
TMSGC 
MOVE 
PNTHW 
TMSGC 
MOVE 
PNTHW 
TMSGC 
MOVE 
PNTHW 
RTN 

MA51LA:  TMSGC 
MOVE 
PNTHW 
TMSGC 
MOVE 
TLNE 
TMSG 
TLNN 
TMSG 
TLNN 
TMSG 
TLNE 
TMSG 
TLNE 
TMSG 
TLNE 
TMSG 
TLNE 
TMSG 
TLNF 
TMSG 
TLNE 
TMSG 
TMSG 
LDB 
PNTOCS 


I.TXTINH 
MA51LA 

<  ICW:   ) 
(3) 

<  SW1:  : 
1(3) 

<  SW2:  : 
2(3) 


<  ICW:   > 
(3) 

<  SWI:  > 
2,1(3) 
2.(181) 

<  MEM.PE> 
2,(182) 

<  ADR.PE> 
2,(183) 

<  WCO> 
2,(184) 

<  NXM> 
2,(189) 

<  LST.XFR.ERR> 
2,(1810) 

<  DEV.ERR> 
2,(1811) 

<  LG.WO 
2,(1812) 

<  SH.WO 
2,(1813) 

<  OVR> 

<  CLP  points  to: 
[POINT  22,2,35] 


full  printout? 

no 

full  printout? 

yes 

get  address  of  actual  data 

print  it 

return 


;  full  printout 

;  yes  -  continue 

;  get  initial  CW 

;  print  it 

;  get  status  word  1 

;  print  it 

;  get  last  CCW 

;  print  it 

;  done  -  return 


get  initial  CW 
print  it 

get  status  word 
MEM  PE? 

Jes  -  print  it 
DR  PE? 
yes  -  print  it 

Cico? 

yes  -  print  it 

NXM? 

yes  -  print  it 

LAST  XFER  ERROR? 

yes  -  print  it 

DEVICE  ERROR? 

yes  -  print  it 

LONG  WC? 

yes  -  print  it 

SHORT  WC? 

yes  -  print  it 

OVERRUN? 

yes  -  print  it 

;  fetch  the  actual  z\.:i   address 
;  print  in  octal 


,  J 


r 


Q  1909 


DFPTAA 
DFPTAA 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

187A 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

188A 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

189A 

1895 

1896 

1897 

1898 

1899 

1900 
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SEQ  1922 


002105* 
002106' 
002107' 
002110' 
002111' 
002112' 
002113' 
0021K' 
002115' 


002116' 
002117' 
002120' 
002121' 
002122' 
002123' 
002124' 
002125' 
002126' 
002127' 
002130' 
002131' 
002132' 
002133' 


037  00  0  00  005445' 
037  00  0  00  005453' 
20 )  02  0  03  000002 
155  00  0  00  005455' 
037  15  0  00  000000 
037  00  0  00  005456' 
135  00  0  00  005444' 
037  16  0  00  000003 
263  17  0  00  000000 


000000 
000000 
000100 
001400 
000200 
001000 
000300 
001000 
00C400 
732001 
000500 
000000 
000600 
000000 


002134' 
002135' 
002136' 
002137' 
002140' 


500050 
GuJOOO 
500150 
000000 
117717 


010200 
004040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402340 
000140 
004340 
060000 
000040 


010100 
004040 
010020 
002040 
777777 


TMSGC 

TMS6 

MOVE 

LDB 

PNTDEC 

TMS6 

LDB 

PNTOCS 

RTN 

;  Microcode 

r51M:   MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 

MUORD 


<  SU2  (Last  Updated  CCU):  > 

<  WC  =  > 
2,2(3) 
[POINT  11,2,13] 


<.  ADR  =  > 

[POINT  22,2,35] 


fetch  last  CCW 
gets  word  count 
print  it  in  decimal 


gets  address 
print  it  in  octal 
and  exit 


<ADDR=0, JMAP,J=1 ,SELC,M6C=200> 

<CJP,J=3,D=1,CENA,CCCA> 

<JMAP,J=1,D=1> 

<C0NT.D=1,SELC,MGC=4> 

<C0NT,SD0,0R,B=3,D=2,SEL«,MGC=200> 

<CONT,SELC,MGC=140> 

<JMAP.J=6> 


Initialization  steps 

MUORD   <ADDR=5000,JMAP,J=5001,SELC,MGC=100> 

MUORD   <JMAP,J=5001,SELM,MGC=20> 

-1 


0 
1 
2 
3 
4 
5 
;  6 


;  5000 
;  5001 


Q  1910 


! 

.DFPTAA 
IDFPTAA 


1901 

1902 

1903 

190A 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

191A 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

192A 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

193A 

1935 

1936 

1937 

1938 

1939 

1940 

19A1 

1942 

1943 

1944 

1945 
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SEQ  1923 


002141'  254  00  0  00  002146' 

002142'  100604  000052 

002143'  002200'  005460' 

002144'  005464'  005466' 

002145'  mm   mm 


002146' 
002147' 
002150'  201 
002151'  ■  ■ 
002152' 


201  00  0  00  000000' 

260  17  0  00  001677* 

00  002200' 

00  001701* 

00  000000 


__  01  0 
260  17  0 


^o< 


17  0 


002153'  400  15  0  00  000000 

002154'  260  17  0  00  001710* 

002155'  402  00  0  00  001707* 

002156*  201  06  0  00  002170' 


002157'  260  17  0  00  000523* 

002160'  254  00  0  00  002167' 

002161'  254  00  0  00  002157' 

002162'  474  15  0  00  000000 


/((♦**«***»*****»****»***♦************  ********************************* 
*  Test  52  -  CBUS  Input  Buffer 

Descriptior,;  Verify  that  the  CBUS  Input  Buffer  is  cleared  by  a 
'Port  Clear'. 

Procedure:    KL>  Port  Clear 

<L>  Loao  microcode 

KL>  Single  step  3  times  to  read  the  formatter  into 
the  EBUF.  Verify  that  the  ERUF  contains  O's. 

Failure:     — 
#•*********♦♦♦♦*********♦*****•******************************•****♦** 


;  go  start  test 
;  test  mask 


;  Test  data 

TSTC52:  JRST    TG52 

CBUS1NDMPINDCBIZCBUS152        - 

T52M,,[ASCI2  *CBUS  Input  Buffer*] 

CEXP  C14,«LAST!C4]..CEXP  C20.MLAST1C7J 

-1  ;  failure  test  table 

;  Start  test 


TG52:   MOVE  I  Ik 

GO  TRACE 

MOVE  I  1.T52M 

GO  TLOAD 
RTN 

;  Initialization 

TL52:   SETZ  ERFLG, 

GO  IPACLR 

SETZM  TSTSUB 

MOVEI  6.TS52 

;  Loop  on  single  step  table  entries 


TA52: 


GO 

JRST 
JRST 
SETO 


BEXEC 
TX52 
TA52 
ERFLG, 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  sstep  table  address 


;  execute  table  entry 

;  end  of  sstep  table 

;  keep  looping  after  call 

;  error  -  EBUP  data  incorrect 


DFPTAA 
DFPTAA 

19A6 

19A7 

1948 

19A9 

1950 

1951 

1952 

1953 

195A 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

196A 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

197A 

1975 

1976 

1977 

1978 

1979 

1980 

1931 

1982 

1983 

198A 

1985 

1986 
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SEQ  1924 


DFI 

DPI 


002163'  027  00  0  00  002176' 

002164"  254  00  0  00  002153' 

002165'  254  00  0  00  002167' 

002166'  322  15  0  00  002157' 


002167'  263  17  0  00  000000 


002170'  100200  030004 

002171'  000000  000000 

002172'  000000000000* 

002173'  100300  000002 

002174'  000000  000000 

002175'  000000  000000 


002176' 
002176' 
002177' 


002200' 
002201 ' 
002202' 
002203' 
002204' 
002205' 


140000  005470' 
000000000000* 


000000 
Ou ' 000 
000100 
732000 
000200 
431000 


002206'  000300 

002207'  000000 

002210'  000400 

002211'  441000 

002212'  mm 


010004 
004040 
000200 
002340 
022004 
005040 

040100 
004040 
042004 
005040 

mm 


:   Handle  error  printouts  and  scope  Looping 

SCOPER  MA52 
JRST  TL52 
JRST  TX52 
JUMPE   ERFLG,TA52 


print  error  message 

loop  on  error 

altmode  exit 

do  next  sstep  table  entry 


;  End  of  test 

TX52:   RTN  ;  return 

;  Sstep  table,  with  EBUF  data,  as:  (CMD.*Steps, Start  addr,End  Addr,EBUF  data) 

TS52:   ATABLE  (SSSTRT,2,3,4,0) 

ATABLE  (SSCALL.IPACLR) 
ATABLE  (SSSTRT,3,0,2,0) 

ATABLE  (SSLAST) 
;  Error  messages 
MA52:   MSG!TXNOT!CASCIZ  /CBUS  Input  Buffer  (read  into  EBUF)  not  cleared  by  a  'PORT  CLEAR'/] 

LASTICALLITXALLIBBPNT         ;  print  sequencer  data 
;  Microcode: 


T52M:   MWORD  <ADDR^0,JMAP,J=1 ,D=1  ,SELC,MGC=4> 

MWORD  <CONT,SD0,OR,D=2,SELM,MGC=200> 

MWORD  <JMAP,J=2,S0A,OR,D=1,OENA,SELE,MGC=4> 

MWORD  <JMAP,J=4,SELC.MGC=100> 

MWORD  <JMAP,J=4,S0A,D=1,AND,0ENA,SELE.MGC=4> 

-1 


0 
1 
2 

3 
;  4 


L_ 
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SEQ  1925 


1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 


fflitiHiittltlt  ************************************  ************************ 

*   Test  53  -  Parity  Predictor  -  CBIN  to  Fmtr/MPINDSTCOMP=0 


Description: 


Verify  that  the  parity  pre 
when  moving  data  from  CBIN 
'MPINDSTCORP'  not  asserted, 
half  of  the  predictor. 


redictor  works  correctly 
to  the  formatter  with 


This  verifies  one 


002213' 
002214' 
002215' 
002216' 
002217' 
002220' 
002221' 
002222' 
002223' 
002224' 


002225' 
002226' 
002227' 
002230' 
002231 ' 


254  00 
IUJ604 
002445' 
005517' 

000000 
000000 
000000 
000000 
000000 
777777 


0  00  002225' 
000053 
005505' 
005520' 
002600' 
003150' 
003471' 
004013' 
004352' 
777777 


Procedure:    KL>  Port  Clear  .   ,„   ^ 

KL>  Set  up  a  CCW  list  to  transfer  60  words 
KL>  Start  up  port 

UC>  Read  word  from  CBUS  into  CBIN 

UC>  Load  formatter  with  word  from  CBIN 

UC>  Test  leftmost  bit  of  data  word  -  this  should 

be  the  setting  of  'CCMVRPARCHK'. 
UC>  if  correct  -  set  bit  12  (DISABLE  Complete) 
UC>  if  not  correct  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  the  above  steps  for  each  of  the  60  data 
words. 

Failure:     — 
fft******************************************************************* 

Test  data 

TSTC53:  JRST    TG53  ;  go  start  test 

CBUS1NDMPINDCB1ZCBUSI53       ;  test  mask 
T53M.,[ASCIZ  *Parity  Predictor  -  CBIN  to  Fmtr/MPINDSTCOMP=0*] 
[EXP  MLASTlCin..CEXP  C12,C14,MLAST!C21] 
TSTC54  ;  failure  test  table 

TSTC55 
TSTC56 
TSTC57 
TSTC60 
-1 


DFPTAA 
DFPTAA 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


0  00  000000' 
0  00  002147* 
0  00  002445' 
0  00  002151* 
0  00  000000 


TG53: 


MOVE  I 

GO 

MOVEI 

m 


ZA 

TRACE 
1,T53M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


„J 


1    r 


13 


OFPTAA 
DFPTAA 

203A 

2035 

2036 

2037 

2038 

2039 

2040 

20A1 

20A2 

20A3 

20AA 

20A5 

20A6 

20A7 

20A8 

20A9 

2050 

2051 

2052 

2053 

205A 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

206A 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

207A 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

208A 

2085 

2086 
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002232'  AGO  15  0  00  000000 

002233'  260  17  0  00  0021 5A* 

00223A'  A02  00  0  00  002155* 

00^235'  201  06  0  00  002267' 


002236'  260  17  0  00  00'.  711* 

002237'  25A  CO  0  00  002266' 

0022A0'  25A  00  0  00  002236' 

0022Ar  A7A  15  0  00  000000 


0022A2' 
0022A3' 
0022AA' 
0022A5' 
0022A6' 
0022A7' 
002250' 
002251' 
002252' 

002253' 
0O225A' 
002255' 
002256' 
002257' 
002260' 
002261 • 


201  01 
2A2  01 
260  17 

201  01 
260  17 
260  17 

202  01 
202  01 
350  00 


201 
2A2 
260 
2u' 
260 
260 
202 


01 
01 
17 
01 
17 
17 
01 


0  00  000300 
0  00  000001 
0  00  001731* 
0  00  220010 
0  00  001 7A5* 
0  00  001627* 
0  00  005730' 
0  00  00223A* 
0  00  002251* 

0  00  000200 
0  00  000001 
0  00  0022AA* 
0  00  220010 
0  00  0022A6* 
0  00  0022A7* 
0  00  005723' 


002262'  027  00  0  00  n02A30' 

002263'  25A  00  0  00  002232' 

00226s'  25A  00  0  00  002266' 

002265'  322  15  0  00  002236' 


002266'  263  17  0  00  000000 


002267'  1A0000  002273' 

002270'  OAOOOO  001000 

002271'  2A0002  000000 

Q02272'  000000  OOOOCO 


Initialization 


TL53: 


SETZ 
60 

SETZM 
MOVE  I 


ERFL6. 
IPACLR 
TSTSUB 
6JS53 


;  Loop  on  test  execute  table  entries 


TA53: 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX53 
TA53 
ERFL6, 


Get  miscellaneous  data 

MOVE I  1,300 

LSH  1,1 

00  LDRAR 

MOVEI  1.TSTEBF!MPRUN!SINCYC 

GO  LDCSR 

GO  RDEBUF 

MOVEM  1,SAVSEG 

MOVEM  1, TSTSUB 

AGS  TSTSUB 

MOVE]  1,200 

LSH  1,1 

GO  LDRAR 

MOVEI  1,TSTEBF!MPRUN!SINCYC 

GO  LDCSR 

GO  RDEBUF 

MOVEM  1,SAVDAT# 


SEQ  1926 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  test  table  address 


execute  table  entry 
end  of  test  execute  table 
keep  looping  after  call 
error  occurred 


get  start  address 
position  correctly 
load  the  register 
get  start  data 
start  up  the  port 
read  EBUF  data 
save  segment  number 
set  up  subtest  number 


get  start  address 
position  correctly 
load  the  register 
get  start  data 
start  up  the  port 
read  EBUF  data 
save  data  read 


Handle  error-   printouts  ^nd  scope  '.ooping 


SCOPER 
JRST 
JRST 
JUMPE 


MA53 
TL53 
TX53 
ERFL6,TA53 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


;  End  of  test 

TX53:   RTN 

;  Test  Execute  Table,  as: 

TS53: 


;  return 
(CMD, parameters) 


TTABLE  (TCALL,TS53DA) 

TTABLE  (TSTART,1000) 

TTABLE  (TCHECK,2) 

TTABLE  (TLAST) 


set  up  data  transfer 
start  up  port 
check  if  completed 
end  of  table 


DFPTAA 
DFPTAA 

2659 

2660 

2661 

2662 

2663 

266A 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

267A 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

268A 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

269A 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

270A 

2705 

2706 

2707 

2708 

2709 

2710 

2711 


DFPTAA 
DFPTAA 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 
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SEQ  1927 


002273' 
002274' 
002275' 
002276' 
002277' 
002300' 
002301 ' 
002302' 
002303' 
002304' 
002305' 
002306' 
002307' 
002310' 
002311' 
002312' 
002313' 
C 0231 4' 
002315' 
002316' 
002317' 


002320' 

002321 ' 

002322' 

0023^3' 

002324' 

002325' 

002326' 

002327' 

002330 

002331 ' 

002332' 

002333' 

002334' 
002335' 
002336' 
002337' 
002340' 
002341 ' 
002342' 
002343' 
002344' 
002345' 
002346' 
002347' 


400 

260 

201 

242 

260 

201 

260 

201 

260 

400 

260 

200 

260 

551 

201 

400 

260 

200 

251 

476 

263 


01 

17 

01 

01 

17 

01 

17 

00 

17 

01 

17 

01 

17 

01 

02 

03 

17 

01 

01 

00 

17 


Set  up  data  transfer 


0  00 
0  00 


00 
00 
00 
00 


0  00 


00 
00 
00 
00 
00 
00 


0  00 


00 
00 
00 
00 
00 
00 


0  00 


000000 

002257* 

005000 

000001 

002255* 

000010 

002274* 

000001 

001750* 

000000 

002301* 

005103' 

001735* 

001743* 

000110 

000000 

001741* 

005523' 

000000* 

005730' 

000000 


TS53DA:  SETZ 
GO 

MOVE  I 
LSH 
GO 

MOVEI 
GO 

MOVEI 
GO 
SETZ 
GO 
MOVE 
GO 

HRRZI 
MOVEI 
SETZ 
GO 

MOVE 
BLT 
SETOM 
RTN 


000000 
000000 
400001 
OuJOOO 
400003 
000001 
000001 
000001 
OOOOPO 
40000 , 
000001 
000001 

40000 . 
000000 
000000 
000000 
000001 
000001 
400003 
000001 
400001 
400001 
400003 
000001 


000000 
000000 
000020 
000020 
000000 
000000 
0000?0 
00002O 

ncocoo 

0;;  ,;  iO 
000020 

'jOOOOl 
000001 
000021 
000021 
DOOOOl 
000001 
000021 
000021 
000001 
000021 
000001 
000021 


;  Data 
TS538U: 


1, 

LDCSR 

1,5000 

1.1 

LDRAR 

1 ,MPRUN 

LDCSR 

1 

ODElAY 

1. 

LDCSR 

1,CCBUFSZ,,CBUF] 

CHINIT 

1,8UFF 

-'.*D72 

3, 

GENCCU 

1,CTS53BU,.BUFF] 

1,BUFF+*D71 

SAVSEG* 


clear  CSR  data 
write  CSR  register 
get  start  address 
position  correctly 
load  the  register 
get  start  data 
start  up  the  port 
wait  a  bit  (1  msec) 

clear  CSR  data 

stop  the  port 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

copy  the  data  for  this  test 

into  the  data  buffer 
initialize  test  segment 
return 


0 
0 

400001,, 20 
20 

400003,, 0 
1,,0 
1.,20 

O" 

400001,, 20 
1,,0 
1,,20 

400001,,! 
1 

I'-l 
466003,, 21 

466001,,! 
400001,, 21 
400003,, 1 
1,,21 


DFPTAA 
DFPTAA 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 


DFPTAA 
DFPTAA 

2139 

2H0 

2K1 

2H2 

2U3 

214A 

21A5 

2146 

21A7 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 
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002350' 
002351 • 
002352* 
002353' 
002354' 
002355' 
002356' 
002357' 
002360' 
002361 • 
002362' 
002363' 

002364' 
002365' 
002366' 
002367' 
002370' 
002371 ' 
002372' 
002373' 
002374' 
002375' 
002376' 
002377' 

002400' 
002401 ' 
002402' 
002403' 
002404' 
002405' 
002406' 
002407' 
002410' 
002411' 
002412' 
002413' 

002414* 
002415' 
002416' 
002417' 
002420' 
002421 ' 
002422' 
002423' 
002424' 
002425' 
002426' 
002427' 


400001 
000000 
000000 
000000 
000001 
000001 
400003 
000001 
400001 
400001 
400003 
000001 

400001 
000000 
000000 
000000 
000001 
000001 
40C003 
000001 
400001 
400001 
400003 
000001 

400001 
000000 

oonooo 

GuJOOO 
000001 
000001 
400003 
000001 
400001 
400001 
400003 
000001 

000000 
000000 
400001 
000000 
400003 
000001 
000001 
000001 
000000 
400001 
000001 
000001 


00n002 
00U002 
000022 
000022 
000002 
000002 
000022 
000022 
000002 
000022 
000002 
000022 

000004 
000004 
000024 
000024 
000004 
000004 
000024 
000024 
000004 
000024 
000004 
000024 

000010 
000010 
000030 
000030 
000010 
000010 
000030 
000030 
000010 
000030 
000010 
000030 

000003 
000003 
000023 
000023 
000003 
000003 
000023 
000023 
000003 
000023 
000003 
000023 
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400001,, 2 

2 

22 

22 

]'i 

466003,, 22 

466001,, 2 
400001., 22 
400003,,  2 
1,,22 

400001,, 4 
4 

24 

]-t 

466003,, 24 

466001,, 4 
400001,, 24 
400003,, 4 
1,,24 

400001,,  10 
10 


1,.10 

1**10 
466003,, 30 

1**30 

466001,, 10 
400001,, 30 
400003,, 10 
1,.30 


400001,, 23 

400003,, 3 
1,,3 
1,,23 
1,.23 

400001,, 23 

1,.23 


SEQ  1928 


DFPTAA 
DFPTAA 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

281 C 


M6 
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SEQ  1929 


2191 

2192 

2193 

21 9A 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

220A 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

iin 

2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 


002430'  140000  005524* 
002431'  240000  002433' 
002432'  000000000000# 


;  Error  messages 

MA53:   MS6!TXN0T!CASCIZ  /Parity  Predictor  produced  incorrect  result:/] 


CALL!TXN0T!MA53PN 
LAST! CALL !TXALL!TTPNT 


002433' 
002434' 
002435' 
002436' 
002437' 
002440' 
002441 ' 
002442' 
002443' 
002444' 


002445' 
002446' 
002447' 
002450' 
002451 ' 
002452' 
002453' 
002454' 
002455' 
002456' 
002457' 
002460' 


002461 ' 
002462' 
002463' 
002464' 
002465' 
002466' 
002467' 
002470' 
002471 • 
002472' 
002473' 
002474' 
002475' 
002476* 
002477' 


200  01 
037  00 


200  00  0 
037  13  0 
200  01  0 
607  01  0 


037  00 
603  01  0 
037  00  0 
263  17  0 


00  005730* 

00  005535" 

01  002320' 

00  000000 

01  002320* 
00  400000 
00  005541  * 
00  400000 
00  005553* 
00  000000 


MA53PN:  MOVE 
TMSGC 
MOVE 
PNTHU 
MOVE 
TLNN 
TMSGC 
TLNE 
TMSGC 
RTN 


1,SAVSEG 

<  Data  in  CBIN; 

TS53BU(1) 

1,TS53BU(1) 
1 .400000 


print  result 
print  test  data 

get  test  segment 

get  data  word 
print  it 
get  data  word 
should  be  cleared? 


<  'CCMVPARCHK*  should  not  be  asserted,  but  is> 
1,400000  ;  should  be  set? 

<  *CCMVPARCHK*  should  be  asserted,  but  isn*t> 

;  return 


100000 
000000 
000000 
000000 
000100 
000000 
000200 
342002 
0oJ301 
001000 
000400 
000000 


000501 
001000 
000600 
431430 
000752 
001400 
001000 
001000 
001100 
001400 
001252 
001000 
001300 
402452 
001400 
000000 


000030 
002000 
100000 
000300 
010000 
000220 
000000 
400340 
000000 
000020 
060000 
000040 


030000 
000020 
110000 
120060 
000000 
130060 
130000 
000040 
130000 
130060 
000000 
000040 
150000 
570460 
050000 
000040 


;  Microcode 

Read  1st  word 

T53M:   MWORD  <ADDR=1000.JZ,SELM,MGC=30> 

MUORD  <ADDR=0,LDCT,J=10> 

MWORD  <RPCT,J=1> 

MWORD  <C0NT,S0B,AND,B=5,D=2> 

MWORD  <CJS,J=100,D=1> 

MWORD  <JMAP,J=6> 

;      Read  2nd  through  nth  words 

MWORD  <CJS,J=103,D=1> 

MWORD  <CJP.J=1 1 ,S0A,0R,A=3,D=1 ,CENA,CCMB> 

MWORD  <CJP,J=5200,D=1.CENA,CCMP> 

MWORD  <JMAP,J=13,D=1> 

MWORD  <CJP,J=13,D=1,CENA,CCMP> 

MWORD  <JMAP.J=5200,D=1> 

MWORD  <CJP,J=15,S0A.PLUS,A=5.B=5,D=2,CRY.CENA.CCLW> 

MWORD  <JMAP,J=5> 

All  done  -  set  STOP  and  STORE 


1000 

0 

1 

2 

3 

4 

5 
6 

7 

10 

11 

12 

13 

14 


-— ], 


J 


917 


DFPTAA 
OFPTAA 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 
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002501 • 
002502' 


002503' 
002504' 
002505' 
002506' 
002507' 
002510' 
002511' 
002512' 
002513' 
002514' 
002515' 
002516' 
002517' 
002520' 
002521 ' 
002522' 


001551 
000000 


010000 
001000 
010100 
001000 
010201 
001000 
010301 
001400 
010401 
001000 
010500 
001000 
010600 
732001 
010700 
001000 


002523'  020002 
002524'  431030 


002525'  030003 
002526'  431050 


002527'  500050 

002530'  000000 

002531'  500150 

002532'  000000 


002533' 
002534' 
002535' 
002536' 
002537' 
002540' 
0025.T 
002542' 
002543' 
002544' 
002545' 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 


000140 
004040 


000200 
004340 
100000 
000300 
020000 
000220 
050000 
000060 
030000 
000040 
000004 
004340 
000200 
402340 
000000 
000240 


002004 
005040 


002004 
005040 


010100 
004040 
010020 
002040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
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SEQ  1930 


MWORD       <JMAPJ=5100,SELC,MGC^-140> 


;  15 


Routine  to  read  a  word  from  CBUS.  through  formatter  into  R3 
(If  this  routine  is  started  at  101,  then  the  next  word  from 
the  CBUS  is  read). 


MWORD  <ADDR=100,C0NT,D=1 ,SELC,M6C=200> 

MWORD  <LDCT.J=10,D=1> 

MWORD  <RPCT,J=102,D=1> 

MWORD  <CJP.J=105,D=1,CENA,CCCA> 

MWORD  <JMAP,J=103,D=1> 

MWORD  <C0NT,D=1,SELC,M6C=4> 

MWORD  <CONT,SD0,OR,B=3,D=2,SELM,MGC=200> 

MWORD  <CRTN.D=1> 


100 
101 
102 
103 
104 
105 
106 
107 


Routine  to  read  R3  and  place  in  EBUF 

MWORD   <ADDR=20O,JMAP,J=200,S0A.A=3,OR,OENA,D=1,SELE,MGC=4> 

Routine  to  read  R5  and  place  in  EBUF 

MWORD   <ADDR=300,JMAP.J=300,S0A,A=5,OR,OENA,D=1,SELE,MGC=4> 


Initialization  step 

MWORD       <ADDR=5000 JMAP,J=5001 ,SELC,MGC=100> 

MWORD       <JMAP,J=5001,SELM,MGC=20> 


;  5000 
;  5001 


Subroutine  - 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 


Passed  -  Write  1  to  bit  12  of  CSR  register 
<ADDR=51OO.CONT,SD0,AND,B=2,D=2> 
<CONT, SOB, PLUS. B=2,D=2,CRY> 
<LDCT,J=26> 

<RPCT,J=5103, SAB, PLUS. A=2.B=2,D=2> 
<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4> 
<CJP,J=5107,CENA.CCGC,D=1,SELE,MGC=40> 


5100 
5101 
5102 
5103 
5104 
5105 


'^^ 


.....J 


"1 


DFPTAA 
DFPTAA 

2301 

2302 

2303 

230A 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

23U 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 
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002546' 
002547' 
002550' 
002551' 
002552' 
002553' 
002554' 


001400 
510651 
001000 
510700 
431010 
511051 
001000 


002555' 
002556' 
002557' 
002560' 
002561 ' 
002562' 
002563' 
002564' 
002565' 
002566' 
002567' 
002570' 
002571 ' 
002572' 
002573' 
002574' 
002575' 
002576' 
002577' 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 
431020 
52C552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 

iimi 


015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 
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SEQ  1931 


MWORD  <JMAP.J=5105,D=1>  ;  5106 

MWORD  <CONT,SOA,A=1,OR,D=1,SELE,M6C=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 

MWORD  <ADDR=5200,CONT,SD0,AND,B=2.D=2>  ;  5200 

MWORD  <C0NT. SOB, PLUS, B=2,D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 

MWORD  <RPCT,J=5203. SAB, PLUS. A=2,B=2,D=2>  ;  5203 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5204 

MWORD  <CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40>  ;  5205 

MWORD  <JMAP,J=5205,D=1>  ;  5206 

MWORD  <CONT,SOA,A=1,OR,D=1,SELE,M6C=200>  ;  5207 

MWORD  <JMAP,J=5210,D=1>  ;  5210 
-1 


1919 


DFPTAA 
DFPTAA 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

23A0 

23A1 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 
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SEQ  1932 


002600' 
002601 • 
002602' 
002603' 
002604' 
002605' 
002606' 
002607' 
002610' 


002611' 
002612' 
002613' 
002614' 
002615' 


254  00 

IUJ604 

003015' 

005517' 

000000 

000000 

000000 

000000 


00  002611 
000054 
005565' 
005520' 
003150' 
003471 ' 
004013' 
004352' 

mm 


*  Test  54  -  Farity  Predictor  -  CBIN  to  Fmtr/MPINDSTC0MP=1 

Description:  Verify  that  the  parity  predictor  works  correctly 
when  moving  data  from  CBIN  to  the. formatter  with 


'MPINDSTCOflP'  asserted, 
of  the  predictor. 


This  verifies  one 


wi 
half 


Procedure: 


KL>  Port  Clear  .   ,, 

KL>  Set  up  a  CCW  list  to  transfer  16  words 

KL>  Start  up  port 

UC>  Read  word  from  CBUS  into  CBIN 

UC>  Load  formatter  with  word  from  CBIN 

UC>  Test  leftmost  bit  of  data  word  -  this  should 

be  the  setting  of  'CCMVRPARCHK'. 
UC>  if  correct  -  set  bit  12  (DISABLE  Complete) 
UC>  if  not  correct  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  the  above  steps  for  each  of  the  16  data 
words. 

Failure:     — 

#***•*********•****•**♦•*•****•************************************** 

Test  data 

TSTC54:  JRST    TG54  ;  go  start,  test 

CBUS!NDMP!NDCB!ZCBUS!54        ;  test  mask   ,_„.,„ ^^ 

T54M,,[ASCIZ  *Parity  Predictor  -  CBIN  to  Fmtr/MPINDSTCOMP=r] 

[EXP  MLASTICli:.,[E)(P  C12,C14,MLAST!C21] 

TSTC55  ;  failure  test  table 

TSTC56 

TSTC57 

TSTC60 

-1 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
002226* 
003015' 
002230* 
000000 


TG54: 


MOVE  I 
60 

MOVE  I 
GO 
RTN 


ZA 

TRACE 
1,T54M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/ verify  it 

failed  -  exit  test 


1920 
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SEQ  1933 


2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 


002616*  400  15  0  00  000000 

002617'  260  17  0  00  002233* 

002620'  402  00  0  00  002252* 

002621'  201  06  0  00  002653' 


002622'  260  17  0  00  002236* 

002623'  254  00  0  00  002652' 

002624'  254  00  0  00  002622' 

002625'  474  15  0  00  000000 


002626' 
002627' 
002630' 
002631 • 
002632' 
002633' 
002634 ' 
002635' 
002636' 

002637' 
002640' 
002641 ' 
002642' 
002643' 
002644' 
002645' 


201  01  0  00  000300 
242  01  0  00  000001 
260  17  0  00  002277* 

201  01  0  00  220010 
260  17  0  00  002305* 
260  17  0  00  002260* 

202  01  0  00  005730' 
202  01  0  00  002620* 
350  00  0  00  002635* 

01  0  00  000200 
01  0  00  000001 
17  0  00  002630* 
01  0  00  220010 
17  0  00  002632* 
17  0  00  002633* 
01  0  00  005723' 


201 
242 
260 
2u! 
260 
260 
202 


002646'  027  00  0  00  003000' 

002647'  254  00  0  00  002616' 

002650'  254  00  0  00  002652' 

002651'  322  15  0  00  002622' 


002652'  263  17  0  00  000000 


002653'  140000  002657' 

002654'  040000  001000 

002655'  240002  000000 

002656'  000000  000000 


;  Initialization 

TL54:   SETZ  ERFL6, 

GO  IPACLR 

SETZM  TSTSUB 

MOVEI  6,TS54 

;  Loop  on  test  execute  table  entries 


TA54; 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX54 
TA54 
ERFLG, 


Get  miscellaneous  data 

MOVEI  1,300 

LSH  1J 

GO  LDRAR 

MOVEI  1,TSTEBF!MPRUN1SINCYC 

GO  LDCSR 

GO  RDE8UF 

MOVEM  1.SAVSEG 

MOVEM  1. TSTSUB 

AOS  TSTSUB 

MOVEI  1,200 

LSH  1,1 

GO  LDRAR 

MOVEI  1,TSTEBF!MPRUNISINCYC 

GO  LDCSR 

GO  RDEBUF 

MOVEM  1,SAVDAT 


clear  error  flag 
clear  port 

initialize  subtest  number 
get  test  table  address 


execute  table  entry 
end  of  test  execute  table 
keep  looping  after  call 
error  occurred 


get  start  address 
position  correctly 
load  the  register 
get  start  data 
start  up  the  port 
read  EBUF  data 
save  segment  number 
set  up  subtest  number 


get  start  address 
position  correctly 
load  the  register 
get  start  data 
start  up  the  port 
read  EBUF  data 
save  data  read 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 

;  End  of  test 

TX54:   RTN 


MA54 
TL54 
TX54 
ERFLG, TA54 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


return 


Test  Execute  Table,  as:  (CMD, parameters) 


TS54:   TTABLE  (TCALL,TS54DA) 

TTABLE  (TSTART,1000) 

TTABLE  (TCHECK,2) 

TTABLE  (TLAST) 


set  up  data  transfer 
start  up  port 
check  if  completed 
end  of  table 


1921 


OFPTAA 
DFPTAA 

2A29 

2A30 

2431 

2A32 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 
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SEQ  1934 


002657' 
002660' 
002661 • 
002662' 
002663' 
002664' 
002665' 
002666' 
002667' 
002670' 
002671 ' 
002672' 
002673' 
002674' 
002675' 
002676' 
002677' 
002700' 
002701 ' 
002702' 
002703' 


002704' 
002705' 
002706' 
002707' 
002710' 
002711' 
002712' 
002713' 
002714' 
002715' 
002716' 
002717' 


201  01 
242  01 
260  " 
201 


2469 

002720' 

2470 

002721 ' 

2471 

002722' 

2472 

002723' 

2473 

002724' 

2474 

002725' 

2475 

002726' 

2476 

002727' 

2477 

002730' 

2478 

002731 • 

2479 

002732' 

2480 

002733' 

Set  up  data  transfer 


400  01  0 
260  17  0 


0 

0 

17  0 

01  0 


260  17  0 
201  00  0 
260  17  0 
400  01  0 
260  17  0 

200  01  0 
260  17  0 
551  01  0 

201  02  0 
400  03  0 
260  17  0 


200  01 
251  01 
476  00  0 
263  17  0 


00  000000 
00  002643* 
00  005000 
00  000001 
00  002641* 
00  000010 
00  002660* 
00  000001 
00  002303* 
00  000000 
00  002665* 
00  005103' 
00  002307* 
00  002310* 
00  000074 
00  000000 
00  002313* 
00  005577' 
00  000000* 
00  005730' 
00  000000 


TS54DA:  SET7 
GO 

MOVE  I 
LSH 
60 

MOVE  I 
60 

MOVE  I 
GO 

SETZ 
GO 

MOVE 
GO 

HRRZI 
MOVE  I 
SETZ 
GO 

MOVE 
BLT 
SETOM 
RTN 


400001 
000000 

oonooo 

Ou-'OOO 
000001 
000001 
400003 
000001 
400001 
400001 
400003 
000001 

400001 
000000 
000000 
000000 
000001 
000001 
400003 
000001 
400001 
400001 
400003 
000001 


000000 
000000 
000020 
000020 
000000 
000000 
000020 
000020 
000000 
000020 
000000 
000020 

000001 
000001 
000021 
000021 
000001 
000001 
000021 
000021 
000001 
000021 
000001 
000021 


;  Data 
TS54BU: 


1. 

LDCSR 

1.5000 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1 

ODELAY 

1, 

LDCSR 

1,[C8UFSZ,,CBUF] 

CHINJT 

1,BUFF 

2.*D60 

GENCCU 

1,[ts54bu-.buffj 
i.buff+*d59 

SAVSEG* 


clear  CSR  data 
write  CSR  register 
get  start  address 
position  correctly 
load  the  register 
get  start  data 
start  up  the  port 
wait  a  bit  (1  msec) 

clear  CSR  data 

stop  the  port 

get  ^ winter  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCU  list 

copy  the  data  for  this  test 

into  the  data  buffer 
initialize  test  segment 
return 


400001.. 0 

0 

20 

20 

1..0 

466003.. 20 

46600 1..0 
400001..20 
400003.. 0 
1..20 

400001,. 1 

1 

21 

21 

1"! 

466003.. 21 

466001.. 1 
400001.. 21 
400003.. 1 
1,,21 


1  1922 
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2481 
2482 

002734- 

400001 

000002 

400001,, 2 

2483 

002735' 

000000 

000002 

2 

2484 

002736' 

000000 

000022 

22 

2485 

002737' 

000000 

000022 

22 

2486 

002740' 

000001 

000002 

2487 

002741 ' 

000001 

000002 

l"2 
466003,. 22 

2488 

002742' 

400003 

000022 

2489 

002743' 

000001 

000022 

1.-22 
466001,, 2 

2490 

002744' 

400001 

000002 

2491 

002745' 

400001 

000022 

400001,, 22 

2492 

002746' 

400003 

000002 

400003,, 2 

2493 
2494 
2495 

002747' 

000001 

000022 

1..22 

002750' 

400001 

000004 

400001.. 4 

2496 

002751 ' 

000000 

000004 

4 

2497 

002752' 

000000 

000024 

24 

2498 

002753' 

000000 

000024 

24 

2499 

002754' 

000001 

000004 

2500 

002755' 

000001 

000004 

l"4 
466003,, 24 

2501 

002756' 

400003 

000024 

2502 

002757' 

000001 

000024 

1..24 
466001,, 4 

2503 

002760' 

400001 

000004 

2504 

002761 ' 

400001 

000024 

400001,, 24 

2505 

002762' 

400003 

000004 

400003., 4 

2506 
2507 
2508 

002763' 

000001 

000024 

1,.24 

002764' 

400001 

000010 

400001,. 10 

2509 

002765' 

000000 

000010 

19 

1 

1 

2510 

002766' 

000000 

000030 

30 

1 

2511 

002767' 

OuJOOO 

000030 

30 

i 

i 

2512 

002770' 

000001 

000010 

]"IS 

i 

2513 

002771 ' 

000001 

000010 

1.-10 
466003., 30 

i 

2514 

002772' 

400003 

000030 

2515 

002773' 

000001 

000030 

1.-30 

2516 

002774' 

400001 

000010 

i 

2517 

002775' 

400001 

000030 

400001,, 30 

1 

2518 

002776' 

400003 

000010 

400003..  10 

2519 

002777' 

000001 

000030 

1..30 

r 


SEQ  1935 


Q  1923 


DFPTAA 
DFPTAA 

2520 
2521 
2522 
2523 
252A 
2525 
2526 
2527 
i  2528 
i  2529 
,  2530 
2531 
;  2532 
,  2533 
!  253A 
2535 
i  2536 
2537 
2538 
2539 
25AO 
25A1 
2542 
25A3 
25AA 
254  5 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 


MACRO  X53B(1242)  10:04  1-JuL 
MAC     18-Apr-85  11:00 


003000*  140000  005524' 
003001'  240000  003003' 
003002'  000000000000* 
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;  Error  messages 
MA54: 


SEQ  1936 


003003' 
003004' 
003005' 
003006' 
003007' 
003010' 
003011' 
003012" 
003013' 
003014' 


003015* 
003016' 
003017* 
003020' 
003021  • 
003022' 
003023* 
003024' 
003025* 
003026' 
003027' 
003030' 


003031 ' 
003032' 
003033' 
00303' • 
00303y 
00303d ■ 
003037' 
003040' 
003041' 
003042' 
003043' 
003044' 
003045' 
003046' 
003047' 
003050' 


200  01 
037  00 
200  00 
037  13 
200  01 
607  01 
037  00 
603  01 
037  00 
263  17 


0  00  005730' 
0  00  005535' 
0  01  002704' 
0  00  000000 
0  01  002704' 
0  00  400000 
0  00  005541' 
0  00  400000 
0  00  005553' 
0  00  000000 


100000 
000000 
000000 
000000 
000100 
000000 
000200 
342002 
0uJ301 
001 OOC 
000400 
000000 


Ov'^0501 
1000 
.  >/J600 
'31430 
r  .1752 
400 
V.  "1000 
OolOOO 
001100 
001400 
001252 
001000 
001300 
402452 
001400 
000000 


000030 
002000 
100000 
000300 
010000 
000220 
000000 
400340 
000000 
000020 
060000 
000040 


030000 
000020 
110000 
120060 
000000 
130060 
130000 
000040 
130000 
130060 
000000 
000040 
150000 
570460 
050000 
000040 


MSGITXNOTICASCIZ  /Parity  Predictor  produced  incorrect  result:/] 
CALL1TXN0T1MA54PN  ;  print  result 

LAST! CALL ITXALLITTPNT         ;  print  test  data 


MA54PN:  MOVE 
TMSGC 
MOVE 
PNTHU 
MOVE 
TLNN 
TMSGC 
TLNE 
TMSGC 
RTN 


1,SAVSEG 

<  Data  in  CBIN: 

TS54BU(1) 


get  test  segment 


;  get  data  word 

;  print  it 

1,TS54BU(1)  ;  get  data  word 

1,400000  ;  should  be  cleared? 

<  'CCMVPARCHK'  should  not  be  asserted,  but  is> 
1,400000  ;  should  be  set? 

<  'CCMVPARCHK*  should  be  asserted,  but  isn*t> 

;  return 


;  Microcode 

;      Read  1st  word 

T54M:   MUORD  <ADDR=1000, JZ,SELM,MGC=30> 

MWORD  <ADDR=0,LDCT,J=10> 

MUORD  <RPCT,J=1> 

MWORD  <CONT,S0B,AND,e=5,D^2> 

MWORD  <CJS,J=100,D=1> 

MUORD  <JMAP,J=6> 

Read  2nd  through  nth  words 

MWORD  <CJS,J=103,D=1> 

ri'VORD  <CJP,J  =  11,S0A.OR.A=3,D=1.CENA,CCMB> 

MWORD  <CJP,J=5200,D--:1,CENA,CCMP> 

MWORD  <JMAP,J^13,D=1> 

MWORD  <CJP,J=13,D=1,CENA,CCMP> 

MWORD  <JMAP,J=5200,D=1> 

MWORD  <CJP.J=15,S0A, PLUS, A=5,B=5,D=2, CRY, CENA.CCLW> 

MWORD  <JMAP,J=5> 

All  done  -  set  STOP  and  STORE 


1000 

0 

1 

2 

3 

4 

5 
6 
7 

10 
11 
12 
13 
14 


DFPTAA 
DFPTAA 

2575 

2576 

IVfl 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

259A 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

260A 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

26U 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

262A 

2625 

2626 

2627 

2628 

2629 
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SEQ  1937 


003051 ' 
003052' 


003053' 
003054' 
003055' 
003056' 
003057' 
003060' 
003061 ' 
003062' 
003063' 
003064' 
003065' 
003066' 
003067' 
003070' 
003071 ' 
003072' 


001551 
000000 


010000 
001000 
010100 
001000 
010201 
001000 
010301 
001400 
010401 
001000 
010500 
001000 
010600 
732001 
010700 
001000 


003073' 
003074' 


003075' 
003076' 


020002 
431030 


030003 
431050 


003077'  500050 

003100'  000000 

003101'  500150 

003102'  000000 


003103' 
003104' 
003105' 
003106' 
003107' 
003110' 
003111' 
003112' 
003113' 
003114' 
003115' 


510000 
742001 
510100 
302001 
51020J 
000000 
510351 
102021 
510400 
431020 
510551 


000140 
004040 


000200 
004340 
100000 
000300 
020000 
000220 
050000 
000060 
030000 
000040 
000014 
004340 
000200 
402340 
000000 
000240 


002004 
005040 


002004 
005040 


010100 
004040 
010020 
002040 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 


MWORD   <JMAP,J=5100,SELC,MGC^140> 


15 


Routine  to  read  a  word  from  CBUSi  through  formatter  into  R3 
(If  this  routine  is  started  at  lul,  then  the  next  word  from 
the  CBUS  is  read). 


MWORD  <ADDR=100,C0NT,D=1 ,SELC,MGC=200> 

MWORD  <LDCT,J=10,D=1> 

MWORD  <RPCT,J=102,D=1> 

MWORD  <CJP,J=105,D=1,CENA,CCCA> 

MWORD  <JMAP,J=103,D=1> 

MWORD  <C0NT,D=1.SELC,MGC=14> 

MWORD  <C0NT.SD0,0R,B=3.D=2,SELM,MGC=200> 

MWORD  <CRTN,D=1> 


100 
101 
102 
103 
104 
105 
106 
107 


Routine  to  read  R3  and  place  in  EBUF 

MWORD   <ADDR=200,JMAP,J=20f,S0A,A=3,OR,OENA.D=1,SELE.MGC=4> 

Routine  to  read  R5  and  place  in  EBUF 

MWORD   <ADDR=300JMAP,J=300,SOA,A=5,OR,OENA,D=1,SELE.MGC=4> 


Initialization  step 

MWORD       <ADDR^5000 JMAP,J=5001 ,SELC,MGC=100> 

MWORD       <JMAP.J=5001,SELM,MGC=20> 


;  5000 
;  *001 


Subroutine  - 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 


Passed  -  Write  1  to  bit  12  of  CSR  register 
<ADDR=5100,CONT,SDO,AND,B=2.D=2> 
<CONT. SOB, PLUS, B=2,D=2,CRY> 
<LDCT,J=26> 

<RPCT.J=5103.SAB,PLUS,A=2,B=2,D=2> 
<C0NT.S0A,A=2,0R,D=1,0ENA,SELE,MGC=4> 
<CJP,J=5107,CENA,CCGC,i)=1,SELE,MGC=H0> 


5100 
5101 
5102 
5103 
r  04 
5105 


DFPTAA 
DFPTAA 

2630 

2631 

2632 

2633 

263A 

2635 

2636 

2637 

2638 

2639 

26A0 

26A1 

26A2 

2643 

26AA 

26A5 

26A6 

26A7 

26A8 

26A9 

2650 

2651 

2652 

2653 

265A 

2655 

2656 

2657 

2658 
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CBUS  MODULE  TESTS 


SEQ  1938  ! 


003116' 
003117' 
003120' 
003121' 
003122' 
003123' 
003124' 


001400 
510651 
001000 
510700 
431010 
511051 
001000 


003125' 
003U6' 
003127' 
003130' 
003131' 
003132' 
003133' 
003134' 
003135' 
003136' 
003137' 
003140' 
003141' 
003142' 
003143' 
003144' 
003145' 
003146' 
003147' 


520000 

742001 

520100 

302001 

520200 

000000 

520352 

102021 

520400 

431020 

52C552 

001400 

520652 

001000 

520700 

431010 

521052 

001000 

mill 


015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mill 


MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT,SOA,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

Subroutine  -  Failed  -  Write  1  to  bit  13  of  GSR  register 

MWORD  <ADDR=5200,C0NT,S[)0,AND,B=2,D=2>  ;  5200 

MWORD  <C0NT, SOB, PLUS, 8=2, D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2>  ;  5203 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,M6C=4>  ;  5204 

MWORD  <CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40>  ;  5205 

MWORD  <JMAP,J=5205,D=1>  ;  5206 

MWORD  <CONT,SOA,A=1,OR,D=1,SELE,MGC=200>  ;  5207 

MWORD  <JMAP,J=5210,D=1>  ;  5210 
-1 


DFPTAA 
DFPTAA 

3255 

5256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 


...  1 


DFPTAA 
DFPTAA 

2659 

2660 

2661 

2662 

2663 

266A 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

267A 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 
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CBU! 
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TESTS 


SEQ  1939 


003150' 
003151' 
003152' 
003153' 
003154' 
003155' 
003156' 
003157' 


003160' 
003161' 
003162' 
003163' 
003164' 


♦  Test  55  -  Parity  Predictor  -  Fmtr  to  PLOUT 


Description: 
Procedure: 


Verify  that  the  parity  predictor  works  correctly 
when  moving  data  from  formatter  to  PLOUT. 

KL>  Port  Clear 

KL>  Set  up  a  CCW  list  to  transfer  8  words 

KL>  Start  up  port 

UC>  Read  words  from  CBUS  into  CBIN  to  formatter 

then  to  local  storage  Locations  0-7. 
UC>  Initialize  parity  predictor  with  'MPCLRPARCHK' 

UC>  Load  formatter  with  word  from  local  storage 

UC>  Assert  'MPFMTRTOPLOUT' 

UC>  Test  leftmost  bit  of  data  word  -  this  should 

be  the  setting  of  'CCMVRPARCHK' . 
UC>  if  correct  -  set  bit  12  (DISABLE  Complete) 
UC>  if  not  correct  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  the  above  steps  for  each  of  the  8  data 
words. 

Failure:     — 


l:>-   00 

100604 

003300' 

005517' 

000000 

000000 

000000 

777777 


0  00  003160' 
000055 
005600' 
005520' 
003471 ' 
004013' 
004352' 
777777 


;  Test  data 

TSTC55:  JRST    TG55 

CBUSIND«P!NDC8!ZCBUS155 


T55M',[ASCIZ  *Parity  Predictor ^-_ 

[EXP  MLAST!Cin.,[E)(P  Cl2.Cl4,MLAST!C2n 


?o  start  test 
est  mask 
Fmtr  to  PLOUT*] 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
002612* 
003300' 
002614* 
000000 


003165'  400  15  0  00  000000 

003166'  260  17  0  00  002617* 

003167'  402  00  0  00  002636* 

003170'  201  06  0  00  003202' 


TSTC56 
TSTC57 
TSTC60 
-1 

;  Start  test 

T655:   MOVE  I  ZA 

60  TRACE 

MOVE!  1,T55M 

GO  TLOAD 
RTN 

;  Initialization 

TL55:   SETZ  ERFLG, 

60  IPACLR 

SETZM  TSTSUB 

MOVEI  6,TS55 


failure  test  table 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  test  table  address 


.J 


3316 


r 


DFPTAA 
DFPTAA 

2712 

2713 

271 A 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 
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TESTS 


SEQ  1940 


003171"  260 

003172'  254 

003173'  254 

003174'  474 


003175'  027 

003176'  254 

003177'  254 

003200'  322 


17 
00 
00 
15 


00 
00 
00 
15 


00  002622* 
00  003201 • 
00  003171' 
00  000000 


00  003263' 
00  003165' 
00  003201 • 
00  003171' 


003201'  263  17  0  00  000000 


003202' 
003203' 
003204 ' 
003205' 
003206' 
003207' 
003210' 
003211' 


y 

4' 


:>■ 


003^ 

00? 

O^V 

00 

OOj 

003217' 

003220' 

003221 ' 

003222' 

003223' 

003224' 

003225' 

003226' 

003227' 

003230' 

003231 ' 

003232* 

003233' 


140000 
140000 
200000 
400000 
240002 
340000 
300000 
000000 


201  01 

2''2  01 
>"^   .j 

201  01 
260  17 
200  01 
260  17 
551  01 
20^  02 
400  03 
260  17 

200  01 
251  01 
400  01 
260  17 

201  01 
242  01 
260  17 


;  Loop  on  test  execute  table  entries 
TA55: 


60 

JRST 
JRST 
SETO 


TEXEC 
TX55 
TA55 
ERFLG. 


execute  table  entry 
end  of  test  execute  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 

SCOPER  MA55 
JRST  TL55 
JRST  TX55 
JUMPE   ERFLG. TA55 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


;  End  of  test 
TX55:   RTN 


;  return 


Test  Execute  Table,  as:  (CMD, parameters) 


003212' 

TS55:   TTABLE 

003243' 

TTABLE 

003245' 

TS55A:  TTABLE 

000010 

TTABLE 

000000 

TTABLE 

OOUOOO 

TTABLE 

003204' 

TTABLE 

000000 

TTABLE 

;  Set  up  data 

3  00  000200 

TS55DA:  MOVEI 

0  00  000001 

LSH 

0  0)  0)2663* 

GO 

0  0)  0)0010 

MOVEI 

0  0)  0)2671* 

GO 

0  00  005103' 

MOVE 

0  0)  0)2673* 

GO 

0  0)  0)2674* 

HRRZI 

0  00  000010 

MOVEI 

0  0)  0)0000 

SETZ 

0  00  0)2677* 

GO 

0  0)  0)5607' 

MOVE 

0  00  0)0000# 

BLT 

0  00  000000 

SETZ 

0  0}  0)3216* 

GO 

0  o:  0)5000 

MOVEI 

0  0)  0)0001 

LSH 

0  00  003214* 

60 

(TCALL,TS55DA) 

(TCALL.TS55IN) 

(TCALLC.TS55NE) 

(TSSTARJO) 

(TCHECK,2) 

(TEXIT) 

(TJRST,TS55A) 

(TLAST) 

transfer 

1,200 

1,1 

LDRAR 

1 ,MPRUN 

LDCSR 

1,[C8UFSZ,,CBUF] 

CHINIT 

1,BUFF 

2,*D8 

6ENCCU 

1,[TS55BU.,BUFF: 

l,BUFF+7 

LDCSR 
1,5000 

1J 
LDRAR 


set  up  data  transfer 

initialize  counter 

set  up  next  test  segment 

start  up  port  (read  a  word) 

check  if  completed 

exit  if  error  yet 

loop  till  done 

end  of  table 


get  start  address 

position  correctly 

load  the  register 

get  start  data 

start  up  the  port 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 

copy  the  data  for  this  test 

into  the  data  buffer 
clear  CSR  data 
write  CSR  register 
get  start  address 
position  correctly 
load  the  register 


DFPTAA 
DFPTAA 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 


>8 
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SEQ  1941 


2762 

003234' 

201  01 

0  00  000010 

MOVE  I 

1 ,MPRUN 

2763 

003235" 

260  17 

0  00  003230* 

GO 

LDCSR 

276A 

003236' 

201  00 

0  00  000001 

MOVE  I 

1 

2765 

003237' 

260  17  0  00  002667* 

60 

ODE LAY 

2766 

003240' 

400  01 

0  00  OOOOOO 

SETZ 

1, 

2767 

003241 • 

260  17 

0  00  003235* 

60 

LDCSR 

2768 

003242' 

263  17  0  00  OOOOOO 

RTN 

2769 

2770 
2771 
2772 

;  Initialize  test  segmer.. 

003243' 

476  00  0  00  005730' 

TS55IN: 

SETOM 

SAVSE6# 

2773 
277A 
2775 
2776 
2777 

003244' 

263  17  0  00  OOOOOO 

RTN 

;  Point 

to  next 

test  segment 

003245' 

350  01 

0  00  005730' 

TS55NE: 

AOS 

1,SAVSE6 

2778 

003246' 

307  01 

0  00  000007 

CAI6 

]f.y 

2779 

003247' 

350  00 

0  17  OOOOOO 

AOS 

(P) 

2780 

003250' 

271  01 

0  00  000010 

ADDI 

1,10 

2781 

003251' 

542  01 

0  00  003205' 

HRRM 

1,TS55A+1 

2782 

003252' 

263  17 

0  00  OOOOOO 

RTN 

2783 

278A 
2785 
2786 

:  Data 

003253' 

400000 

OOOOOO 

TS55BU: 

400000, 

,0 

2787 

003254' 

OOOOOO 

000003 

466000, 

2788 

003255' 

400000 

000005 

,5 

2789 

003256' 

OOOOOO 

000011 

OaaIL 

2790 

003257' 

400000 

000001 

400000, 

J 

2791 

003260' 

oonooo 

000002 

466000, 

2792 

003261  • 

4uJ000 

000004 

,4 

2793 

003262' 

OOOOOO 

000010 

O.JO 

2794 

2795 
2796 
2797 

;  Error 

messages 

003263' 

140000 

005524' 

MA55: 

MS61TXN0T1CASCIZ  /Parity  Predi 

2798 

003264' 

240000 

003266' 

CALLlTXNOTiriA55PN 

2799 
2800 
2801 

003265' 

000000000000* 

LAST!CALL!TXALLITTPNT 

003266' 

200  01 

0  00  005730' 

MA55PN: 

MOVE 

1,SAVSEG 

2802 

003267' 

037  00  0  00  005610' 

TMS6C 

<  Data  in  FMTR:  > 

2803 

003270' 

200  00 

0  01  003253' 

MOVE 

TS55BU(1) 

280A 

003271 ' 

037  13 

0  00  OOCOOO 

PNTHU 

2805 

003272' 

200  01 

0  01  003253' 

MOVE 

1,TS55BU(1) 

2806 

003273' 

607  01 

0  00  400000 

TLNN 

1,400000 

2807 

003274' 

037  00  0  00  005541 ' 

TMS6C 

<  'CCMVPARCHK'  should 

2808 

003275' 

603  01 

0  00  400000 

TLNE 

1,400000 

2809 

003276' 

037  00  0  00  005553' 

TMS6C 

<  'CCMVPARCHK'  should 

2810 

003277' 

263  17  0  00  OOOOOO 

RTN 

get  start  data 

start  up  the  port 

ensure  the  port  has  enough 

time  to  initialize 
clear  CSR  data 
stop  the  port 
return 


initialize  test  segment 
return 


point  to  next  test  segment 

done  yet? 

no  -  set  up  proper  return 

point  to  starting  address 

set  up  starting  address 

return 


:tor  produced  incorrect  result:/] 
;  print  result 
;  print  test  data 

;  get  test  segment 

:  get  data  word 

;  print  it 

;  get  data  word 

;  should  be  cleared? 
not  be  asserted,  but  is> 

;  should  be  set? 
be  asserted,  but  isn't^ 

;  return 


-J      L 


J 


r 


r 


DFPTAA 
DFPTAA 

2811 

2812 

2813 

281A 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

282A 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

28A0 

?8A1 

28A2 

28A3 

28A4 

28A5 

28A6 

28A7 

28A8 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 
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003300' 
003301 ' 
003302* 
003303' 
003304' 
003305' 
003306' 
003307' 
003310' 
00331 1 ' 
003312' 
003313' 
003314' 
003315' 
003316' 
003317' 


003320' 
003321 ' 
003322' 
003323' 
003324' 
003325' 
003326' 
003327' 
003330' 
003331 ' 
003332' 
003333' 
003334' 
003335' 
003336' 
003337' 


001000 
732001 
001100 
732001 
001200 
732001 
001300 
732001 
001400 
732001 
001500 
732001 
001600 
732001 
001700 
732001 


002700 
001000 
003000 
401030 
003100 
001000 
Gui200 
401430 
003352 
001400 
003451 
001000 
003551 
001400 
003652 
001000 


003340' 
003341 ' 
003342' 
003343' 
003344' 
003345' 
003346' 
003347' 
003350' 
003351 ' 


010001 
001000 
010101 
001400 
010201 
001000 
010300 
001000 
010400 
732001 


270000 
620040 
300001 
620040 
300002 
620040 
300003 
620040 
300004 
620040 
300005 
620040 
300006 
620040 
300007 
620040 


000030 
002340 
002040 
003340 
000010 
003340 
350000 
120060 
000000 
130060 
000000 
000040 
000000 
130060 
000000 
000040 


010200 
004040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402240 
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;  Microcode 

Read  local  storage  location 


SEQ  1942 


T55M: 


MUORD 
MWORD 
MUORD 
MWORD 
MUORD 
MUORD 
MUORD 
MUORD 


<ADDR=--1O,JMAP,J=27,SD0.OR,B=3,D=2,RDLM,M6C=0> 


<JMAP,J=30.SD0,OR,B=3,D=2,RDLM,MGC=1> 
<JMAP,J=30,SD0.0R.B=3,D=2,RDLM,MGC=2> 
<JMAP,J=30,SD0,OR,B=3,D=2.RDLM,MGC=3> 
<JMAP,J=30.SD0,OR,B=3,D=2,RDLM.MGC=4> 
<JMAP.J=30.SD0,OR,8=3,D=2.RDLM,MGC=5> 
<JMAP,J=30,SDO.OR,B=3,D=2,RDLM,MGC=6> 
<JMAP,J=30.SD0.OR,B=3,D=2,RDLM,MGC=7> 


Do  a  test  segment 

MUORD  <ADDR=27,C0NT.D=1 .SELM.MGC=30> 

MUORD  <CONT.S0A,A=3,D=l .0ENA,SELF,MGC=40> 

MUORD  <CONT.D=1,SELF,M6C=10> 

MUORD  <CJP,J=35.S0A,A=3,D=1 .CENA,CCMB> 

MUORD  <CJP,J=5200.D=1,CENA.CCMP> 

MUORD  <JMAP,J=5100,D=1> 

MUORD  <CJP,J=5100,D=1,CENA,CCMP> 

MUORD  <JMAP.J=5200.D=1> 

Read  a  word  from  CBUS  into  CBIN 

MUORD  <ADDR=100.JMAP,J=101,D=1,SELC.M6C=200> 

MUORD  <CJP,J=103.D=1,CENA,CCCA> 

MUORD  <JMAP,J=101,D=1> 

MUORD  <C0NT,D=1,SELC,MGC=4> 

MUORD  <CRTN,SD0.OR,B=3.D=2,SELM.MGC=200> 

Ensure  CBUS  is  stopped 


11 
12 
13 
14 
15 
16 
17 

27 
30 
31 
32 
33 
34 
35 
36 

100 
101 
102 
103 
104 


"■■'l 


>30 


DFPTAA 
DFPTAA 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

287A 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 
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SEQ  1943 


003352' 
003353' 


020000 
000000 


003354' 

003355' 

003356' 

003357' 

003360' 

003361 ' 

003362' 

003363' 

003364' 

003365' 

003366' 

003367' 

003370' 

003371 ' 

003372' 

003373' 

003374' 

003375' 

003376' 

003377' 

003400' 

003401 ' 

003402' 

003403' 

003404' 

003405' 

003406' 

003407' 

003410' 

003411' 

003412' 

003413' 

003414' 

003415' 

003416' 

003417' 

003420' 

003421 ' 

003422' 

003423' 


500050 

000^  30 

500100 

000000 

500201 

001000 

500300 

401030 

500401 

001000 

500500 

401030 

500601 

001000 

50C700 

401030 

501001 

001000 

501100 

401030 

501201 

001000 

501300 

401030 

;u!401 

001000 

501500 

401030 

501601 

001000 

501700 

401030 

502001 

001000 

502100 

401030 

502200 

000000 

000000 

000000 


003424' 
003425' 
003426' 
003427' 
003430' 
003431 ' 


510000 
742001 
510100 
302001 
510200 
000000 


000120 
004000 


010100 

004040 

000020 

002340 

000000 

000020 

002000 

230340 

010000 

000020 

002001 

230340 

010000 

000020 

002002 

230340 

010000 

000020 

002003 

230340 

010000 

000020 

002004 

230340 

010000 

000020 

002005 

230340 

010000 

000020 

002006 

230340 

010000 

000020 

002007 

230340 

000000 

000000 

000000 

000000 


000000 
000340 
000000 
000740 
260000 
000300 


MUORD  <ADDR=200,JZ,SELC,MGC=120>  ;  200 

Im'tiaLization  steps 

MWORD  <ADDR=5000,JMAP,J=5001,SELC,MGC=100>  ;  5000 

MUORD  <CONT,SELM,MGC=20>  ;  5001 

MUORD  <CJS,J=100,D=1>  ;  5002 

MUORD  <CONT,S0A,A=3,D=1.0ENA,LDLM,MGC=0>  ;  5003 

MUORD  <CJS,J=101,D=1>  ;  5004 

MUORD  <CONT.S0A,A=3,D=1,OENA,LDLM,MGC=1>  ;  5005 

MUORD  <CJS,J=101,D=1>  ;  5006 

MUORD  <C0NT.S0A,A=3,D=1,0ENA.LDLM,MGC=2>  ;  5007 

MUORD  <CJS.J=101,D=1>  ;  5010 

MUORD  <CONT,S0A,A=3,D=1,0ENA,LDLM,MGC=3>  ;  5011 

MUORD  <CJS,J=101,D=1>  ;  5012 

MUORD  <C0NT.S0A,A=3,D=1,0ENA,LDLM,MGC=4>  ;  5013 

MUORD  <CJS.J=101,D=1>  ;  5014 

MUORD  <CONT,S0A,A=3,D=1.0ENA,LDLM.MGC=5>  ;  5015 

MUORD  <CJS,J=101.D=1>  ;  5016 

MUORD  <C0NT,S0A,A=3,D=1,0ENA,LDLM,MGC=6>  ;  5017 

MUORD  <CJS,J=101,D=1>  ;  5020 

MUORD  <C0NT,S0A.A^3,D=1.0ENA,LDLM.MGC=7>  ;  5021 

MUORD  <JZ>  ;  5022 

MUORD  <ADDk=O.JZ>  ;  5023 


;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 
MUORD   <ADDR=51O0,CONT,SD0,AND,B=2,D=2> 
MUORD   <CONT, SOB, PLUS. 8=2, D=2,CRY> 
MUORD   <LDCT,J=26> 


5100 
5101 
5102 


931 


DFPTAA 
DFPTAA 

2921 

2922 

2923 

292A 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

293A 

2935 

2936 

2937 

2938 

2939 

29A0 

29A1 

29A2 

2943 

29A4 

29A5 

29A6 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 
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SEQ  1944 


003432' 
003433' 
003434' 
003435' 
003436' 
003437' 
003440' 
003441' 
003442' 
003443' 
003444' 
003445' 


003446' 
003447' 
003450" 
003451 • 
003452' 
003453' 
003454' 
003455' 
003456' 
003457' 
003460' 
003461 ' 
003462' 
003463' 
003464' 
003465' 
003466' 
003467' 
003470* 


510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


520000 

742001 

520100 

302001 

520200 

000000 

520352 

102021 

520400 

431020 

520552 

001400 

520652 

001000 

520700 

4i!010 

5?1052 

001000 

mm 


030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 


MWORD  <RPCTJ=5103, SAB, PLUS, A=2,B=2,D=2>  ;  5103 

MUORD  <CONT,S0A,A=2,OR,D=1,OENA,SELE,M6C=4>  ;  5104 

MWORD  <CJP,J=5107,CENA,CC6C,D=1,SELE,M6C=40>  ;  5105 

MWORD  <JMAP,J=5105,D=1>  ;  5106 

MWORD  <CONT,S0A,A=1,0R,D=1,SELE,M6C=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

Subroutine  -  Failed  -  Write  1  to  bit  13  of  GSR  register 

MWORD  <ADDR=5200,CONT,SD0,AND,8=2,D=2>  ;  5200 

MWORD  <CONT, SOB, PLUS. 8=2, D=2,CRY>  ;  5201 

MWORD  <LDCT,J=25>  ;  5202 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2>  ;  5203 

MWORD  <CONT,S0A,A=2,OR,D=1,OENA.SELE,MGC=4>  ;  5204 

MWORD  <CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40>  ;  5205 

MWORD  <JI1AP,J=5205,D=1>  ;  5206 

MWORn  <CONT,S0A,A=1.OR,D=1,SELE.M6C=200>  ;  5207 

MWORD  <JMAP,J=5210,D=1>  ;  5210 
-1 


932 


DFPTAA 
DFPTAA 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 
2905 

2996 
2997 
2998 
2999 
3000 
3001 
3002 
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SEQ  1945 


/^************* ********************************************** ********* 
*  Test  56  -  Parity  Predictor  -  PLIN  to  Fmtr/MPCOREDUMP=0 


Description: 


Verify  that  the  parity  predictor  works  correctly 
when  moving  data  from  PLIN  to  formatter  with 


•MPCOREDUMP*  not  asserted.  This  verifies  one  half 
of  the  parity  predictor 

Procedure:    KL>  Port  Clear 

KL>  Set  up  a  CCU  list  to  transfer  8  words 

KL>  Start  up  port 

UC>  Read  words  from  CBUS  into  CBIN  to  formatter 

then  to  local  storage  locations  0-7. 
UC>  Initialize  parity  predictor  with  'MPCLRPARCHK' 

UC>  Load  PLOUT  with  word  from  local  storage 

UC>  Load  PLIN  with  word  from  PLOUT 

UC>  Assert  'MPPLINTOFMTR' 

UC>  Test  leftmost  bit  of  data  word  -  this  should 

be  the  setting  of  'CCMVRPARCHK'. 
UC>  if  correct  -  set  bit  12  (DISABLE  Complete) 
UC>  if  not  correct  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeal  the  above  steps  for  each  of  the  8  data 
words. 

Failure:     — 

/If*******  ******  ******************»******************^***************** 


Test  data 


003471 • 
003472' 
003473' 
003474' 
003475' 
003476' 
003477' 


003500' 
003501 ' 
003502' 
003503' 
003504' 


254  00 

100604 

003620' 

005517' 

000000 

000000 

777777 


0  00  003500' 
000056 
005614' 
005625* 
004013' 
004352' 
777777 


JO  start  test 


TSTC56:  JRST    T656        ^^        ;  QC 

CBUS!NDMP!NDCB1ZCBUS!56  .     ;  test  mask   ,„„,„„,„.„,  ^,^ 

T56M,,[ASCIZ  "Parity  Predictor  -  PLIN  to  Fmtr/MPCOREDUMP=0*] 

CEXP  MLAST!C11].,CE)(P  C8.C12.C14,MLAST' C21] 

TSTC57  ;  failure  test  table 

TSTC60 

-1 


Start  test 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
003161* 
003620' 
003163* 
000000 


TG56: 


MOVE  I 
GO 

MOVE  I 
GO 
RTN 


ZA 

TRACE 
1.T56M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


1933 


I — 
I 

iDFPTAA 
iDFPTAA 


3003 

300A 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

30U 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

302A 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

303A 

3035 

3036 

3037 

3038 

3039 

30A0 

30A1 

3042 

3043 

30AA 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 
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r" 


SEQ  1946 


003505'  400  15  0  00  000000 

003506'  260  17  0  00  003166* 

003507*  402  00  0  00  003167* 

003510'  201  06  0  00  003522' 


003511'  260 

003512'  254 

003513'  254 

003514'  474 


17 
00 
00 
15 


00  003171* 
00  003521' 
00  003511' 
00  000000 


003515'  027  00  0  00  003603' 

003516'  254  00  0  00  003505' 

003517*  254  00  0  00  003521' 

003520'  322  15  0  00  003511* 


003521'  263  17  0  00  000000 


003522' 
003523' 
003524* 
003525* 
003526* 
003527* 
003530* 
003531  * 


140000 
140000 
2uJ000 
400000 
240002 
340000 
300000 
000000 


003532' 

201 

01 

003533* 

242 

01 

003534* 

260 

17 

003535* 

201 

01 

003536* 

260 

17 

003537* 

200 

01 

003540* 

260 

1^ 

003^41' 

551 

01 

003542* 

2C' 

02 

003543* 

400 

03 

003544' 

260 

U 

003532* 

003563' 

003565' 

000010 

000000 

000000 

003524* 

000000 


0  00  000200 
0  00  000001 
0  00  003233* 
0  00  000010 
0  00  003241* 
0  00  005103' 
0  00  003220* 
0  00  003221* 
0  00  000010 
0  00  000000 
0  00  003224* 


;  Initialization 

TL56:   SETZ  ERFLG, 

GO  IPACLR 

SETZM  TSTSUB 

MOVEI  6,TS56 

;  Loop  on  test  execute  table  entries 

TA56: 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX56 
TA56 
ERFLG. 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  test  table  address 


execute  table  entry 
end  of  test  execute  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 

End  of  test 


MA56 
TL56 
TX56 
ERFLG, TA56 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


TX56:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD, parameters) 


TS56:   TTABLE  (TCALL,TS56DA) 

TTABLE  (TCALL.TS56IN) 

TS56A:   TTABLE  (TCALLC.TS56NE) 

TTABLE  (TSSTARJO) 

TTABLE  (TCHECK.2) 

TTABLE  (TEXIT) 

TTABLE  (TJRST,TS56A) 

TTABLE  (TLAST) 

;  Set  up  data  transfer 

TS56DA:  MOVE  I  1,200 

LSH  1,1 

GO  LDRAR 

MOVE!  1,MPRUN 

GO  LDCSR 

MOVE  1,[CBUFSZ.,CBUF] 

GO  CMINIT 

HRRZI  1,BUFF 

HOVE  I  2,*D8 

SETZ  3, 

GO  GENCCy 


set  up  data  transfer 

initialize  counter 

set  up  next  test  segment 

start  up  port  (read  a  word) 

check  if  completed 

exit  if  error  yet 

loop  till  done 

end  of  table 


get  start  address 

position  correctly 

load  the  register 

get  start  data 

start  up  the  port 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCU  list 


1934 
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SEQ  1947 


3053 

003545' 

200  01  0  00  005631' 

MOVE 

1.CTS56BU..BUFF] 

3054 

003546' 

251  01  0  00  OOOOOO* 

BLT 

1.BUFF+7 

3055 

003547' 

400  01  0  00  OOOOOO 

SETZ 

hrrn 

3056 

003550' 

260  17  0  00  003536* 

GO 

LDCSR 

3057 

003551' 

201  01  0  00  005000 

MOVE  I 

1.5000 

3058 

003552' 

242  01  0  00  000001 

LSH 

1.1 

3059 

003553' 

260  17  0  00  003534* 

GO 

LDRAfi 

3060 

003554' 

201  01  0  00  000010 

MOVE  I 

1 .MPRUN 

3061 

003555' 

260  17  0  00  003550* 

&C 

LDCSR 

3062 

003556' 

201  00  0  00  000001 

MOVE  I 

1 

3063 

003557' 

260  17  0  00  003237* 

GO 

ODELAY 

3064 

003560' 

400  01  0  00  OOOOOO 

SETZ 

hrrn 

3065 

003561 • 

260  17  0  00  003555* 

GO 

LDCSR 

3066 

003562' 

263  17  0  00  OOOOOO 

RTN 

3067 

3068 
3069 
3070 

;  Initialize  test  segment 

003563' 

476  00  0  00  005730* 

TS56JN: 

SETOM 

SAVSEG* 

3071 
3072 
3073 
3074 
3075 

003564' 

263  17  0  00  OOOOOO 

RTN 

;  Point 

to  next 

test  segment 

003565' 

350  01  0  00  005730* 

TS56NE: 

AOS 

1.SAVSEG 

3076 

003566' 

307  01  0  00  000007 

CAIG 

1.*D7 

3077 

003567" 

350  00  0  17  OOOOOO 

AOS 

(P) 

3078 

00357C' 

271  01  0  00  000010 

ADD! 

1.10 

3079 

003571' 

542  01  0  00  003525* 

HRRM 

1.TS56A+1 

3080 

003572' 

263  17  0  00  OOOOOO 

RTN 

3081 

3082 
3083 
3084 

:  Data 

003573' 

400000  OOOOOO 

TS56BU: 

400000. 

.0 

3085 

003574' 

OOOOOO  OOOOOO 

0..0 
466000. 

3086 

003575' 

400000  OOOOOO 

.0 

3087 

003576' 

OOOOOO  OOOOOO 

0..0 

3088 

003577* 

OOOOOO  000001 

466000. 

3089 

003600* 

400000  000001 

.1 

3090 

003601  * 

OOOOOO  000001 

466000. 

3091 

003602* 

400000  000001 

.1 

copy  the  data  for  this  test 
into  the  data  buffer 

clear  CSR  data 

write  CSR  register 

get  start  address 

position  correctly 

load  the  register 

get  start  data 

start  up  the  port 

ensure  the  port  "las  enough 
time  to  initia  ize 

clear  CSR  data 

stop  the  port 

return 


initiah'ze  test  segment 
return 


point  to  next  test  segment 

done  yet? 

no  -  set  up  proper  return 

poin.  to  starting  address 

set  up  starting  address 

return 


L 
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3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 


-85  Page  55 

CBUS  MODULE  TESTS 


Error  messages 


SEQ  1948 


OFF 
DFF 


003603'  140000  005524' 
003604'  240000  003606' 
003605'  000000000000* 


003606' 
003607' 
003610' 
00361 1 ' 
003612' 
003613' 
003614' 
003615' 
003616' 
003617' 


003620' 
003621 ' 
003622' 
003623' 
003624' 
003625' 
003626' 
003627' 
003630' 
003631 ' 
003632' 
003633' 
003634' 
003635' 
003636' 
003637' 


003640' 
003641' 
003642' 
003643' 
003644' 
003645' 
003646' 
003647" 
003650' 
003651' 
003652' 
003653' 
003654' 
003655' 


200  01 
037  00 
550  00 
037  03 
200  01 
607  01 
037  00 
603  01 
037  00 
263  17 


0  00  005730' 
0  00  005632' 
0  01  003573' 
0  00  000000 
0  01  003573' 
0  00  400000 
0  00  005541' 
0  00  400000 
0  00  005553' 
0  00  000000 


001000 
7320C1 
001100 
732001 
001200 
732001 
001300 
732001 
0u'400 
732001 
001500 
732001 
001600 
732001 
001700 
732001 


002700 
001000 
003000 
401030 
003100 
701000 
003200 
001000 
003300 
401430 
003452 
001400 
003551 
001000 


270000 
620040 
300001 
620040 
300002 
620040 
300003 
620040 
3000C' 
6200«.0 
300005 
620040 
30006 
62Cj40 
300007 
620040 


000030 
002340 
002040 
002340 
000006 
001340 
000020 
003340 
350000 
120060 
000000 
130060 
000000 
000040 


MA56:   MSGI'XNOTICASCIZ  /Parity  Predictor  produced  incorrect  result:/3 


CALL1TXN0TIMA56PN 
LAST! CALL ITXALLITTPNT 


MA56PN:  MOVE 
TMSGC 
HRRZ 
PNT3 
MOVE 
TLNN 
TMSGC 
TLNE 
TMSGC 
RTN 


I.SAVSEG 

<  Data  in  PLIN:  > 
TS568U(1) 

1,TS56BU(1) 

1,400000  .  ... 

<  'CCMVPARCHK'  should  not  be  asserted,  but  is> 
1,400000  ;  should  be  set? 

<  'CCMVPARCHK*  should  be  asserted,  but  isn't> 

;  return 


print  result 
print  test  data 

get  test  segment 

get  data  word 
print  it 
get  data  word 
should  be  cleared? 


;  Microcode 

Read  local  storage  location 

T56M:   MWORD  <ADDR=10,JMAP,J=27,SD0,0R,B=3,D=2,RDLM,M6C=0> 

MUORD  <JMAP,J=30,SD0,0R,B=3,D=2,RDLM,MGC=1>  ;  11 

MUORD  <JMAP.J=3O,SD0,OR,B=3,D=2,RDLM,MGC=2>  ;  12 

MUORD  <JMAP.J=30,SD0,0R,B=3,D=2,RDLM,M6C=3>  ;  13 

MUORD  <JMAP,J=30,SD0,0R,B=3,D=2,RDLM,MGC=4>  ;  14 

MUORD  <JMAP.J=3O,SD0,OR,B=3,D=2,RDLM,MGC=5>  ;  15 

MUORD  <JMAP,J=30,SD0,0R,B=3,D=2,RDLM.MGC=6>  ;  16 

MUORD  <JMAP,J=30,SDO,OR,8=3,D=2,RDLM,MG(-'>  ;  17 


Do  a  test  segment 

MUORD  <ADDR=27.CONT,D=1 ,SELM,MGC=30> 

MUORD  <CONT,S0A,A=3,D=1 ,OENA.SELM.MGC=40> 

MUORD  <C0NT,SD0,D=1,SELP,MGC=6> 

MUORD  <C0NT.D=1,SELF,MGC=20> 

MUORD  <CJP,J=35,S0A,A=3,D=1 ,CENA,CCMB> 

MUORD  <CJP,J=5200,D=1.CENA,CCMP> 

MUORD  <JMAP.J=5100,D=1> 


V 
30 
31 
32 
32 
33 
34 


DFPTAA  MACRO  5:538(1242)  10:04  1 
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CBUS  MODULE  TESTS 


SEQ  1949 


3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3165 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 


003656'  003651 

003657'  001400 

003660'  003752 

003661'  001000 


003662' 
003663* 
003664' 
003665' 
005666' 
003667' 
003670' 
005671 ' 
005672' 
005675' 


005674' 
005675' 


005676' 

005677' 

005700' 

005701 ' 

005702' 

005705' 

005704  • 

005705' 

005706' 

005707' 

005710' 

005711' 

005712' 

005715' 

005714' 

005715' 

005716' 

005717' 

005720' 

005721 ' 

005722' 

005725' 

005724 ' 

005725' 

005726' 

005727' 

005750' 

005751  • 

005732' 

003733' 


010001 
001000 
010101 
001400 
010201 
001000 
010300 
001000 
010400 
752001 


02CO00 
000000 


500050 

OOOOOC 

500100 

000000 

500201 

Oc'OOO 

500500 

401050 

500401 

001000 

500500 

401050 

500601 

001000 

500700 

401050 

501001 

001000 

501100 

401050 

501201 

001000 

501500 

401050 

501401 

001000 

501500 

401050 

501601 

001000 


000000 
130060 
000000 
000040 


010200 
004040 
050000 
000060 
010000 
000040 
000004 
004540 
000200 
402240 


000120 
004000 


010100 

004040 

000020 

002540 

000000 

000020 

002000 

250540 

010000 

000020 

002001 

250540 

010000 

000020 

002002 

250540 

010000 

000020 

002005 

250540 

010000 

000020 

002004 

230540 

010000 

000020 

002005 

250540 

010000 

000020 


MWORD  <CJP.J=5100.D=1,CENA,CCMP>  ;  35 

MUORD  <JMAP.J=5200,D=1>  ;  36 

Read  a  word  from  CBUS  into  CBIN 

MWORD  <ADDR=100,JMAP.J=101.D=1,SELC,M6C=200>  ;  100 

MUORD  <CJP,J=105.D=1,CENA.CCCA>  ;  101 

MUORD  <JMAP.J=101,D=1>  ;  102 

MUORD  <C0NT.D:^1.SELC.M6C=4>  ;  105 

MUORD  <CRTN,SD0,0R.B=5.D=2.SELM,MGC=200>  ;  104 

Ensure  CBUS  is  stopped 

MUORD  <ADDR=200.JZ,SELC.MGC=120>  ;  200 

Initialization  steps 

MUORD  <ADDR=50O0.JMAP.J=5001.SELC.MGC=100>  ;  5000 

MUORD  <CONT,SELM,MGC=20>  ;  5001 

MUORD  <CJS.J=100.D=1>  ;  5002 

MUORD  <CONT,S0A.A=5.D=1.OENA,LDLM.MGC=0>  ;  5005 

MUORD  <CJS,J=101.D=1>  ;  5004 

MUORD  <CONT,S0A.A=5,D=l,0ENA.LDLM.MGC=1>  ;  5005 

MUORD  <CJS.J=101,D=1>  ;  5006 

MUORD  <C0NT,S0A,A=5,D=1.0ENA.LDLM.MGC=2>  ;  5007 

MUORD  <CJS.J=101,D=1>  ;  5010 

MUORD  <CONT.SOA.A=5.D=l,OENA,LDLM.MGC=3>  ;  5011 

MUORD  <CJS.J=101,D=1>  ;  5012 

MUORD  <CONT.S0A.A=5,D=1.OENA.LDLM.MGC=4>  ;  5015 

MUORD  <CJS.J=101.D=1>  ;  5014 

MUORD  <CONT,SOA,A=5.D=1.0ENA.LDLM,MGC=5>  ;  5015 

MUORD  <CJSJ  =  101,D=1>  ;  5016 


OFPTAA 
DFPTAA 

3202 

3203 

320A 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 
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SEQ  1950 


003734' 
003735' 
003736' 
003737' 
003740' 
003741 ' 
003742' 
003743' 
003744' 
003745' 


003746' 
003747' 
003750' 
003751 ' 
003752' 
003753' 
003754' 
003755' 
003756' 
003757' 
003760' 
003761 ' 
003762' 
003763' 
00376-' ' 
003765- 
003766' 
003767' 


501700 
401030 
502001 
001000 
502100 
401030 
502200 
000000 
000000 
000000 


510000 

742001 

510100 

302001 

510200 

000000 

510351 

102021 

510400 

431020 

510551 

001400 

510651 

001000 

510700 

431010 

511051 

Ou'OOO 


003770' 
003771 ' 
003772' 
003773' 
003774' 
003775' 
003776' 
003777' 
004000' 
004001 ' 
004002' 
004003' 
004004 • 
004005' 
004006' 
004007' 
004010' 
004011' 
004012' 


520000 
742001 
52010C 
302001 
520200 
000000 
520352 
102021 
520400 
431 0?0 
520552 
001400 
520652 
001000 
520700 
431010 
521052 
001000 


002006 
230340 
010000 
000020 
002007 
230340 
000000 
000000 
000000 
000000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 


MWORD  <CONT,S0A,A=3,D=1 .0ENA,LDLM,MGC=6> 

MUORD  <CJS.J=101,D=1> 

MWORD  <CONT,S0A,A=3,D=1 ,0ENA,LDLM.MGC=7> 

MWORD  <JZ> 

MWORD  <ADDR=0,JZ> 


Subroutine  - 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 
MWORD 


Passed  -  Write  1  to  bit  12  of  CSR  register 
<ADDR=51OO,CONT,SD0,AND,B=2,D=2> 
<C0NT. SOB, PLUS, 8=2. D=2.CRY> 
<LDCT,J=26> 

<RPCT,J=5103, SAB, PLUS, A=2,B=2,D=2> 
<C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC=4> 
<CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40> 
<JMAP,J=5105,D=1> 

<CONT,SOA,A=1,OR,D=1,SELE,M6C=200> 
<JMAP,J=5110,D=1^ 


;  Subroutine  -  Failed  -  Write  1  to  bit  13  of  CSR  register 

MWORD  <ADDR=520O,CONT,SD0,AND,8=2,D=2> 

MWORD  <CONT, SOB, PLUS, B=2,D=2,CRY> 

MWORD  <LDCT,J=25> 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2^ 

MWORD  <C0NT,S0A,A=2,0R,D=1,0ENA,SELE,MGC^4> 

MWORD  <CJP,J=5207,CENA,CCGC,D=1,SELE,MGC=40> 

MWORD  <JMAP,J=5205,D=1> 

MWORD  <CONT,S0A,A=1,OR,D^-1,SELE.MGC=200> 

MWORD  <JMAP,J=5210,D=1> 
-1 


5017 
5020 
5021 
5022 
5023 

5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5110 

5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5210 


DFPTAA 
DFPTAA 

3255 

5256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

326A 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

328A 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 
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SEQ  1951 


004013' 
004014' 
004015* 
004016' 
004017' 
004020' 


254  00 

100604 

004143' 

005517' 

000000 

777777 


0  00  004021 
000057 
005636' 
005625' 
004352' 
777777 


004021 ' 
004022' 
004023' 
0U4024' 
004025' 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
003501* 
004143' 
003503* 
000000 


/y***«************ ****♦♦ ********************************************** 
*  Test  57  -  Parity  Predictor  -  PUN  to  Ffntr/MPC0REDUMP=1 


Description; 


Procedure: 


Verify  that  the  parity  predictor  works  correctly 
when  moving  data  from  PLIN  to  formatter  with 
•MPCOREDUMP*  asserted. 

KL>  Port  Clear 

KL>  Set  up  a  CCW  list  to  transfer  10  words 

KL>  Start  up  port 

UC>  Read  words  from  CBUS  into  CBIN  to  formatter 

then  to  local  storage  locations  0-11 
UC>  Initialize  parity  predictor  with  'MPCLRPARCHK' 

UC>  Load  PLOUT  with  word  from  local  storage 
UC>  Load  PLIN  with  word  from  PLOUT 
UC>  Assert  'MPPLINTOFMTR'  ^.   ^   ,^ 

UC>  Test  leftmost  bit  of  data  word  -  this  should 

be  the  setting  of  'CCMVRPARCHK' . 
UC>  if  correct  -  set  bit  12  (DISABLE  Complete) 
UC>  if  not  correct  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  the  above  steps  for  each  of  the  10  data 
words. 

Failure:     — 
#******************************************************************** 


;  Test  data 
TSTC57:  JRST 


TG57 


;  go  start  test 
CBUS!NDMPINDCB!ZCBUS!57       ;  test  mask 
T57M,,[ASCIZ  *Parity  Predictor  -  PLIN  to  Fmtr/MPC0REDUMP=1*] 
[EXP  MLAST!Cin.,[E)(P  C8.C12,C14,MLAST!C21] 
TSTC60  ;  failure  test  table 

~1  »   •  •  • 


DFPTAA 
DFPTAA 

3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
389C 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
389£ 
389<; 
390C 
3901 
390: 
390] 
390^ 
NO  ERF 

PR06R/ 
CPU  T] 

163P  ( 


Start  test 


TG57: 


MOVEI 

GO 

MOVEI 

60 

RTN 


ZA 

TRACE 
1,T57M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

set  up  microcode  address 

load/verify  it 

failed  -  exit  test 


iDFPTAA 
DFPTAA 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

33U 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

333A 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 
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CBUS  MODULE  TESTS 


SEQ  1952 


004026'  400  15  0 

004027*  260  17  0 

004030'  402  00  0 

004031 '  201  06  0 


00  000000 
00  003506* 
00  003507* 
00  004043' 


004032'  260  17  0  00  003511* 

004033'  254  00  0  00  004042' 

004034'  254  00  0  00  004032' 

004035'  474  15  0  00  000000 


004036'  027  00  0  00  004126' 

004037'  254  00  0  00  004026' 

004040'  254  00  0  00  004042' 

004041'  322  15  0  00  004032' 


004042'  263  17  0  00  OOOCOO 


004043' 
004044' 
004045' 
004046' 
004047' 
004050' 
004051 • 
004052' 


140000 
140000 

2v,mo 

400000 
240002 
340000 
300000 
000000 


004053' 
004C54' 
004055' 
004056' 
004057' 
004060' 
004061 ' 
004062' 
004063' 
004064' 
004065' 


004053' 

004104' 

004106' 

000010 

000000 

000000 

004045' 

000000 


201  01  0 
242  01  0 
260  17  0 
201  01  0 
260  17  0 

200  01  0 
260  17 
551  01 

201  02 
400  03 
260  17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
GO 
00 


000200 

000001 

003553* 

000010 

003561* 

005103' 

005540* 

003541* 

000012 

000000 

003544* 


Initialization 


TL57; 


SET? 
GO 

SETZM 
MOVEI 


ERfLG, 
IPACLR 
TSTSUB 
6JS57 


Loop  on  test  execute  table  entries 


TA57: 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX57 
TA57 
ERFL6, 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  test  table  address 


execute  table  entry 
end  of  test  execute  table 
keep  looping  after  call 
error  occurred 


;  Handle  error  printouts  and  scope  looping 


SCOPER  MA57 

JRST  TL57 

JRST  TX57 

JUMPE  ERFL6,TA57 


print  error  message 

loop  on  error 

altmode  exit 

do  next  test  execute  table  entry 


End  of  test 


TX57:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD. parameters) 


TS57:   TTABLE  (TCALL,TS57DA) 

TTABLE  (TCALL,TS57IN) 

TS57A:  TTABLE  (TCALLC.TS57NE) 

TTABLE  (TSSTARJO) 

TTABLE  (TCMECK.2) 

TTABLE  (TEXIT) 

TTABLE  (TJRSTJS57A) 

TTABLE  (TLAST) 

;  Set  up  data  transfer 

TS57DA:  MOVEI  1,200 

LSH  1,1 

GO  LDRAR 

MOVEI  UMPRUN 

GO  LDCSR 

MOVE  1,tC8UFSZ,,CBUF3 

GO  CHINIT 

HRRZI  1.8UFF 

MOVEI  2,*D10 

SETZ  3. 

60  GENCCl 


set  up  data  transfer 

initialize  counter 

set  up  next  test  segment 

start  up  port  (read  a  word) 

check  it  completed 

exit  if  error  yet 

loop  till  done 

end  of  table 


get  start  address 

position  correctly 

load  the  register 

get  start  data 

start  up  the  port 

get  pointer  to  control  buffer 

initialize  software 

buf:*^r  address 

wo.d  count 

clear  zero  fill  specifier 

generate  a  CCU  list 


1 


DFPTAA 
DFPTAA 

3351 

3352 

3353 

335A 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

336A 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

337A 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

338A 

3385 

3386 

3387 

3388 

3389 

3390 

3391 


MACRO  X53B(1242)  10:0A 
r.AC     18-Apr-85  11:00 


1-Jul.-85  Page  58 

CBUS  MODULE  TESTS 


SEQ  1953 


00  0056A7' 
00  000000* 
00  000000 
00  004057* 
00  005000 
00  000001 
00  004055* 
00  000010 
00  004071* 
00  000001 
00  003557* 
00  000000 
00  004076* 
00  000000 


004104'  476  00  0  00  005730' 
004105'  263  17  0  00  000000 


004066' 

200  01  0 

004067' 

251  01  0 

004070' 

400  01  0 

004071 ' 

260  17  0 

004072' 

201  01  0 

004073* 

242  01  0 

004074' 

260  17  0 

004075' 

201  01  0 

004076" 

260  17  0 

004077' 

201  00  0 

004100' 

260  17  0 

004101' 

400  01  0 

004102' 

260  17  0 

004103' 

263  17  0 

004106' 
004107' 
004110' 
004111' 
004112' 
004113' 


004114' 
004115' 
004116' 
004117' 
004120' 
00412r 
004122' 
004123' 
004124' 
004125' 


MOVE  1.[TS57BU.,BUFF] 

BLT  1,BUFF+*D9 

SETZ  1, 

60  LDCSR 

HOVE  I  1,5000 

LSH  1,1 

60  LDRAR 

MOVE  I  1,MPRUN 

60  LDCSR 

MOVE I  1 

60  ODELAY 

SETZ  1, 

60  LDCSR 

RTN 

;  Initialize  test  segment 

TS57IN:  SETOM  SAVSE6* 
RTN 

;  Point  to  next  test  segment 


copy  the  data  for  this  test 
into  the  data  buffer 

clear  CSR  data 

write  CSR  register 

get  start  address 

position  correctly 

Load  the  register 

get  start  data 

start  up  t^e   port 

ensure  the  port  has  enough 
time  to  initialize 

clear  CSR  data 

stop  the  port 

return 


initialize 
return 


test  segment 


350  01 
307  01 


00  005730' 
00  000011 


TS57NE: 


350  00  0  17  000000 
271  01  0  00  000010 
542  01  0  00  004046' 
263  17  0  00  000000 


400000 
400000 
400000 
400000 
400000 
400000 
400000 
400000 
400000 
400000 


000000 
000001 
000020 
000021 
000040 
000041 
000100 
000101 
000200 
000201 


;  Data 
TS57BU: 


AOS 

CAI6 

AOS 

ADD  I 

HRRM 

RTN 


1,SAVSE6 

1,*D9 

(P) 

1.10 

1.TS57A+1 


point  to  next  test  segment 

done  yet? 

no  -  set  up  proper  return 

point  to  starting  address 

set  up  starting  address 

return 


400000,, 0 
400000,, 1 
400000,, 20 
400000,, 21 
400000,, 40 
400000,, 41 
400000,, 100 
400000,, 101 
400000,, 200 
400000,, 201 


L 


iDFPTAA 
IDFPTAA 

3392 

3393 

339A 

3395 

3396 

3397 

3398 

3399 

3A00 

3A01 

3A02 

3A03 

3A0A 

3A05 

3A06 

3407 

3408 

3A09 

3A10 

3411 

341 2 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 
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CBUS  MODULE  TESTS 


Error  messages 


SEQ  1954 


004126'  140000  005524' 
004127'  240000  004131' 
004130'  000000000000* 


004131' 
004132' 
004133' 
004134' 
004135' 
004136' 
004137' 
004140' 
004141' 
004142' 


004143' 
004144' 
004145' 
004146' 
004147' 
004150' 
004151' 
004152' 
004153' 
004154' 
004155' 
004156' 
004157' 
004160' 
004161' 
004162' 
004163' 
004164' 
004165' 
004166' 


004167' 
004170' 
004171' 
004172' 
004173' 
004174' 
004175' 
004176' 
004177' 
004200' 


200  01 
037  00 
550  00 
037  03 
200  01 
607  01 
037  00 
603  01 
037  00 
263  17 


0  00  005730' 
0  00  005632' 
0  01  004114' 
0  00  000000 
0  01  004114' 
0  00  400000 
0  00  005541 ' 
0  00  400000 
00  005553' 


0  00  000000 


001000 

732001 

001100 

732001 

001200 

732001 

001300 

73P001 

Gu'400 

732001 

001500 

732001 

001600 

732001 

001700 

732001 

002000 

732001 

002100 

732001 


002700 
001000 
003000 
401030 
003100 
701000 
003200 
001000 
003300 
401430 


270000 

620040 

300001 

620040 

300002 

620040 

300003 

620040 

300004 

620040 

300005 

620040 

300006 

620040 

300007 

620040 

300010 

620040 

300011 

620040 


000030 
002340 
002040 
002340 
000006 
001340 
000020 
003340 
350000 
120060 


MA57:   MS6ITXN0T1CASCIZ  /Parity  Predictor  produced  incorrect  result:/] 


CALL!TXN0T!MA57PN 
LAST! CALL !TXALL!TTPNT 


MA57PN:  MOVE 
THSGC 
HRRZ 
PNT3 
HOVE 
TLNN 
TMS6C 
TLNE 
TMSC 
RTN 


1.SAVSEG 

<  Data  in  PLIN: 

TS57BU(1) 

1.TS57BU(1) 
1.400000 


print  result 
print  test  data 

get  test  segment 

get  data  word 
print  it 
get  data  word 
should  be  cleared? 


<  'CCMVPARCHK'  should  not  be  asserted,  but  is> 
1.400000  ;  should  be  set? 

<  'CCMVPARCHK'  should  be  asserted,  but  isn't> 

;  return 


Microcode 

Read  local  storage  location 


T57M: 


MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


<,'.DDR=1O.JMAP,J=27.SD0.OR.B=3.D=2.RDLM,MGC=O> 


<JMAP.J=30.SDO,OR.B=3.D=2.RDLM,MGC=1> 

<JMAP.J=30,SD0.OR,B=3.D=2.RDLM.MGC=2> 

<JMAP.J=30.SD0.OR.B=3.D=2.RDLM,MGC=3> 

<JMAP.J=30.SD0.0R.B=3.D=2.RDLM.MGC=4> 

<JMAP,J=30,SD0.OR.B=3.D=2.RDLM.MGC=5> 

<JMAP.J=30.SD0.OR.B=3.D=2.RDLM.MGC=6> 

<JMAP.J=30.SD0.OR.B=3,D=2,RDLM.MGC=7> 

<JMAP.J=30.SD0.OR.B=3.D=2.RDLM.MGC=10> 

<JMAP,J=50,SD0.OR.B=3.D=2.RDLM.MGC=11> 


Do  a  test  segment 

MUORD   <ADDR=27.C0NT.D=1 .SELM.MGC=30> 

MUORD   <C0NT.S0A.A=3,D=1 ,0ENA.SELM,MGC=40> 

MUORD   <C0NT.SD0,0=1.SELP.M6C=6> 

MUORD   <CONT.D=1,SELF.MGC=20> 

MUORD   <CJP.J=35.S0A.A=3.D=1 .CENA.CCMB> 


11 
12 
13 
14 
15 
16 
17 
20 
21 

27 
30 
31 
32 
32 


CI 

C11 

C12 

C14 

C17 

C18 

C20 

C21 

C22 

C23 

C24 

C4 

C7 

C8 

C9 

CALL 


42 


DFPTAA 
DFPTAA 

3AA7 

3AA8 

34A9 

3A50 

3A5i 

3452 

3A53 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 
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:bus  module  tests 


SEQ  1955 


004201 • 
004202' 
004203' 
004204* 
004205' 
004206' 
004207' 
004210' 


004211' 
004212' 
004213' 
004214' 
004215' 
004216' 
004217' 
004220' 
004221 ' 
004222' 


003452 
001400 
003551 
001000 
003651 
001400 
003752 
001000 


010001 
001000 
010101 
001400 
010201 
001000 
010300 
001000 
010400 
732001 


004223' 
004224  • 


004225' 
004226' 
004227' 
004230' 
004231 ' 
004232' 
004233' 
004234' 
004235' 
004236' 
004237' 
004240' 
004241' 
004242' 
004243' 
004244' 
004245' 
004246' 
004247' 
004250' 
004251' 
004252' 
004253' 
004254' 
004255' 
004256* 


020000 
000000 


500050 

GuJOOO 

500100 

000000 

500201 

001000 

500300 

401030 

500401 

001000 

500500 

401030 

500601 

001000 

500700 

401030 

501001 

001000 

501100 

401030 

501201 

001000 

501300 

401030 

501401 

001000 


000000 
130060 
000000 
000040 
000000 
130060 
000000 
000040 


010200 
004040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402240 


000120 
C^'4OO0 


010100 
004040 
000020 
002340 
000000 
000020 
002000 
230340 
010000 
000020 
002001 
230340 
010000 
000020 
002 J02 
230340 
010000 
000020 
002003 
230340 
010000 
000020 
002004 
230340 
010000 
000020 


MUORD  <CJP.J=5200,D=1,CENA,CCMP>  ;  33 

MWORD  <JMAP,J=5100.D=1>  ;  34 

MWORD  <CJP,J=5100,D=1,CENA,CCMP>  ;  35_ 

MUORD  <JMAP.J=5200,D=1>  ;  36 

Read  a  word  from  CBUS  into  CBIN 

MWORD  <ADDR=100,JMAP,J=101,D=1,SELC,MGC=200>  ;  100 

MUORD  <CJP,J=103,D=1,CENA,CCCA>  ;  101 

MUORD  <JMAP,J=101,D=1>  ;  102 

MUORD  <C0NT,D=1,SELC,MGC-- '*  ;  103 

MUORD  <CRTN,SD0,OR,B=3,D=t.SELM,M6C=200>  ;  104 

Ensure  CBUS  is  stopped 

MUORD  <ADDR=200JZ,SELC,M6C=120>  ;  200 

Im'tialization  steps 

MUORD  <ADDR=5OO0,JMAP,J=5001,SELC.MGC=1O0>  ;  5000 

MUORD  <CONT,SELM,M6C=20>  ;  5001 

MUORD  <CJS,J=100,D=1>  ;  5002 

MUORD  <CONT,S0A,A=3,D=1,OENA,LDLM,MGC=0>  ;  5003 

MUORD  <CJS.J=101,D=1>  ;  5004 

MUORD  <C0NT,S0A,A-^3,D=1,0ENA,LDLM.MGC=1>  ;  5005 

MUORD  <CJS,J=101,D=1>  ;  5006 

MUORD  <CONT.SOA,A=3,D=1.0ENA.LDLM.M6:-^2>  ;  5007 

MUORD  <CJS,J=101,D=1>  ;  5010 

MUORD  <C0NT,S0A,A=3,D=1.0ENA,LDLM,MGC=3>  ;  5011 

MUORD  <CJS.J=101,D=1>  ;  5012 

MUORD  <CONT,S0A.A=3.D=1.0ENA.LDLM.MGC=4>  ;  5013 

MUORD   <CJS.J=101.D=1>  ;  5014 


U5 


DFPTAA 
DFPTAA 

3502 

3503 

350A 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

351A 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 
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SEQ  1956 


004257" 
004260' 
004261 • 
004262' 
004263' 
004264' 
004265' 
004266' 
004267' 
004270' 
004271 ' 
004272' 
004273' 
004274' 
004275' 
004276' 
004277' 
004300' 
004301 ' 
004302' 
004303' 
004304' 


501500 

401030 

501601 

001000 

501700 

401030 

502001 

001000 

502100 

401030 

502201 

001000 

502300 

401030 

502401 

001000 

502500 

401030 

502600 

000000 

000000 

000000 


004305' 
004306' 
004307' 
004310' 
00431 1 • 
004312' 
004313' 
004314' 
004315' 
004316' 
004317' 
004320' 
004321 ' 
004322' 
004323' 
004324' 
004325' 
004326' 


510000 
742001 
510100 
302001 
510200 
OuJOOO 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


004327' 
004330' 
004331 • 
004332' 
004333' 
004334' 
004335' 
004336' 
004337* 


520000 
742001 
520100 
302001 
520200 
000000 
520352 
102021 
520400 


002005 
230340 
010000 
000020 
002006 
230340 
010000 
000020 
002007 
230340 
010000 
000020 
002010 
230340 
010000 
000020 
002011 
230340 
000000 
000000 
000000 
000000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 


MWORD  <C0NT,S0A,A=3,D=1,0ENA,LDLM,MGC=5> 

MUORD  <CJS.J=101,D=1> 

MWORD  <CONT.S0A,A=3,D=1,OENA,LDLM,M6C=6> 

MUORD  <CJS,J=101.D=1> 

MUORD  <C0NT,S0A,A=3,D=1 ,0ENA,LDLM,M6C=7> 

MUORD  <CJS,J=101,D=1> 

MUORD  <C0NT.S0A,A=3,D=1,0ENA,LDLM,M6C=10> 

MUORD  <CJS,J=101.D=1> 

MUORD  <CONT,S0A,A=3,D=1,OENA,LDLM,M6C=11> 

MUORD  <JZ> 

MUORD  <ADDR=0,JZ> 

Subroutine  -  Passed  -  Unite  1  to  bit  12  of  GSR  register 


MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 

;  Subroutine  - 
MUORD 
MUORD 
MUORD 
MUORD 
MUORD 


<ADDR=5100,C0NT,SD0,AND,B=2,D=2> 
<C0NT, SOB, PLUS. B=2,D=2,CRY> 

<LDCT.J=26> 

<RPC^J=5103, SAB, PLUS, A=2.B=2,D=2> 

<C0NT,S0A,A=2,OR,D=1,0ENA,SELE,MGC=4> 

<CJP,J=5107,CENA,CC6C,D=1.SELE,MGC=40> 

<JMAP,J=5105,D=1> 

<C0NT,S0A,A=1,0R,D=1,SELE.M6C=200> 

<JMAP,J=5110,D=1> 

Failed  -  Write  1  to  bit  13  of  CSR  register 
<ADDR=5200,CONT,SD0.AND,B=2,D=2> 
<C0NT, SOB, PLUS, B=2,D=2,CRY> 
<LDCT,J=25> 

<RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2> 
<CONT.S0A,A=2.OR.D=1,OENA,SELE,MGC=4> 


5015 
5016 
5017 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 

5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5110 

5200 
5201 
5202 
5203 
5204 


..J 


9AA 
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SEQ  1957 


3557 

004 3A0' 

431020 

005340 

355R 

004341 ' 

520552 

070040 

3559 

004342' 

001400 

015060 

3560 

004343' 

520652 
001000 

050000 

3561 

004344' 

000040 

3562 
3563 

004345' 
004346' 

im 

88^^^!! 

356A 

004347' 

521052 

100000 

3565 

004350' 

001000 

000040 

3566 

004351 ' 

777777 

777777 

MWORD 
MWORD 
MUORD 
MWORD 
-1 


<CJP,J=5207,CENA.CCGC,D=1,SELE,MGC=40>  ;   5205 

<JMAPJ=5205,D=1>  ;   5206 

<CONT,S0A,A=1,OR,D=1.SELE.M6C=200>  ;   5207 

<JMAF,J=5210,D=1>  ;   5210 


1945 
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SEQ  1958 


3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 


004352" 
004353' 
004354' 
004355' 
004356' 


l:>-   00 

100604 

004514' 

005517' 

777777 


0  00  004357' 
000060 
005650' 
005625' 
777777 


004357' 
004360' 
004361 • 
004362' 
004363' 


201 
260 
201 
260 
263 


00 
17 
01 
17 
17 


00 
00 
00 
00 
00 


000000' 
004022* 
004514' 
004024* 
000000 


#*•******•*♦**********♦********************************************** 
*  Test  60  -  Parity  Predictor  -  Fmtr  to  CBOUT 

Descrip  ion:  Verify  that  the  parity  predictor  works  correctly 
when  moving  data  from  formatter  to  CBOUT. 

Procedure:    KL>  Port  Clear  .   ,^    ^ 

KL>  Set  up  a  CCW  list  to  transfer  12  words 
KL>  Start  up  port 
UC>  Read  words  from  CBUS  into  CBIN  to  formatter 

then  to  local  storage  locations  0-13 
UC>  Initialize  parity  predictor  with  'MPCLRPARCHK' 

UC>  Load  formatter  with  word  from  local  storage 
UC>  Assert  'MPCBUSTOFMTR'  _   ^   _ 

UC>  Test  leftmost  bit  of  data  word  -  this  should 

be  the  setting  of  'CCMVRPARCHK'. 
UC>  if  correct  -  set  bit  12  (DISABLE  Complete) 
UC>  if  not  correct  -  set  bit  13  (ENABLE  Complete) 
Read  CSR  and  determine  test  disposition 

Repeat  the  above  steps  for  each  of  the  12  data 
words. 

Failure:     — 

/^**************************************************** **************** 

Test  data 

TSTC60:  JRST    T660  ;  go  start  test 

CBUS!NDMP!NDCB!ZCBUS!60        ;  test  mask 
T60M,,[ASCIZ  ^Parity  Predictor  -  Fmtr  to  CBOUT*] 
CEXP  MLAST!Cin,,CEXP  C8.C12,C14,MLAST!C21] 
-1  ;  failure  test  table 


Start  test 


TG60: 


MOVE  I 
60 
MOVE  I 


ZA 

TRACE 
1,T60M 
TLOAD 


get  address  of  module  start 

handle  trace  output 

•"jt  up  microcode  address 

load/verify  it 

failed  -  exit  test 


1946 


DFPTAA 
DFPTAA 

3610 

3611 

^612 

^'.13 

36H 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 
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;  MODULE 


TESTS 


SEQ  1959 


004364'  400  15  0  00  000000 

004365'  260  17  0  00  004027* 

004366'  402  00  0  00  004030* 

004367'  201  06  0  00  004401' 


004370'  260  17  0  00  004032* 

004371'  254  00  0  00  004400' 

004372'  254  00  0  00  004370' 

004373'  474  15  0  00  000000 


004374'  027  00  0  00  004477' 

0:4375'  254  00  0  00  004364' 

004376'  254  00  0  00  004400' 

004377'  322  15  0  00  004370' 


004400'  263  17  0  00  000000 


004401 • 
004402' 
004403' 
004404' 
004405' 
004406' 
004407' 
004410' 


004411' 
004412' 
004413' 
004414' 
004415' 
004416' 
004417' 
004420' 
004421 ' 
004422' 
004423' 


140000 
140000 

400000 
240002 
340000 
300000 
000000 


004411' 

004442' 

004455' 

000010 

000000 

000000 

004403' 

000000 


201  01 
242  01 
260  17 
201  01 
260  17 

200  01 
260  17 
551  01 

201  02 
400  03 
260  17  0 


00  000200 
00  000001 
00  004074* 
00  000010 
00  004102* 
00  005103' 
00  004061* 
00  004062* 
00  000014 
00  000000 
00  004065* 


;  Initialization 

TL6f^:   SETZ  ERFLG. 

GO  IPACLR 

SETZM  TSTSU8 

MOVE!  6,TS60 

;  Loop  on  test  execute  table  entries 

TA60: 


GO 
JRST 
JRST 
SETO 


TEXEC 
TX60 
TA60 
ERFLG. 


clear  error  flag 

clear  port 

initialize  subtest  number 

get  test  table  address 


execute  table  entry- 
end  of  test  execute  table 
keep  looping  after  call 
error  occurred 


Handle  error  printouts  and  scope  looping 


SCOPER 
JRST 
JRST 
JUMPE 

End  of  test 


MA60 
TL60 
TX60 
ERFLG.TA60 


print  error  message 

loop  on  error 

altmodf  xit 

do  next,  test  execute  table  entry 


TX60:   RTN  ;  return 

;  Test  Execute  Table,  as:  (CMD. parameters) 


TS60:   TTABLE  (TCALL,TS60DA) 

TTABLE  (TCALL.TS60IN) 

TS60A:   TTABLE  (TCALLC,TS60NE) 

TTABLE  (TSSTARJO) 

TTABLE  (TCHECK,2) 

TTABLE  (1EXIT) 

TTABLE  (TJRST,TS60A) 

TTABLE  (TLAST) 

;  Set  up  data  transfer 

TS60DA:  MOVE I  1.200 

LSH  l/i 

60  LDRAR 

MOVE  J  1,MPRUN 

GO  LDCSR 

MOVE  1,[CBUFSZ.,CBUF] 

GO  CHINIT 

HRRZI  1,BUFF 

MOVEI  2.*D12 

SETZ  3. 

GO  GENCCW 


set  up  data  transfer 

initialize  counter 

set  up  next  test  segment 

start  up  port  fread  a  word) 

check  if  comn'eted 

eiA^l    If  error  yet 

loop  till  done 

end  of  table 


get  start  address 

position  correctly 

load  the  register 

get  start  data 

start  up  the  port 

get  pointer  to  control  buffer 

initialize  software 

buffer  address 

word  count 

clear  zero  fill  specifier 

generate  a  CCW  list 


L 


1947 
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SEQ  I960 


3660 

004424' 

200  01 

0  00  005657' 

MOVE 

1,[TS60BU,,BUFF] 
1,BUFF+*Dl1 

3661 

004425' 

251  01 

0  00  000000* 

BLT 

3662 

004426* 

400  01 

0  00  000000 

SETZ 

li^r.n 

3663 

004427' 

260  17  0  00  004415* 

GO 

LDCSR 

3664 

004430' 

201  01 

0  00  005000 

MOVE  I 

1.5000 

3665 

004431 ' 

242  01 

0  00  000001 

LSH 

1,1 

3666 

004432' 

260  17  0  00  004413* 

6C 

LDRAR 

3667 

004433' 

201  01 

0  00  OOOOiO 

MOVE  I 

1  ,MPRUfJ 

3668 

00'.434' 

260  17  0  00  004427* 

60 

LDCSR 

3669 

004435' 

201  00  0  00  000001 

MOVEI 

1 

3670 

004436' 

260  17  0  00  004100* 

GO 

ODELAY 

3671 

004437' 

400  01 

0  00  000000 

SETZ 

1, 

3672 

004440' 

260  17  0  00  004434* 

GO 

LDCSR 

3673 

004441 ' 

263  17 

0  00  000000 

RTN 

3674 

3675 
3676 
3677 

;  Initialize  test  segment 

004442' 

476  00  0  00  005730' 

TS60IN:  SETOM 

SAVSE6# 

3678 

004443' 

400  01 

0  00  000000 

SETZ 

1, 

3679 

004444' 

260  17  0  00  004440* 

GO 

LDCSR 

3680 

004445' 

201  01 

C  00  000200 

MOVEI 

1,200 

3681 

004446' 

242  01 

0  00  000001 

LSH 

^J.o 

3682 

004447' 

260  17  0  00  004432* 

GO 

LDRAR 

3683 

004450' 

201  01 

0  00  000010 

MOVEI 

1 ,MPRUN 

3684 

004451 ' 

260  17 

0  00  004444* 

GO 

LDCSR 

3685 

004452' 

400  01 

0  00  000000 

SETZ 

1, 

3686 

004453' 

260  17  0  00  004451* 

60 

LDCSR 

3687 
3688 
3689 
3690 
3691 

004454' 

263  17 

0  00  000000 

RTN 

;  Point  to  next 

test  segment 

004455' 

350  01 

0  00  005730' 

TS60NE:  AOS 

1,SAVSE6 

3692 

004456' 

307  01 

0  00  000013 

CAIG 

]f.y^^ 

3693 

004457' 

350  00 

0  17  000000 

AOS 

(P) 

3694 

004460' 

271  01 

0  00  000010 

ADDI 

1,10 

3695 

004461 ' 

•iA2  01 

0  00  004404' 

HRRM 

1,TS60A+1 

3696 

004462' 

263  17 

0  00  000000 

RTN 

3697 

369S 

:  Data 

3699 

3700 

004463' 

400000 

000000 

TS60BU:  400000, 

,0 

3701 

004464' 

UU0001 

000000 

466000, 

3702 

004465' 

400000 

000000 

'L 

3703 

004466' 

400000 

000020 

400000, 

,20 

3/04 

004467' 

000000 

000020 

466001 , 

3705 

004470' 

400001 

000020 

'^0 

3706 

004471 ' 

400001 

000000 

400001 , 

'S 

3707 

004472' 

400001 

000000 

400001 . 

'S 

3708 

004473' 

400001 

000000 

400001 . 

'L 

3709 

004474' 

400003 

000020 

400003. 

'^8 

3710 

004475' 

400003 

000020 

400003. 

'19. 

3711 

004476' 

400003 

000020 

400003. 

.20 

copy  the  data  for  this  test 
into  the  data  buffer 

clear  CSR  data 

write  CSR  register 

get  start  address 

position  correctly 

load  the  register 

get  start  data 

start  up  the  port 

ensure  the  port  has  enough 
time  to  initialize 

clear  CSR  data 

stop  the  port 

return 


initialize  test  segment 
clear  CSR  data 
write  CSR  register 
get  start  adaress 
position  correctly 
load  the  register 
get  start  data 
start  up  the  po'-t 
clear  CSR  data 
stop  the  port 
return 


point  to  next  test  segment 

done  yet? 

no  -  set  up  proper  return 

point  to  starting  address 

set  up  starting  address 

return 


ZA 
ZC 
SA 


! 


L 


r" 


1948 


DFPTA^ 
DFPTA/ 

3712 

3713 

37U 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3740 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 
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004477'  140000  005524' 
004500*  240000  004502' 
004501*  000000000000* 


004502' 
004503* 
004504' 
004505' 
004506* 
004507' 
004510* 
004511' 
004512' 
004513' 


200  01 
037  00 
550  00 
037  16 
200  01 
607  01 
037  00 
603  01 
037  00 
263  17 


0  00  005730* 
0  00  005660* 
0  01  004463' 
0  00  000003 
0  01  004463' 
0  00  400000 
0  00  005541' 
0  0  !  400000 
0  00  005553' 
0  00  000000 


004514' 
004515' 
004516' 
004517* 
004520' 
004521 ' 
004522' 
004523' 
004524* 
004525' 
004526* 
004527' 
004530' 
004531* 
004532' 
004533* 
004534' 
004535* 
004536* 
004537* 
004540* 
004541  * 
004542' 
004543* 


001000 

732001 

001100 

732001 

001200 

73200^ 

001300 

732001 

0u'400 

732001 

001500 

732001 

001600 

732001 

001700 

732001 

002000 

732001 

002100 

732001 

002200 

732001 

002300 

732001 


004544* 
004545* 
004546' 
004547' 
004550' 
004551' 


002700 
001000 
003000 
401030 
003100 
001000 


270000 

620040 

3000C1 

620040 

300002 

620040 

300003 

620040 

300004 

620040 

300005 

620040 

300006 

62C040 

300007 

620040 

300010 

620040 

300011 

620040 

3PC012 

620040 

300013 

620040 


000030 
002340 
002040 
003340 
000002 
004340 
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Error  messages 


SEO  1961 


MA60:   MSG.'TXNOTICASCiZ  /Parity  Predktor  produced  incorrect  result:/3 


CALL!TXN0T!MA60PN 
LAST! CALL ITXALLITTPNT 


MA60PN:  MOVE 
TMSGC 
HRRZ 
PNTOCS 
MOVE 
TLNN 
TMSGC 
TLNE 
TMSGC 
RTN 


1,SAVSEG 

<  Data  in  Fmtr:  > 
TS60eU(1) 

l.TS608U(1) 

1.400000  ... 

<  'CCMVPARCHK'  should  not  be  asserted,  but  is> 
1.400000  ;  should  be  set? 

<  'CCMVPARCHK'  should  be  asserted,  but  isn't> 

;  return 


print  result 
print  test  data 

get  test  segment 

get  data  word 
print  it 
get  data  word 
should  be  cleared? 


Microcode 

Read  local  storage  location 


T60M: 


MUORD 
MUORD 
MUORD 
MWORD 
MUORD 
MUORD 
MUORD 
MUORD 
MWORD 
MUORD 
MUORD 
MUORD 


CADDR=10.JMAP.J=27.SD0.0R.Q=3.D=2.RDLM.MGC=0> 


<JMAP.J=30.SD0,0R.8=3.D=2.RDLM.MGC=1> 

<JMAP,J=30,SD0  0R.B=3,D=2.RDLM,MGC=2> 

<JMAP.J=30,SD0.0R.8=3.D^2,RDLM.MGC=3> 

<JMAP.J=30,SDC.OR,B=:3.D=2.fiDLM,MGC=4> 

<JMAP.J=30,SD0,CR.B=3.D=2.RDLM.MGC=5> 

<JMAPJ=3O,SD0.OR.B=3.D=2.RDLM.MGC=6> 

<JMAP.J-^30,SDC.0R.B=3.D=2.RDLM,M6C=7> 

<JMAP.J=30.SD0.0R,B=3.D=2.RDLM,MGC=10> 

<JMAP,J=30.SD0.OR.3=3,D=2.RDLM,MGC=11> 

<JMAP.J=30,SD0.0R.B=3.D-2.RDLM.MGC^12> 

<JMAP.J=30.SD0,0R.B=3,D=2,RDLr.MGC=13> 


Do  a  test  segment 

MUORD   <ADDR=27.CONT.D=1 .SELM.MGC=30> 
MUORD   <CONT.S0A,A=3,D=1,OENA.SELF,MGC=40> 
MUORD   <C0NT.D=1,SELC.M6C=2> 


11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 

27 
30 
31 
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SEQ  1962 


3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

378A 

3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

3793 

379A 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

J820 

3821 


004552' 
004553' 
004554' 
004555' 
004556' 
004557' 
004560' 
004561 ' 
004562' 
004563' 


003200 
401430 
003352 
001400 
003451 
001000 
003551 
001400 
003652 
001000 


004564' 
004565' 
004566' 
004567* 
004570' 
004571 ' 
004572' 
004573' 
004574' 
004575' 


004576' 
004577' 


004600' 
004601 ' 
004602' 
004603' 
004604' 
004605' 
004606' 
004607* 
004o10' 
004611' 
004612* 
004613' 
004614* 
004615* 
004616' 
004617* 
004620' 
004621 ' 
004622' 
004623' 
004624 ' 
004625' 
C04626' 
004627' 


010001 
001000 
010101 
001400 
010201 
001000 
010300 
001000 
010400 
732001 


020000 
000000 


500050 

000000 

500100 

000000 

500201 

001000 

500300 

401030 

500401 

001000 

500500 

401030 

500601 

001000 

500700 

401030 

501001 

001000 

501100 

401030 

501201 

001000 

501300 

401030 


350000 
120060 
000000 
130060 
000000 
000040 
000000 
130060 
000000 
000040 


010200 
004040 
030000 
000060 
010000 
000040 
000004 
004340 
000200 
402240 


000120 
004000 


010100 
004040 
000020 
002340 
000000 
000020 
002000 
230340 
010000 
000020 
002001 
230340 
010000 
000020 
002002 
230340 
010000 
000020 
002003 
230340 
010000 
000020 
002004 
230340 


MUORD  <CJP,J=35,S0A.A=3.D=1,CENA,CCMe>  ;  32 

MWORD  <CJP.J=5200,D=1,CENA,CCMP>  ;  33 

HWORD  <JMAP.J=5100,D=1>  ;  34 

MWORD  <CJP.J=5100,D=1,CENA,CCMP>  ;  35 

MUORD  <JMAP,J=5200,D=1>  ;  36 

Read  a  word  from  CBUS  into  CBIN 

MWORD  <ADDR=100.JMAP.J=101,D=1.SELC.MGC=200>  ;  100 

MWORD  <CJP.J=103.D=1,CENA.CCCA>  ;  101 

MUORD  <JMAP,J=101.D=1>  ;  102 

MUORD  <C0NT,D=1,SELC,MGC=4>  ;  103 

MUORD  <CRTN.SD0,OR,B=3,D=2.SELM,M6C=200>  ;  104 

Ensure  CBUS  is  stopped 

MUORD  <ADDR=200.JZ,SELC,MGC=120>  ;  200 

Initialization  steps 

MUOf<D  <ADDR=5000,JMAP,J=5001.SELC.MGC=100>  ;  5000 

MUORD  <C0NT,SELM.MGC=20>  ;  5001 

MUORD  <CJS.J=100.D=1>  ;  5002 

MUORD  <CONT,SOA,A=3.D=1.0ENA,LDLM,M6C=0>  ;  5003 

MUORD  <CJS.J=101,D=1>  ;  5004 

MUORD  <CONT.S0A,A=3,D=1.0ENA.LDLM.MGC=1>  ;  5005 

MUORD  <CJS.J=101,D=1>  ;  5006 

MUORD  <C0NT.S0A,A=3,D=1,0ENA.LDLM.MGC=2>  ;  5007 

MUORD  <CJS,J=101,D=1>  ;  5010 

MUORD  <CONT,SOA,A=3,D=1.0ENA,LDLM.MGC=3>  ;  5011 

MUORD  <CJS.J=101.D=1>  ;  5012 

MUORD  <CCNT,S0A,A--3,D=l,OENA.LDLM,MGC=4>  ;  5013 


r 


Q  1950 


DFPTAA 
DFPTAA 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

383A 

3835 

3836 

3837 

3838 

3839 

38A0 

38A1 

38A2 

38A3 

38AA 

38A5 

38A6 

38A7 

38A8 

38A9 

3850 

3851 

3852 

38^3 

38)4 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

386A 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

387A 

3875 

3876 
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00A630' 

00A631 ' 

00A632' 

00A633' 

00A63A' 

00A635' 

00A636' 

00A637' 

00A6A0' 

00A6A1  • 

00A6A2' 

00A6A3' 

00A6AA' 

00A6A5' 

00A6A6' 

00A6A7' 

00A650' 

00A651  • 

00A652' 

00A653' 

00A65A' 

00A655' 

00A656' 

00A657' 

00A660' 

00A661 ' 

00A662' 

00A663' 

00A66A' 

00A665' 

00A666' 

00A667' 


00A670' 
00A671 ' 
00A672' 
00A673* 
00A67A ' 
00A675' 
00A676' 
00A677' 
00A700' 
00A701 ' 
00A702* 
00A703' 
00A70A' 
00A705" 
00A706' 
00A707' 
00A710' 
00A7ir 


501A01 

001000 

501500 

AC1030 

501601 

001000 

501700 

A01030 

502001 

001000 

502100 

A01030 

502201 

001000 

502300 

A01030 

502A01 

001000 

502500 

A01030 

502601 

001000 

502700 

401 030 

50300 1 

001000 

503100 

401030 

503200 

000000 

OuJOOO 

000000 


510000 
742001 
510100 
302001 
510200 
000000 
510351 
102021 
510400 
431020 
510551 
001400 
510651 
001000 
510700 
431010 
511051 
001000 


010000 

000020 

002005 

230340 

010000 

000020 

002006 

230340 

010000 

000020 

002007 

230340 

010000 

000020 

002010 

230340 

010000 

000020 

002011 

230340 

010000 

00002U 

002012 

230340 

010000 

000020 

002013 

230340 

000000 

000000 

000000 

000000 


000000 
000340 
000000 
000740 
260000 
000300 
030000 
000220 
002004 
0053^0 
070040 
015060 
050000 
000040 
000200 
0053A0 
100000 
OOOOAO 
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MUORD  <CJS,J=101,D=1>  ;  5014 

MUORD  <CONT.S0A,A=3.D=1,0ENA,LDLM,MGC=5>  ;  5015 

MUORD  <CJS.J=10i.r)=1>  ;  5016 

MWORD  <CONT,S0A.A=3.U^1,0ENA,LDLM,M6C=6>  ;  5017 

MWORD  <CJS,J=101,D=1>  ;  5020 

MWORD  <C0NT.S0A,A=3,D=1,0ENA,LDLM,M6C=7>  ;  5021 

MUORD  <CJSJ=101,D=1>  ;  5022 

MWORD  <C0NT,S0A,A=3,D=1.0ENA,LDLM.MGC=10>  ;  5023 

MUORD  <CJS,J=101,D=1>  ;  5024 

MUORD  <CONT,S0A,A=3,D=1,0ENA,LDLM,MGC=11>  ;  5025 

MUORD  <CJS,J=101,D=1>  ;  5026 

MUORD  <CONT,S0A„A=3,D=1,0ENA.LDLM.MGC=12>  ;  5027 

MUORD  <CJS,J=101.D=1>  ;  5030 

MUORD  <CONT.SOA,A=3,D=1.0ENA,LDLM,M6C=13>  ;  5031 

MUORD  <JZ>  ;  5032 

MUORD  <ADDR=0,JZ>  ;  5023 

;  Subroutine  -  Passed  -  Write  1  to  bit  12  of  CSR  register 

MUORD  <ADDR=5100,CONT,SD0,AND,8=2,D=2>  ;  5100 

MUORD  <C0NT, SOB, PLUS, 6=2, D=2,CRY>  ;  5101 

MUORD  <LDCT,J=26>  ;  5102 

MUORD  <RPCT,J=5103, SAB, PLUS, A=2, 8=2, D=2>  ;  5103 

MUORD  <CONT,S0A,A=2,0R,D=1,OENA,SELE,MGC=4>  ;  5104 

MUORD  <CJP,J=5107,CENA,CCGC,D=1,SELE,MGC=40>  ;  5105 

MUORD  <JMAP.J=5105,D=1>  ;  5106 

MWORD  <CONT,?0A,A=1,OR,D=1,SELE,MGC=200>  ;  5107 

MWORD  <JMAP,J=5110,D=1>  ;  5110 

;  Subroutine  -  Failed  -  Write  1  to  bit  13  cf  CSR  r<?oister 


SCO  1963 


r 


DFPTAA 
DFPTAA 
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3877 
3878 
3879 
3880 
3881 
3882 
3883 
388A 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
389A 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
NO  ERRORS  DETEC 


004712' 
004713' 
004714' 
004715' 
004716" 
004717' 
004720' 
004721 ' 
004722' 
004723' 
004724' 
004725' 
004726' 
0C4727' 
004730' 
004731 ' 
004732' 
004733' 
004734' 


520000 

742001 

520100 

302001 

520200 

000000 

520352 

102021 

520400 

431020 

520552 

001400 

520652 

CD1000 

520700 

^31010 

521052 

001000 


TED 


000000 
000340 
000000 
000740 
250000 
000300 
030000 
000220 
002004 
005340 
070040 
015060 
050000 
000040 
000200 
005340 
100000 
000040 

mm 


PROGRAM  BREAK  IS  uJ5731 
CPU  TIME  USED  04:22.002 

163P  CORE  USED 
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SEQ  1964 


MWORD  <ADDR=520O,CONT,SD0,AND,8=2,D=2> 

MWORD  <CONT, SOB, PLUS, B=2,D=2,CRY> 

MWORD  <LDCT.J=25> 

MWORD  <RPCT,J=5203, SAB, PLUS, A=2,B=2,D=2> 

MWORD  <CONT,S0A,A=2,OR,D=1,OENA,SELE,M6C=4> 

MWORD  <CJP,J=5207,CENA,CC6C,D=1 ,SELE,MGC=40> 

MWORD  <JMAP,J=5205,D=1> 

MWORD  <CONT,S0A,A=1,OR,D=1,SELE,MGC=20O> 

MWORD  <JMAP,J=5210,D=1> 

-1 


5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5210 


•#*•*♦♦*************************************************************** 
•  End  of  CBUS  Module  Tests 
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2443 
3345 
1147 
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1317 
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3346 
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1602 
2074 
3623 
3052 
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3614 
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2767 


523 
1163 
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2389 
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3046 
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2091 
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756 
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1357 
1A20 
1A0A 
1612 
1636 
1725 
1829 
1817 
1809 
19A9 
2071 
2195 
2A13 
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2722 
2798 
3020 
3096 
3318 
3396 
3627 
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27A7 
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68 
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1389 
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317 
27A6 
1766 
128# 
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313* 
5A6* 
657* 
793* 
1006* 
1022 
1007 
1206* 
1215 
1207 
1A1A* 
1A30 
1A15 
1636* 
1638* 
1808* 
18A1* 
1823 
1811* 
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21 9A* 
2198* 
2523* 
2527* 
2797* 
J801* 
3095* 
3099* 
3395* 
3399* 
3715* 
3719* 
261 
3290 
328 
2762 
657 
259 
3288 
259 
3288 
1628 
1001 

1392 


3663 
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2761 


3668 
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30AA 


3672 

VI 

3059 


3679 
103A 
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3686 

1AA2 

162A 

17A6 
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3357 

3651 

3666 

3682 
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1A38* 
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1A23 


A97 
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338 
30A5 

793 

A95 
3598 

A95 
3598 
176A 
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778 
3060 
1006 

607 

607 

2098 
1201 
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1035 

33A3 

1206 

722 
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1A08 


9A8 

1AA3 

3358 

1A1A 

9A6 

9A6 

2765 
1A09 


11A9 
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1808 
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11A7 

3063 
179A 


1319    1567 


17A7 
3667 
1969 
1317 


205A 
3683 
219A 
1565 


1317    1565 


3361 
1795 


3670 
2779 


1695 

206A 

2523 
1693 

1693 
3077 


1922 

2095 

2797 
1920 

1920 
3375 


2019 

2396 

3095 
2017 

2017 
3693 


2362 

2A06 

3395 
2360 


2692 

2A37 

3715 
2690 


2360    2690 


956 


1 

1039 

1447 

RDEBUF 

20# 

320 

330 

340 

1631 

2056 

2066   2398   2408 

SAVAPR 

1325# 

1325 

1333 

1364 

1367 

SAVCNT 

1589# 

1589 

1597 

1603 

1643 

SAVCN2 

1593# 

1593 

1601 

1607 

1655 

SAVCN3 

1600# 

1600 

1651 

SAVCNA 

1606# 

1606 

1647 

SAVDAl 

1040# 

1040 

1045 

1448* 

1448 

1453 

SAVDAT 

2067# 

2067 

2409 

SAVNUM 

1227# 

1227 

SAVR1 1 

321# 

321 

342 

SAVR1 2 

331  # 

331 

348 

SAVR13 
SAVSEG 

3A1# 
2057 

341 
2109* 

351 
2109 

2198 

2399 

2451* 

2451 

2527 

2772it      2772        2777 

3075 

3099 

3368* 

3368 

3373 

3399 

3677* 

3677 

3691    3719 

SCOSW 

2A* 

1639 

1811 

SINCYC 

318 

328 

338 

778 

2054 

2064 

2396 

2406 

SSCALL 

1962 

1963 

SSLAST 

5A2 

543 

653 

654 

1965 

1966 

<  ^  «K                     J     ^  ^                                         M    *^    ^    0^ 

SSSTRT 

538 
196A 

539 
1965 

540 

541 

542 

649 

650 

651 

652    653    1960 

TAOM 

69 

81 

142* 

TA1M 

260 

271 

360* 

TA2M 

A96 

507 

551* 

TA3M 

608 

618 

662* 

T4AM 

723 

735 

800* 

TA5M 

947 

957 

1051* 

T46M 

1U8 

1157 

1240* 

TA7M 

1318 

1337 

1459* 

T50M 

1566 

1580 

1662* 

T50SS 

1588 

1592 

1622* 

T51M 

1694 

1703 

1879* 

T52M 

1921 

1929 

1975* 

T53M 

2018 

2031 

2213* 

T5AM 

2361 

IVl 

2542* 

T55M 

2691 

2702 

2816* 

T56M 

2990 

3000 

3114* 

T57M 

3289 

3298 

3414* 

T60M 

3599 

3607 

3734* 

-  ' 

TAAO 

94# 

105 

TAA1 

284# 

295 

TAA2 

520# 

52r 

530 

TAA3 

631  # 

63.3 

641 

TA44 

748# 

759 

TAA5 

969# 

980 

TAA6 

1169<? 

1180 

TAA7 

1349# 

1360 

TA50 

1586# 

1613 

TA51 

1717# 

1728 

TA52 

1942# 

1944 

1952 

TA53 

2044* 

2046 

2074 

TA5A 

Zlbtft 

2388 

2416 

TA55 

271 5# 

2717 

2725 

TA56 

301 3# 

3015 

3023 

L_- 


SEQ  1969 


2801    3070*   3070 


1961    1962    1963 


XMR 


n 


1957 


TA57 
TA60 
TBAO 
TBA1 
TBA4 
TBA5 
TBA6 
TBA7 
TB51 
TCALL 

TCALLC 
TCHECK 

TEXEC 
TEXIT 

TGAO 

TGA1 

TGA2 

TGA3 

TGAA 

TGA5 

TGA6 

TGA7 

TGA7A 

TG50 

TG51 

TG52 

TG53 

TG5A 

TG55 

TG56 

TG57 

TG60 

TJRST 

TLAO 

TLA1 

TLA2 

TLA3 

TLAA 

TLA5 

TLA6 

TLA7 

TL51 

TL52 

TL53 

TL5A 

TL55 

TL56 

TL57 

TL60 

TLAST 


331 U 

3620# 

95# 

285* 

7A9# 

970# 
1170* 
1350* 
1718* 

767 
3032 
2735 

116 
3035 
16# 

117 

333A 

67 

258 

A9A 

606 

721 

9A5 
11A6 
1316 
1331 
156A 
1692 
1919 
2016 
2359 
2689 
2988 
3287 
3597 
2739 
87* 

inn 

513* 

62A* 

7A1* 

963* 

1163* 

13A3* 

1711* 

1935* 

2037* 

2379* 

2708* 

3006* 

330A* 

3613* 

12A 


3313 
3622 
97 
287 
751 
972 
1172 
1352 
1720 
768 
3033 
2736 
117 
3036 
95 
118 
3335 
79* 
269* 
505* 
616* 
733* 
955* 
1155* 
1325* 
1335* 
1572* 
1701* 
1927* 
2029* 
2371* 
2700* 
2998* 
<296* 
3605* 
27A0 
103 
293 
528 
639 
757 
978 
1178 
1358 
1726 
1950 
2072 
2A1A 
2723 
3021 
3319 
3628 
125 


3321 
3630 


SEQ  1970 


1736 

3329 

3033 

122 

3333 

285 

123 

36A3 


1737 

3330 

303A 

123 

333A 

7A9 

12A 

36AA 


1738 

1739 

3331 

3638 

3331 

3332 

30A 

305 

36A2 

36A3 

1718 

20AA 

305 

306 

2082 

3639 

36A0 

769 

2386 
770 


2083 

36A0 

36A1 

770 

2715 
771 


2A2A 


2A25    2733    273A    2735    3031 


208A    2085 


2A26 


2A27    2737 


2738 


3013 
1739 


3311 
17A0 


3620 

2738    2739    3036    3037 


3037 


3038    3335    3336    36AA    36A5 


306 


307 


771 


m        17A0    17A1    2085    2086    2A27    2A28    27A0    27A1 


3038 

TLOAD 

15# 

2703 

TRACE 

15# 

2701 

TSAO 

90 

TSA1 

280 

TSA2 

516 

TSA3 

627 

TS4A 

7A2 

TSAADA 

767 

TSA5 

96A 

TSA5CH 

991 

TSA6 

116A 

TSA6CH 

1191 

TSA7 

13AA 

TSA7CH 

1379 

TSA7D0 

1387# 

TSA7DA 

1376 

TS51 

1712 

TS51C0 

1769 

TS51CD 

1706 

TS51CH 

1738 

TS51IN 

1736 

TS51TB 

1766 

TS51TC 

1706 

TS52 

1938 

TS53 

20A0 

TS53BU 

2107 

TS53DA 

2082 

TS5A 

2382 

TS5ABU 

2AA9 

TS5ADA 

2A2A 

TS55 

2711 

TS55A 

2735# 

TS55BU 

2755 

TS55DA 

2733 

TS55IN 

273A 

TS55NE 

2735 

TS56 

3009 

TS56A 

3033# 

TS56BU 

3053 

TS56DA 

3031 

TS56IN 

3032 

TS56NE 

3033 

TS57 

3307 

TS57A 

3331* 

TS57BU 

3351 

TS57DA 

3329 

TS57IN 

3330 

TS57NE 

3331 

TS60 

3616 

TS60A 

36A0# 

3039 

3336 

3337 

36A5 

36A6 

R? 

272 

508 

619 

736 

958 

1158 

3001 

3299 

3608 

80 

270 

506 

617 

73A 

956 

1156 

2999 

3297 

3606 

115# 

303# 

538# 

6A9# 

767* 

775* 

988* 

996* 

1188* 

1196* 

1375* 

1A00* 

1395 

138A* 

1736* 

178A* 

1801* 

1763* 

17AA* 

1767 

1707 

1960* 

2082* 

211A* 

2090* 

2A2A* 

2A56* 

?A32* 

J733* 

2739 

2786* 

27AA* 

2772* 

inin 

3031* 

3037 

308A* 

30A2* 

3070* 

3075* 

3329* 

3335 

3382* 

33A0* 

3368* 

3373* 

3638* 

36AA 


1338 
1336 


1581 
1579 


170A 
1702 


1930 
1928 


2032 
2030 


237A 
2372 


SEQ  1971 


.U 


.L 


.L 


.L 


1773 
1774 


2200 
2529 


2781 
2803 


3079 
3101 


3377 
3401 


3695 


1784 
1776 


2202 
2531 

2805 
3103 
3403 


1787 
1780 


1790 
1/85 


1798* 
1788 


1822 
1791 


1799*   1816 


.L 


v~ 


.  „  I 


TS60BU 

TS60DA 

TS601N 

TS60NE 

TSSTAR 

TSTART 

TSTCAO 

TSTCA1 

TSTCA2 

TSTCA3 

TSTCAA 

TSTCA5 

TSTCA6 

TSTC47 

TSTC50 

TSTC51 

TSTC52 

TSTC53 

TSTC5A 

TSTC55 

TSTC56 

TSTC57 

TSTC60 

TSTEBF 

TSTFLG 

TSTSUB 

TTPNT 

TUSER 

TXAO 

TX41 

TXA2 

TXA3 

TX4A 

TXA5 

TXA6 

TXA7 

TX50 

TX51 

TX52 

TX53 

TX5A 

TX55 

TX56 

TX57 

TX60 

TXALL 

TXNOT 

TXTINH 
UDEBUG 
USER 


3660 
3638 
3639 
36A0 
2736 
115 

10 

10 

10 

10 

10 

10 

10 

10 

10 

11 

11 

11 

11 

11 

11 

11 

11 
318 

15# 

15# 
2059 

16* 
1328 

96 

286 

521 

632 

750 

971 

1171 

1339 

161A 

1719 

19A3 

20A5 

2387 

2716 

301 A 

3312 

3621 

129 
3097 

128 
2195 
16A0 

15# 
1326 


3700* 
36A9* 
3677* 
3691* 
303A 
116 
67* 
71 
72 
73 
7A 
725 
726 
727 
156A* 
1692* 
500 
2016* 
2020 
2021 
2022 
2023 
202A 
328 
1327 
89 
2381 
129 
157A 
lOA 
29A 
529 
6A0 
758 
979 
1179 
1351 
1618* 
1727 
1951 
2073 
2A15 
272A 
3022 
3320 
3629 
311 
3397 
310 
2523 
1812 
1329 
1383 


3721    3723 


SEQ  1972 


.L 


3332 
121 

258* 

262 

263 

26A 

9A5* 

9A9 

950 


611 


1732* 
1956* 
2078* 
2A20* 
2729* 
3027* 
3325* 
363A* 

5A7 
3717 

5A6 
252A 
181A 
1575 
1391 


36A1 
122 


A9A* 

A98 

A99 

11A6* 
1150 


728 


2359* 

2363 

2689* 

236A 

2693 

2365 

269A 

2366 

2695 

338 

1037 

1330 

1573 

131 

279 

2A00 

2A01 

311 

79A 

109* 

299* 

53A* 

6A5* 

763* 

98A* 

118A* 

1359 

136A* 

303 


606* 
610 


1316* 
1320 


2988* 
2992 
2993 
1AA5 
1576 
515 
2710 
2196 


30A 


721* 


768 


7e^ 


M57        1738    2083    208A    2A25    2A26 


1696 


:287* 

j291 

1629 

626 
3008 
2525 


1919* 


3597* 
205A 

7A3 
3306 
2799 


.L 
.L 


.L 


206A 

965 
3615 
3097 


2396  2A06 
1165  13A5 
3397    3717 


1713    1937    2039    2058 


658 

637 
2797 
1818 
1778 
1572 


79A 

793 
2798 
1820 

1768 


1008 

1006 
3095 
1828 


1208 

1007 
3096 


1A16 

1206 
3395 


1636 

1809 

1971 

2196 

2525 

2799 

1207 
3396 

1A1A 
3715 

1A15 
3716 

1808 

1969 

219A 

r 


I  1960 


2A 

I  ZCBUS 
tARG2 


31# 
2700 

68 

2989 

K2# 

156# 

173# 

190# 

207# 

221# 

376# 

393# 

A17# 

43A# 

451# 

553* 

568* 

670* 

800* 

817* 

837* 

857* 

878* 

895* 

909* 

1061* 

1081* 

1103* 

1247* 

1261* 

K59* 

K73* 

1A99* 

1516* 

1669* 

1891* 

1984* 

2228* 

2242* 

2264* 

2290* 

2304* 

2321* 

2548* 

2565* 

2587* 

2607* 

2627* 

2644* 

2816* 

2830* 

2847* 

2867* 


79 

2998 

259 

3288 

142 

156 

173 

190 

207 

221 

376 

393 

417 

434 

451 

553 

568 

670 

800 

817 

837 

857 

878 

895 

909 

1061 

1081 

1103 

1247 

1261 

1459 

1473 

1499 

'516 

1669 

1891 

1984 

2228 

2242 

2264 

2290 

2304 

2321 

2548 

2565 

2587 

2607 

2627 

2644 

2816 

2830 

2847 

2867 


269 

505 

3296 

3605 

495 

607 

3598 

144* 

144 

158* 

158 

175* 

175 

192* 

192 

209* 

209 

360* 

360 

378* 

378 

398* 

398 

419* 

419 

436* 

436 

453* 

453 

555* 

555 

570* 

570 

673* 

673 

802* 

802 

819* 

819 

839* 

839 

359* 

859 

880* 

880 

897* 

897 

911* 

911 

1063* 

1063 

1088* 

1088 

1105* 

1105 

1249* 

1249 

1266* 

1266 

1461* 

1461 

1479* 

1479 

1501* 

1501 

1521* 

1521 

1879* 

1879 

1896* 

1896 

2213* 

2213 

2230* 

2230 

2247* 

2247 

2266* 

2266 

2292* 

2292 

2306* 

2306 

2323* 

2323 

2550* 

2550 

2567* 

2567 

2589* 

2589 

2612* 

2612 

2629* 

2629 

2646* 

2646 

2818* 

2818 

2835* 

2835 

2849* 

2849 

2872* 

2872 

616 
722 


733 
946 


146* 

146 

163* 

163 

177* 

Ml 

194* 

194 

211* 

211 

362* 

362 

380* 

380 

400* 

400 

424* 

424 

438* 

438 

455* 

455 

557* 

557 

572* 

572 

675* 

675 

804* 

804 

824* 

824 

841* 

841 

864* 

864 

882* 

882 

899* 

899 

1051* 

1051 

1068* 

1068 

1090* 

1090 

1110* 

1110 

1251* 

1251 

1268* 

1268 

1463* 

1463 

1481* 

14G1 

1503* 

1503 

1526* 

1526 

1881* 

1881 

1898* 

1898 

2215* 

2215 

2232* 

2112 

2254* 

225U 

2268* 

2268 

2294* 

2294 

2311* 

2311 

2325* 

2325 

2552* 

2552 

2569* 

2569 

2591* 

2591 

2614* 

2614 

2631* 

2631 

2648* 

2648 

2t20 

2837* 

2ill 

2854* 

2f54 

2874* 

2874 

955 

1147 

148* 

165* 

179* 

196* 

213* 

364* 

382* 

406* 

426* 

440* 

457* 

559* 

662* 

677* 

806* 

826* 

843* 

866* 

884* 

901* 

1053* 

1070* 

1092* 

1115* 

1253* 

1270* 

1465* 

1483* 

1505* 

1528* 

1883* 

1975* 

2217* 

2234* 

2256* 

2273* 

2296* 

2313* 

2327* 

2557* 

2571* 

2593* 

2619* 

2633* 

2650* 

2822* 

2839* 

2856* 

2876* 


1155 

1317 

148 

165 

179 

196 

213 

364 

382 

406 

426 

440 

457 

559 

662 

677 

806 

826 

843 

866 

884 

901 

1053 

107C 

IC?^ 

1115 

1253 

1270 

1465 

1483 

1505 

1528 

1883 

1975 

2217 

2234 

2256 

227'i 

2296 

2313 

2327 

2557 

2571 

2593 

2619 

2633 

2650 

2822 

2839 

2856 

2876 


1335 


1578 


1701 


1927 


2029 


1565    1693    1920    2017    2360 


150* 

167* 

184* 

198* 

215* 

366* 

387* 

408* 

428* 

445* 

459* 

562  » 

664>!f 

679* 

808* 

828* 

848* 

869* 

886* 

903* 

1055* 

1072* 

1094* 

1117* 

1255* 

1275* 

1467* 

1488* 

1507* 

1662* 

1885* 

1977* 

2219* 

2236* 

2258* 

2278* 

2298* 

2315* 

2542* 

2559* 

2576* 

2595* 

2621* 

2635* 

2652* 

2824* 

2841* 

2858* 

2878* 


150 

167 

184 

198 

215 

366 

387 

408 

428 

^45 

459 

562 

664 

679 

808 

828 

848 

869 

886 

903 

1055 

1072 

1094 

1117 

1255 

1275 

1467 

1488 

1507 

1662 

1885 

1977 

2219 

2236 

2258 

2278 

2298 

2315 

2542 

2559 

2576 

2595 

2621 

2635 

2652 

2824 

2841 

2858 

2878 


152* 

152 

169* 

169 

186* 

186 

200* 

200 

217* 

21  J' 

368* 

368 

389* 

389 

410* 

410 

430* 

430 

447* 

447 

461* 

461 

564* 

564 

666* 

(M 

681* 

681 

813* 

813 

830* 

830 

853* 

853 

374* 

874 

888* 

888 

905* 

905 

1057* 

105/ 

1077* 

107;- 

1096* 

1096 

1240* 

1240 

1257* 

1257 

1280* 

1280 

1469* 

1469 

1490* 

1490 

1509* 

1509 

1664* 

1664 

1887* 

1887 

1979* 

1979 

2221* 

2221 

2238* 

2238 

2260* 

2260 

2283* 

2283 

2300* 

2300 

2317* 

2317 

2544* 

2544 

2561* 

2561 

2583* 

2533 

2597* 

259/ 

2623* 

2623 

2640», 

2640 

2654* 

2654 

2826* 

2826 

2843* 

2843 

2860* 

2860 

2880* 

2880 

154* 

171* 

188* 

205* 

219* 

371* 

391* 

415* 

432* 

449* 

551* 

566* 

668* 

683* 

815* 

832* 

855* 

876* 

890* 

907* 

1059* 

1079* 

1098* 

1242* 

1259* 

1282* 

1471* 

1492* 

1514* 

1667* 

1889*/ 

1982* 

2223* 

2240* 

2262* 

2285* 

2302* 

2319* 

254b* 

2563* 

2585* 

2602* 

2625* 

2642* 

2656* 

2828* 

2845* 

2862* 

2882* 


2371 

2690 

154 

171 

188 

205 

219 

371 

391 

415 

432 

449 

551 

566 

668 

683 

815 

832 

855 

876 

890 

907 

1059 

1079 

1098 

1242 

1259 

1282 

1471 

1492 
1514 
1667 
1889 
1982 
2223 
2240 
216? 
2285 
2302 
2319 
2546 
2563 
2585 
2602 
2o25 
2642 
2656 
2828 
2845 
2862 
2882 


SEQ  1973 


I — 


D  1961 


SB 


288A# 
2898# 
291 5# 
2929# 
29A6# 
3120* 
3137# 
315A# 
3174* 
3188# 
3202# 
3219* 
3236# 
3250# 
3A2A# 
3AA1* 
3A58# 
3A78# 
3A92# 
3506* 
3520* 
3537* 
355A* 
3736* 
3750* 
3767* 
378A* 
380A* 
3818* 
3832* 
38A6* 
3863* 
3880* 
389A* 
1A2* 
156* 
173* 
190* 
207* 
221* 
376* 
393* 
A17# 
A3A* 
A51* 
553* 
568* 
670* 
800* 
817* 
837* 
857* 
878* 


288A 
2898 
2915 
2929 
29A6 
3120 
3137 
31 5A 
31 7A 
3188 
3202 
3219 
3236 
3250 
3A2A 
3AA1 
3A53 
3A78 
3A92 
3506 
3520 
3537 
3554 
1736 
3750 
3767 
3784 
3804 
3818 
3832 
3846 
3863 
3880 
<894 
142 
156 
173 
190 
207 
H'. 
376 
393 
417 
434 
451 
553 
568 
670 
800 
817 
837 
857 
878 


2886* 

2900* 

2917* 

2931* 

2948* 

3122* 

3139* 

3156* 

3176* 

3190* 

3204* 

3221* 

3238* 

3252* 

3426* 

3443* 

3460* 

3480* 

3494* 

3508* 

3522* 

3539* 

3556* 

3738* 

3752* 

3769* 

3786* 

3806* 

3820* 

3834* 

3848* 

3865* 

3882* 

144* 
158* 
175* 
192* 
209* 
360* 
378* 
398* 
419* 
436* 
453* 
555* 
570* 
673* 
802* 
819* 
839* 
859* 
880* 


2886 

2900 

2917 

2931 

2948 

3122 

3139 

3156 

3176 

3190 

3204 

3221 

3238 

3252 

3426 

3443 

3460 

3480 

3494 

3508 

3522 

3539 

3556 

3738 

3752 

3769 

3786 

3806 

3820 

3834 

3848 

3865 

3882 

144 
158 
175 
192 
209 
360 
378 
398 
419 
436 
453 
555 
570 
673 
802 
819 
839 
859 
880 


2888* 
2902* 
2919* 
2936* 
2950* 
312^* 
3141* 
3158* 
3178* 
3192* 
3206* 
3223* 
3240* 
3414* 
3428* 
3AA5* 
3A62* 
3A82* 
3A96* 
3510* 
3527* 
35A1* 
3558* 
37A0* 
375A* 
3771* 
3788* 
3808* 
3822* 
3836* 
3850* 
3867* 
3884* 

146* 
163* 
177* 
194* 
211* 
362* 
380* 
400* 
424* 
438* 
455* 
557* 
572* 
675* 
804* 
824* 
841* 
864* 
882* 


2888 

2902 

2919 

2936 

2950 

3124 

3141 

3158 

3178 

3192 

3206 

3223 

3240 

3414 

3428 

3AA5 

3462 

3482 

3496 

3510 

3527 

3541 

3558 

3740 

3754 

3771 

3788 

3808 

3822 

3836 

3850 

3867 

3884 

146 
163 
177 
194 
211 
362 
380 
400 
424 
438 
455 
557 
572 
675 
804 
824 
841 
864 
882 


2890* 
2904* 
2921* 
2938* 
2952* 
3126* 
3143* 
3160* 
3180* 
3194* 
3208* 
3225* 
3242* 
3416* 
3430* 
3447* 
3464* 
3484* 
3498* 
3512* 
3529* 
3543* 
3560* 
3742* 
3756* 
3773* 
3793* 
3810* 
3824* 
3838* 
3852* 
3869* 
3886* 

148* 
165* 
179* 
196* 
213* 
364* 
382* 
406* 
426* 
440* 
457* 
559* 
662* 
677* 
806* 
826* 
843* 
866* 
884* 


2890 

2904 

2921 

2938 

2952 

3126 

3143 

3160 

3180 

3194 

3208 

3225 

3242 

3416 

3430 

3447 

3464 

3484 

3498 

3512 

3529 

3543 

3560 

3742 

3756 

3773 

3793 

3810 

3824 

3838 

3852 

3869 

3886 

148 
165 
179 
196 
213 
364 
382 
406 
426 
440 
457 
559 
662 
677 
806 
826 
843 
866 
884 


2892* 
2906* 
2923* 
2940* 
3114* 
3128* 
3145* 
3162* 
3182* 
3196* 
3210* 
3227* 
3244* 
3418* 
3432* 
3449* 
3466* 
3486* 
3500* 
3514* 
3531* 
3548* 
3562* 
3744* 
3761* 
3775* 
3798* 
3812* 
3826* 
3840* 
3857* 
3871* 
3888* 

150* 
167* 
184* 
198* 
215* 
366* 
387* 
408* 
428* 
445* 
459* 
562* 
664* 
679* 
808* 
828* 
848* 
869* 
886* 


2892 
2906 
2923 
2940 
3114 
3128 
3145 
3162 
3182 
3196 
3210 
3227 
3244 
3418 
3432 
3449 
3466 
3486 
3500 
3514 
3531 
3548 
3562 
3744 
3761 
3775 
3798 
3812 
3826 
3840 
3857 
3871 
3888 

150 
167 
184 
198 
215 
366 
387 
408 
428 
445 
459 
562 
664 
679 
808 
828 
848 
869 
886 


2894* 
2908* 
2925* 
2942* 
3116* 
3133* 
3147* 
3167* 
3184* 
3198* 
3215* 
3229* 
3246* 
3420* 
3437* 
3451* 
3471  A' 
3488* 
3502* 
3516* 
3533* 
3550* 
3564* 
3746* 
3763* 
3780* 
3800* 
3814* 
3828* 
3842* 
3859* 
3873* 
3890* 

152* 
169* 
186* 
200* 
217* 
368* 
389* 
410* 
430* 
447* 
461* 
564* 
666* 
681* 
813* 
830* 
853* 
874* 
888* 


2894 
2908 
2925 
2942 
3116 
3133 
3147 
3167 
3184 
3198 
3215 
3229 
3246 
3420 
3437 
3451 
3471 
3488 
3502 
3516 
3533 
3550 
3564 
3746 
3763 
3780 
3800 
3814 
3828 
3842 
3859 
3873 
3890 

152 
169 
186 
200 
217 
368 
389 
410 
430 
447 
461 
564 
666 
681 
813 
830 
853 
874 
888 


2896* 
2910* 
2927* 
2944* 
3118* 
3135* 
3149A 
3172* 
3186* 
3200* 
3217* 
3231* 
3248* 
3422* 
3439* 
3453* 
3A76* 
3A90* 
3504* 
3518* 
3535* 
3552* 
IVM 
3748* 
3765* 
3782* 
3802* 
3816*' 
3830* 
3844* 
3861* 
3878* 
3892* 

154* 
171* 
188* 
205* 
21 9f 
371* 
391* 
415* 
^2* 
449^ 
551* 
566.^ 
668* 
683* 
815* 
832* 
855* 
876* 
890* 


2S96 
2910 
2927 
2944 
3118 
3135 
3149 
3172 
3136 
3200 
3217 
3231 
3248 
3422 
3439 
3453 
3476 
349C 
3504 
3518 
3535 
3552 
3734 
3748 
3765 
3782 
3802 
3816 
3830 
3844 
3861 
3878 
3892 

154 
171 
188 
205 
219 
371 
391 
415 
432 
^49 
551 
566 
668 
683 
815 
832 
855 
876 
890 


SEQ  1974 


[..__ 


r" 


895# 
909# 
1061# 
1081# 
1103# 
12A7# 
1261# 
K59# 
K73# 
U99# 
1516# 
1669# 
1891# 
1984# 
2228# 
22A2* 
226A# 
2290# 
230A# 
2321# 
25A8# 
2565# 
2587# 
2607# 
2627# 
264A# 
281 6# 
2830# 
28A7# 
2867# 
2884# 
2898# 
291 5# 
2929# 
2946# 
3120# 
3137# 
3154# 
3174# 
3188# 
3202# 
321 9# 
3236# 
3250# 
342A* 
3AA1# 
3A58# 
3A78# 
3«92# 
3506# 
3520# 
3537# 
3554# 


895 
909 
1061 
1081 
1103 
12A7 
1261 
H59 
U73 
1499 
1516 
1669 
1891 
198A 
2228 
2242 
2264 
2290 
2304 
2321 
2548 
2565 
2587 
2607 
2627 
2644 
2816 
2830 
2847 
2867 
2884 
2898 
?915 
i929 
2946 
3120 
3137 
3154 
3174 
3188 
3202 
3219 
3236 
3250 
3424 
3441 
3458 
3478 
3492 
3506 
3520 
3537 
3554 


897# 

897 

911# 

911 

1063# 

1063 

1088* 

1088 

1105* 

1105 

1249* 

1249 

1266* 

1266 

1461* 

1461 

1479* 

1479 

1501* 

1501 

1521* 

1521 

1879* 

1879 

1896* 

1896 

2213* 

2213 

2230* 

2230 

2247* 

224^ 

2266* 

2266 

2292* 

2292 

2306* 

2306 

2323* 

2323 

2550* 

2550 

2567* 

256/ 

2589* 

2589 

2612* 

2612 

2629* 

2629 

2646* 

2646 

2818* 

2818 

2835* 

2835 

2849* 

2849 

2872* 

2872 

2886* 

2886 

2900* 

2900 

2917* 

2917 

2931* 

2931 

2948* 

2948 

3122* 

3122 

3139* 

3139 

3156* 

3156 

3176* 

3176 

3190* 

3190 

3204* 

3204 

3221* 

3221 

3238* 

3238 

3252* 

5252 

3426* 

3426 

3443* 

3443 

3460* 

3460 

3480* 

3480 

3494* 

3494 

3508* 

3508 

3522* 

3522 

3539* 

3539 

3556* 

3556 

899* 
1051* 
1068* 
1090* 
1110* 
1251* 
1268* 
1463* 
1481* 
1503* 
1526* 
1881* 
1898* 
2215* 
2232* 
2254* 
2268* 
2294* 
2311* 
2325* 
2552* 
2569* 
2591* 
2614* 
2631* 
2648* 
2820* 
2837* 
2854* 
2874* 
2888* 
2902* 
2919* 
2936* 
2950* 
3124* 
3141* 
3158* 
3178* 
3192* 
3206* 
3223* 
3240* 
3414* 
3428* 
3445* 
3462* 
3482* 
3496* 
3510* 
3527* 
3541* 
3558* 


899 
1051 
1068 
1090 
1110 
1251 
1268 
1463 
1481 
1503 
1526 
1881 
1898 
2215 
2232 
2254 
2268 
2294 
2311 
2325 
2552 
2569 
2591 
2614 
2631 
2648 
2820 
2837 
2854 
2874 
2888 
2902 
2919 
2936 
2950 
3124 
3141 
3158 
3178 
3192 
3206 
3223 
3240 
3414 
3428 
3445 
3462 
3482 
3496 
3510 
3527 
3541 
3558 


901* 

901 

903* 

1053* 

1053 

1055* 

1070* 

1070 

1072* 

1092* 

1092 

1094* 

1115* 

1115 

1117* 

1253* 

1253 

1255* 

1270* 

1270 

1275* 

1465* 

1465 

1467* 

1483* 

1483 

1488* 

1505* 

1505 

1507* 

1528* 

1528 

1662* 

1883* 

1883 

1885* 

1975* 

1975 

1977* 

2217* 

2217 

2219* 

2234* 

2234 

2236* 

2256* 

2256 

2258* 

2273* 

2273 

2278* 

2296* 

2296 

2298* 

2313* 

2313 

2315* 

2327* 

2327 

2542* 

2557* 

2557 

2559* 

2571* 

2571 

2576* 

2593* 

2593 

2595* 

2619* 

2619 

2621* 

2633* 

2633 

2635* 

2650* 

2650 

2652* 

2822* 

2822 

2824* 

2839* 

2839 

2841* 

2856* 

2856 

2858* 

2876* 

2876 

2878* 

2890* 

2890 

2892* 

2904* 

2904 

2906* 

2921* 

2921 

2923* 

2938* 

2938 

2940* 

2952* 

2952 

3114* 

3126* 

3126 

3128* 

3143* 

3143 

3145* 

3160* 

3160 

3162* 

3180* 

3180 

3182* 

3194* 

3194 

3196* 

3208* 

3208 

3210* 

3225* 

3225 

3227* 

3242* 

3242 

3244* 

3416* 

3416 

3418* 

3430* 

3430 

3432* 

3447* 

3447 

3449* 

3464* 

3464 

3466* 

3484* 

3484 

3486* 

3498* 

3498 

3500* 

3512* 

3512 

3514* 

3529* 

3529 

3531* 

3543* 

3543 

3548* 

3560* 

3560 

3562* 

903 

905* 

905 

907* 

907 

1055 

1057* 

1057 

1059* 

1059 

1072 

1077* 

1077 

1079* 

1079 

1094 

1096* 

1096 

1098* 

1098 

1117 

1240* 

1240 

1242* 

1242 

1255 

1257* 

1257 

1259* 

1259 

1275 

1280* 

1280 

1282* 

1282 

1467 

1469* 

1469 

1471* 

1471 

1488 

1490* 

1490 

1492* 

1492 

1507 

1509* 

1509 

1514* 

1514 

1662 

1664* 

1664 

1667* 

1667 

1885 

1887* 

1887 

1889* 

1889 

1977 

1979* 

1979 

1982* 

1982 

2219 

2221* 

2221 

2223* 

2223 

2236 

2238* 

2238 

2240* 

2240 

2258 

2260* 

2260 

2262* 

2262 

2278 

2283* 

2283 

2285* 

2285 

2298 

2300* 

2300 

2302* 

2302 

2315 

2317* 

2317 

2319* 

2319 

2542 

2544* 

2544 

2546* 

2546 

2559 

2561* 

2561 

2563* 

2563 

2576 

2583* 

2583 

2585* 

2585 

2595 

2597* 

2597 

2602* 

2602 

2621 

2623* 

2623 

2625* 

2625 

2635 

2640* 

2640 

2642* 

2642 

2652 

2654* 

2654 

2656* 

2656 

2824 

2826* 

2826 

2828* 

2828 

2841 

2843* 

2843 

2845* 

2845 

2858 

2860* 

2860 

2862* 

2862 

2878 

2880* 

2880 

2882* 

2882 

2892 

2894* 

2894 

2896* 

2896 

2906 

2908* 

2908 

2910* 

2910 

2923 

2925* 

2925 

2927* 

2927 

2940 

2942* 

2942 

2944* 

2944 

3114 

3116* 

3116 

3118* 

3118 

3128 

3133* 

3133 

3135* 

3135 

3145 

3147* 

3147 

3149* 

3149 

3162 

3167* 

3167 

3172* 

3172 

3182 

3184* 

3184 

3186* 

3186 

3196 

3198* 

3198 

3200* 

3200 

3210 

3215* 

3215 

3217* 

3217 

3227 

3229* 

3229 

3231* 

3231 

3244 

3246* 

3246 

3248* 

3248 

3418 

3420* 

3420 

3422* 

3422 

3432 

3437* 

3437 

3439* 

3439 

3449 

3451* 

3451 

3453* 

3453 

3466 

3471* 

3471 

3476* 

3476 

3486 

3488* 

3488 

3490* 

3490 

3500 

3502* 

3502 

3504* 

3504 

3514 

3516* 

3516 

3518* 

3518 

3531 

3533* 

3533 

3535* 

3535 

3548 

3550* 

3550 

3552* 

3552 

3562 

3564* 

3564 

3734* 

3734 

SEO  1975 


[Q  1963 


$CHR 


3736# 
3750# 
3767# 
378A# 
3804# 
381 8# 
3832# 
3846# 
3863# 
3880# 
389A# 

156# 

173# 

190# 

207* 

221* 

376# 

393# 

41 7# 

434# 

A51# 

553# 

568# 

670# 

800« 

81 7# 

837# 

857* 

878# 

895# 

909* 

1061* 

1081* 

1103* 

1247* 

1261* 

1459* 

1473* 

1499# 

1516* 

1669* 

1891* 

1984* 

2228* 

2242* 

2264* 

229^* 

23C  ,* 

2321* 

2548* 

2565* 

2587* 


3736 
3750 
3767 
3784 
3804 
3818 
3832 
3846 
3863 
3880 
3894 
142 
156 
173 
190 
207 
221 
376 
393 
417 
434 
451 
553 
568 
670 
800 
817 
837 
857 
878 
895 
909 
1061 
'081 
1103 
1247 
1261 
1459 
1473 
1499 
1516 
1669 
1891 
1984 
2228 
2242 
2264 
2290 
2304 
2321 
2548 
2565 
2587 


3738* 
3752* 
3769* 
3786* 
3806* 
3820* 
3834* 
3848* 
3865* 
3882* 

144* 
158* 
175* 
192* 
209* 
360* 
378* 
398* 
419* 

555* 

570* 

673* 

802* 

819* 

839* 

859* 

880* 

897* 

911* 

1063* 

1088* 

1105* 

1249* 

1266* 

1461* 

1479* 

1501* 

1521* 

1879* 

1896* 

2213* 

2230* 

2247* 

2266* 

2292* 

2306* 

2323* 

2550* 

2567* 

2589* 


3738 
3752 
3769 
3786 
3806 
3820 
3834 
3848 
3865 
3882 

144 

158 

175 

192 

209 

360 

378 

398 

419 

436 

453 

555 

570 

673 

802 

819 

839 

859 

880 

897 

911 

1063 

1088 

1105 

1249 

1266 

1461 

1479 

1501 

1521 

1879 

1896 

2213 

2230 

2247 

2266 

2292 

2306 

2323 

2550 

2567 

2589 


3740* 
3754* 
3771* 
3788* 
3808* 
3822* 
3836* 
3850* 
3867* 
3884* 

146* 

163* 

177* 

194* 

211* 

362* 

380* 

400* 

424* 

438* 

455* 

557* 

572* 

675* 

804* 

824* 

841* 

864* 

882* 

899* 

1051* 

1068* 

1090* 

1110* 

1251* 

1268* 

1463* 

1481* 

1503* 

1526* 

1881* 

1898* 

2215* 

2232* 

2254* 

226S* 

2294* 

2311* 

2325* 

2552* 

2569* 

2591* 


3740 
3754 
3771 
3788 
3808 
3822 
3836 
3850 
3867 
3884 

146 

163 

177 

194 

211 

362 

380 

400 

424 

438 

455 

557 

572 

675 

804 

824 

841 

864 

882 

899 

1051 

1068 

1090 

1110 

1251 

1268 

1463 

1481 

1503 

1526 

1881 

1898 

2215 

2232 

2254 

2268 

2294 

2311 

2325 

2552 

2569 

2591 


3742* 
3756* 
3773* 
3793* 
3810* 
3824* 
3838* 
3852* 
3869* 
3886* 

148* 

165* 

179* 

196* 

213* 

364* 

382* 

406* 

426* 

440* 

457* 

559* 

662* 

677* 

806* 

826* 

843* 

866* 

884* 

901* 

1053* 

1070* 

1092* 

1115* 

1253* 

1270* 

1465* 

1483* 

1505* 

1528* 

188'* 

1973* 

2217* 

2234* 

2256* 

2273* 

2296* 

2313* 

2327* 

2557* 

2571* 

2593* 


3742 
3756 
3773 
3793 
3810 
3824 
3838 
3852 
3869 
3886 

148 

165 

179 

196 

213 

364 

382 

406 

426 

440 

457 

559 

662 

677 

806 

826 

843 

866 

884 

901 

1053 

1070 

1092 

1115 

1253 

1270 

1465 

1483 

1505 

1528 

1883 

1975 

2217 

2234 

2256 

2273 

2296 

2313 

2327 

2557 

2571 

2593 


3744* 
3761* 
3775* 
3798* 
3812* 
3826* 
3840* 
3857* 
3871* 
3888* 

150* 

167* 

184* 

198* 

215* 

366* 

387* 

408* 

428* 

445* 

459* 

562* 

664* 

679* 

808* 

828* 

848* 

869* 

886* 

903* 

1055* 

1072* 

1094* 

1117* 

1255* 

1275* 

1467* 

1488* 

1507* 

1662* 

1885* 

1977* 

2219* 

2236* 

2258* 

2278* 

2298* 

2315* 

2542* 

2559* 

2576* 

2595* 


3744 
3761 
3775 
3798 
3812 
3826 
3840 
3857 
3871 
3888 

150 

167 

184 

198 

215 

366 

387 

408 

428 

445 

459 

562 

664 

679 

808 

828 

848 

869 

886 

903 

1^55 

1072 

1094 

1117 

1255 

1275 

1467 

1488 

1507 

1662 

1885 

1977 

2219 

2236 

2258 

2278 

2298 

2315 

2542 

2559 

2576 

2595 


3746* 
3763* 
3780* 
3800* 
3814* 
3828* 
3842* 
3859* 
3873* 
3890* 

152* 

169* 

186* 

200* 

217* 

368* 

389* 

410* 

430* 

447* 

461* 

564* 

666* 

681* 

813* 

830* 

853* 

874* 

888* 

905* 

1057* 

1077* 

1096* 

1240* 

1257* 

1280* 

1469* 

1490* 

1509* 

1664* 

1887* 

1979* 

2221* 

2238* 

2260* 

2283* 

2300* 

2317* 

2544* 

2561* 

2533* 

2597* 


3746 
3763 
3780 
3800 
3814 
3828 
3842 
3859 
3873 
3890 

152 

169 

186 

200 

217 

368 

389 

410 

430 

447 

461 

564 

666 

681 

813 

830 

853 

874 

888 

905 

1057 

1077 

1096 

1240 

1257 

1280 

1469 

1490 

1509 

1664 

1887 

1979 

2221 

2238 

2260 

2283 

2300 

2317 

2544 

2561 

2583 

2597 


3748* 
3765* 
3782* 
3802* 
3816* 
3830* 
3844* 
3861* 
3878* 
3892* 

154* 

171* 

188* 

205* 

219* 

371* 

391* 

415* 

432* 

449* 

551* 

566* 

668* 

683* 

815* 

832* 

855* 

876* 

890* 

907* 

1059* 

1079* 

1098* 

1242* 

1259* 

1282* 

1471* 

1492* 

1514* 

1667* 

1889* 

1982* 

2223* 

2240* 

2262* 

2285* 

2302* 

2319* 

2546* 

2563* 

2585* 

2602* 


3748 
3765 
3782 
3802 
3816 
3830 
3844 
3861 
3878 
3892 

154 

171 

188 

205 

219 

371 

391 

415 

432 

449 

551 

566 

668 

683 

815 

832 

855 

876 

890 

907 

1059 

1079 

1098 

1242 

1259 

1282 

1471 

1492 

1514 

1667 

1889 

1982 

2223 

2240 

2262 

2285 

2302 

2319 

2546 

2563 

2585 

2602 


SEQ  1976 


64 


SGARG 


2607# 

2607 

2612* 

2612 

2614* 

2614 

2619* 

2619 

2621* 

2621 

2623* 

2623 

2625* 

2625 

2627# 

2627 

2629* 

2629 

2631* 

2631 

2633* 

2633 

2635* 

2635 

2640* 

2640 

2642* 

2642 

2644# 

2644 

2646* 

2646 

2648* 

2648 

2650* 

2650 

2652* 

2652 

2654* 

2654 

2656* 

2656 

2816* 

2816 

2818* 

2818 

2820* 

2820 

2822* 

2822 

2824* 

2824 

2826* 

2826 

2828* 

2828 

2830* 

2830 

2835* 

2835 

2837* 

2837 

2839* 

2839 

2841* 

2841 

2843* 

2843 

2845* 

2845 

284  7# 

2847 

2849* 

2849 

2854* 

2854 

2856* 

2856 

2858* 

2858 

2860* 

2860 

2862* 

2862 

2867* 

2867 

2872* 

2872 

2874* 

2874 

2876* 

2876 

2878* 

2878 

2880* 

2880 

2882* 

2882 

2884# 

2884 

2886* 

2886 

2888* 

2888 

2890* 

2890 

2892* 

2892 

2894* 

2894 

2896* 

2896 

2898# 

2898 

2900* 

2900 

2902* 

2902 

2904* 

2904 

2906* 

2906 

2908* 

2908 

2910* 

2910 

2915* 

2915 

2917* 

2917 

2919* 

2919 

2921* 

2921 

2923* 

2923 

2925* 

2925 

2927* 

2927 

2929* 

2929 

2931* 

2931 

2936* 

2936 

2938* 

2938 

2940* 

2940 

2942* 

2942 

2944* 

2944 

2946* 

2946 

2948* 

2948 

2950* 

2950 

2952* 

2952 

3114* 

3114 

3116* 

3116 

3118* 

3118 

3120* 

3120 

3122* 

3122 

3124* 

3124 

3126* 

3126 

3128* 

3128 

3133* 

3133 

3135* 

3135 

3137* 

3137 

3139* 

3139 

3141* 

3141 

3143* 

3143 

3145* 

3145 

3147* 

3147 

3149* 

3149 

3154* 

3154 

3156* 

3156 

3158* 

3158 

3160* 

3160 

3162* 

3162 

3167* 

3167 

3172* 

3172 

3174* 

3174 

3176* 

3176 

3178* 

3178 

3180* 

3180 

3182* 

3182 

3184* 

3184 

3186* 

3186 

3188* 

3188 

3190* 

3190 

3192* 

3192 

3194* 

3194 

3196* 

3196 

3198* 

3198 

3200* 

3200 

3202* 

3202 

3204* 

3204 

3206* 

3206 

3208* 

3208 

3210* 

3210 

32  i  5* 

3215 

3217* 

3217 

3219* 

3219 

3221* 

3221 

3223* 

3223 

3225* 

3225 

3227* 

3227 

3229* 

3229 

3231* 

3231 

3236* 

3236 

3238* 

3238 

3240* 

3240 

3242* 

3242 

3244* 

3244 

3246* 

3246 

3248* 

3248 

3250* 

3250 

3252* 

3252 

3414* 

3414 

3416* 

3416 

3418* 

3418 

3420* 

3420 

3422* 

3422 

3424* 

3424 

3426* 

3426 

3428* 

3428 

3430* 

3430 

3432* 

3432 

3437* 

3437 

3439* 

3439 

3441* 

3441 

3443* 

3443 

3445* 

3445 

3447* 

3447 

3449* 

3449 

3451* 

3451 

3453* 

3453 

3458* 

3458 

3460* 

3460 

3462* 

3462 

3464* 

3464 

3466* 

3466 

3471* 

3471 

3476* 

3476 

3478* 

3478 

3480* 

3480 

3482* 

3482 

3484* 

3484 

3486* 

3486 

3488* 

3438 

3490* 

3490 

3492* 

3492 

3494* 

3494 

3496* 

3496 

3498* 

3498 

3500* 

3500 

3502* 

3502 

3504* 

3504 

3506* 

3506 

3508* 

3508 

3510* 

3510 

3512* 

3512 

3514* 

3514 

3516* 

3516 

3518* 

3518 

3520* 

3520 

3522* 

3522 

3527* 

3527 

3529* 

3529 

3531* 

3531 

3533* 

3533 

3535* 

3535 

3537* 

3537 

3539* 

3539 

3541* 

3541 

3543* 

3543 

3548* 

3548 

3550* 

3550 

3552* 

3552 

3554* 

3554 

3556* 

3556 

3558* 

3558 

3560* 

3560 

3562* 

3562 

3564* 

3564 

3734* 

3734 

3736* 

3736 

3738* 

3738 

3740* 

3740 

3742* 

3742 

3744* 

3744 

3746* 

3746 

3748* 

3748 

3750* 

3750 

3752* 

3752 

3754* 

3754 

3756* 

3756 

3761* 

3761 

3763* 

3763 

3765* 

3765 

3767* 

3767 

3769* 

3769 

3771* 

3771 

3773* 

3773 

3775* 

3775 

3780* 

3780 

3782* 

3782 

3784* 

<784 

378b* 

3786 

3788* 

3788 

3793* 

3793 

3798* 

3798 

3800* 

3800 

3802* 

3802 

3804* 

3804 

3806* 

3806 

3808* 

3808 

3810* 

3810 

3812* 

3812 

3814* 

3814 

3816* 

3816 

3818* 

3818 

3820* 

3820 

3822* 

3822 

3824* 

3824 

3826* 

3826 

3828* 

3828 

3830* 

3830 

3832* 

3832 

3834* 

3834 

3836* 

3836 

3838* 

3838 

3840* 

3840 

3842* 

3842 

3844* 

3844 

3846* 

3846 

3848* 

3848 

3850* 

3850 

3852* 

3852 

3857* 

3857 

3859* 

3859 

3861* 

3861 

3863* 

3863 

3865* 

3865 

3867* 

3867 

3869* 

3869 

3871* 

3871 

3873* 

3873 

3878* 

3878 

3880* 

3894* 

142* 

3880 

3894 

142 

3882* 

3882 

3884* 

3884 

3886* 

3886 

3888* 

3888 

3890* 

3890 

3892* 

3892 

144* 

144 

146* 

146 

148* 

148 

150* 

150 

152* 

152 

154* 

154 

156* 

156 

158* 

158 

163* 

163 

165* 

165 

167* 

167 

169* 

169 

171* 

171 

173* 

173 

175* 

175 

177* 

177 

179* 

179 

184* 

184 

186* 

186 

188* 

188 

190* 

190 

192* 

192 

194* 

194 

196* 

196 

198* 

198 

200* 

200 

205* 

205 

207* 

207 

209* 

209 

211* 

211 

213* 

213 

215* 

215 

217* 

217 

219* 

219 

221* 

221 

360* 

360 

362* 

362 

364* 

364 

366* 

366 

368* 

368 

371* 

371 

376* 

376 

378* 

378 

380* 

380 

382* 

382 

387* 

387 

389* 

389 

391* 

391 

393* 

393 

398* 

398 

400* 

400 

406* 

406 

408* 

408 

410* 

410 

415* 

415 

417* 

417 

419* 

419 

424* 

424 

426* 

426 

428* 

428 

430* 

430 

432* 

432 

434* 

434 

436* 

436 

438* 

438 

440* 

440 

445* 

445 

447* 

447 

449* 

449 

451* 

451 

453* 

453 

455* 

455 

457* 

457 

459* 

459 

461* 

461 

551* 

551 

553* 

553 

555* 

555 

557* 

557 

559* 

559 

562* 

562 

564* 

564 

566* 

566 

SEQ  1977 


C-7T 


l.i.'iM 


LL-i 


LLI.lt 


LLL 


LLLM 


LLL 


LLBM 


LLR 


568* 
670* 
800* 
817* 
837* 
857* 
878* 
895* 
909* 
1061* 
1081* 
1103* 
1247* 
1261* 
1459* 
1473* 
1499* 
1516* 
1669* 
1891* 
1984* 
2228* 
2242* 
2264* 
2290* 
2304* 
2321* 
2548* 
256S* 
2587* 
2607* 
2627* 
2644* 
2816* 
2830* 
2847* 
2867* 
2884* 
2898* 
2915* 
2929* 
2946* 
3120* 
3137* 
3154* 
3174* 
3188* 
3202* 
?219* 
3236^ 
3250* 
3424* 
3441* 


568 

570* 

570 

572* 

572 

670 

673* 

673 

675* 

675 

800 

802* 

802 

804* 

804 

817 

819* 

819 

824* 

824 

837 

839* 

839 

841* 

841 

857 

859* 

859 

864* 

864 

878 

880* 

880 

§§2* 

882 

895 

897* 

897 

899* 

899 

909 

911* 

911 

1051* 

1051 

1061 

1063* 

1063 

1068* 

1068 

1081 

1088* 

1088 

1090* 

1090 

1103 

1105* 

1105 

1110* 

1110 

1247 

1249* 

1249 

1251* 

1251 

1261 

1266* 

1266 

1268* 

1268 

1459 

1461* 

1461 

1463* 

1463 

1473 

1479* 

1479 

148U 

1481 

1499 

1501* 

1501 

1503* 

1503 

1516 

152U 

1521 

1526* 

1526 

1669 

1879* 

1879 

1881* 

1881 

1891 

1896* 

1896 

1898* 

1898 

1984 

2213* 

2213 

2215* 

2215 

2228 

2230* 

2230 

2232* 

2232 

2242 

2247* 

2247 

2254* 

2254 

2264 

2266* 

2266 

2268* 

2268 

2290 

2292* 

2292 

2294* 

2294 

2304 

2306* 

2306 

2311* 

2311 

2321 

2323* 

2323 

2325* 

2325 

2548 

2550* 

2550 

2552* 

2552 

2565 

2567* 

2567 

2569* 

2569 

2587 

2589* 

2589 

2591* 

2591 

2607 

2612* 

2612 

2614* 

2614 

2627 

2629* 

2629 

2631* 

2631 

?644 

2646* 

2646 

2648* 

2648 

i816 

2818* 

2818 

2820* 

2820 

2830 

2  35* 

2835 

2837* 

2837 

2847 

2  49* 

2849 

2854* 

2854 

2867 

2  72* 

2872 

2874* 

2874 

2884 

2  86* 

2886 

2888* 

2888 

2898 

2900* 

2900 

2902* 

2902 

2915 

2917* 

2917 

2919* 

2919 

2929 

2931* 

2931 

2936* 

^936 

2946 

2948* 

2948 

2950* 

29«;o 

3120 

3122* 

3122 

3124* 

3124 

3137 

3139* 

3139 

3141* 

3141 

3154 

3156* 

3156 

3158* 

3158 

3174 

3176* 

3176 

3178* 

3178 

3188 

3190* 

3190 

3192* 

3192 

3202 

3?n4# 

3204 

3206* 

3206 

3219 

3.J1* 

3223* 

3223 

3236 

3238* 

3238 

3240* 

3240 

3250 

3252* 

3252 

3414* 

3414 

3424 

3426* 

3426 

3428* 

3428 

3441 

3443* 

3443 

3445* 

3445 

662* 

662 

664* 

677* 

677 

679* 

806* 

806 

808* 

826* 

826 

828* 

84:* 

843 

848* 

866* 

866 

869* 

884* 

884 

903* 

901* 

901 

1053* 

1053 

1055* 

1070* 

1070 

1072* 

1092* 

1092 

1094* 

1115* 

1115 

1117* 

1253* 

1253 

1255* 

1270* 

1270 

1275* 

1465* 

1465 

1467* 

1483* 

1483 

1488* 

1505* 

1505 

1507* 

1528* 

1528 

1662* 

1883* 

1883 

1885* 

1975* 

1975 

1977* 

2217* 

2217 

2219* 

2234* 

2234 

2236* 

2256* 

2256 

2258* 

2273* 

2273 

2278* 

2296* 

2296 

2298* 

2313* 

2313 

2315* 

2327* 

'327 

2542* 

2557* 

2557 

2559* 

2571* 

2571 

2576* 

2593* 

2593 

2595* 

2619* 

2619 

2621* 

2633* 

2633 

2635* 

2650* 

2650 

2652* 

2C22* 

2822 

2824* 

2839* 

2839 

2841* 

2856* 

2856 

2858* 

2876* 

2876 

2878* 

2890* 

2890 

2892* 

2904* 

2904 

2906* 

2921* 

2921 

2923* 

2938* 

2938 

2940* 

2952* 

2952 

3114* 

:126* 

3126 

3128* 

:i43* 

3143 

3145* 

3160.* 

3160 

3162* 

]180* 

3180 

3^82* 

3194* 

3194 

3196* 

3208* 

3208 

3210* 

3225* 

3225 

3227* 

3242* 

3242 

3244* 

3416* 

3416 

3418* 

3430* 

3430 

3432* 

3447* 

3447 

3449* 

664 
679 
808 
828 
848 
869 
886 
903 
1055 
1072 
1094 
1117 
1255 
1275 
1467 
1488 
1507 
1662 
1885 
1977 
2219 
2236 
2258 
2278 
2298 
2315 
2542 
2559 
2576 
2595 
2621 
2635 
2652 
2824 
2841 
2858 
2878 
2892 
2906 
2923 
2940 
3114 
3128 
3145 
3162 
3182 
3196 
3210 
3227 
3244 
3418 
3432 
3449 


666* 

666 

668* 

668 

681* 

681 

683* 

683    SEO 

813* 

813 

815* 

815 

830* 

830 

832* 

832 

853* 

853 

855* 

855 

874* 

874 

876* 

876 

888* 

888 

890* 

890 

905* 

905 

907* 

907 

1057* 

1057 

1059* 

1059 

1077* 

1077 

1079* 

1079 

1096* 

1096 

1098* 

1098 

1240* 

1240 

1242* 

1242 

1257* 

1257 

1259* 

1259 

1280* 

1280 

1282* 

1282 

1469* 

1469 

1471* 

1471 

1490* 

1490 

1492* 

1492 

1509* 

1509 

1514* 

1514 

1664* 

1664 

1667* 

1667 

1887* 

1887 

1889* 

1889 

1979* 

1979 

1982* 

1982 

2221* 

2221 

?223* 

2223 

2238* 

2238 

2240* 

2240 

2260* 

2260 

2262* 

2262 

2283* 

2283 

2285* 

2285 

2300* 

2300 

2302* 

2302 

2317* 

2317 

2319* 

2519 

2544* 

2544 

2546* 

2546 

2561* 

2561 

2563* 

2563 

2583* 

2583 

2585* 

2585 

2597* 

2597 

2602* 

2602 

2623* 

2623 

2625* 

2625 

2640* 

2640 

2642* 

2642 

2654* 

2654 

2656* 

2656 

2826* 

2826 

2828* 

2828 

2843* 

2843 

2845* 

2845 

2860* 

2860 

2862* 

2862 

2880* 

2880 

2882* 

2882 

2894* 

2894 

2896* 

2896 

2908* 

2908 

2910* 

2910 

2925* 

2925 

2927* 

2927 

2942* 

2942 

2944* 

2944 

3116* 

3116 

3118* 

3118 

3133* 

3133 

3135* 

3135 

3147* 

3147 

3149* 

3149 

3167* 

3167 

3172* 

3172 

3184* 

3184 

3186* 

3186 

3198* 

3198 

3200* 

3200 

3215* 

3215 

3217* 

3217 

3229* 

3229 

3231* 

3231 

3246* 

3246 

3248* 

3248 

3420* 

3420 

3422* 

3422 

3437* 

3439* 

3439 

3451* 

3451 

3453* 

3453 

•»»/-»  ti/iu         ti  L I  ■7II./.U         trj./:  7/.71*         1/71  XL7kM         7A7A 


?66 


XADDR 


3A58# 
3A78* 
3A92# 
3506# 
3520# 
3537# 
355A# 
3736# 
3750# 
3767# 
3784# 
3804# 
381 8# 
3832# 
38A6# 
3863# 
3880# 
389A# 
1A2# 
156 

190 


m 


76 
593 

417 
434 
451 
553 
568 
670 
BOOtf 
817 
837 
857 
878 
895# 
909 
1061 
1081 
1103* 
1247 
1261 
1459* 
1473 
1499# 
1516 
ifS9 
1891 
1984 
2228 
2242 


3458 

3478 

3492 

3506 

3520 

3537 

3554 

3736 

3750 

3767 

3784 

3804 

3818 

3832 

3846 

3863 

3880 

3894 
142 
156* 
173* 
190* 
207* 
221* 
376* 
393* 
417* 
434* 
451* 
553* 
568* 
670* 
800 
817* 
837* 
857* 
878* 
895 
909* 

1061* 

1081* 

1103 

1247* 

1261* 

1459 

1473* 

1499 

1516* 

1669* 

1891* 

1984* 

2228* 
2242* 


3460* 
3480* 
3494* 
3508* 
3522* 
3539* 
3556* 
3738* 
3752* 
3769* 
3786* 
3806* 
3820* 
3834* 
3848* 
3865* 
3882* 

144 

158 

175 

192 

209 

360* 

378 

398 

419 

436 

453 

555 

570 

673* 

80:^ 

819 

839 

859 

880 

897 

911 

10o3 

1088* 

1105 

1249 

1266 

1461 

1479 

1501 

1521* 

1879* 

1896* 

2213* 

2230 

2247 


3460 
3480 
3494 
3508 
3522 
3539 
3556 
3738 
3752 
3769 
3786 
3806 
.^20 
3834 
3848 
3865 
3882 

144* 

158* 

175* 

192* 

209* 

360 

378* 

398* 

419* 

436* 

453* 

555* 

570* 

673 

802* 

819* 

839* 

859* 

880* 

897* 

911* 

1063* 

1088 

1105* 

1249* 

1266* 

1461* 

1479* 

1501* 

1521 

1879 

1896 

2213 

2230* 

2247* 


3462* 
3482* 
3496* 
3510* 
3527* 
3541* 
3558* 
3740* 
3754* 
3771* 
3788* 
3808* 
3822* 
3836* 
3550* 
3867* 
3884* 

146 
163* 
177 
194 

2U 
362 

380 

400 

424* 

438 

455 

557 

572 

675 

804 

824 

841 

864* 

882 

899 

1051* 

1068 

1090 

1110* 

1251 

1268 

1463 

1481 

1503 

1526* 

1881 

1898 

2215* 

2232 

2254* 


3462 
3482 
3496 
3510 
3527 
3541 
3558 
3740 
3754 
3771 
3788 
3808 
3822 
3836 
3850 
3867 
3884 

146* 
163 
177* 
194* 
211* 
362* 
380* 
400* 
424 
438* 
455* 
557* 
572* 
675* 
804* 
824* 
841* 
864 
882* 
899* 
1051 
1068* 
1090* 
1110 
1251* 
1268* 
1463* 
1481* 
1503* 
1526 
1881* 
1898* 
2215 
2232* 
2254 


3464* 
3484* 
3498* 
3512* 
3529* 
3543* 
3560* 
3742* 
3756* 
3773* 
3793* 
3810* 
3824* 
3838* 
3852* 
3869* 
3886* 

148 

165 

179 

196 

213 

364 

382 

406* 

426 

440 

457 

559 

662* 

677 

806 

826 

843 

866 

884 

901 

1053 

1070 

1092 

1115* 

1253 

1270 

1465 

1483 

1505 

1528 

1883 

1975* 

2217 

2234 

2256 


3464 
3484 
3498 
3512 
3529 
3543 
3560 
3742 
3756 
3773 
3793 
3810 
3824 
3838 
3852 
3869 
3886 

148* 

165* 

179* 

196* 

213* 

364* 

382* 

406 

426* 

440* 

457* 

559* 

662 

677* 

806* 

826* 

843* 

866* 

884* 

901* 

1053* 

1070* 

1092* 

1115 

1253* 

1270* 

1465* 

1483* 

1505* 

1528* 

1883* 

1975 

2217* 

2234* 

2256* 


3466* 
3486* 
3500* 
3514* 
3531* 
3548* 
3562* 
3744* 
3761* 
3775* 
3798* 
3812* 
3826* 
3840* 
3857* 
3871* 
3888* 

150 

167 

184* 

198 

215 

366 

387 

408 

428 

445* 

459 

562* 

664 

679 

808 

828 

848 

869 

886 

903 

1055 

1072 

1094 

1117 

1255 

1275* 

1467 

1488 

1507 

1662* 

1885 

1977 

2219 

2236 

2258 


3466 
3486 
3500 
3514 
3531 
3548 
3562 
3744 
3761 
3775 
3798 
3812 
3826 
3840 
3857 
3871 
3888 

150* 

167* 

184 

198* 

215* 

366* 

387* 

408* 

428* 

445 

459* 

562 

664* 

679* 

808* 

828* 

848* 

869* 

886* 

903* 

1055* 

1072* 

1094* 

1117* 

1255* 

1275 

1467* 

1488* 

1507* 

1662 

1885* 

1977* 

2219* 

2236* 

2258* 


3471* 
3488* 
3502* 
3516* 
3533* 
3550* 
3564* 
3746* 
3763* 
3780* 
3800* 
3814* 
3828* 
3842* 
3859* 
3873* 
3890* 

152 

169 

186 

200 

217 

368 

389 

410 

430 

447 

461 

564 

666 

681 

813 

830 

853* 

874* 

888 

905 

1057 

1077 

1096 

1240* 

1257 

1280* 

1469 

1490 

1509 

1664 

1887 

1979 

2221 

2238 

2260 


3471 

3476* 

3488 

3490* 

3502 

3504* 

3516 

3518* 

3533 

3535* 

3550 

3552* 

3564 

3734* 

3746 

3748* 

3763 

3765* 

3780 

3782* 

3800 

3802* 

3814 

3816* 

5828 

3830* 

3842 

3844* 

3859 

3861* 

3873 

3878* 

3890 

3892* 

152* 

169* 

186* 

200* 

217* 

368* 

389* 

410* 

430* 

447* 

461* 

564* 

666* 

681* 

813* 

830* 

853 

874 

888* 

905* 

1057* 

1077* 

1096* 

1240 

1257* 

1280 

1469* 

1490* 

1509* 

1664* 

1887* 

1979* 

2221* 

2238* 

2260* 


154 

171 

188 

205* 

219 

371 

391 

415* 

432 

449 

551* 

566 

668 

683 

815 

832 

855 

876 

890 

907 

^059 

079 

98 

.42 

59 

B2 

•1 

V2 

>14* 

■  67* 

.889 

1982 

2223 

2240 

2262 


3476 
3490 
3504 
3518 
3535 
3552 
3734 
3748 
3765 
3782 
3802 
3816 
3830 
3844 
3861 
3878 
3892 

154* 

171* 

188* 

205 

219* 

371* 

391* 

415 

432* 

449* 

551 

566* 

668* 

683* 

815* 

832* 

855* 

876* 

890* 

907* 

1059* 

1079* 

1098* 

1242* 

1259* 

1282* 

1471* 

1492* 

1514 

1667 

1889* 

1982* 

2223* 

2240* 

2262* 


SEQ  1979 


„_J 


'^ '%<»'»  i* 


OOQC« 


967 


226; 

2264# 

2266 

2266* 

2268 

2268* 

2273* 

2273 

2278* 

2290# 

2290 

2292 

2292* 

2294 

2294* 

2296 

2296* 
2313* 

2298 

230A 

2304* 

2306 

2306* 

2311* 

2311 

2313 

2315 

2321 

2321* 

2323 

2323* 

2325 

2325* 

2327 

2327* 

2542* 

2548 

2548# 

2550 

2550* 

2552 

2552* 

2557 

2557* 

2559 

2565 

2565* 

2567 

2567* 

2569 

2569* 

2571 

2571* 

2576 

2587 

2587* 

2589 

2589* 

2591 

2591* 

2593 

2593* 

2595 

2607* 

2607 

2612* 

2612 

2614 

2614* 

2619* 

2619 

2621 

2627 

2627* 

2629 

2629* 

2631 

2631* 

2633 

2633* 

2635 

26A4 

2644# 

2646 

2646* 

2648 

2648* 

2650 

2650* 

2652 

2816* 

2816 

2818 

2818* 

2820 

2820* 

2822 

2822* 

2824 

2830 

2830* 

2835* 

2835 

2837 

2837* 

2839 

2839* 

2841 

2847 

2847* 

2849 

2849* 

2854* 

2854 

2856 

2856* 

2858 

2867# 

2867 

2872* 

2872 

2874 

2874* 

2876 

2876* 

2878 

288A 

2884* 

2886 

2886* 

2888 

2888* 

2890 

2890* 

2892 

2898 

2898# 

2900 

2900* 

2902 

2902* 

2904 

2904* 

2906 

291 5# 

2915 

2917 

2917* 

2919 

2919* 

2921 

2921* 

2923 

2929 

2929* 

2931 

2931* 

2936* 

2936 

2938 

2938* 

2940 

29A6 

2946* 

2948 

2948* 

2950 

2950* 

2952 

2952* 

3114* 

3120 

3120* 

3122 

3122* 

3124 

3124* 

3126 

3126* 

3128 

3137 

3137* 

3139 

3139* 

3141 

3141* 

3143 

3143* 

3145 

315A# 

3154 

3156 

3156* 

3158 

3158* 

3160 

3160* 

3162 

3174 

3174* 

3176 

3176* 

3178 

3178* 

3180 

3180* 

3182 

3188 

3188* 

3190 

3190* 

3192 

3192* 

3194 

3194* 

3196 

3202 

3202* 

3204 

3204* 

3206 

3206* 

3208 

3208* 

3210* 

:!219 

3219* 

3221 

3221* 

3223 

3223* 

3225 

3225* 

3227 

:236# 

3236 

3238 

3238* 

3240 

3240* 

3242 

3242* 

3244 

3250 

3250* 

3252 

3252* 

3414* 

3414 

3416 

3416* 

3418 

:424 

3424* 

3426 

3426* 

3428 

3428* 

3430 

3430* 

3432 

:44i 

3441* 

3443 

3443* 

3445 

3445* 

3447 

3447* 

3449 

:458# 

3458 

3460 

3460* 

3462 

3462* 

3464 

3464* 

3466 

;478 

3478* 

3480 

3480* 

3482 

3482* 

3484 

3484* 

3486 

:492 

3492* 

3494 

3494* 

3496 

3496* 

3498 

3498* 

3500 

:506 

<506* 

3508 

3508* 

3510 

3510* 

3512 

3512* 

3514 

3520 

3520* 

3522* 

3522 

3527* 

3527 

3529 

3529* 

3531 

3537 

3537* 

3539 

3539* 

3541 

3541* 

3543 

3543* 

3548* 

3554 

3554* 

3556 

3556* 

3558 

3558* 

3560 

3560* 

3562 

3736 

3736* 

3738 

3738* 

37h0 

3740* 

3742 

3742* 

3744 

3750 

3750* 

3752 

3752* 

3754 

3754* 

3756 

3756* 

3761* 

3767 

3767* 

3769 

3769* 

3771 

3771* 

3773 

3773* 

3775 

3784 

3784* 

3786 

3786* 

3788 

3788* 

:793* 

3793 

3798* 

3804 

3804* 

3806 

3806* 

3808 

3808* 

;8io 

3810* 

3812 

3818 

3818* 

3820 

3820* 

3822 

3822* 

3824 

3826 

3832 

3832* 

3834 

3834* 

3836 

3836* 

3838 

3838* 

3840 

3846 

3846* 

3848 

3848* 

3850 

3850* 

3852* 

3852 

3857* 

3863 

3863* 

3865 

3865* 

3867 

3867* 

3869 

3869* 

3871 

3880 

3880* 

3882 

3882* 

3884 

3884* 

3886 

3886* 

3888 

3894 

3894* 

XML 

142# 

142 

144* 

144 

146* 

146 

148* 

148 

150* 

156# 

156 

158* 

158 

163* 

163 

165* 

165 

167* 

173* 

173 

175* 

175 

177* 

177 

179* 

179 

184* 

190# 

190 

192* 

192 

194* 

194 

196* 

196 

198* 

2070 

207 

209* 

209 

211* 

211 

213* 

213 

215* 

2278 

2283* 

2283 

2285 

2285* 

2298* 

2300 

2300* 

2302 

2302* 

2315* 

2317 

2317* 

2319 

2319* 

2542 

2544* 

2544 

2546 

2546* 

2559* 

2561 

2561* 

2563 

2563* 

2576* 

2583* 

2583 

2585 

2585* 

2595* 

2597 

2597* 

2602* 

2602 

2621* 

2623 

2623* 

2625 

2625* 

2635* 

2640* 

2640 

2642 

2642* 

2652* 

2654 

2654* 

2656 

2656* 

2824* 

2826 

2826* 

2828 

2828* 

2841* 

284? 

2843* 

2845 

2845* 

2858* 

2860 

2860* 

2862 

2862* 

2878* 

2880 

2880* 

2882 

2882* 

2892* 

2894 

2894* 

2896 

2896* 

2906* 

2908 

2908* 

2910* 

2910 

2923* 

2925 

2925* 

2927 

2927* 

2940* 

2942 

2942* 

2944 

2944* 

3114 

3116 

3116* 

3118 

3118* 

3128* 

3133* 

3133 

3135 

3135* 

3145* 

3147 

3147* 

3149 

3149* 

3162* 

3167* 

3167 

3172* 

3172 

3182* 

3184 

3184* 

3186 

3186* 

3196* 

3198 

3198* 

3200 

3200* 

3210 

3215* 

3215 

3217 

3217* 

3227* 

3229 

3229* 

3231 

3231* 

3244* 

3246 

3246* 

3248 

3248* 

3418* 

3420 

3420* 

3422 

3422* 

3432* 

3437* 

3437 

3439 

3439* 

3449* 

3451 

3451* 

3453 

3453* 

3466* 

3471* 

3471 

3476* 

3476 

3486* 

3488 

3488* 

3490 

3490* 

3500* 

3502 

3502* 

3504 

3504* 

3514* 

3516 

3516* 

3518 

3518* 

3531* 

3533 

3533* 

3535 

3535* 

3548 

3550 

3550* 

3552 

3552* 

3562* 

3564 

3564* 

3734* 

3734 

3744* 

3746 

3746* 

3748 

3748* 

3761 

3763 

3763* 

3765 

3765* 

3775* 

3780* 

3780 

3782 

3782* 

3798 

3800 

3800* 

3802 

3802* 

3812* 

3814 

3814* 

3816 

3816* 

3826* 

3828 

3828* 

3830 

3830* 

3840* 

3842 

3842* 

3844 

3844* 

3857 

3859 

3859* 

3861 

3861* 

3871* 

3873 

3873* 

3878* 

3878 

3888* 

3890 

3890* 

3892 

3892* 

150 

152* 

152 

154* 

154 

167 

169* 

169 

171* 

171 

184 

186* 

186 

188* 

188 

198 

200* 

200 

205* 

205 

215 

217* 

217 

219* 

219 

r" 


SEQ  1980 


.MSE 


.MSE 
.MSK 
.MS^ 
.MTI 
.MX^ 

.RA 


.RA^ 
.RB 


.RC( 
.RC( 
.RC( 
.RC( 

.RC( 
.RC( 
.RCI 
.RC 


.RC 


221# 

376# 

393« 

A17# 

^3A# 

A51# 

553# 

568# 

670# 

800« 

81 7# 

837# 

857# 

878# 

895# 

909# 

1061# 

1081# 

1103* 

1247# 

1261# 

U59# 

1473* 

U99# 

1516# 

1669* 

1891* 

198A# 

2228# 

22A2# 

2264# 

2290# 

230A# 

2321# 

25A8# 

2565# 

2587* 

2607* 

2627* 

2644* 

2816* 

2830* 

2847* 

2867* 

2884* 

2898* 

2915* 

2929* 

2946* 

3120* 

3137* 

3154* 

3174* 


221 

360* 

360 

376 

378* 

378 

393 

398* 

598 

417 

419* 

419 

434 

436* 

436 

451 

453* 

453 

553 

555* 

555 

568 

570* 

570 

670 

673* 

673 

800 

802* 

802 

817 

819* 

819 

837 

839* 

839 

857 

859* 

859 

878 

880* 

880 

895 

897* 

897 

909 

911* 

911 

1061 

1063* 

1063 

1081 

1088* 

1088 

1103 

1105* 

1105 

1247 

1249* 

1249 

1261 

1266* 

1266 

1459 

1461* 

H61 

1473 

1479* 

1479 

1499 

1501* 

1501 

1516 

1521* 

1521 

1669 

1879* 

1879 

1891 

1896* 

1896 

1984 

2213* 

2213 

2228 

2230* 

2230 

2242 

2247* 

224/ 

2264 

2266* 

2266 

2290 

2292* 

2292 

?304 

2306* 

2306 

i321 

2323* 

2323 

2548 

2550* 

2550 

2565 

2567* 

256-^ 

2587 

2589* 

2589 

2607 

2612* 

2612 

2627 

2629* 

2629 

2644 

2646* 

2646 

2816 

2818* 

2818 

2830 

2835* 

2835 

2847 

2849* 

2849 

2867 

2872* 

2872 

2884 

2886* 

2886 

2898 

2900* 

2900 

2915 

2917* 

2917 

2929 

2931* 

2931 

2946 

2948* 

2948 

3120 

3122* 

3122 

3137 

J139* 

3139 

3154 

3156* 

3156 

3174 

3176* 

3176 

362* 

380* 

400* 

424* 

438* 

455* 

557* 

572* 

675* 

804* 

824* 

841* 

864* 

882* 

899* 

1051* 

1068* 

1090* 

1110* 

1251* 

1268* 

1463* 

1481* 

1503* 

1526* 

1881* 

1898* 

2215* 

2232* 

2254* 

2268* 

2294* 

2311* 

2325* 

2552* 

2569* 

2591* 

2614* 

2631* 

2648* 

2820* 

2837* 

2854* 

2874* 

2888* 

2902* 

2919* 

2936* 

2950* 

3124* 

3141* 

3158* 

3178* 


362 

380 

400 

424 

438 

455 

557 

572 

675 

804 

824 

841 

864 

882 

899 

1051 

1068 

1090 

1110 

1251 

1268 

1463 

1481 

1503 

1526 

1881 

1898 

2215 

2232 

2254 

2268 

2294 

2311 

2325 

2552 

2569 

2591 

2614 

2631 

2648 

2820 

2837 

2854 

2874 

2888 

2902 

2919 

2936 

2950 

3124 

3141 

3158 

3178 


364* 

382* 

406* 

426* 

440* 

457* 

559* 

662* 

677* 

806* 

826* 

843* 

866* 

884* 

901* 

1053* 

1070* 

1092* 

1115* 

1253* 

1270* 

1465* 

1483* 

1505* 

1528* 

1883* 

1975* 

2217* 

2234* 

2256* 

2273* 

2296* 

2313* 

2327* 

2557* 

2571* 

2593* 

2619* 

2633* 

2650* 

2822* 

2839* 

2856* 

2876* 

2890* 

2904* 

2921* 

2938* 

2952* 

3126* 

3143* 

3160* 

3180* 


364 

382 

406 

426 

440 

457 

559 

662 

677 

806 

826 

843 

866 

884 

901 

1053 

1070 

1092 

1115 

1253 

1270 

1465 

1483 

1505 

1528 

1883 

1975 

2217 

2234 

2256 

2273 

2296 

2313 

2327 

2557 

2571 

2593 

2619 

2633 

2650 

2822 

2839 

2856 

2876 

2890 

2904 

2921 

2938 

2952 

3126 

3143 

3160 

3180 


366* 

387* 

408* 

428* 

445* 

459* 

562* 

664* 

679* 

808* 

828* 

848* 

869* 

886* 

903* 

1055* 

1072* 

1094* 

1117* 

1255* 

1275* 

1467* 

1488* 

1507* 

1662* 

1885* 

1977* 

2219* 

2236* 

2258* 

2278* 

2298* 

2315* 

2542* 

2559* 

2576* 

2595* 

2621* 

2635* 

2652* 

2824* 

2841* 

2858* 

2878* 

2892* 

2906* 

2923* 

2940* 

3114* 

3128* 

3145* 

3162* 

3182* 


366 

387 

408 

428 

445 

450 

562 

664 

679 

808 

828 

848 

869 

886 

903 

1055 

1072 

1094 

1117 

1255 

1275 

1467 

1488 

1507 

1662 

1885 

1977 

2219 

2236 

2258 

2278 

2298 

2315 

2542 

2559 

2576 

2595 

2621 

2635 

2652 

2824 

2841 

2858 

2878 

2892 

2906 

2923 

2940 

3114 

3128 

3145 

3162 

3182 


368* 

368 

371* 

389* 

389 

391* 

410* 

410 

415* 

430* 

430 

432* 

447* 

447 

449* 

461* 

461 

551* 

564* 

564 

668* 

666* 

666 

681* 

681 

683* 

813* 

813 

815* 

830* 

830 

832* 

853* 

853 

855* 

874* 

874 

876* 

888* 

888 

890* 

905* 

905 

907* 

1057* 

1057 

1059* 

1077* 

1077 

1079* 

1096* 

1096 

1098* 

1240* 

1240 

1242* 

1257* 

1257 

1259* 

1280* 

1280 

1282* 

1469* 

1469 

1471* 

1490* 

1490 

1492* 

1509* 

1509 

1514* 

1664* 

1664 

1667* 

1887* 

1887 

1889* 

1979* 

1979 

1982* 

2221* 

2221 

2223* 

2238* 

2238 

2240* 

2260* 

2260 

2262* 

2283* 

2283 

2285* 

2300* 

2300 

2302* 

2317* 

2317 

2319* 

2544* 

2544 

2546* 

2561* 

2561 

2563* 

2583* 

2583 

2585* 

2597* 

2597 

2602* 

2623* 

2623 

2625* 

2640* 

2640 

2642* 

2654* 

2654 

2656* 

2826* 

2826 

2828* 

284];* 

2843 

2845* 

2860* 

2860 

2862* 

2880* 

2880 

2882* 

2894* 

2894 

2896* 

2908* 

2908 

2910* 

2925* 

2925 

2927* 

2942* 

2942 

2944* 

3116* 

3116 

3118* 

M33* 

3133 

:135* 

:i47* 

3147 

3149* 

:i67* 

3167 

3172* 

3184* 

3184 

3186* 

371 

391 

415 

432 

449 

551 

566 

668 

683 

815 

832 

855 

876 

890 

907 

1059 

1079 

1098 

1242 

1259 

1282 

1471 

1492 

1514 

1667 

1889 

1982 

2223 

2240 

2262 

2285 

2302 

2319 

2546 

2563 

2585 

2602 

2625 

2642 

2656 

2828 

2845 

2862 

2882 

2896 

2910 

2927 

2944 

3118 

3135 

3149 

3172 

3186 


r 


SEQ  1981 


L. 


1969 


xm 


3188# 
3202# 
321 9# 
3236# 
3250# 
3A2A# 
3AA1# 
3A58# 
3A78# 
3492# 
3506# 
3520* 
3537# 
355A# 
3736* 
3750* 
3767* 
3784* 
3804# 
381 8« 
3832# 
3846# 
3863# 
3880# 
389A« 
1A2# 
156# 
173# 
190# 
207# 
221# 
376# 
393# 
A17# 
A3A# 
A51# 
553# 
568# 
670# 
800* 
81 7# 
837# 
857# 
878# 
895# 
909# 
1061* 
1081* 
1103* 
12A7* 
1261* 
1A59* 
1A73* 


3188 
3202 
3219 
3236 
3250 
3A2A 
3AA1 
3A58 
3A78 
3A92 
3506 
3520 
3537 
355A 
3736 
3750 
3767 
378A 
380A 
3818 
3832 
38A6 
3863 
3880 
3894 
142 
156 
173 
190 
207 
221 
376 
393 
417 
434 
451 
553 
568 
670 
800 
817 
837 
857 
878 
895 
909 
1061 
1081 
1103 
1247 
1261 
1459 
1473 


3190* 

3190 

3204* 

5204 

3221* 

3221 

3238* 

3238 

3252* 

3252 

3426* 

3426 

3443* 

3443 

3460* 

3460 

3480* 

3480 

3494* 

3494 

3508* 

3508 

3522* 

3522 

3539* 

3539 

3556* 

3556 

3738* 

3738 

3752* 

3752 

3769* 

3769 

3786* 

3786 

3806* 

3806 

3820* 

3820 

3834* 

3834 

3848* 

3848 

3865* 

3865 

3882* 

3882 

144* 

158* 

175* 

192* 

209* 

360* 

378* 

398* 

419* 

436* 

453* 

555* 

570* 

673* 

802* 

819* 

839* 

859* 

880* 

897* 

911* 

1063* 

1088* 

1105* 

1249* 

1266* 

1461* 

1479* 


144 

158 

175 

192 

209 

360 

378 

398 

419 

436 

453 

555 

570 

673 

802 

819 

839 

859 

880 

897 

911 

1063 

1088 

1105 

1249 

1266 

1461 

1479 


3192* 
3206* 
3223* 
3240* 
3414* 
3428* 
3445* 
3462* 
3482* 
3496* 
3510* 
3527* 
3541* 
3558* 
3740* 
3754* 
3771* 
3788* 
3808* 
3822* 
3836* 
3850* 
3867* 
3884* 

146* 

163* 

177* 

194* 

211* 

362* 

380* 

400* 

424* 

438* 

455* 

557* 

572* 

675* 

804* 

824* 

841* 

864* 

882* 

899* 

1051* 

1068* 

1090* 

1110* 

1251* 

1268* 

1463* 

1481* 


3192 
3206 
3223 
3240 
3414 
3428 
3445 
3462 
3482 
3496 
3510 
3527 
3541 
3558 
3740 
3754 
3771 
3788 
3808 
3822 
3836 
3850 
3867 
3884 

146 

163 

177 

194 

211 

362 

380 

400 

424 

438 

455 

557 

572 

675 

804 

824 

841 

864 

882 

899 

1051 

1068 

1090 

1110 

125: 

1268 

1463 

1481 


3194* 
3208* 
3225* 
3242* 
3416* 
3430* 
3447* 
3464* 
3484* 
3498* 
3512* 
3529* 
3543* 
3560* 
3742* 
3756* 
3773* 
3793* 
3810* 
3824* 
3838* 
3852* 
3869* 
3886* 

148* 

165* 

179* 

196* 

213* 

364* 

382* 

406* 

426* 

440* 

457* 

559* 

662* 

677* 

806* 

826* 

843* 

866* 

884* 

901* 

1053* 

1070* 

1092* 

1115* 

1253* 

1270* 

1465* 

1483* 


3194 

3196* 

3196 

3198* 

3198 

3200* 

3200 

:i208 

3210* 

3210 

3215* 

3215 

3217* 

3217 

3225 

3227* 

3227 

3229* 

3229 

l?^l* 

3231 

3242 

3244* 

3244 

3246* 

3246 

3248* 

3248 

3416 

3418* 

3418 

3420* 

3420 

3422* 

3422 

3430 

3432* 

3432 

3437* 

3437 

3439* 

3439 

3447 

3449* 

3449 

3451* 

3451 

3453* 

3453 

3464 

3466* 

3466 

3471* 

3471 

3476* 

3476 

:i484 

3486* 

3486 

3488* 

3488 

3490* 

3490 

:;498 

3500* 

3500 

3502* 

3502 

3504* 

3504 

3512 

3514* 

3514 

3516* 

3516 

3518* 

3518 

3529 

3531* 

3531 

3533* 

3533 

3535* 

3535 

3543 

3548* 

3548 

3550* 

3550 

3552* 

3552 

3560 

3562* 

3562 

3564* 

3564 

3734* 

3734 

3742 

3744* 

3744 

3746* 

3746 

3748* 

3748 

3756 

3761* 

3761 

3763* 

3763 

3765* 

llil 

3773 

3775* 

3775 

3780* 

3780 

3782* 

3782 

3793 

3798* 

3798 

3800* 

3800 

3802* 

3802 

3810 

3812* 

3812 

3814* 

3814 

3816* 

3816 

3824 

3826* 

3826 

3828* 

382P 

3830* 

3830 

:838 

3840* 

3840 

3842* 

3842 

3844* 

3844 

3852 

3857* 

3857 

3859* 

3859 

3861* 

3861 

3869 

3871* 

3871 

3873* 

3873 

3878* 

3878 

3886 

3888* 

3888 

3890* 

3890 

3892* 

3892 

148 

150* 

150 

152* 

152 

154* 

154 

165 

167* 

167 

169* 

169 

171* 

171 

179 

184* 

184 

186* 

186 

188* 

188 

196 

198* 

198 

200* 

200 

205* 

205 

213 

215* 

215 

217* 

217 

219* 

219 

364 

366* 

366 

368* 

368 

371* 

371 

382 

387* 

387 

389* 

389 

391* 

391 

406 

408* 

408 

410* 

410 

415* 

415 

426 

428* 

428 

430* 

430 

432* 

432 

440 

445* 

445 

447* 

447 

449* 

449 

457 

459* 

459 

461* 

461 

551* 

551 

559 

562* 

562 

564* 

564 

566* 

566 

662 

664* 

664 

666* 

666 

668* 

668 

677 

679* 

679 

681* 

681 

683* 

683 

806 

808* 

808 

813* 

813 

815* 

815 

826 

828* 

828 

830* 

830 

832* 

832 

843 

848* 

848 

853* 

853 

855* 

855 

866 

869* 

869 

874* 

874 

876* 

876 

884 

886* 

886 

888* 

888 

890* 

890 

901 

903* 

903 

905* 

905 

907* 

907 

1053 

1055* 

1055 

1057* 

1057 

1059* 

1059 

1070 

1072* 

1072 

1077* 

1077 

1079* 

1079 

1092 

1094* 

1094 

1096* 

1096 

1098* 

1098 

1115 

1117* 

1117 

1240* 

1240 

1242* 

1242 

1253 

1255* 

1255 

1257* 

1257 

1259* 

1259 

1270 

1275* 

1275 

1280* 

1280 

1282* 

1282 

1465 

1467* 

1467 

1469* 

1469 

1471* 

1471 

1483 

1488* 

1488 

1490* 

1490 

1492* 

1492 

r 


SEQ  1982 


1970 


U99# 

1499 

1501* 

1501 

1503* 

1503 

1505* 

1505 

1507* 

1516# 

1516 

1521* 

1521 

1526* 

1526 

1528* 

1528 

1662* 

1669# 

1669 

1879* 

1879 

1881* 

1881 

1883* 

1883 

1885* 

1891* 

1891 

1896* 

1896 

1898* 

1898 

1975* 

1975 

1977* 

198A# 

1984 

2213* 

2213 

2215* 

2215 

2217* 

2217 

2219* 

2228* 

2228 

2230* 

2230 

2232* 

2232 

2234* 

2234 

2236* 

2242* 

2242 

2247* 

2247 

2254* 

2254 

2256* 

2264# 

2264 

2266* 

2266 

2268* 

2268 

2273* 

2290* 

2290 

2292* 

2292 

2294* 

2294 

2296* 

2296 

2298* 

2304# 

2304 

2306* 

2306 

2311* 

2311 

2313* 

2313 

2315* 

2321* 

2321 

2323* 

2323 

2325* 

2325 

2327* 

2542* 

2548* 

2548 

2550* 

2550 

2552* 

2552 

2557* 

2557 

2559* 

2565* 

2565 

2567* 

2567 

2569* 

2569 

2571* 

2571 

2576* 

2587* 

2587 

2589* 

2589 

2591* 

2591 

2593* 

2593 

2595* 

2607* 

2607 

2612* 

2612 

2614* 

2614 

2619* 

2619 

2621* 

2627* 

2627 

2629* 

2629 

2631* 

2631 

2633* 

2633 

2635* 

26A4* 

2644 

2646* 

2646 

2648* 

2648 

2650* 

2650 

2652* 

2816* 

2816 

2818* 

2818 

2820* 

2820 

2822* 

2822 

2824* 

2830* 

2830 

2835* 

2835 

2837* 

2837 

2839* 

2839 

2841* 

2847* 

2847 

2849* 

2849 

2854* 

2854 

2856* 

2856 

2858* 

2867* 

2867 

2872* 

2872 

2874* 

2874 

2876* 

2876 

2878* 

2884* 

2884 

2886* 

2886 

2888* 

2888 

2890* 

2890 

2892* 

2898* 

2898 

2900* 

2900 

2902* 

2902 

2904* 

2904 

2906* 
2923* 

2915* 

2915 

2917* 

2917 

2919* 

2919 

2921* 

2921 

2929* 

2929 

2931* 

2931 

2936* 

2936 

2938* 

2938 

2940* 

2946* 

2946 

2948* 

2948 

2950* 

2950 

2952* 

2952 

3114* 

3120* 

3120 

3122* 

3122 

3124* 

3124 

3126* 

3126 

3128* 

3137* 

3137 

3139* 

3139 

3141* 

3141 

3143* 

3143 

3145* 

3154* 

3154 

3156* 

3156 

3158* 

3158 

3160* 

3160 

3162* 

3174* 

3174 

3176* 

3176 

3178* 

3178 

3180* 

3180 

3182* 

3188* 

3188 

3190* 

3190 

3192* 

3192 

3194* 

3194 

3196* 

3202* 

3202 

3204* 

3204 

3206* 

3206 

3208* 

3208 

^?10* 

3219* 

3219 

3221* 

3221 

3223* 

3223 

3225* 

112711 

3236* 

<236 

3238* 

3238 

3240* 

3240 

3242* 

3242 

I2i^t*» 

3250* 

3250 

3252* 

3252 

3414* 

3414 

3416* 

3416 

3418* 

3424* 

3424 

3426* 

3426 

3428* 

3428 

3430* 

3430 

3432* 

1*^1* 

3441 

3443* 

3443 

3445* 

3445 

3447* 

3447 

3449* 

3458* 

3458 

3460* 

3460 

3462* 

3462 

3464* 

3464 

3466* 

3478* 

3478 

3480* 

3480 

3482* 

3482 

3484* 

3484 

::486* 

3492* 

3492 

3494* 

3494 

3496* 

3496 

3498* 

:498 

3500* 

3506* 

3506 

3508* 

3508 

3510* 

3510 

3512* 

::512 

3514* 

3520* 

3520 

3522* 

3522 

3527* 

3527 

3529* 

3529 

3531* 

3537* 

3537 

3539* 

3539 

3541* 

3541 

3543* 

3543 

3548* 

3554* 

3554 

3556* 

3556 

3558* 

3558 

3560* 

3560 

3562* 

3736* 

3736 

3738* 

3738 

3740* 

3740 

3742* 

3742 

3744* 

3750* 

3750 

3752* 

3752 

3754* 

3754 

3756* 

3756 

3761* 

3767* 

3767 

:769* 

3769 

3771* 

3771 

3773* 

3773 

3775* 

3784* 

3784 

:786* 

3786 

3788* 

3788 

3793* 

3793 

:798* 

3804* 

3804 

3806* 

3806 

:i808* 

:810* 

3810 

]812* 

liis* 

3818 

;820* 

3820 

3822 

3824* 

:826* 

3832* 

3832 

:834* 

3834 

3836* 

3836 

3838* 

3838 

:840* 

3846* 

3846 

3848* 

3848 

3850* 

3850 

3852* 

'  852 

3857* 

3863* 

3863 

3865* 

3865 

3867* 

3867 

3869* 

3869 

3871* 

1507 

1509* 

1509 

1514* 

1514 

1662 

1664* 

1667* 

1667 

1885 

1887* 

1887 

1889* 

1889 

1977 

1979* 

1979 

1982* 

1982 

2219 

2221* 

2221 

2223* 

2223 

2236 

2238* 

2238 

2240* 

2240 

2258 

2260* 

2262* 

2262 

2278 

2283* 

2283 

2285* 

2285 

2298 

2300* 

2300 

2302* 

2302 

2315 

2317* 

2317 

2319* 

2319 

2542 

2544* 

2544 

2546* 

2546 

2559 

2561* 

2561 

2563* 

2563 

2576 

2583* 

2583 

2585* 

2585 

2595 

2597* 

2597 

2602* 

2602 

2621 

2623* 

2623 

2625* 

2625 

2635 

2640* 

2640 

2642* 

2642 

2652 

2654* 

2654 

2656* 

2656 

2824 

2826 

2828* 

2828 

2841 

2843* 

2843 

2845* 

2845 

2858 

2860* 

2860 

2862* 

2862 

2878 

2880* 

2880 

2882* 

?882 

2892 

2894* 

2894 

2896* 

?896 

2906 

2908* 

2908 

2910* 

2910 

2923 

2925* 

2925 

2927* 

2927 

2940 

2942* 

2942 

2944* 

2944 

3114 

3116* 

3116 

3118* 

3118 

3128 

3133* 

3133 

3135* 

3135 

3145 

3147* 

3147 

3149* 

3149 

3162 

3167* 

3167 

3172* 

317? 

3182 

3184* 

3184 

3186* 

3186 

3196 

3198* 

3198 

3200* 

3200 

3210 

3215* 

3215 

3217* 

3217 

3227 

3229* 

3229 

3231* 

3231 

3244 

::246* 

3246 

3248* 

3248 

3418 

::420* 

3420 

3422* 

3422 

3432 

::437* 

3437 

3439* 

3439 

3449 

:451* 

3451 

3453* 

3453 

3466 

3471* 

3471 

3476* 

3476 

3486 

:488* 

3488 

3490* 

3490 

3500 

;502* 

3502 

3504* 

3504 

3514 

:516* 

3516 

3518* 

3518 

3531 

:533* 

3533 

3535* 

3535 

3548 

;:550* 

3550 

3552* 

355? 

3562 

::564* 

3564 

3734* 

3734 

3744 

:746* 

3746 

3748* 

3748 

37&1 

:763* 

3763 

3765* 

3765 

3775 

;780* 

3780 

3782* 

378? 

3798 

:  500* 

3800 

3802* 

380? 

3812 

;  114* 

3814 

3816* 

3816 

3826 

:  J28* 

3828 

3830* 

3830 

38'.0 

M42* 

3842 

3844* 

3844 

385/ 

;  159* 

3859 

3861* 

3861 

3871 

3873* 

3873 

3878* 

3878 

SEQ  1983 


r 


■  1 


1971 


.LA 


.LADDR 


.LAND 
.LB 


.LCCCA 
.LCCCP 
.LCCFZ 
.LCCGC 

.LCCLU 
.LCCMB 
.LCCMP 
.LCENA 


.LCJP 


.LCJS 


3880# 
3894# 
156 
415 
806 
1079 
230A 
2837 
29A4 
3229 
351A 
3820 
1A2 
853 
1514 
2290 
2872 
3458 
184 
1051 
3215 
148 
364 
43C 
874 
1459 
2569 
2828 
3124 
3422 
3736 
3863 
855 
1059 
156 
194 
3537 
1061 
2230 
2232 
156 
905 
2260 
2925 
3767 
156 
905 
2260 
2925 
3767 
800 
2892 
3488 


3880 
3894 
177 
417 
813 
1103 
2317 
2841 
2950 
3242 
3518 
3824 
163 
864 
1521 
2311 
2910 
3471 
205 
1240 
3236 
154 
366 
445 
876 
1507 
2595 
2830 
3126 
3424 
3738 
3878 
1090 
'467 
177 
215 
3558 
1471 
2559 
2236 
177 
1059 
2300 
2946 
3769 
177 
1059 
2300 
2946 
3769 
824 
2896 
3492 


3882*   3882    3884*   3884 


190 

419 

817 

1242 

2319 

2878 

3135 

3244 

3533 

3828 

184 

874 

1526 

2542 

2915 

3476 

362 

1459 

3527 

156 

368 

447 

880 

1509 

2619 

2862 

3128 

3426 

3740 

3880 

1249 

380 

434 
3867 
2240 
2841 
2561 

194 
1061 
2321 
3141 
3773 

194 
1061 
2321 
3141 
3773 
1053 
2900 
3496 


192 

430 

826 

1253 

2325 

2882 

3141 

3250 

3535 

3832 

205 

895 

1662 

2544 

2936 

3522 

406 

1662 

3548 

169 

376 

451 

895 

1887 

2621 

2915 

3162 

3428 

3742 

3884 

1501 

391 

45:) 
3888 
2569 
3141 
2565 

215 
1090 
2559 
3143 
3782 

215 
1090 
2559 
3143 
3782 
1057 
2904 
3500 


198 

432 

830 

1268 

2559 

2886 

3178 

3439 

3541 

3836 

360 

1051 

1667 

2583 

3114 

3527 

408 

1667 

3857 

175 

378 

557 

897 

2219 

2625 

2917 

3215 

3430 

3744 

1881 

806 
884 


3445 
2843 

380 
1249 
2561 
3147 
3867 

380 
1249 
2561 
3147 
3867 
1461 
3176 
3504 


200 

438 

837 

1481 

2569 

2890 

3182 

3445 

3554 

3840 

406 

1088 

1879 

2602 

3133 

3548 

424 

1984 

3878 

177 

380 

570 

901 

2240 

2640 

2921 

3217 

3432 

3746 

2260 

817 
905 


3767 
2847 

391 
1259 
2565 
3156 
3888 

391 
1259 
2565 
3156 
3888 
1465 
3180 
3508 


3886* 

3886 

3888# 

3888 

3890* 

3890 

3892* 

i 
''''          SEQ1984  ' 

211 

213 

219 

221 

371 

376 

380 

391 

451 

453 

^59 

559 

572 

670 

683 

802 

841 

880 

888 

901 

903 

909 

1070 

1490 

1514 

2230 

2240 

2273 

2278 

2296 

2298 

.R 

2602 

2607 

2625 

2627 

2633 

M 

2648 

2654           1 

2894 

2898 

2902 

2906 

2921 

2929 

2942           1 

3186 

3190 

3194 

3198 

3202 

3206 

3221 

3223 

.R 

3482 

3486 

3490 

3494 

3498 

3502 

3506 

3510           1 

3556 

3562 

3763 

3767 

3804 

3808 

3812 

3816 

.R 

3844 

3848 

3863 

3865 

3871 

3884 

3886 

3892 

415 

424 

445 

551 

562 

662 

673 

800 

1103 

1110 

1115 

1240 

1275 

1280 

1459 

1499 

1896 

1975 

2213 

2215 

2254 

2273 

2278 

2283 

2607 

2612 

2619 

2640 

2816 

2835 

2854 

2867 

3154 

3167 

3172 

3210 

3215 

3236 

3414 

3437 

3734 

3761 

3780 

3793 

3798 

3852 

3857 

3878 

.R 

445 

551 

562 

662 

673 

800 

874 

895 

2219 

2290 

2311 

2548 

2619 

2640 

2915 

2936 

184 

186 

190 

205 

207 

211 

360 

362 

.R 

387 

389 

391 

406 

408 

410 

424 

426 

668 

681 

800 

804 

815 

824 

828 

839 

1051 

1096 

1098 

1240 

1242 

1255 

1257 

1259 

. 

2266 

2290 

2292 

2296 

2311 

2313 

2317 

2548 

2642 

2646 

2816 

2818 

2820 

2822 

2824 

l^l^ 

2936 

2938 

2942 

3114 

3116 

3118 

3120 

3122 

.F 

3221 

3236 

3238 

3242 

3414 

3^16 

3418 

3420 

3466 

3527 

3529 

3533 

3548 

3550 

3554 

3734 

.F 

3748 

3750 

3752 

3754 

3756 

3788 

3857 

3859 

2589 

2856 

3156 

3460 

3782 

r 

830 

841 

1259 

•  r 

.f 

2300 

2321 

2629 

2650 

2925 

2946 

3225 

3246 

.f 
.f 

w 

3143 

3147 

3447 

3451 

3769 

3773 

.r 

434 

455 

806 

817 

830 

841 

§|5 

884 

1  ■ 

1467 

1471 

1501 

1881 

2230 

2232 

2236 

2240 

2569 

2589 

2629 

2650 

2841 

2843 

2847 

i§^^ 

3225 

3246 

3445 

3447 

3451 

3460 

3537 

3558 

434 

455 

806 

817 

830 

841 

855 

884 

1467 

1471 

1501 

1881 

2230 

2232 

2236 

2240 

2569 

2589 

2629 

2650 

2841 

2843 

28^^ 

2856            1 

3225 

3246 

3445 

3447 

3451 

3460 

3537 

3558 

2221 

2228 

2550 

2557 

2876 

2880 

2884 

2888 

3184 

3188 

3192 

3196 

3200 

3204 

3480 

3484            ! 

3512 

3516 

3802 

3806 

3810 

3814 

3818 

3822 

i 
1 

n 


r" 


3  1972  I 


.LCONT 


.LCRTN 
.LCRY 


.LD 


§15 
85r 

903 
1090 
1259 
1505 
1979 
2260 
2306 
2563 
2619 
2654 
28A3 
2886 
2923 
3116 
3K7 
3190 
3227 
3420 
3A51 
3494 
3529 
3564 
3763 
3806 


3830 
150 
219 
453 
679 
888 
1253 
1977 
2583 
2860 
2936 
3194 
3441 
3527 
3808 
3871 
1098 
177 
1255 
3529 
144 
175 
213 
387 
432 
553 
670 
817 
857 
905 
1092 
1268 
1507 
'984 
2262 
2311 
2565 
2621 
2656 
2845 
2888 
2925 
3118 
3149 
3192 
3229 
3422 
3453 
3496 
3533 
3734 
3765 
3808 


3834 

3838 

152 

154 

364 

371 

459 

553 

681 

802 

895 

897 

1255 

1257 

2219 

2254 

2593 

2595 

2874 

2878 

2938 

2944 

3198 

3202 

3443 

3464 

3529 

3535 

3812 

3816 

3878 

3880 

1509 

2268 

186 

207 

1509 

166/ 

3550 

3P' 

146 

3 

177 

179 

215 

217 

389 

393 

434 

436 

555 

557 

673 

675 

819 

824 

859 

874 

907 

909 

1094 

1096 

1459 

1461 

1509 

1514 

2219 

2221 

2264 

2266 

2313 

2317 

2567 

2569 

2625 

2627 

2816 

2818 

2847 

2849 

2890 

2892 

2927 

2929 

3120 

3122 

3154 

3156 

3194 

3196 

3231 

3236 

3424 

3426 

3458 

3460 

3498 

3500 

3535 

3537 

3736 

3738 

3767 

3769 

3810 

3812 

3842 
169 
376 
555 
804 
903 
1266 
2264 
2619 
2882 
2950 
3206 
3478 
3541 
3820 
3886 
2597 
364 
1669 
3880 
150 
184 
219 
398 
438 
559 
677 
826 
876 
911 
1098 
146? 
1662 
2228 
2268 
2319 
2583 
2629 
2820 
2854 
2894 
2931 
3124 
3158 
3198 
3238 
3428 
3462 
3502 
3539 
3740 
3771 
3814 


3846 

171 

173 

175 

184 

186 

192 

198 

205 

207 

SEQ  1985 

378 

387 

389 

408 

424 

426 

432 

438 

445 

■   i 

557 

564 

566 

568 

570 

664 

666 

668 

675 

313 

815 

826 

828 

837 

839 

853 

874 

876 

909 

1068 

1070 

1077 

1079 

1088 

1094 

1096 

1242 

1 

1479 

1481 

1488 

1490 

1499 

1505 

1507 

1885 

1887 

I 

2266 

2290 

2292 

2298 

2304 

2311 

2313 

2319 

2325 

i 

2621 

2627 

2633 

2640 

2642 

2648 

2654 

2835 

2837 

i 

2886 

2890 

2894 

2898 

2902 

2906 

2915 

2917 

2923 

3133 

3135 

3137 

3139 

3160 

3174 

3178 

3182 

3186 

3215 

3217 

3223 

3229 

3236 

3238 

3244 

3250 

3437 

i 

3482 

3'  86 

3490 

3494 

3498 

3502 

3506 

3510 

3514 

3548 

3550 

3556 

3562 

3761 

3763 

3765 

3786 

3800 

3824 

3828 

3832 

3836 

3840 

3844 

3848 

3857 

3859 

3892 

2862 

3162 

3466 

3788 

368 

380 

391 

410 

426 

447 

876 

897 

1098 

2240 

2292 

2313 

2569 

2621 

2642 

2917 

2938 

3217 

152 

154 

156 

158 

163 

165 

167 

169 

171 

186 

190 

192 

194 

196 

198 

200 

i95 

207 

221 

?60 

362 

364 

366 

368 

371 

376 

378 

400 

H06 

408 

410 

415 

417 

419 

424 

426 

440 

445 

447 

451 

453 

455 

457 

459 

461 

562 

564 

566 

568 

570 

572 

662 

664 

666 

679 

681 

683 

800 

802 

804 

806 

808 

813 

828 

830 

832 

837 

839 

8^1 

843 

848 

853 

880 

884 

886 

888 

890 

895 

Ml 

901 

1051 

1053 

1055 

1057 

1059 

1061 

107C 

1079 

1088 

1103 

1240 

1242 

1247 

1249 

1251 

1253 

1255 

1257 

1465 

1467 

1469 

1471 

1481 

1490 

1499 

1501 

1503 

1664 

1667 

1669 

1881 

1883 

1885 

1887 

1975 

1977 

2230 

2232 

2234 

2236 

2238 

2240 

2254 

2256 

2258 

2273 

2290 

2292 

2296 

2298 

2300 

2302 

2304 

2321 

2323 

2325 

2327 

2548 

2550 

2557 

2559 

2561 

2585 

2587 

2589 

2591 

2593 

2595 

2597 

2602 

2607 

2631 

2633 

2635 

2640 

2642 

2646 

26^1 

1^19. 

2652 

2824 

2826 

2828 

2830 

2835 

2837 

2839 

2841 

2856 

2860 

2862 

2876 

2878 

2880 

2882 

2884 

2896 

2898 

2900 

2902 

2904 

2906 

2915 

2917 

2921 

2936 

2938 

2942 

2944 

2946 

2948 

2950 

295? 

3114 

3126 

3128 

3133 

3135 

3137 

3139 

3141 

3143 

3145 

3160 

3162 

3176 

3178 

3180 

3182 

3184 

3186 

3188 

3200 

3202 

3204 

3206 

3215 

mi 

3221 

3223 

3225 

3242 

3244 

;246 

3248 

3250 

3252 

3414 

3416 

3418 

3430 

3432 

:i437 

3439 

3441 

3443 

3445 

3447 

3<»49 

3464 

3466 

3480 

3482 

3484 

3486 

3488 

3490 

3492 

3504 

3506 

3508 

3510 

3512 

3514 

3516 

3518 

3527 

3541 

3543 

3548 

3550 

3554 

3556 

3558 

11^9 

3562 

3742 

3744 

;746 

3748 

3750 

3752 

3754 

3756 

3761 

37^j 

3775 

;780 

3782 

3784 

3786 

3788 

3802 

3804 

38^6 

3818 

3820 

3822 

3824 

3826 

3828 

3830 

3832 

Q  1973 


.LJ 


.LJMAP 


.LJZ 

.LLDCT 

.LLOLM 

.LMGC 


3834 
3871 
142 
200 
398 
455 
817 
884 
1063 
1268 
1501 
1896 
2236 
2296 
2559 
2612 
2820 
2872 
2940 
3143 
3200 
3418 
3460 
3333 
3744 
3784 
3861 
142 
41!; 
683 
1055 
1?8C 
1664 
2258 
2567 
2820 
2952 
3227 
3449 
3744 
3890 
869 
3522 
144 
2544 
371 
3198 
3808 
144 
213 
434 
572 
815 


3836 

3838 

3840 

3842 

3844 

l§^§ 

l§^§ 

3857 

3873 

3878 

3880 

3884 

3886 

3888 

3890 

mi 

144 

146 

156 

58 

163 

165 

167 

177 

:o9 

211 

215 

217 

221 

360 

362 

}^^ 

400 

406 

410 

415 

417 

419 

428 

430 

457 

461 

551 

559 

562 

572 

662 

670 

819 

824 

830 

832 

841 

843 

848 

855 

886 

890 

899 

901 

905 

907 

911 

1051 

1072 

1081 

1090 

1092 

1103 

1105 

1115 

1117 

1270 

1280 

1282 

1459 

1461 

1463 

1465 

1467 

1503 

1514 

1516 

1526 

1528 

1662 

1664 

1667 

1898 

1975 

1979 

1982 

1984 

2215 

UK 

WA 

2238 

2240 

2242 

2247 

2256 

2258 

2260 

2262 

2300 

2302 

2306 

2315 

2317 

2321 

2323 

2127 

2561 

2563 

2565 

2567 

2569 

2571 

2576 

2585 

2614 

2623 

2625 

2629 

2631 

2635 

2644 

2646 

2822 

2824 

2826 

2828 

2830 

2841 

I'kil 

2845 

2876 

2880 

2884 

2888 

2892 

2896 

2900 

2904 

2942 

2946 

2948 

3114 

3116 

3118 

3120 

3145 

3147 

3149 

3154 

3156 

3158 

IV,1 

3176 

3204 

3219 

3221 

3225 

3227 

3231 

i2^5 

3242 

3420 

3422 

3424 

3426 

3428 

;430 

:432 

3445 

3462 

3476 

3480 

3484 

3488 

:492 

=  ^9$ 

3500 

-:537 

3539 

3543 

3552 

3554 

;558 

3560 

3564 

3746 

3748 

3750 

3752 

3754 

:756 

3767 

3769 

3798 

3802 

3806 

3810 

3814 

;818 

3822 

3826 

3863 

3867 

3869 

3873 

3882 

3884 

3888 

3890 

158 

163 

179 

196 

200 

217 

221 

360 

417 

419 

436 

440 

457 

461 

551 

559 

808 

819 

832 

843 

848 

857 

864 

866 

1063 

1072 

1081 

1092 

1103 

1105 

1115 

1117 

1282 

1459 

1463 

1469 

1473 

1483 

1492 

1503 

1667 

1669 

1879 

188^ 

1891 

1896 

1898 

1975 

_'242 

2247 

2262 

22 

2278 

2283 

2285 

2302 

2571 

2576 

2591 

260^ 

2607 

2612 

2614 

2631 

2822 

2824 

2826 

2828 

2830 

2845 

2849 

2854 

3114 

3116 

3118 

3120 

3122 

3124 

3126 

l]l\ 

3231 

3248 

3252 

3414 

3416 

3418 

3420 

lk22 

3453 

3458 

3462 

3476 

3539 

3543 

15^9 

3564 

3746 
3894 
1110 

3748 

3750 

3752 

3754 

3756 

3771 

3775 

1275 

1521 

2213 

2542 

2867 

2908 

2910 

3793 

3850 

3852 

165 

188 

209 

362 

368 

428 

449 

878 

2585 

2623 

2644 

2919 

2940 

3219 

32^0 

3531 

2878 

2882 

2886 

2890 

2894 

2898 

2902 

2906 

3202 

3206 

3482 

3486 

5490 

3494 

3498 

3502 

3812 

3816 

3820 

3824 

3828 

3832 

3836 

3840 

148 

150 

152 

154 

165 

169 

171 

173 

215 

219 

221 

360 

371 

376 

VA 

387 

438 

453 

455 

459 

551 

553 

555 

557 

662 

664 

666 

668 

670 

675 

677 

679 

826 

828 

837 

839 

853 

864 

866 

882 

3859 

3863 

3865 

3867 

3869 

3894 

179 

188 

190 

194 

196 

368 

380 

382 

391 

393 

434 

436 

440 

449 

451 

673 

683 

800 

806 

808 

857 

864 

866 

878 

880 

1053 

1055 

1057 

1059 

1061 

1240 

1249 

1251 

1259 

1261 

1469 

1471 

1473 

1483 

1492 

1669 

1879 

1881 

1883 

1891 

2223 

2228 

2230 

2232 

2234 

2273 

2278 

2283 

2285 

2294 

2544 

2546 

2550 

2552 

2557 

2587 

2589 

2591 

2602 

2607 

2650 

2652 

2656 

2816 

2§J§ 

2847 

2849 

2854 

2856 

2858 

2919 

2921 

2925 

2927 

2931 

3122 

3124 

3126 

3128 

3141 

3180 

3184 

3188 

3192 

3196 

3246 

3248 

3252 

3414 

3416 

3447 

3449 

3451 

3453 

3458 

3504 

3508 

3512 

3516 

3531 

3734 

3736 

3738 

3740 

3742 

3771 

3773 

3775 

3780 

3782 

3830 

3834 

3838 

3842 

3846 

3894 

382 

393 

400 

406 

410 

562 

572 

662 

670 

673 

886 

890 

907 

911 

1051 

1240 

1251 

1261 

1268 

1270 

1514 

1516 

1526 

1528 

1662 

1979 

1982 

1984 

2223 

2234 

2306 

2323 

2327 

2552 

2563 

2635 

2652 

2656 

2816 

2818 

2858 

2872 

2927 

2931 

2948 

3145 

3149 

3154 

3158 

3172 

3424 

3426 

3428 

3430 

3432 

3734 

3736 

3738 

3740 

3742 

3780 

3784 

3798 

3869 

3873 

3167 

3208 

3210 

3471 

3520 

899 

2215 

2256 

2294 

2315 

3552 

3861 

3882 

3178 

3182 

3186 

3190 

3194 

3506 

3510 

3514 

3518 

3804 

3844 

3848 

175 

192 

194 

198 

200 

389 

415 

417 

419 

432 

559 

564 

566 

568 

570 

681 

683 

802 

804 

813 

884 

888 

903 

905 

909 

SEQ  1986 


EQ  1974 


.LOENA 


.LOR 


..i^LUS 


.LRDLK 


.LRMIN 
j  .LRPCT 

.LSOA 


1068 

1070 

1266 

1268 

1526 

1528 

1984 

2213 

2321 

2325 

2648 

2650 

2854 

2860 

2923 

2925 

3133 

3135 

3194 

3198 

3422 

3424 

3476 

3478 

3541 

3556 

3754 

3756 

3816 

3820 

3892 

148 

150 

453 

551 

813 

826 

1669 

1979 

2886 

2890 

3198 

3202 

3514 

3518 

3840 

3844 

144 

146 

360 

366 

570 

668 

903 

909 

1979 

2230 

2633 

2648 

2944 

2950 

3250 

3414 

3556 

3562 

3788 

<865 

186 

190 

901 

1098 

2625 

2tUc 

3554 

38i)9 

387 

2816 

3124 

3126 

3736 

3738 

156 

177 

146 

167 

2546 

2587 

146 

148 

376 

406 

564 

566 

817 

826 

1268 

1481 

2319 

23?  5 

2886 

2890 

3186 

3190 

3^90 

3494 

1077 
1275 
1664 
2247 
2542 
2654 
2862 
2929 
3137 
3202 
3426 
3482 
3558 
3761 
3??^ 

169 

553 

837 

1984 

2894 

3206 

3535 

3848 

150 

376 

681 

1079 

2266 

2654 

3114 

3416 

37!4 

3371 

207 

1242 

2646 

3863 

2818 

3128 

5740 

190 

2625 

150 

408 

572 

830 

1490 

2559 

2894 

3194 

3498 


1079 
1280 
1669 
2254 
2576 
2816 
2867 
2944 
3139 
3206 
3428 
3486 
3562 
3763 
3828 

171 

559 

882 

2273 


3223 
3556 
3365 
154 
378 
802 
1096 
2273 
2816 
3116 
3418 
3736 
3886 
211 
1255 
2917 
3880 
2820 
3414 
3742 

211 

2646 

167 

415 

662 

837 

1514 

2569 

2898 

3198 

3502 


1088 
1282 
1879 
2264 
2583 
2818 
2872 
2946 
3154 
3223 
3430 
3490 
3734 
3765 
3832 

192 

564 

903 

2278 

2902 

3244 

3763 

3886 

165 

387 

804 

1103 

2278 

2818 

3118 

3420 

3738 

3892 

364 

1509 

2921 

3884 

2822 

3^16 

3744 

366 

2921 

169 

417 

664 

841 

1662 

2602 

2902 

3202 

3506 


1094 
1479 
1885 
2266 
2593 
2820 
2874 

29:o 

3160 
3225 
3432 
3494 
3736 
3780 
3836 

200 
566 
1070 
2298 
2906 
3439 
3804 

167 
389 
806 
1253 
2298 
2820 
3120 
3422 
3740 

368 
1664 
2938 

2824 
3418 
3746 

398 

2942 

171 

419 

670 

882 

1667 

2607 

2906 

3206 

3510 


1096 
1481 
1887 
2273 
2595 
2822 
2878 
3114 
3162 
3229 
3437 
3498 
3738 
3786 
3840 

213 
572 
1079 
2319 
2923 
3482 
3808 

171 
415 
813 
1257 
2304 
2822 
3122 
3424 
3742 

410 
1669 
2942 

2826 
3420 
3748 

430 

3221 

192 

432 

673 

888 

1979 

2627 

2923 

3223 

3514 


1103 
1488 
1889 
2278 
2602 
2824 
2882 
3116 
3167 
3244 
3439 
3502 
3740 
3788 
3844 

221 
662 
1103 
2602 
2944 
3486 
3812 

175 
417 
815 
1259 
2319 
2824 
3124 
3426 
3744 

426 
2240 
3217 

2828 
3422 
3750 

451 

3242 

198 

438 

675 

903 

1984 

2633 

2929 

3229 

3518 


1110 
1490 
1896 
2283 
2607 
2826 
2886 
3118 
3172 
3246 
3441 
3506 
3742 
3793 
3848 

371 
664 
1253 
2607 
3135 
3490 
3816 

192 
419 
826 
1268 
2325 
2826 
3126 
3428 
3746 

430 
2292 
3221 

2830 
3424 
3752 

880 

3533 

200 

453 

677 

909 

2230 

2648 

2944 

3244 

3535 


1115 
1499 
1898 
2285 
2612 
2828 
2890 
3120 
3174 
3250 
3443 
3510 
3744 
3798 
3865 

376 
670 
1268 
2627 
3178 
3494 
3820 

198 
432 
828 
1490 
2559 
2828 
3128 
3430 
3748 

447 
2296 
3238 

3114 
3426 
3754 

901 

3554 

213 

459 

683 

1070 

2240 

2654 

2950 

3250 

3541 


1117 
1505 
1975 
2298 
2614 
2830 
2894 
3122 
3178 
3414 
3^*58 
3514 
3746 
3800 
3867 

415 
675 
1481 
2648 
3182 
3498 
3824 

200 
438 
839 
1507 
2595 
2830 
3162 
3432 
3750 

451 
2313 
3242 

3116 
3428 
3756 

2217 

3863 

219 

551 

800 

1079 

2273 

2837 

3135 

3439 

3556 


1247 
1507 
1977 
2300 
2627 
2835 
2898 
3124 
3182 
3416 
3464 
3518 
3748 
3804 
3871 

417 
677 
1490 
2837 
3186 
3502 
3828 

213 
453 
841 
1514 
2602 
2862 
3223 
3466 
3752 

876 
2317 
3529 

3118 
3430 


2258 

3884 

221 

553 

802 

1103 

2278 

2841 

3141 

3445 

3562 


1253 
1514 
1979 
2304 
2629 
2837 
2902 
3126 
3186 
3418 
3466 
3535 
3750 
3808 
3886 

419 
683 
1514 
2878 
3190 
3506 
3832 

219 
459 
882 
1887 
2607 
2923 
3229 
3535 
3754 

w80 
2569 
3533 

3120 
3432 


1255 
1521 
1982 
2319 
2633 
2839 
2906 
3128 
3190 
3420 
3471 
3537 
3752 
3812 
3888 

432 
802 
1664 
2882 
3194 
3510 
3836 

221 
557 
888 
1977 
2627 
2929 
3244 
3541 
3756 

897 
2621 
3550 

3122 
3734 


SEQ  1987 


2296    2317 


362 
559 
806 
1242 
2298 
2878 
3178 
3482 
3763 


371 
562 
SI  3 
1253 
2304 
2882 
3182 
3486 
3767 


U- 


r 


EQ  1975 


.LSOB 

.LSAB 
.LSDO 


.LSELC 


,LSELE 


.LSELF 
.LSELM 


.I.SELP 

.LSKCN 

.LSMIN 

.LTIM 

.LXNOR 


.MA 


.MAND 
.MB 


380A 
3886 
186 
1255 
2938 
156 
2921 
1AA 
555 
1096 
282A 
3128 
3A32 
3752 
813 
1A88 
2576 
3A71 
192 
453 
1079 
230A 
2929 
3558 
148 
3443 
150 
804 
1898 
3174 
152 
144 
380 
1667 
148 
1481 
156 
415 
806 
1079 
2304 
2837 
2944 
3229 
3514 
3820 
184 
1051 
3215 
148 
364 
430 
874 


3808 

3892 

207 

1257 

3217 

177 

2942 

152 

557 

1507 

2826 

3137 

3441 

3754 

837 

1499 

2583 

3476 

194 

455 

1103 

2319 

2944 

3562 

169 

3763 

154 

815 

1977 

3437 

173 

165 

391 

'669 

169 

177 

417 

813 

1103 

2317 

2841 

2950 

3242 

3518 

3824 

205 

1240 

3236 

154 

366 

445 

876 


3812 

364 
1259 
3238 

190 
3221 

154 

568 
1887 
2828 
3162 
3466 
3756 

853 
1505 
2593 
3765 

198 

459 
1268 
?321 
2946 
3865 

376 

171 
828 
2213 
3439 
555 
360 


371 


3816    3820    3824    3828    3832    3836    3840    3844    3848    3865    3871 


366 
1459 
3529 

211 
3242 

165 

570 
1977 
2830 
3215 
3527 
3788 

864 
1526 
2612 
3780 

200 

559 
1481 
2325 
2950 
3867 

387 

175 

839 

2266 

3466 

568 


553 


190 

192 

419 

430 

817 

826 

1242 

1253 

2319 

2325 

2878 

2882 

3135 

3141 

3244 

3250 

3533 

3535 

3828 

3832 

362 

406 

1459 

1662 

3527 

3548 

156 

169 

368 

376 

447 

451 

880 

895 

368 
1509 
3550 

380 
3533 

173 

666 
2266 
2862 
3236 
3548 
3857 
1068 
1879 
2854 
3786 

213 

572 
1490 
2602 
3223 
3871 

551 

378 

866 

2285 

3478 

666 


564 

198 

432 

830 

1268 

2559 

2886 

3178 

3439 

3541 

3836 

408 

1667 

3857 

175 

378 

557 

897 


410 
1664 
3859 

391 
3554 

175 

668 
2290 
2915 
3414 
3734 
3878 
1077 
1885 
2860 
3793 

215 

670 
1514 
2607 
3225 
3886 

564 

389 
1096 
2542 
3761 

679 


566 

200 

438 

837 

1481 

2569 

2890 

3182 

3445 

3554 

3840 

424 

1984 

3878 

177 

380 

570 

901 


426 
1669 
3880 

430 
3863 

184 

679 
2311 
2936 
3416 
3736 

1088 

1889 

2867 

3798 

219 

683 

1664 

2627 

3229 

3888 

662 

553 
1110 
2595 
3788 
3137 


664 


447 
2219 

451 
3884 
205 
681 
2595 
3114 
3418 
3738 

1094 
1896 
2872 

221 
882 
1669 
2629 
3244 
3892 
675 

557 
1117 
2614 
3800 
3441 


675 


824 
2292 

880 

360 
804 
2619 
3116 
3420 
3740 

1115 
1975 
3154 

415 

884 

1979 

2633 

3246 

802 

566 
1275 
2835 


677 


876 
2313 

901 

378 
815 
2640 
3118 
3422 
3742 

1247 
1982 
3160 

417 

888 

1984 

2648 

3250 

826 

570 
1282 
2862 


817 


897 
2548 

2296 

387 
828 
2816 
3120 
3424 
3744 

1255 
2247 
3167 

419 

903 

2273 

2650 

3535 


1051 
2621 


664 
1507 
2874 


824 


211 

213 

219 

221 

371 

451 

453 

459 

559 

572 

841 

880 

882 

888 

901 

1490 

1514 

2230 

2240 

2273 

2602 

2607 

2625 

2627 

2633 

2894 

2898 

2902 

2906 

2921 

3186 

3190 

3194 

3198 

3202 

3482 

3486 

3490 

3494 

3498 

3556 

3562 

3763 

3767 

3804 

3844 

3848 

3863 

3865 

38/1 

445 

551 

562 

662 

673 

2219 

2290 

2311 

2548 

2619 

184 

186 

190 

205 

207 

387 

389 

391 

406 

408 

66P 

681 

800 

804 

815 

1051 

1096 

1098 

1240 

1242 

389 
839 
2818 
3122 
3426 
3746 

1266 
2254 
3172 

432 

905 

2278 

2654 

3537 


668 
1521 
3133 


830 

376 

670 

903 

2278 

2646 

2923 

3206 

3502 

3808 

3884 

800 

2640 

211 

410 

824 

1255 


1098 
2642 


424 
874 
2820 
3124 
3428 
3748 

1280 
2264 
3458 

434 

909 

2298 

2923 

3541 


1253    2837    2839 


677 
1528 
3135 


837 

380 

683 

909 

2296 

2648 

2929 

3221 

3506 

3812 

3886 

874 

2915 

360 

424 

828 

1257 


1240 
2917 


SEO  1988 


2317    2625    2646 


445 
895 
2822 
3126 
3430 
3750 

1479 
2283 
3464 

438 
1070 
2300 
2925 
3556 

3139 

681 
1887 
3162 


1070 

391 
802 
1070 
2298 
2654 
2942 
3223 
3510 
3816 
3892 
895 
2936 

362 

426 

839 

1259 


j 


SEQ  1976 


.MCCCA 
.MCCCP 
.MCCFZ 
.MCC6C 

.HCCLW 
.MCCMB 
.MCCMP 
.MCENA 


.MCJP 


.MCJS 


.MCONT 


.MCRTN 
.MCRY 


.m 


1A59 
2569 
2828 
31 2A 
3A22 
3736 
3863 
855 
1059 
156 
194 
3537 
1061 
2230 
2232 
156 
905 
2260 
2925 
3767 
156 
905 
2260 
2925 
3767 
800 
2892 
3488 
3826 
148 
213 
447 
677 
882 
1247 
1889 
2548 
2839 
2929 
3190 
3439 
3518 
3804 
3865 
859 
156 
1242 
3238 
142 
173 
211 
382 
430 


1507 
2595 
2830 
3126 
3424 
3738 
3878 
1090 
1467 
177 
215 
3558 
1471 
2559 
2236 
177 
1059 
2300 
2946 
3769 
177 
1059 
2300 
2946 
3769 
824 
2896 
3492 
3830 
150 
219 
453 
679 
888 
1253 
1977 
2583 
2860 
2936 
3194 
3441 
3527 
3808 
3871 
1098 
177 
1255 
3529 
144 
175 
213 
387 
432 


1509 
2619 
2862 
3128 
3426 
3740 
3880 
1249 


1887 
2621 
2915 
3162 
3428 
3742 
3884 
1501 


380 

391 

434 

455 

3867 

3888 

2240 

2569 

2841 

3141 

2561 

2565 

194 

215 

1061 

1090 

2321 

2559 

3141 

3143 

3773 

3782 

194 

215 

1061 

1090 

2321 

2559 

3141 

3143 

3773 

3782 

1053 

1057 

2900 

2904 

3496 

3500 

3834 

3838 

152 

154 

364 

371 

459 

553 

681 

802 

895 

897 

1255 

1257 

2219 

2254 

2593 

2595 

2874 

2878 

2938 

2944 

3198 

3202 

3443 

3464 

3529 

3535 

3812 

3816 

3878 

3880 

1509 

2268 

186 

207 

1509 

1664 

3550 

3859 

146 

148 

1^7 

179 

215 

217 

389 

393 

434 

436 

2219 
2625 
2917 
3215 
3430 
3744 

1881 

806 
884 


3445 

2843 

380 

1249 

2561 

3147 

3867 

380 

1249 

2561 

3147 

3867 

1461 

3176 

3504 

3842 

169 

376 

555 

804 

903 

1266 

2264 

2619 

2882 

2950 

3206 

3478 

3541 

3820 

3886 

2597 

364 

1669 

3880 

150 

184 

219 

398 

438 


2240 
2640 
2921 
3217 
3432 
3746 

2260 

817 
905 


3767 

2847 

391 

1259 

2565 

3156 

3888 

391 

1259 

2565 

3156 

3888 

1465 

3180 

3508 

3846 

171 

378 

557 

813 

909 

V:79 

2266 
2621 
2886 
3133 
3215 
3482 
3548 
3824 
3892 
2862 
368 
2240 

152 
186 
221 
400 
440 


2266 
2642 
2936 
3221 
3466 
3748 


2290 
2646 
2938 
3236 
3527 
3750 


2292 
2816 
2942 
3238 
3529 
3752 


2296 
2818 
3114 
3242 
3533 
3754 


2311 
2820 
3116 
3414 
3548 
3756 


2313 

2317 

2548 

2822 

2824 

2826 

3118 

3120 

3122 

3416 

3418 

3420 

3550 

3554 

3734 

3788 

3857 

3859 

SEQ  1989 


2589    2856    3156    3460    3782 


830 
2300 


3143 
434 
1467 
2569 
3225 

434 
1467 
2569 
3225 

2221 
3184 
3512 

173 

387 

564 

815 

1068 

1481 

2290 

2627 

2890 

3135 

3217 

3486 

3550 

3828 

3162 

380 

2292 

154 
190 
360 
406 
445 


2321    2629    2650    2925    2946    3225    3246 


3147  3447  3451  3769 

455  806  817  830 

1471  1501  1881  2230 

2589  2629  2650  2841 

3246  3445  3447  3451 

455  806  817  830 

1471  1501  1881  2230 

2589  2629  2650  2841 

3246  3445  3447  3451 

2228  2550  2557  2876 

3188  3192  3196  3200 

3516  3802  3806  3810 

175  184  186  192 

389  408  424  426 

566  568  570  664 

826  828  837  839 

1070  1077  1079  1088 

1488  1490  1499  1505 

2292  2298  2304  2311 

2633  2640  264?  2648 

2894  2898  2902  2906 

3137  3139  3160  3174 

3223  3229  3236  3238 

3490  3494  3498  3502 

3556  3562  3761  3763 

3832  3836  3840  3844 

3466  3788 

391  410  426  447 

2313  2569  2621  2642 

156  158  163  165 

192  194  196  198 

362  364  366  368 

408  410  415  417 

447  451  453  455 


3773 

841 

855 

884 

2232 

2236 

2240 

2843 

2847 

2856 

3460 

3537 

3558 

841 

855 

884 

2232 

2236 

2240 

2843 

2847 

2856 

3460 

3537 

3558 

2880 

2884 

2888 

3204 

3480 

3484 

3814 

3818 

3822 

198 

205 

207 

432 

438 

445 

666 

668 

675 

853 

874 

876 

1094 

1096 

1242 

1507 

1885 

1887 

2313 

2319 

2325 

2654 

2835 

2837 

2915 

2917 

2923 

3178 

3182 

3186 

3244 

3250 

3437 

3506 

3510 

3514 

3765 

3786 

3800 

3848 

3857 

3859 

876 

897 

1098 

2917 

2938 

3217 

167 

169 

171 

200 

205 

207 

371 

376 

378 

419 

424 

426 

457 

459 

461 

}n 


.MJ 


551 

855 
903 

1090 
1259 
1505 
1979 
2260 
2306 
2563 
2619 
265A 
2843 
2886 
2923 
3116 
3U7 
3190 
3227 
3A20 
3451 
3494 
3529 
3564 
3763 
3806 
3834 
3871 
142 
200 
398 
455 

884 

1063 
1268 
1501 
1896 
2236 
2296 
2559 
2612 
2820 
2872 
2940 
3143 
3200 
3418 
3460 
3533 
3744 


553 

555 

557 

559 

562 

564 

566 

568 

570 

572 

662 

664 

666 

670 

673 

675 

677 

679 

681 

683 

800 

802 

804 

806 

808 

813    SEQ  1990 

817 

819 

824 

826 

828 

830 

832 

837 

839 

841 

843 

848 

853 

857 

859 

874 

876 

880 

884 

886 

888 

890 

895 

897 

901 

905 

907 

909 

911 

1051 

1053 

1055 

1057 

1059 

1061 

1070 

1079 

1088 

1092 

1094 

1096 

1098 

1103 

1240 

1242 

1247 

1249 

1251 

1253 

1255 

1257 

1268 

1459 

1461 

1463 

1465 

1467 

1469 

1471 

1481 

1490 

1499 

1501 

1503 

1507 

1509 

1514 

1662 

1664 

1667 

1669 

1881 

1883 

1885 

1887 

1975 

1977 

1984 

2219 

2221 

2228 

2230 

2232 

2234 

2236 

2238 

2240 

2254 

2256 

2258 

2262 

2264 

2266 

2268 

2273 

2278 

2290 

2292 

2296 

2298 

2300 

2302 

2304 

2311 

2313 

2317 

2319 

2321 

2323 

2325 

2327 

2548 

2550 

2557 

2559 

2561 

2565 

2567 

2569 

2583 

2585 

2587 

2589 

2591 

2593 

2595 

2597 

2602 

2607 

2621 

2625 

2627 

2629 

2631 

2633 

2635 

2640 

2642 

2646 

2648 

2650 

2652 

2656 

2816 

2818 

2820 

2822 

2824 

2826 

2828 

2830 

2835 

2837 

2839 

2841 

2845 

2847 

2849 

2854 

2856 

2858 

2860 

2862 

2876 

2878 

2880 

2882 

2P84 

2888 

2890 

2892 

2894 

2896 

2898 

2900 

2902 

2904 

2906 

2915 

2917 

2921 

2925 

2927 

2929 

2931 

2936 

2938 

2942 

2944 

2946 

2948 

2950 

2952 

3114 

3118 

3120 

3122 

3124 

3126 

3128 

3133 

3135 

3137 

3139 

3141 

3143 

3145 

3149 

3154 

3156 

3158 

3160 

3162 

3176 

3178 

3180 

3182 

3184 

3186 

3188 

3192 

3194 

3196 

3198 

3200 

3202 

3204 

3206 

3215 

3217 

3221 

3223 

3225 

3229 

3231 

3236 

3238 

3242 

3244 

3246 

3248 

3250 

3252 

3414 

3416 

3418 

3422 

3424 

3426 

3428 

3430 

3432 

3437 

3439 

3441 

3443 

3445 

3447 

3449 

3453 

3458 

3460 

3462 

3464 

3466 

3480 

3482 

3484 

3486 

3488 

3490 

3492 

3496 

3498 

3500 

3502 

3504 

3506 

3508 

3510 

3512 

3514 

3516 

3518 

3527 

3533 

3535 

3537 

3539 

3541 

3543 

3548 

3550 

3554 

3556 

3558 

3560 

3562 

3734 

3736 

3738 

3740 

3742 

3744 

3746 

3748 

3750 

3752 

3754 

3756 

3761 

3765 

3767 

3769 

3771 

3773 

3775 

3780 

3782 

3784 

3786 

3788 

3802 

3804 

3808 

3810 

3812 

3814 

3816 

3818 

3820 

3822 

3824 

3826 

3828 

3830 

3832 

3836 

3838 

3840 

3842 

3844 

3846 

3848 

3857 

3859 

3863 

3865 

3867 

3869 

3873 

3878 

3880 

3884 

3886 

3888 

3890 

3892 

3894 

144 

146 

156 

158 

163 

165 

167 

177 

179 

188 

190 

194 

196 

209 

211 

215 

217 

221 

360 

362 

366 

368 

380 

382 

391 

393 

400 

406 

410 

415 

417 

419 

428 

430 

434 

436 

440 

449 

451 

457 

461 

551 

559 

562 

572 

662 

670 

673 

683 

800 

806 

808 

819 

824 

830 

832 

841 

843 

848 

855 

857 

864 

866 

878 

880 

886 

890 

899 

901 

905 

907 

911 

1051 

1053 

1055 

1057 

1059 

1061 

1072 

1081 

1090 

1092 

1103 

1105 

1115 

1117 

1240 

1249 

1251 

1259 

1261 

1270 

1280 

1282 

1459 

1461 

1463 

1465 

1467 

1469 

1471 

1473 

1483 

1492 

1503 

1514 

1516 

1526 

1528 

1662 

1664 

1667 

1669 

1879 

1881 

1883 

1891 

1898 

1975 

1979 

198? 

1984 

2215 

2217 

2221 

2223 

2228 

2230 

2232 

2234 

2238 

2240 

2242 

i:mi 

2256 

2258 

2260 

2262 

2273 

2278 

2283 

2285 

2294 

2300 

2302 

2306 

2315 

2317 

2321 

2323 

2327 

2544 

2546 

2550 

2552 

2557 

2561 

2563 

2565 

2567 

2569 

2571 

2576 

2585 

2587 

2589 

2591 

2602 

2607 

2614 

2623 

2625 

2629 

2631 

2635 

2644 

2646 

2650 

2652 

2656 

2816 

2818 

2822 

2824 

2826 

2828 

2830 

2841 

2843 

2845 

2847 

2849 

2854 

2856 

2858 

2876 

2880 

2884 

2888 

2892 

2896 

2900 

2904 

2919 

2921 

2925 

2927 

2931 

2942 

2946 

2948 

2952 

3114 

3116 

3118 

3120 

3122 

3124 

3126 

3128 

3141 

3145 

3147 

3149 

3154 

3156 

3158 

3172 

3176 

3180 

3184 

3188 

3192 

3196 

3204 

3219 

3221 

3225 

3227 

3231 

3240 

3242 

3246 

3248 

3252 

3414 

3416 

3420 

3422 

3^24 

3426 

3428 

3430 

3432 

3445 

3447 

3449 

3^51 

3453 

3458 

3462 

3476 

3480 

3484 

3488 

3492 

3496 

3500 

3504 

3508 

3512 

3516 

3531 

3537 

3539 

3543 

3552 

3554 

3558 

3560 

3564 

3734 

3736 

3738 

3740 

3742 

3746 

3748 

3750 

3752 

3754 

3756 

3767 

3769 

3771 

3773 

3775 

3780 

378? 

77Qa 


x^r\-> 


XHOA 


7«in 


^«U 


^«18 


38?? 


3826 


3830 


3834 


3838 


3842 


3846 


978 


.MJMAP 


.MJZ 

.MLDCT 

.MLDLM 

.MMGC 


.MOENA 


.MOR 


378A 
3861 
H2 
415 
683 
1055 
1280 
166A 
2238 
2567 
2820 
2952 
3227 
3449 
3744 
3890 
869 
3522 
144 
2544 
371 
3198 
3808 
144 
213 
434 
572 
815 
1068 
1266 
1526 
1984 
2321 
2648 
2854 
2923 
3133 
3194 
3422 
3476 
3541 
3754 
3816 
3892 
148 
453 
813 
1669 
2886 
3198 
3514 
3840 
144 


3798 
3863 
158 
417 
808 
1063 
1282 
1667 
2242 
2571 
2822 
3114 
3231 
3453 
3746 
3894 
1110 
3793 
165 
2585 
2878 
3202 
3812 
148 
215 
438 
662 
826 
1070 
1268 
1528 
2213 
?325 
i650 
2860 
2925 
3135 
3198 
3424 
3478 
3556 
3756 
3820 

150 

551 

826 

1979 

2890 

3202 

3518 

3844 

146 


3802 
3867 
163 
419 
819 
1072 
1459 
1669 
2247 
2576 
2824 
3116 
3248 
3458 
3748 

1275 

3850 

188 

2623 

2882 

3206 

3816 

150 

219 

453 

664 

828 

1077 

1275 

1664 

2247 

2542 

2654 

2862 

2929 

3137 

3202 

3426 

3482 

3558 

3761 

3324 

169 

553 

837 

1984 

2894 

3206 

3535 

3848 

150 


3806 
3869 
179 
436 
832 
1081 
1463 
1879 
2262 
,^591 
^826 
3118 
3252 
3462 
3750 

1521 

3852 

209 

2644 

2886 

3482 

3820 

152 

221 

455 

666 

837 

1079 

1280 

1669 

2254 

2576 

2816 

2867 

2944 

3139 

3206 

3428 

3486 

3562 

3763 

3828 

171 

559 

882 

2273 

2898 

3223 

3556 

3865 

154 


3810 
3873 
196 
440 
843 
1092 
1469 
1883 
2273 
2602 
2828 
3120 
3414 
3476 
3752 


362 

2919 

2890 

3486 

3824 

154 

360 

459 

668 

839 

1088 

1282 

1879 

2264 

2583 

2818 

2872 

2946 

3154 

3223 

3430 

3490 

3734 

3765 

3832 

192 

564 

903 

2278 

2902 

3244 

3763 

3886 

165 


3814 
3882 
200 
457 
848 
1103 
1473 
1 891 
22/8 
2607 
2830 
3122 
3416 
3539 
3754 


368 

2940 

2894 

3490 

3828 

165 

371 

551 

670 

853 

1094 

1479 

1885 

2266 

2593 

2820 

2874 

2950 

3160 

3225 

3432 

3494 

3736 

3780 

3836 

200 
566 
1070 
2298 
2906 
3439 
3804 

167 


3818 
3884 
217 
461 
857 
1105 
1483 
1896 
2283 
2612 
2845 
3124 
3418 
3543 
3756 


3822 
3888 
221 
551 
864 
1115 
1492 
1898 
2285 
2614 
2849 
3126 
3420 
3560 
3771 


3826 
3890 
360 
559 
866 
1117 
1503 
1975 
2302 
2631 
2854 
3128 
3422 
3564 
3775 


3830 
3894 
382 
562 
886 
1240 
1514 
1979 
2306 
2635 
2858 
3145 
3424 
3734 
3780 


3834    3838    3842    3846 


428 

3219 

2898 

3494 

3832 

169 

376 

553 

675 

864 

1096 

1481 

1887 

2273 

2595 

2822 

2878 

3114 

3162 

3229 

3437 

3498 

3738 

3786 

3840 

213 
572 
1079 
2319 
2923 
3482 
3808 

171 


449 

3240 

2902 

3498 

3836 

171 

378 

555 

677 

866 

1103 

1488 

1889 

2278 

2602 

2824 

2882 

3116 

3167 

3244 

3439 

350: 

374C> 

3783 

3844 

221 
662 
1103 
2602 
2944 
3486 
3812 

175 


878 

3531 

2906 

3502 

3840 

173 

387 

557 

679 

882 

1110 

1490 

1896 

2283 

2607 

2826 

2886 

3118 

3172 

3246 

3441 

3506 

3742 

3793 

3848 

371 
664 
1253 
2607 
3135 
3490 
3816 

192 


899 

3552 

3178 

3506 

3844 

175 

389 

559 

681 

884 

1115 

1499 

1898 

2285 

2612 

2828 

2890 

3120 

3174 

3250 

3443 

3510 

3744 

3798 

3865 

37o 
670 

ji>8 
3494 
3820 

198 


393 
572 
890 
1251 
1516 
1982 
2323 
2652 
2872 
3149 
3426 
3736 
3784 


2215 
3861 
3182 
3510 
3848 
19? 
41! 
56^ 
683 
808 
1117 
1305 
'.975 
2298 
2614 
2830 
2894 
3122 
3178 
3414 
3458 
3514 
3746 
3800 
3867 

415 
675 
1481 
2648 
3182 
3498 
3824 

200 


400 
662 
907 
1261 
1526 
1984 
2327 
2656 
2927 
3154 
3428 
3738 
3798 


2213    2542    2867    2908    2910    3167    3208    3210 


2256 
3882 
3186 
3514 

194 

417 

566 

802 

903 

1247 

1507 

1977 

2300 

2627 

2835 

2898 

3124 

3182 

3416 

3464 

3518 

3748 

3804 

3871 


677 
1490 
2837 
3186 
3502 
3828 

213 


406 
670 
911 
1268 
1528 
2223 
255? 
2816 
2931 
3158 
3430 
3740 
3869 

3471 

2294 

3190 
3518 

198 

419 

568 

804 

905 

1253 

1514 

1979 

2304 

2629 

2837 

2902 

3126 

3186 

3418 

3466 

3535 

3750 

3808 

3886 

419 
685 
1514 
2878 
3190 
3506 
3832 

219 


410 
673 
1051 
1270 
1662 
2234 
2563 
2818 
2948 
3172 
3432 
3742 
3873 

3520 

2315 

3194 
3804 

200 

432 

570 

813 

909 

1255 

1521 

1982 

2319 

2633 

2839 

2906 

3128 

3190 

3420 

3471 

3537 

3752 

3812 

3888 

432 
802 
1664 
2882 
3194 
3510 
3836 

221 


SEQ  1991 


77Q 


1Q7 


700 


^i«; 


A17 


L^Q 


4^? 


438 


453 


459 


557 


979 


.MPLUS 


.MRDLM 


.MRMIN 
.MRPCT 

.MSOA 


.MSOB 

.MSAB 
.MSDO 


.MbtLC 


.MSELE 


.M5ELF 


903 
1979 
2633 
2944 
3250 
3556 
3788 
186 
901 
2625 
3554 
387 
3124 
3736 
156 
146 
2546 
146 
376 
564 
817 
1268 
2319 
2886 
.;186 
3490 
3804 
3886 
186 
,255 
2938 
156 
2921 
144 
555 
1096 
2824 
3128 
3432 
3752 
813 
1488 
2576 
3471 
192 
453 
1079 
2304 
2929 
3558 
148 


366 
668 
909 
2230 
2648 
2950 
3414 
3562 
3865 
190 
1098 
2642 
3859 
2816 
3126 
3738 
177 
167 
2587 
148 
406 
566 
826 
1481 
2325 
2890 
3190 
3494 
3808 
3892 
207 
1257 
3217 
177 
2942 
152 
557 
1507 
2826 
3137 
3441 
3754 
837 
1499 
2583 
3476 
194 
455 
1103 
2319 
2944 
3562 
169 


376 
681 
1079 
2266 
2654 
3114 
3416 
3734 
3871 
207 
1242 
2646 
3863 
2818 
312T 
3740 

190 

2625 

150 

408 

572 

830 

1490 

2559 

2894 

3194 

3498 

3812 

364 
1259 
3238 

190 
3221 

154 

568 
1887 
2828 
3162 
3466 
3756 

853 
1505 
2593 
3765 

198 

459 
1268 
2321 
2946 
3865 

376 


378 
802 
1096 
2273 
2816 
3116 
3418 
3736 
3886 
211 
1255 
2917 
3880 
2820 
3414 
3742 

211 

2646 

167 

415 

662 

837 

1514 

2569 

2898 

3198 

3502 

3816 

366 
1459 
3529 

211 
3242 

165 

570 
1977 
2830 
3215 
3527 
3788 

864 
1526 
2612 
3780 

200 

559 
1481 
2325 
2950 
3867 

387 


387 
804 
1103 
2278 
2818 
3118 
3420 
3738 
3892 
364 
1509 
2921 
3884 
2822 
3416 
3744 

366 

2921 

169 

417 

664 

841 

1662 

2602 

2902 

3202 

3506 

3820 

368 
1509 
3550 

380 
3533 

173 

666 
2266 
2862 
3236 
3548 
5857 
1068 
1879 
2854 
3786 

213 

572 
1490 
2602 
3223 
3871 

551 


389 
806 
1253 
2298 
2820 
3120 
3422 
3740 

368 
1664 
2938 

2824 
3418 
3746 

398 

2942 

171 

419 

670 

882 

1667 

2607 

2906 

3206 

3510 

3824 

410 
1664 
3859 

391 
3554 

175 

668 
2290 
2915 
3414 
3734 
3878 
1077 
1885 
2860 
3793 

215 

670 
1514 
2607 
3225 
3886 

564 


415 

417 

813 

815 

1?57 

1259 

2304 

2319 

2822 

2824 

3122 

3124 

3424 

3426 

3742 

3744 

410 
1669 
2942 

2826 
3420 
3748 

430 

3221 

192 

432 

673 

888 

1979 

2627 

2923 

3223 

3514 

3828 

426 
1669 
3880 

430 
3863 

184 

679 
2311 
2936 
3416 
3736 

1088 

1889 

2867 

3798 

219 

683 

1664 

2627 

3229 

3888 

662 


426 
2240 
3217 

2828 
3422 
3750 

451 

3242 

198 

438 

675 

903 

1984 

2633 

2929 

3229 

3518 

3832 

447 
2219 

451 
3884 
205 
681 
2595 
3114 
3418 
3738 

1094 
1896 
2872 

221 
882 
1669 
2629 
3244 
3892 
675 


419 
826 
1268 
2325 
2826 
3126 
3428 
3746 

430 
2292 
3221 

2830 
3424 
3752 

880 

3533 

200 

453 

677 

909 

2230 

2648 

2944 

3244 

3535 

3836 

824 
2292 

880 

360 
804 
2619 
3116 
3420 
3740 

1115 
1975 
3154 

415 

884 

1979 

2633 

3246 

802 


432 
828 
1490 
2559 
2828 
3128 
3430 
3748 

447 
2296 
3238 

3114 
3426 
3754 

901 

3554 

213 

459 

683 

1070 

2240 

2654 

2950 

3250 

3541 

3840 

876 
2313 

901 


1247 
1982 
3160 

417 

888 

1984 

2648 

3250 

826 


438 
839 
1507 
2595 
2830 
3162 
3432 
3^50 

451 
2313 
3242 

3116 
3428 
3756 

2217 

3863 

219 

551 

800 

1079 

2273 

2837 

3135 

3439 

3556 

3844 

897 
2548 

2296 


378 

387 

815 

828 

2640 

2816 

3118 

3120 

3422 

3424 

3742 

3744 

1255 
2247 
3167 

419 

903 

2273 

2650 

3535 


453 
841 
1514 
2602 
2862 
3223 
3466 
3752 

876 
2317 
3529 

3118 
3430 


2258 

3884 

221 

553 

802 

1103 

2278 

2841 

3141 

3445 

3562 

3848 

1051 
2621 


389 
839 
2818 
3122 
3426 
3746 

1266 
2254 
3172 

432 

905 

2278 

2654 

3537 


459 
882 
1887 
2607 
2923 
3229 
3535 
3754 

880 
2569 
3533 

3120 
3432 


362 
559 
806 
1242 
2298 
2878 
3178 
3482 
3763 
3865 

1098 
2642 


424 
874 
2820 
3124 
3428 
3748 

1280 
2264 
3458 

434 

909 

2298 

2923 

3541 


557 
888 
1977 
2627 
2929 
3244 
3541 
3756 

897 
2621 
3550 

3122 
3734 


SFQ  1992 


2296   2317 


371 
56: 
813 
1253 
"304 
2882 
3182 
3486 
3767 
3871 

1240 
2917 


2317   2625   2646 


445 
895 
2822 
3126 
3430 
3750 

1479 
2283 
3464 

438 
1070 
2300 
2925 
3556 


DFPTA 
DFPTA 

4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 

c 


1253   2837    2839    3139 


.MSELM 


.MSELP 

.MSKCN 

.MSMIN 

.MTIM 

.MXNOR 

.RA 


.RAND 
.RB 


.RCCCA 
.RCCCP 
.RCCFZ 
.RCCGC 

.RCCLU 
.RCCM8 
.RCCMP 
.RCENA 


.RCJP 


3443 
150 
804 
1898 
3174 
152 
144 
380 
1667 
148 
1481 
156 
415 
806 
1079 
2304 
2837 
2944 
3229 
3514 
3820 
184 
1051 
3215 
148 
364 
430 
874 
1459 
2569 
2828 
3124 
3422 
3736 
3863 
855 
1059 
156 
194 
3537 
1061 
2230 
2232 
156 
905 
2260 
2925 
3767 
156 
905 
2260 
2925 
3767 


3763 
154 
815 

1977 

3437 
173 
165 
391 

1669 
169 

177 
417 
813 
1103 
2317 
2841 
2950 
3242 
3518 
3824 
205 
1240 
2236 
154 
366 
445 
876 
1507 
2595 
2830 
3126 
3424 
<738 
3878 
1090 
1467 
177 
215 
3558 
1471 
2559 
2236 
177 
1059 
2300 
2946 
3769 
177 
1059 
2300 
2946 
3769 


171 
828 
2213 
3439 
555 
360 


371 

190 

419 

817 

1242 

2319 

2878 

3135 

3244 

3533 

3828 

362 

1459 

3527 

156 

368 

447 

880 

1509 

2619 

2862 

3128 

3426 

3740 

3880 

1249 

380 

434 
3867 
2240 
2841 
2561 

194 
1061 
2321 
3141 
3773 

194 
1061 
2321 
3141 
3773 


175 

378 

839 

866 

2266 

2285 

3466 

34^8 

568 

666 

553 

192 

430 

826 

1253 

2325 

2882 

3141 

3250 

3535 

3832 

406 

1662 

3548 

169 

376 

451 

895 

1887 

2621 

2915 

3162 

3428 

3742 

3884 

1501 

391 

455 
3888 
2569 
3141 
2565 

215 
1090 
2559 
3143 
3782 

215 
1090 
2559 
3143 
3782 


564 

198 

432 

830 

1268 

2559 

2886 

3178 

3439 

3541 

3836 

408 

1667 

3857 

175 

378 

557 

897 

2219 

2625 

2917 

3215 

3430 

3744 

1881 

806 
884 


3445 
2843 

380 
1249 
2561 
3147 
3867 

380 
1249 
2561 
3147 
3867 


389 
1096 
2542 
3761 

679 


566 

200 

438 

837 

1481 

2569 

2890 

3182 

3445 

3554 

3840 

424 

1984 

3878 

177 

380 

570 

901 

2240 

2640 

2921 

3217 

3432 

3746 


817 
905 


'    " 

553 
1110 
2595 
3788 
3137 

557 
1117 
2614 
3800 
3441 

31 

2835 

570 
1282 
2862 

664 
1507 
2874 

664 

211 

451 

841 

1490 

2602 

2894 

3186 

3482 

3556 

3844 

445 

2219 

184 
387 
668 
1051 
2266 
2642 
2936 
3221 
3466 
3748 


830 
2300 


3767 

2847 

3143 

391 

434 

1259 

1467 

2565 

2569 

3156 

3225 

3888 

391 

434 

1259 

1467 

2565 

2569 

3225 

3888 

675 

213 

453 

880 

1514 

2607 

2898 

3190 

3486 

3562 

3848 

551 

2290 

186 
389 
681 
1096 
2290 
2646 
2938 
3236 
3527 
3750 


677 

219 

459 

882 

2230 

2625 

2902 

3194 

3490 

3763 

3863 

562 

2311 

190 
391 
800 
1098 
2292 
2816 
2942 
3238 
3529 
3752 


841 
2321 


3147 
455 
1471 
2589 
3246 

455 
1471 
2589 
3246 


1259 
2629 


3447 
806 
1501 
2629 
3445 

806 
1501 
2629 
3445 


817 

221 

559 

888 

2240 

2627 

2906 

3198 

3494 

3767 

3865 

662 

2548 

205 
406 
804 
1240 
2296 
2818 
3114 
3242 
3533 
3754 


2650 


3451 
817 
1881 
2650 
3447 

817 
1881 
2650 
3447 


824 

371 

572 

901 

2273 

2633 

2921 

3202 

3498 

3804 

3871 

673 

2619 

207 
408 
815 
1242 
2311 
2820 
3116 
3414 
3548 
3756 


2260    2589    2856    3156    3460    3782 


3769 
830 
2230 
2841 
3451 

830 
2230 
2841 
3451 


668 
1521 
3133 


«30 

376 

670 

903 

2278 

2646 

2923 

3206 

3502 

3808 

3884 

800 

2640 

211 
410 
824 
1255 
2313 
2822 
3118 
3416 
3550 
3788 


3773 
841 
2232 
2843 
3460 

841 
2232 
2843 
3460 


677 
1528 
3135 


837 

380 

683 

909 

2296 

2648 

2929 

3221 

3506 

3812 

3886 

874 

2915 

360 
424 
828 
1257 
2317 
2824 
3120 
3418 
3554 
3857 


855 
2236 
2847 
3537 

855 
2236 
2847 
3537 


681 
1887 
3162 


1070 

391 
802 
1070 
2298 
2654 
2942 
3223 
3510 
3816 
3892 
895 
2936 

362 
426 
839 
1259 
2548 
2826 
3122 
3420 
3734 
3859 


SEO  1993 


DFPT/ 
DFPT/ 


2925    2946    3225    3246 


884 
2240 
2856 
3558 

884 
2240 
2856 
3558 


occn 


0CC7 


7S7A 


oaan 


PflRA 


pftflfl 


1981 


.RCJS 
.RCONT 


.RCRTN 
.RCRY 


.RO 


800 
2892 
3A88 
3826 
U8 
213 
AA7 
677 
882 
12A7 
1889 
2548 
2839 
2929 
3190 
3A39 
3518 
380A 
3865 
859 
156 
1242 
3238 
142 
173 
211 
382 
430 
551 
668 
815 
855 
903 
1090 
1259 
1505 
1979 
2260 
2306 
2563 
2619 
2654 
2843 
2886 
292'. 
3116 
3147 
3190 
3227 
3420 
3451 
3494 
3529 


824 

1053 

1057 

2896 

2900 

2904 

3492 

3496 

3500 

3830 

3834 

3838 

150 

152 

154 

219 

364 

371 

453 

459 

553 

679 

681 

802 

888 

895 

897 

1253 

1255 

1257 

1977 

2219 

2254 

2583 

2593 

2595 

2860 

2874 

2878 

2936 

2938 

2944 

3194 

.3198 

3202 

3441 

3443 

3464 

3527 

3529 

3535 

3808 

3812 

3816 

3871 

3878 

3880 

1098 

1509 

2268 

177 

186 

207 

1255 

1509 

1664 

3529 

3550 

3859 

144 

146 

148 

175 

177 

179 

213 

215 

217 

387 

389 

393 

432 

434 

436 

553 

555 

557 

670 

673 

675 

817 

819 

824 

857 

859 

874 

905 

907 

909 

'092 

1094 

1096 

1268 

1459 

1461 

1507 

1509 

1514 

1984 

2219 

2221 

2262 

2264 

2266 

2311 

2313 

2317 

2565 

2567 

2569 

2621 

2625 

2627 

2656 

2816 

2818 

2845 

2847 

2849 

2888 

2890 

2892 

2925 

2927 

2929 

3118 

3120 

3122 

3149 

3154 

3156 

3192 

3194 

3196 

3229 

3231 

3236 

3422 

3424 

3^26 

3453 

3458 

3460 

3496 

3498 

:500 

3533 

3535 

3537 

1461 
3176 
3504 
3842 
169 
376 
555 
804 
903 
1266 
2264 
2619 
2882 
2950 
3206 
3478 
3541 
3820 
3886 
2597 
364 
1669 
3880 
150 
184 
219 
398 
438 
559 
677 
826 
876 
911 
1098 
1463 
1662 
2228 
2268 
2319 
2583 
2629 
2820 
2854 
2894 
2931 
3124 
3158 
3198 
3238 
3428 
3462 
3502 
3539 


1465 

3180 

3508 

3846 

171 

378 

557 

813 

909 

1479 

2266 

2621 

2886 

3133 

3215 

3482 

3548 

3824 

3892 

2862 

368 

2240 

152 

186 

221 

400 

440 

562 

679 

828 

880 

1051 

1103 

1465 

1664 

2230 

2273 

2321 

2585 

2631 

2522 

2856 

2896 

2936 

3126 

3160 

3200 

3242 

3430 

3464 

3504 

3541 


2221 
3184 
3512 

173 

387 

564 

815 

1068 

1481 

2290 

2627 

2890 

3135 

3217 

3486 

3550 

3828 

3162 

380 

2292 

154 

190 

360 

406 

445 

564 

681 

830 

882 

1053 

1240 

1467 

1667 

2232 

2278 

2323 

2587 

2633 

2824 

2858 

2898 

2938 

3128 

3162 

3202 

3244 

3432 

3466 

3506 

3543 


2228 

2550 

2557 

i876 

IW 

3188 

3192 

3196 

3200 

3204 

3516 

3802 

3806 

3810 

3814 

175 

184 

186 

192 

198 

389 

408 

424 

426 

432 

568 

570 

% 

g^^ 

8c6 

828 

837 

853 

1070 

1077 

1079 

1088 

1094 

1488 

1490 

1499 

1505 

1507 

2292 

2298 

2304 

2311 

2313 

2633 

2640 

2642 

2648 

2654 

2894 

2898 

2902 

2906 

2915 

3137 

3139 

3160 

3174 

3178 

3223 

3229 

3236 

3238 

3244 

3490 

3494 

3498 

3502 

3506 

3556 

3562 

3761 

3763 

3765 

3832 

3836 

3840 

3844 

3848 

3466 

3788 

391 

410 

426 

447 

876 

2313 

2569 

2621 

2642 

2917 

156 

158 

163 

165 

167 

192 

194 

196 

198 

200 

362 

364 

366 

368 

371 

408 

410 

415 

417 

419 

447 

451 

453 

455 

457 

568 

570 

572 

662 

683 

800 

804 

806 

832 

837 

839 

841 

843 

884 

886 

888 

890 

895 

1055 

1057 

1059 

1061 

1070 

1242 

1247 

1249 

1251 

1253 

1469 

1471 

1481 

1490 

1499 

1669 

1881 

1883 

1885 

1887 

2234 

2236 

2238 

2240 

2254 

2290 

2292 

2296 

2298 

2300 

2325 

2327 

2548 

2550 

2557 

2589 

2591 

2593 

2595 

2597 

2635 

2640 

2642 

2646 

2648 

2826 

2828 

2830 

2835 

2837 

2860 

2862 

2876 

2878 

2880 

2900 

2902 

2904 

2906 

2915 

2942 

2944 

2946 

2948 

2950 

3133 

3135 

3137 

3139 

3141 

3176 

3178 

3180 

3182 

3184 

3204 

3206 

3215 

3217 

3221 

3246 

3248 

3250 

3252 

3414 

3437 

3439 

3441 

3443 

3445 

3480 

3482 

3484 

3486 

3488 

3508 

3510 

3512 

3514 

3516 

3548 

3550 

3554 

3556 

3558 

2884 
3480 
3818 

205 

438 

668 

874 

1096 

1885 

2319 

2835 

2917 

3182 

3250 

3510 

3786 

3857 


897 
2938 

169 

205 

376 

424 

459 

664 

808 

848 

897 

1079 

1255 

1501 

1975 

2256 

2302 

2559 

2602 

2650 

2839 

2882 

2917 

2952 

3143 

3186 

3223 

3416 

3447 

3490 

3518 

3560 


2888 
3484 
3822 

207 

445 

675 

876 

1242 

1887 

2325 

2837 

2923 

3186 

3437 

3514 

3800 

3859 


1098 
3217 

171 

207 

378 

426 

461 

666 

813 

853 

901 

1088 

1257 

1503 

1977 

2258 

2304 

2561 

2607 

2652 

2841 

2884 

2921 

3114 

3145 

3188 

3225 

3418 

3449 

3492 

3527 

3562 


SEQ  1994 


DFP1 
DFP1 


1982 


3564 

3734 

763 

3765 

3806 

3808 

3834 

3836 

3871 

3873 

.RJ      U2 

144 

200 

209 

398 

400 

455 

457 

817 

819 

884 

886 

1063 

1072 

1268 

1270 

1501 

1503 

1896 

1898 

2236 

2238 

2296 

2300 

2559 

2561 

2612 

2614 

2820 

2822 

2872 

2876 

2940 

2942 

3143 

3145 

3200 

3204 

3418 

3420 

3460 

3462 

3533 

3537 

3744 

3746 

3784 

3798 

3861 

3863 

.RJMAP     142 

158 

415 

417 

683 

808 

1055 

'063 

1280 

1282 

1664 

1667 

2238 

2242 

2567 

2571 

2820 

2822 

2952 

3114 

3227 

3231 

3449 

3453 

3744 

3746 

3890 

3894 

.RJZ      869 

1110 

3522 

3793 

.RLDCT     144 

165 

2544 

2585 

.RLDLM     371 

2878 

3198 

3202 

3808 

3812 

.RMGC     144 

148 

213 

215 

3736 
3767 
3810 
3838 
3878 
146 
211 
406 
461 
824 
890 
1081 
1280 
1514 
1975 
2240 
2302 
2563 
2623 
2824 
2880 
2946 
3147 
3219 
3422 
3476 
3539 
3748 
3802 
3867 
163 
419 
819 
1072 
1459 
1669 
2247 
2576 
2824 
3116 
3248 
3458 
3748 

1275 

3850 

188 

2623 

2882 

3206 

3816 

150 

219 


3738 

3769 

3812 

3840 

3880 

156 

215 

410 

551 

830 

899 

1090 

1282 

1516 

1979 

2242 

2306 

2565 

2625 

2826 

2884 

2948 

3149 

3221 

3424 

3480 

3543 

3750 

3806 

3869 

179 

436 

832 

1081 

1463 

1879 

2262 

2591 

2826 

3118 

3252 

3462 

3750 

1521 

3852 

209 

2644 

2886 

3482 

3820 

152 

221 


3740 

3771 

3814 

3842 

3884 

158 

217 

415 

559 

832 

901 

1092 

1459 

1526 

1982 

2247 

2315 

2567 

2629 

2828 

2888 

2952 

3154 

3225 

3426 

3484 

3552 

3752 

3810 

3873 

196 

440 

843 

1092 

1469 

1883 

2273 

2602 

2828 

3120 

3414 

3476 

3752 

2213 

362 
2919 
2890 
3486 
3824 
154 
360 


3742 

3773 

3816 

3844 

3886 

163 

221 

417 

562 

841 

905 

1103 

1461 

1528 

1984 

2256 

2317 

2569 

2631 

2830 

2892 

3114 

3156 

3227 

3428 

3488 

3554 

3754 

3814 

3882 

200 

457 

848 

1103 

1473 

1891 

2278 

2607 

2830 

3122 

3416 

3539 

3754 


368 
2940 
2894 
3490 
3828 
165 
371 


3744 

3775 

3818 

3846 

3888 

165 

360 

419 

572 

843 

907 

1105 

1463 

1662 

2215 

2258 

2321 

2571 

2635 

2841 

2896 

3116 

3158 

3231 

3430 

3492 

3558 

3756 

3818 

3884 

217 

461 

857 

1105 

1483 

1896 

2283 

2612 

2845 

3124 

3418 

3543 

3756 


428 
3219 
2898 
3494 
3832 
169 
376 


3746 

3780 

3820 

3848 

3890 

167 

362 

428 

662 

848 

911 

1115 

1465 

1664 

2217 

2260 

2323 

2576 

2644 

2843 

2900 

3118 

3172 

3240 

3432 

3496 

3560 

3767 

3822 

3888 

221 

551 

864 

1115 

1492 

1898 

2285 

2614 

2849 

3126 

3420 

3560 

3771 


3748 
3782 
3822 
3857 
3892 
177 
366 
430 
670 
855 
1051 
1117 
1467 
1667 
2221 
2262 
232.7 
2585 
2646 
2845 
2904 
3120 
3176 
3242 
3445 
3500 
3564 
3769 
3826 
3890 
360 
559 
866 
1117 
1503 
1975 
2302 
2631 
2854 
3128 
3422 
3564 
3775 


3750 
3784 
3824 
3859 
3894 
179 
368 
434 
673 
857 
1053 
1240 
1469 
1669 
2223 
2273 
2544 
2587 
2650 
2847 
2919 
3122 
3180 
3246 
3447 
3504 
3734 
3771 
3830 
3894 
382 
562 
886 
1240 
1514 
1979 
2306 
2635 
2858 
3145 
3424 
3734 
3780 


3752 
3786 
3826 
3863 

188 
380 
436 
683 
864 
1055 
1249 
1471 
1879 
2228 
2278 
2546 
2589 
2652 
2849 
2921 
3124 
3184 
3248 
3449 
3508 
3736 
3773 
3834 

393 
572 
890 
1251 
1516 
1982 
2323 
2652 
2872 
3149 
3426 
3736 
3784 


449 
3240 
2902 
3498 
3836 
171 
378 


878 
3531 
2906 
3502 
3840 
173 
387 


899 
3552 
3178 
3506 
3844 
175 
389 


2215 
3861 
3182 
3510 
3848 
192 
415 


3754 
3788 
3828 
3865 

190 
382 
440 
800 
866 
1057 
1251 
1473 
1881 
2230 
2283 
2550 
2591 
2656 
2854 
2925 
3126 
3188 
3252 
3451 
3512 
3738 
3775 
3838 

400 
662 
907 
1261 
1526 
1984 
2327 
2656 
2927 
3154 
3428 
3738 
3798 


2256 
3882 
3186 
3514 

194 
417 


3756 
3802 
3830 
3867 

194 
391 
449 
806 
878 
1059 
1259 
1483 
1883 
2232 
2285 
2552 
2602 
2816 
2856 
2927 
3128 
3192 
3414 
3453 
3516 
3740 
3780 
3842 

406 
670 
911 
1268 
1528 
2223 
2552 
2816 
2931 
3158 
3430 
3740 
3869 


2542    2867    2908    2910    3167    3208    3210    3471 


2294 

3190 
3518 

198 

419 


3761 
3804 
3832 
3869 

196 
393 
451 
808 
880 
1061 
1261 
1492 
1891 
2234 
2294 
2557 
2607 
2818 
2858 
2931 
3141 
3196 
3416 
3458 
3531 
3742 
3782 
3846 

410 
673 
1051 
1270 
1662 
2234 
2563 
2818 
2948 
3172 
3432 
3742 
3873 

3520 

2515 

3194 
3804 

200 
432 


r 


SEQ  1995 


"•"1 


I  1983 


.ROENA 


.ROR 


.RPLUS 


.RRDLM 


.RRMIN 
.RRPCT 

.RSOA 


A3A 
572 
815 
1068 
1266 
1526 
198A 
2321 
26A8 
2854 
2923 
3133 
31 94 
3422 
3476 
3541 
3754 
3816 
3892 
148 
453 
813 
1669 
2886 
3198 
3514 
3840 
144 
360 
570 
903 
1979 
2633 
2944 
3250 
3556 
3788 
186 
901 
2625 
3554 
387 
3124 
3736 
156 
146 
2546 
146 
376 
564 
817 
1268 
2319 


438 
662 
826 
1070 
1268 
1528 
2213 
2325 
2650 
2860 
2925 
3135 
3198 
3424 
3478 
3556 
3756 
3820 

150 

551 

826 

1979 

2890 

3202 

3518 

3844 

146 

366 

668 

909 

2230 

?648 

i950 

3414 

3562 

3865 

190 

1098 

2642 

3859 

2816 

3126 

3738 

177 

167 

2587 

148 

406 

566 

826 

1481 

2325 


453 
664 
828 
1077 
1275 
1664 
2247 
2542 
2654 
2862 
2929 
3137 
3202 
3426 
3482 
3558 
3761 
3824 

169 

553 

837 

1984 

2894 

3206 

3535 

3848 

150 

376 

681 

1079 

2266 

2654 

3114 

3416 

3734 

3871 

207 

1242 

2646 

3863 

2818 

3128 

3740 

190 

2625 

150 

408 

572 

830 

1490 

2559 


455 
666 
837 
1079 
1280 
1669 
2254 
2576 
2816 
2867 
2944 
3139 
3206 
3428 
3486 
3562 
3763 
3828 

171 

559 

882 

2273 

2898 

3223 

3556 

3865 

154 

378 

802 

1096 

2273 

2816 

3116 

3418 

3736 

3886 

211 

1255 

2917 

3880 

2820 

3414 

3742 

211 

2646 

167 

415 

662 

837 

1514 

2569 


459 
668 
839 
1088 
1282 
1879 
2264 
2583 
2818 
2872 
2946 
3154 
3223 
3430 
3490 
3734 
3765 
3832 

192 

564 

903 

2278 

2902 

3244 

3763 

3886 

165 

387 

804 

1103 

2278 

2818 

3118 

3420 

3738 

3892 

364 

1509 

2921 

3884 

2822 

3416 

3744 

366 

2921 

169 

417 

664 

841 

1662 

2602 


551 
670 
853 
1094 
1479 
1885 
2266 
2593 
2820 
2874 
2950 
3160 
3225 
3432 
3494 
3736 
3780 
3836 

200 
566 
1070 
2298 
2906 
3439 
3804 

167 
389 
806 
1253 
2298 
2820 
3120 
3422 
3740 

368 
1664 
2938 

2824 
3418 
3746 

398 

2942 

171 

419 

670 

882 

1667 

2607 


553 
675 
864 
1096 
1481 
1887 
2273 
2595 
2822 
2878 
3114 
3162 
3229 
3437 
3498 
3738 
3786 
3840 

213 
572 
1079 
2319 
2923 
3482 
3808 

171 
415 
813 
1257 
2304 
2822 
3122 
3424 
3742 

410 
1669 
2942 

2826 
3420 
3748 

430 

3221 

192 

432 

673 

888 

1979 

2627 


555 
677 
866 
1103 
1488 
1889 
2278 
2602 
2824 
2882 
3116 
3167 
3244 
3439 
3502 
3740 
3788 
3844 

221 
662 
1103 
2602 
2944 
3486 
3812 

175 
417 
815 
1259 
2319 
2824 
3124 
3426 
3744 

426 
2240 
3217 

2828 
3422 
3750 

451 

3242 

198 

438 

675 

903 

1984 

2633 


557 
679 
882 
1110 
1490 
1896 
2283 
2607 
2826 
2886 
3118 
3172 
3246 
3441 
3506 
3742 
3793 
3848 

371 
664 
1253 
2607 
3135 
3490 
3816 

192 
419 
826 
1268 
2325 
2826 
3126 
3428 
3746 

430 
2292 
3221 

2830 
3424 
3752 

880 

3533 

200 

453 

677 

909 

2230 

2648 


559 
681 
884 
1115 
1499 
1898 
2285 
2612 
2828 
2890 
3120 
3174 
3250 
3443 
3510 
3744 
3798 
3865 

376 
670 
1268 
2627 
3178 
3494 
3820 

198 
432 
828 
1490 
2559 
2828 
3128 
3430 
3748 

447 
2296 
3238 

3114 
3426 
3754 

901 

3554 

213 

459 

683 

1070 

2240 

2654 


564 
683 
888 
1117 
1505 
1975 
2298 
2614 
2830 
2894 
3122 
3178 
3414 
3458 
3514 
3746 
3800 
3867 

415 
675 
1481 
2648 
3182 
3498 
3824 

200 
438 
839 
1507 
2595 
2830 
3162 
3432 
3750 

451 
2313 
3242 

3116 
3428 
3756 

2217 

3863 

219 

551 

800 

1079 

2273 

2837 


566 
802 
903 
1247 
1507 
1977 
2300 
2627 
2835 
2898 
3124 
3182 
3416 
3464 
3518 
3748 
3804 
3871 

417 
677 
1490 
2837 
3186 
3502 
3828 

213 
453 
841 
1514 
2602 
2862 
3223 
3466 
3752 

876 
2317 
3529 

3118 
3430 


2258 

3884 

221 

553 

302 

1103 

2278 

2841 


568 
804 
905 
1253 
1514 
1979 
2304 
2629 
2837 
2902 
3126 
3186 
3418 
3466 
3535 
3750 
3808 
3886 

419 
683 
1514 
2878 
3190 
3506 
3832 

219 
459 
882 
1887 
2607 
2923 
3229 
3535 
3754 

880 
2569 
3533 

3120 
3432 


362 

559 

806 

1242 

2298 

2878 


570 
813 
909 
1255 
1521 
1982 
2319 
2633 
2839 
2906 
3128 
3190 
3420 
3471 
3537 
3752 
3812 
3888 

432 
802 
1664 
2882 
3194 
3510 
3836 

221 
557 
888 
1977 
2627 
2929 
3244 
3541 
3756 

897 
2621 
3550 

3122 
3734 


SEQ  1996 


2296    2317 


371 

562 

813 

1253 

2304 

2882 


Q  1984 


.RSOB 

.RSAB 
.RSDO 


.RSELC 


.RSELE 


.RSELF 
.RSELM 


.RSELP 

.RSKCN 

.RSMIN 

.RTIM 

.RXNOR 


2886 

3186 

3490 

3804 

3886 

186 

1255 

2938 

156 

2921 

144 

555 

1096 

2824 

3128 

3432 

3752 

813 

1488 

2576 

3471 

192 

453 

1079 

2304 

2929 

3558 

148 

3443 

150 

804 

1898 

3174 

152 

144 

380 

1667 

148 

1481 


2890 

3190 

3494 

3808 

3892 

207 

1257 

3217 

177 

2942 

152 

557 

1507 

2826 

3137 

3441 

3754 

837 

1499 

2583 

3476 

194 

455 

1103 

2319 

2944 

3562 

169 

3763 

154 

815 

1977 

3437 

173 

165 

391 

1669 

169 


2894 

2898 

2902 

2906 

3194 

3198 

3202 

\^^A 

3498 

3502 

3506 

3510 

3812 

3816 

3820 

3824 

364 

366 

368 

410 

1259 

1459 

1509 

1664 

3238 

3529 

3550 

3859 

'90 

211 

380 

391 

3221 

3242 

3533 

3554 

154 

165 

173 

175 

568 

570 

666 

668 

1887 

1977 

2266 

2290 

2828 

2830 

2862 

2915 

3162 

3215 

3236 

3414 

3466 

3527 

:548 

3734 

3756 

3788 

3857 

38/8 

853 

864 

068 

1077 

1505 

1526 

•879 

1885 

2593 

2612 

2854 

2860 

3765 

3780 

3786 

3793 

198 

200 

213 

215 

459 

559 

572 

670 

1268 

1481 

1490 

1514 

2321 

2325 

2602 

2607 

2946 

2950 

3223 

3225 

3865 

3867 

3871 

3886 

376 

387 

551 

564 

171 
828 
2213 
3439 
555 
360 


371 


175 

839 

2266 

3466 

568 


553 


378 

866 

2285 

3478 

666 


564 


389 
1096 
2542 
3761 

679 


566 


2923 
3223 
3514 
3828 

426 
1669 
3880 

430 
3863 

184 

679 
2311 
2936 
3416 
3736 

1088 

1889 

2867 

3798 

219 

683 

1664 

2627 

3229 

3888 

662 

553 
1110 
2595 
3788 
3137 


664 


2929 
3229 
3518 
3832 

447 
2219 

451 
3884 
205 
681 
2595 
3114 
3418 
3738 

1094 
1896 
2872 

221 
882 
1669 
2629 
3244 
3892 
675 

557 
1117 
2614 
3800 
3441 


675 


2944 
3244 
3535 
3836 

824 
2292 

880 

360 
804 
2619 
3116 
3420 
3740 

1115 
1975 
3154 

415 

884 

1979 

2633 

3246 

802 

566 
1275 
2835 


677 


2950 
3250 
3541 
3840 

876 

2313 

901 

378 
815 
2640 
3118 
3422 
3742 

1247 
1982 
3160 

417 

888 

1984 

2648 

3250 

826 

570 
1282 
2862 


817 


3135 
3439 
3556 
3844 

897 
2548 

2296 

387 
828 
2816 
3120 
3424 
3744 

1255 
2247 
3167 

419 

903 

2273 

2650 

3535 


3141 
3445 
3562 
3848 

1051 
2621 


389 
839 
2818 
3122 
3426 
3746 

1266 
2254 
3172 

432 

905 

2278 

2654 

3537 


3178 
3482 
3763 
3865 

1098 
2642 


424 
874 
2820 
3124 
3428 
3748 

1280 
2264 
3458 

434 

909 

2298 

2923 

3541 


664 
1507 
2874 


824 


668 
1521 
3133 


830 


677 
1528 
3135 


3182 
3486 
3767 
3871 

1240 
2917 


SEQ  1997 


DFI 
DFf 


2317    2625    2646 


445 
895 
2822 
3126 
3430 
3750 

1479 

2:33 

3464 

438 
1070 
2300 
2925 
3556 


1253    2837    2839    3139 


681 
1887 
3162 


837    1070 


Q  1985 


ATABLE 
CALC 


CONCAT 


J8 

909 

1081 

1247 

U59 

1499 

1669 

1984 

2242 

2290 

2321 

2565 

2607 

2644 

2830 

2867 

2898 

2929 

3120 

3154 

3188 

3219 

3250 

3441 

3478 

3506 

3537 

3736 

3767 

3804 

3832 

3863 

3894 

142 

173 

207 

376 

417 

451 

568 

800 

837 

878 


540 

144 

175 

209 

378 

419 

453 

570 

802 

839 

880 

911 

1088 

1249 

461 

1501 

1879 

2213 

2247 

2292 

2323 

2567 

2612 

2646 

2835 

2872 

2900 

2931 

3122 

3156 

3190 

3221 

3252 

<443 

3480 

3508 

3539 

3738 

3769 

3806 

3834 

3865 

144 
175 
209 
378 
419 
453 
570 
802 
839 
880 


542 

146 

177 

211 

380 

424 

455 

572 

804 

841 

882 

1051 

1090 

1251 

1463 

1503 

1881 

2215 

2254 

2294 

2325 

2569 

2614 

2648 

2837 

2874 

2902 

2936 

3124 

3158 

3192 

3223 

3414 

3445 

3482 

3510 

3541 

3740 

3771 

3808 

3836 

3867 

146 
177 
211 
380 
4?4 
<»i5 
572 
804 
841 
882 


649 

651 

653 

1960 

148 

150 

152 

154 

179 

184 

186 

188 

213 

215 

217 

219 

382 

387 

389 

391 

426 

428 

430 

432 

457 

459 

461 

551 

662 

664 

666 

668 

806 

808 

813 

815 

843 

848 

853 

855 

884 

886 

888 

8?2 

1053 

1055 

1057 

1059 

1092 

1094 

1096 

1098 

1253 

1255 

1257 

1259 

1465 

1467 

1469 

1471 

1505 

1507 

1509 

1514 

1883 

1885 

1887 

1889 

2217 

2219 

2221 

2223 

2256 

2258 

2260 

2262 

2296 

2298 

2300 

2302 

2327 

2542 

2544 

2546 

2571 

2576 

2583 

2585 

2619 

2621 

2623 

2625 

2650 

2652 

2654 

2656 

2839 

2841 

2843 

2845 

2876 

2878 

2880 

2882 

2904 

2906 

2908 

2910 

2938 

2940 

2942 

2944 

3126 

3128 

3133 

3135 

3160 

3162 

3167 

3172 

3194 

3196 

3198 

3200 

3225 

3227 

3229 

3231 

3416 

3418 

3420 

3422 

3447 

3449 

3451 

3453 

3484 

3486 

3488 

3490 

3512 

3514 

3516 

3518 

3543 

3548 

3550 

3552 

3742 

3744 

3746 

3748 

3773 

3775 

3780 

3782 

3810 

3812 

3814 

3816 

3838 

3840 

3842 

3844 

3869 

3871 

3873 

3878 

148 

150 

152 

154 

179 

184 

186 

188 

213 

215 

217 

219 

387 

389 

391 

426 

428 

430 

432 

457 

459 

461 

551 

662 

664 

666 

668 

806 

808 

813 

815 

843 

848 

853 

855 

884 

886 

888 

890 

1962 

1963 

1965 

156 

163 

165 

167 

169 

171 

190 

192 

194 

196 

198 

200 

205 

221 

360 

364 

366 

368 

371 

393 

398 

400 

406 

408 

410 

415 

434 

436 

438 

440 

445 

447 

449 

553 

555 

557 

559 

562 

564 

566 

670 

673 

675 

677 

679 

681 

683 

817 

819 

824 

826 

828 

830 

832 

857 

859 

864 

866 

86? 

874 

876 

895 

897 

899 

901 

903 

905 

907 

1061 

1063 

1068 

1070 

1072 

1077 

1079 

1103 

1105 

1110 

1115 

1117 

1240 

1242 

1261 

1266 

1268 

1270 

1275 

1280 

1282 

1473 

1479 

1481 

1483 

1488 

1490 

1492 

1516 

1521 

1526 

1528 

1662 

1664 

1667 

1891 

1896 

1898 

1975 

1977 

1979 

1982 

2228 

2230 

2232 

2234 

2236 

2238 

2240 

2264 

2266 

2268 

2273 

2278 

2283 

2285 

2304 

2306 

2311 

2313 

2315 

2317 

2319 

2548 

2550 

2552 

2557 

2559 

2561 

2563 

2587 

2589 

2591 

2593 

2595 

2597 

2602 

2627 

2629 

2631 

2633 

2635 

2640 

2642 

2816 

2818 

2820 

2822 

2824 

2826 

2828 

2847 

2849 

2854 

2856 

2858 

2860 

2862 

2884 

2886 

2888 

2890 

2892 

2894 

2896 

2915 

2919 

2921 

2923 

2925 

2927 

2946 

2948 

2950 

2952 

3114 

3116 

3118 

3137 

3139 

3141 

3143 

3145 

3147 

3149 

3174 

31^6 

3178 

3180 

3182 

3184 

3186 

3202 

3204 

3206 

3208 

3210 

3215 

3217 

3236 

3238 

3240 

3242 

3244 

3246 

3248 

3424 

3426 

3428 

3430 

3432 

3437 

3439 

3458 

3460 

3462 

3464 

3466 

3471 

3476 

3492 

3494 

3496 

3498 

3500 

3502 

3504 

3520 

3522 

3527 

3529 

3531 

3533 

3535 

3554 

3556 

3558 

3560 

3562 

3564 

3734 

3750 

3752 

3754 

3756 

3761 

3763 

3765 

3784 

3786 

3788 

3793 

3798 

3800 

3802 

3818 

3820 

3822 

3824 

3826 

3828 

3830 

3846 

3848 

3850 

3852 

38b7 

3859 

3861 

3880 

3882 

3884 

3886 

3888 

3890 

3892 

156 

158 

163 

165 

167 

169 

171 

190 

192 

194 

196 

198 

200 

205 

221 

360 

362 

364 

366 

368 

371 

393 

398 

400 

406 

408 

410 

<»15 

434 

436 

438 

440 

445 

447 

449 

553 

555 

557 

559 

562 

564 

566 

670 

673 

675 

677 

679 

6§1 

683 

817 

819 

824 

i26 

828 

830 

832 

857 

859 

864 

i66 

869 

874 

876 

895 

897 

899 

901 

903 

905 

907 

SEQ  1998 


r 


EQ  1986 


CTABLE 
FIELD 


909 
1081 
12A7 
U59 
U99 
1669 
198A 
22A2 
2290 
2321 
2565 
2607 
264A 
2830 
2867 
2898 
2929 
3120 
3154 
3188 
3219 
3250 
3AA1 
3478 
3506 
3537 
3736 
3767 
3804 
3832 
3863 
3894 
988 
1379 
142 
173 
207 
376 
417 
451 
568 
800 
837 
878 
909 
1081 
1247 
1459 
1499 
1669 
1984 
2242 
2290 


911 
1088 
1249 
1461 
1501 
1879 
2213 
2247 
2292 
2323 
2567 
2612 
2646 
2835 
2872 
2900 
2931 
3122 
3156 
3190 
3221 
3252 
3443 
3480 
3508 
3539 
3738 
3769 
3806 
3834 
3865 

989 

'380 

144 

175 

209 

378 

419 

453 

570 

802 

839 

880 

911 

1088 

1249 

1461 

1501 

1879 

2213 

2247 

2292 


1051 

1090 

1251 

1463 

1503 

1881 

2215 

2254 

2294 

2325 

2569 

2614 

2648 

2837 

2874 

2902 

2936 

3124 

3158 

3192 

3223 

3414 

3445 

3482 

3510 

3541 

3740 

3771 

3808 

3836 

3867 

990 

146 

177 

211 

380 

424 

455 

S72 

804 

841 

882 

1051 

1090 

1251 

1463 

1503 

1881 

2215 

2254 

2294 


1053 

1092 

1253 

1465 

1505 

1883 

2217 

2256 

2296 

2327 

2571 

2619 

2650 

2839 

2876 

2904 

2938 

3126 

3160 

3194 

3225 

3416 

3447 

3484 

3512 

3543 

3742 

3773 

3810 

3838 

3869 

991 

148 

179 

213 

382 

426 

457 

662 

806 

8^3 

884 

1053 

1092 

1253 

1465 

1505 

1883 

2217 

2256 

2296 


1055 

1094 

1255 

1467 

1507 

1885 

2219 

2258 

2298 

2542 

2576 

2621 

2652 

2841 

2878 

2906 

2940 

3128 

3162 

3196 

3227 

3418 

3449 

3486 

3514 

3548 

3744 

3775 

3812 

3840 

3871 

992 

150 

184 

215 

387 

428 

459 

664 

808 

848 

886 

1055 

1094 

1255 

1467 

1507 

1885 

2219 

2258 

2298 


1057 

1096 

1257 

1469 

1509 

1887 

2221 

2260 

2300 

2544 

2583 

2623 

2654 

2843 

2880 

2908 

2942 

313? 

3167 

3198 

3229 

3420 

3451 

3488 

3516 

3550 

3746 

3780 

3814 

38.2 

3873 


152 

186 

217 

389 

430 

461 

666 

813 

853 

888 

1057 

1096 

1257 

1469 

1509 

1887 

2221 

2260 

2300 


1059 

1098 

1259 

1471 

1514 

1889 

2223 

2262 

2302 

2546 

2585 

2625 

2656 

2845 

2882 

2910 

2944 

3135 

3172 

3200 

3231 

3422 

3453 

3490 

3518 

3552 

3748 

3782 

3816 

3844 

3878 


154 

188 

219 

391 

432 

551 

668 

815 

855 

890 

1059 

1098 

1259 

1471 

1514 

1889 

2223 

2262 

2302 


1061 

1103 

1261 

1473 

1516 

1891 

2228 

2264 

2304 

2548 

2587 

2627 

2816 

2847 

2884 

2915 

2946 

3137 

3174 

3202 

3236 

3424 

3458 

3492 

3520 

3554 

3750 

3784 

3818 

3846 

3880 


156 

190 

221 

393 

434 

553 

670 

817 

857 

895 

1061 

1103 

1261 

1473 

1516 

1891 

2228 

2264 

2304 


1063 

1105 

1266 

1479 

1521 

1896 

2230 

2266 

2306 

2550 

2589 

2629 

2818 

2849 

2886 

2917 

2948 

3139 

3176 

3204 

3238 

3426 

3460 

3494 

3522 

3556 

3752 

3786 

3820 

3848 

3882 


1188    1189    1190    1191 


158 

1 92 

360 

398 

436 

555 

673 

819 

850 

89' 

1063 

1105 

1266 

1479 

1521 

1896 

2230 

2266 

2306 


1068 

1110 

1268 

1481 

1526 

1898 

2232 

2268 

2311 

2552 

2591 

2631 

2820 

2854 

2888 

2919 

2950 

3141 

3178 

3206 

3240 

3428 

3462 

3496 

3527 

3558 

3754 

3788 

3822 

3850 

3884 

1192 

163 

194 

362 

400 

438 

557 

675 

824 

864 

899 

1068 

1110 

1268 

1481 

1526 

1898 

2232 

2268 

2311 


1070 
1115 
1270 
1483 
1528 
1975 
2234 
2273 
2313 
2557 
2593 
2633 
2822 
2856 
2890 
2921 
2952 
3143 
3180 
3208 
3242 
3430 
3464 
3498 
3529 
3560 
3756 
3793 
3824 
3852 
3886 


165 

196 

364 

406 

440 

559 

677 

826 

866 

901 

1070 

1115 

1270 

1483 

1528 

1975 

2234 

2273 

2313 


1072 
1117 
1275 
1488 
1662 
1977 
2236 
2278 
2315 
2559 
2595 
2635 
2824 
2858 
2892 
2923 
3114 
3145 
3182 
3210 
3244 
3432 
3466 
3500 
3531 
3562 
3761 
3798 
3826 
3857 
3888 


167 

198 

366 

408 

445 

562 

679 

828 

869 

903 

1072 

1117 

1275 

1488 

1662 

1977 

2236 

2278 

2315 


1077 

1240 

1280 

1490 

1664 

1979 

2238 

2283 

2317 

2561 

2597 

2640 

2826 

2860 

2894 

2925 

3116 

3147 

3184 

3215 

3246 

3437 

3471 

3502 

3533 

3564 

3763 

3800 

3828 

3859 

3890 


169 

200 

368 

410 

447 

564 

681 

830 

874 

905 

1077 

1240 

1280 

1490 

1664 

1979 

2238 

2283 

2317 


1079 
1242 
1282 
1492 
1667 
1982 
2240 
2285 
2319 
2563 
2602 
2642 
2828 
2862 
2896 
2927 
3118 
3149 
3186 
3217 
3248 
3439 
3476 
3504 
3535 
3734 
376: 
3802 
3830 
3361 
3892 


SEQ  1999 


1375    1376    1377    1378 


171 

205 

371 

415 

449 

566 

683 

832 

876 

907 

1079 

1242 

1282 

1492 

1667 

1982 

2240 

2285 

2319 


)EQ  1987 


GO 


MFLD 


2321 

2565 

2607 

26A4 

2830 

2867 

2898 

2929 

3120 

31 5A 

3188 

3219 

3250 

3AA1 

3478 

3506 

3537 

3736 

3767 

3804 

3832 

3863 

3894 

80 

324 

625 

970 

1233 

158: 

1748 

2038 

2106 

2440 

2763 

3063 

3363 

3679 
142# 
156# 
173* 
190# 
207# 
221# 
376# 
393# 
41 7# 
434# 
451# 
553# 
568* 
670* 
800* 
81 7# 


2323 
2567 
2612 
2646 
2835 
2872 
2900 
2931 
3122 
3156 
3190 
3221 
3252 
3443 
3480 
3508 
3539 
3738 
3769 
3806 
3834 
3865 

82 

327 

631 

996 

1336 

1588 

*750 

2044 

2372 

^442 

i765 

3065 

3606 

3682 

142 

156 

173 

190 

207 

221 

376 

393 

417 

434 

451 

553 

568 

670 

800 

817 


2325 
2569 
2614 
2648 
2837 
2874 
2902 
2936 
3124 
3158 
3192 
3223 
3414 
3445 
3482 
3510 
3541 
3740 
3771 
3808 
3836 
3867 

88 
329 
734 
1031 
1338 
1592 
1754 
2053 
2374 
2444 
2767 
3297 
3608 
3684 
144# 
158# 
175# 
192* 
209# 
360* 
378# 
398* 
419* 
436* 
453* 
555* 
570* 
673* 
802* 
819* 


2327 

2571 

2619 

2650 

2839 

2876 

2904 

2938 

3126 

3160 

3194 

3225 

3416 

3447 

3484 

3512 

3543 

3742 

3773 

3810 

3838 

3869 

94 

330 

736 

1034 

1349 

1622 

1758 

2055 

2380 

2448 

2999 

3299 

3614 

3686 

144 

158 

175 

192 

209 

360 

378 

398 

419 

436 

453 

555 

570 

673 

802 

819 


2542 

2576 

2621 

2652 

2841 

2878 

2906 

2940 

3128 

3162 

3196 

3227 

3418 

3449 

3486 

3514 

3548 

3744 

3775 

3812 

3840 

3871 

95 

334 

748 
1036 
1350 
1624 
1764 
2056 
2386 
2701 
^001 
i305 
3620 

146* 
163* 
177* 
194* 
211* 
362* 
380* 
400* 
424* 
438* 
455* 
557* 
572* 
675* 
804* 
824* 


2544 
2583 
2623 
2654 
2843 
2880 
2908 
2942 
3133 
3167 
3198 
3229 
3420 
3451 
3488 
3516 
3550 
3746 
3780 
3814 
3842 
3873 

270 
337 
749 
1038 
1404 
1626 
1765 
2063 
2395 
2703 
3007 
3311 
3651 

146 
163 
177 
194 
211 
362 
380 
400 
424 
438 
455 
557 
572 
675 
804 
824 


2546 
2585 
2625 
2656 
2845 
2882 
2910 
2944 
3135 
3172 
3200 
3231 
3422 
3453 
3490 
3518 
3552 
3748 
3782 
3816 
3844 
3878 

272 
339 

ni 

1039 
1439 
1628 
1817 
2065 
2397 
2709 
3013 
3342 
3653 

148* 
165* 
179* 
196* 
213* 
364* 
382* 
406* 
426* 
440* 
457* 
559* 
662* 
677* 
806* 
826* 


2548 
2587 
2627 
2816 
2847 
2884 
2915 
2946 
3137 
3174 
3202 
3236 
3424 
3458 
3492 
3520 
3554 
3750 
3784 
3818 
3846 
3880 

278 
340 
779 
1042 
1442 
1630 
1823 
2066 
2398 
2715 
30A4 
3344 
3655 

148 
165 
179 
196 
213 
364 
382 
406 
426 
440 
457 
559 
662 
677 
806 
826 


2550 
2589 
2629 
2818 
2849 
2886 
2917 
2948 
3139 
3176 
3204 
3238 
3426 
3460 
3494 
3522 
3556 
3752 
3786 
3820 
3848 
3882 

284 
506 
780 
1156 
1444 
1631 
1928 
2091 
2405 
2746 
3046 
3346 
3659 

150* 
167* 
184* 
198* 
215* 
366* 
387* 
408* 
428* 
445* 
459* 
562* 
664* 
679* 
808* 
828* 


2552 
2591 
2631 
2820 
2854 
2888 
2919 
2950 
3141 
3178 
3206 
3240 
3428 
3462 
3496 
3527 
3558 
3754 
3788 
3822 
3850 
3884 

285 
508 
784 
1158 
1446 
1702 
1930 
2094 
2407 
2748 
3048 
3350 
3663 

150 
167 
184 
198 
215 
366 
387 
408 
428 
445 
459 
562 
664 
679 
808 
828 


2557 
2593 
2633 
2822 
2856 
2890 
2921 
2952 
3143 
3180 
3208 
3242 
3430 
3464 
3498 
3529 
3560 
3756 
3793 
3824 
3852 
3886 

314 
514 
788 
1169 
1447 
1704 
1936 
2096 
2408 
2750 
3052 
3354 
3666 

152* 
169* 
186* 
200* 
217* 
368* 
389* 
410* 
430* 
447* 
461* 
564* 
666* 
681* 
813* 
830* 


2559 
2595 
2635 
2824 
2858 
2892 
2923 
3114 
3145 
3182 
3210 
3244 
3432 
3466 
3500 
3531 
3562 
3761 
3798 
3826 
3857 
3888 

317 
520 
956 
1170 
145C 
171? 
1942 
2098 
2433 
2754 
3056 
3357 
3668 

152 
169 
186 
200 
217 
368 
389 
410 
430 
447 
461 
564 
666 
681 
813 
830 


2561 
2597 
2640 
2826 
2860 
2894 
2925 
3116 
3147 
3184 
3215 
3246 
3437 
3471 
3502 
3533 
3564 
3763 
3800 
3828 
3859 
3890 

5:9 
61? 
"^3 
11>\. 
1573 
1718 
2030 
2100 
2436 
2758 
3059 
3359 
3670 

154* 
171* 
188* 
205* 
219* 
371* 
391* 
415* 
432* 
449* 
551* 
566* 
668* 
683* 
815* 
832* 


2563 
2602 
2642 
2828 
2862 
2896 
2927 
3118 
3149 
3186 
3217 
3248 
3439 
3476 
3504 
3535 
3734 
3765 
3802 
3830 
3861 
3892 

320 
619 
969 
1226 
1579 
1746 
2032 
2102 
2438 
2761 
3061 
3361 
3672 

154 
171 
188 
205 
219 
371 
391 
415 
432 
^49 
551 
566 
668 
683 
815 
832 


SEO  2^^^ 


L. 


L„.. 


SEQ  1988 


837# 

837 

839* 

839 

857# 

857 

859* 

859 

878# 

878 

880* 

880 

895# 

895 

897* 

897 

909# 

909 

911* 

911 

1061# 

1061 

1063* 

1063 

1081# 

1081 

1088* 

1088 

1103# 

1103 

1105* 

1105 

12A7# 

12A7 

1249* 

1249 

1261# 

1261 

1266* 

1266 

K59# 

U59 

1461* 

1461 

U73# 

U73 

1479* 

1479 

K99# 

U99 

1501* 

1501 

1516# 

1516 

1521* 

1521 

1669# 

1669 

1879* 

1879 

1891# 

1891 

1896* 

1896 

198A# 

1984 

2213* 

2213 

2228# 

2228 

2230* 

2230 

22A2# 

2242 

2247* 

2247 

2264* 

2264 

2266* 

2266 

2290* 

2290 

2292* 

2292 

230A# 

2304 

2306* 

2306 

2321* 

2321 

2323* 

2323 

25A8# 

2548 

2550* 

2550 

2565* 

2565 

2567* 

2567 

2587* 

2587 

2589* 

2589 

2607# 

2607 

2612* 

2612 

2627* 

2627 

2629* 

2629 

26AA# 

2644 

2646* 

2646 

2816* 

2816 

2818* 

2818 

2830* 

2830 

2835* 

2835 

28A7# 

2847 

2849* 

2849 

2867# 

^867 

2872* 

2872 

2884# 

J884 

2886* 

2886 

2898# 

28Cd 

2900* 

2900 

2915* 

2915 

2917* 

2917 

2929# 

2929 

2931* 

2931 

29A6# 

2946 

2948* 

2948 

3120* 

3120 

3122* 

3122 

3137* 

3137 

3139* 

3139 

315A# 

3154 

3156* 

3156 

3174# 

3174 

3176* 

3176 

3188* 

3188 

3190* 

3190 

3202* 

3202 

3204* 

3204 

3219* 

3219 

3221* 

3221 

3236* 

3236 

3238* 

3238 

3250* 

3250 

3252* 

3252 

3A24* 

3424 

3426* 

3426 

34A1* 

3441 

3443* 

3443 

3A58* 

3458 

3460* 

3460 

3A78* 

3478 

3480* 

3480 

3492* 

3492 

3494* 

Mi 

3506* 

3506 

3508* 

3508 

841* 
864* 
882* 
899* 
1051* 
1068* 
1090* 
1110* 
1251* 
1268* 
1463* 
1481* 
1503* 
1526* 
1881* 
1898* 
2215* 
2232* 
2254* 
2268* 
2294* 
2311* 
2325* 
2552* 
2569* 
2591* 
2614* 
2631* 
2648* 
2820* 
2837* 
2854* 
2874* 
2888* 
2902* 
2919* 
2936* 
2950* 
3124* 
3141* 
3158* 
3178* 
3192* 
3206* 
3223* 
3240* 
3414* 
3428* 
3445* 
3462* 
3482* 
3496* 
3510* 


841 
864 
882 
899 
1051 
1068 
1090 
1110 
1251 
1268 
1463 
1481 
1503 
1526 
1881 
1898 
2215 
2232 
2254 
2268 
2294 
2311 
2325 
2552 
2569 
2591 
2614 
2631 
2648 
2820 
2837 
2854 
2874 
2888 
2902 
2919 
2936 
2950 
3124 
3141 
3158 
3178 
3192 
3206 
3223 
3240 
3414 
3428 
3445 
3462 
3482 
3496 
3510 


843* 
866* 
884* 
901* 
1053* 
1070* 
1092* 
1115* 
1253* 
1270* 
1465* 
1483* 
1505* 
1528* 
1883* 
1975* 
2217* 
2234* 
2256* 
2273* 
2296* 
2313* 
2327* 
2557* 
2571* 
2593* 
2619* 
2633* 
2650* 
2822* 
2839* 
2856* 
2876* 
2890* 
2904* 
2921* 
2938* 
2952* 
3126* 
3143* 
3160* 
3180* 
3194* 
3208* 
3225* 
3242* 
3416* 
3430* 
3447* 
3464* 
3484* 
3498* 
3512* 


843 
866 
884 
901 
1053 
1070 
1092 
1115 
1253 
1270 
1465 
1483 
1505 
1528 
1883 
1975 
2217 
2234 
2256 
2273 
2296 
2313 
2327 
2557 
2571 
2593 
2619 
2633 
2650 
2822 
2839 
2856 
2876 
2890 
2904 
2921 
2938 
2952 
3126 
3143 
3160 
3180 
3194 
3208 
3225 
3242 
3416 
3430 
3447 
3464 
3484 
3498 
3512 


848* 
869* 
886* 
903* 
1055* 
1072* 
1094* 
1117* 
1255* 
1275* 
1467* 
1488* 
1507* 
1662* 
1885* 
1977* 
2219* 
2236* 
2C58* 
2278* 
2298* 
2315* 
2542* 
2559* 
2576* 
2595* 
2621* 
2635* 
2652* 
2824* 
2841* 
2858* 
2878* 
2892* 
2906* 
2923* 
2940* 
3114* 
3128* 
3145* 
3162* 
3182* 
3196* 
3210* 
3227* 
3244* 
3418* 
3432* 
3449* 
3466* 
3486/' 
3500# 
3514* 


848 
869 
886 
903 
1055 
1072 
1094 
1117 
1255 
1275 
1467 
1488 
1507 
1662 
1885 
1977 
2219 
2236 
2258 
2278 
2298 
2315 
2542 
2559 
2576 
2595 
2621 
2635 
2652 
2824 
2841 
2858 
2878 
2892 
2906 
2923 
2940 
3114 
3128 
3145 
3162 
3182 
3196 
3210 
3227 
3244 
3418 
3432 
3449 
3466 
3486 
3500 
3514 


853* 
874* 
888* 
905* 
1057* 
1077* 
1096* 
1240* 
1257* 
1280* 
1469* 
1490* 
1509* 
1664* 
1887* 
1979* 
2221* 
2238* 
2260* 
2283* 
2300* 
2317* 
2544* 
2561* 
2583* 
2597* 
2623* 
2640* 
2654* 
2826* 
2843* 
2860* 
2880* 
2894* 
2908* 
2925* 
2942* 
3116* 
3133* 
3147* 
3167* 
3184* 
3198* 
3215* 
3229* 
3246* 
3420* 
3437* 
3451* 
3471* 
3488* 
3502* 
3516* 


853 

855* 

855 

874 

876* 

876 

888 

890* 

890 

905 

907* 

907 

1057 

1059* 

1059 

1077 

1079* 

1079 

1096 

1098* 

1098 

1240 

1242* 

1242 

1257 

1259* 

1259 

1280 

1282* 

1282 

1469 

1471* 

1471 

1490 

1492* 

1492 

1509 

1514* 

1514 

1664 

1667* 

1667 

1887 

1889* 

1889 

1979 

1982* 

1982 

2221 

2223* 

2223 

2238 

2240* 

2240 

2260 

2262* 

2262 

2283 

2285* 

2285 

2300 

2302* 

2302 

2317 

2319* 

2319 

2544 

2546* 

2546 

2561 

2563* 

2563 

2583 

2585* 

2585 

2597 

2602* 

2602 

2623 

2625* 

2625 

2640 

2642* 

2642 

2654 

2656* 

2656 

2826 

2828* 

2828 

2843 

2845* 

2845 

2860 

2862* 

2862 

2880 

2882* 

2882 

2894 

2896* 

2896 

2908 

2910* 

2910 

2925 

2927* 

2927 

2942 

2944* 

2944 

3116 

3118* 

3118 

3133 

3135* 

3135 

3147 

3149* 

3149 

3167 

3172* 

3172 

3184 

3186* 

3186 

3198 

3200* 

3200 

3215 

3217* 

3217 

3229 

3231* 

3231 

3246 

3248* 

3248 

3420 

3422* 

3^22 

3437 

3439* 

3439 

3451 

3453* 

3453 

3471 

3476* 

3476 

3483 

3490* 

3490 

3502 

3504* 

3504 

3516 

3518* 

3518 

SEQ  2001 


. J 


SEQ  1989 


3520# 

3520 

3537# 

3537 

355A# 

3554 

3736# 

3736 

3750# 

3750 

3767# 

3767 

378A# 

3784 

380A# 

3804 

381 8# 

3818 

3832# 

3832 

38A6# 

3846 

3863# 

3863 

3880# 

3880 

389A* 

3894 

MUORD 

U2 

144 

173 

175 

207 

209 

376 

378 

417 

419 

A51 

453 

568 

570 

800 

802 

837 

839 

878 

880 

909 

911 

1081 

1088 

1247 

1249 

U59 

1461 

U99 

1501 

1669 

1879 

1984 

2213 

2242 

2247 

2290 

?292 

2321 

i323 

2565 

2567 

2607 

2612 

2644 

2646 

2830 

2835 

2867 

2872 

2898 

2900 

2929 

2931 

3120 

3122 

3154 

31?^i. 

3188 

3190 

3219 

3221 

3250 

3252 

3441 

3443 

3478 

3480 

3506 

3508 

3537 

3539 

3736 

3738 

3767 

3769 

3804 

3806 

3522# 
3539# 
3556# 
3738# 
3752# 
3769* 
3786* 
3806# 
3820# 
3834* 
3848* 
3865# 
3882* 

146 

177 

211 

380 

424 

455 

572 

804 

841 

882 

1051 

1090 

1251 

1463 

1503 

1881 

2215 

2254 

2294 

2325 

2569 

2614 

2648 

2837 

2874 

2902 

2936 

3124 

3158 

3192 

3223 

3414 

3445 

3482 

3510 

3541 

3740 

3771 

3808 


3522 
3539 
3556 
3738 
3752 
3769 
3786 
3806 
3820 
3834 
3848 
3865 
3882 

148 

179 

213 

382 

426 

457 

662 

806 

843 

884 

1053 

1092 

1253 

1465 

1505 

1883 

2217 

2256 

2296 

2327 

2571 

2619 

2650 

2839 

2876 

2904 

2938 

3126 

3160 

3194 

3225 

3416 

344' 

3484 

3512 

3543 

3742 

3773 

3810 


3527* 
3541* 
3558* 
3740* 
3754* 
3771* 
3788* 
3808* 
3822* 
3836* 
3850* 
3867* 
3884* 

150 

184 

215 

387 

428 

459 

664 

808 

848 

886 

1055 

1094 

1255 

1467 

1507 

1885 

2219 

2258 

2298 

2542 

2576 

2621 

2652 

2841 

2878 

2906 

2940 

3128 

3162 

3196 

3227 

3418 

3449 

3486 

3514 

3548 

3744 

3775 

3812 


3527 
3541 
3558 
3740 
3754 
3771 
3788 
3808 
3822 
3836 
3850 
3867 
3884 

152 

186 

217 

389 

430 

461 

666 

813 

853 

888 

1057 

1096 

1257 

1469 

1509 

1887 

2221 

2260 

2300 

2544 

2583 

2623 

2654 

2843 

2880 

2908 

2942 

3133 

3167 

3198 

3229 

3420 

3451 

3488 

3516 

3550 

3746 

3780 

3814 


3529* 
3543* 
3560* 
3742* 
3756* 
3773* 
3793* 
3810* 
3824* 
3838* 
3852* 
3869* 
3886* 

154 

188 

219 

391 

432 

551 

668 

815 

855 

890 

1059 

1098 

1259 

1471 

1514 

1889 

2223 

2262 

2302 

2546 

2585 

2625 

2656 

2845 

2882 

2910 

2944 

3135 

3172 

3200 

3231 

3422 

3453 

3490 

3518 

3552 

3748 

3782 

3816 


3529 
3543 
3560 
3742 
3756 
3773 
3793 
3810 
3824 
3838 
3852 
3869 
3886 

156 

190 

221 

393 

434 

553 

670 

817 

857 

895 

1061 

1103 

1261 

1473 

1516 

1891 

2228 

2i04 
2548 
2587 
2627 
2816 
2847 
2884 
2915 
2946 
3137 
3174 
3202 
3236 
3424 
3458 
3492 
3520 
3554 
3750 
3784 
3818 


3531* 
3548* 
3562* 
3744* 
3761* 
3775* 
3798* 
3812* 
3826* 
3840* 
3857* 
3871* 
3888* 

158 

192 

360 

398 

436 

555 

673 

819 

859 

897 

1063 

1105 

1266 

1479 

1521 

1896 

2230 

2266 

2306 

2550 

2589 

2629 

2818 

2Gh9 

2886 

2917 

2948 

3139 

3176 

3204 

3238 

3426 

3460 

3494 

3522 

3556 

3752 

3786 

3820 


3531 
3548 
3562 
3744 
3761 
3775 
3798 
3812 
3826 
3840 
3857 
3871 
3888 

163 

194 

362 

400 

438 

557 

675 

824 

864 

899 

1068 

1110 

1268 

1481 

1526 

1898 

2232 

2268 

2311 

2552 

2591 

2631 

?820 

2554 

288b 

2919 

2950 

3141 

3178 

3206 

3240 

3428 

3462 

3496 

3527 

3558 

3754 

3788 

3822 


3533* 
3550* 
3564* 
3746* 
3763* 
3780* 
3800* 
3814* 
3828* 
3842* 
3859* 
3873* 
3890* 

165 

196 

364 

406 

440 

559 

677 

826 

866 

901 

1070 

1115 

1270 

1483 

1528 

1975 

2234 

2273 

2313 

2557 

2593 

2633 

2822 

2856 

2890 

2921 

2952 

3143 

3180 

3208 

3242 

3430 

3464 

3498 

3529 

3560 

3756 

3793 

3824 


3533 
3550 
3564 
3746 
3763 
3780 
3800 
3814 
3828 
3842 
3859 
3873 
3890 

167 

198 

366 

408 

445 

562 

679 

828 

869 

903 

1072 

1117 

1275 

1488 

1662 

1977 

2236 

2278 

2315 

2559 

2595 

2635 

2824 

2858 

2892 

2923 

3114 

3145 

3182 

3210 

3244 

3432 

3466 

3500 

3531 

3562 

3761 

3798 

3826 


3535* 
3552* 
3734* 
3748* 
3765* 
3782* 
3802* 
3816* 
3830* 
3844* 
3861* 
3878* 
3892* 

169 

200 

368 

410 

447 

564 

681 

830 

874 

905 

1077 

1240 

1280 

1490 

1664 

1979 

2238 

2283 

2317 

2561 

2597 

2640 

2826 

2860 

2894 

2925 

3116 

3147 

3184 

3215 

3246 

3437 

3471 

3502 

3533 

3564 

3763 

3800 

3828 


3535 
3552 
3734 
3748 
3765 
3782 
3802 
3816 
3830 
3844 
3861 
3878 
3892 

171 

205 

371 

415 

449 

566 

683 

832 

876 

907 

1079 

1242 

1282 

1492 

1667 

1982 

2240 

2285 

2319 

2563 

2602 

2642 

2828 

2862 

2896 

2927 

3118 

3149 

3186 

3217 

3248 

3439 

3476 

3504 

3535 

3734 

3765 

3802 

3830 


SEQ  2002 


990 


PDEC 

PNT3 

PNTDEC 

PNTHU 

PNTMSG 


PNTOCS 
RTN 


SCOPEft 

TMSG 

TMSGC 

TTABLE 


3832 
3863 
389A 
1020 
3102 
1025 

349 

135 
1217 
16A9 
18A7 
220A 
3720 
1866 
83 

959 
K51 
1875 
2773 
3408 

102 
3020 
1021 
1857 

135 
1425 
1830 
2809 

11^ 

770 
2427 
3036 
3641 


3834 

3836 

3865 

3867 

1219 

1428 

3402 

1433 

1644 

352 

1046 

136 

345 

1218 

1220 

1650 

1653 

1849 

1851 

2206 

2528 

3725 

3727 

1874 

3722 

109 

133 

984 

1002 

1455 

1577 

1931 

1956 

2782 

28-10 

3609 

3634 

292 

527 

3318 

3627 

1026 

1220 

1859 

1861 

136 

345 

1426 

1427 

1833 

1836 

3100 

3105 

116 

117 

771 

1736 

27?3 

2734 

3037 

3038 

3642 

3643 

3838 
3869 


1648 
1454 
346 
1425 
1654 
1853 
2533 


273 
1043 
1582 
2033 
3002 
3673 

638 

1429 
1863 

346 
1431 
1841 
3107 

121 
1737 
2735 
3329 
3644 


3840 
3871 


1652 
1832 
347 
1426 
1657 
1855 
2535 


299 
1047 
1618 
2078 
3027 
3687 

756 

1434 
1864 

347 
1452 
1844 
3400 

122 
1738 
2736 
3330 
3645 


3842 
3873 


1656 
1833 
350 
1427 
1813 
1857 
2802 


344 
1159 
1632 
2110 
3066 
3696 

977 

1645 
1868 

350 
1638 
1867 
3405 

123 
1739 
2737 
3331 


3844 
3878 


1871 
1838 
1017 
1429 
1815 
1859 
2807 


353 

1184 
1641 
2207 
3071 
3728 
1177 

1649 
1872 
1017 
1642 
2199 
3407 
124 
1740 
2738 
3332 


3846 
3880 


1843 
1018 
1431 
1819 
1861 
2809 


509 
1202 
1658 
2375 
3080 


3848 
3882 


2201 
1019 
1434 
1821 
1863 
3100 


534 
1230 
1705 
2420 
3108 


3850 
3884 


2530 
1021 
1452 
1830 
1864 
3105 


620 
1234 
1732 
2452 
3300 


3852 
3886 


2804 
1023 
1638 
1833 
1867 
3107 


645 
1365 
1759 
2536 
3325 


3857 
3888 


1026 
1642 
1836 
1868 
3400 


737 
1371 
1796 
2704 
3364 


3859 
3890 


3861 
3892 


SEQ  2003 


1044 

1216 

1645 

1646 

1841 

1844 

1872 

2199 

3405 

3407 

763 
1396 
1824 
2729 
3369 


789 
1410 
1839 
2768 
3378 


1357    1612    1725    1949    2071    2413    2722 


1653    1657    1847 


1018  1019 

1646  1650 

2204  2206 

3720  3725 

303  304 

2082  2083 

2739  2740 

3333  3334 


1849 


1023 

1044 

1654 

1813 

2528 

2533 

3727 

305 

306 

2084 

2085 

3031 

3032 

3335 

3336 

1851 

1216 
1815 
2535 

767 
2424 
3033 
3638 


1853    1855 


1217 
1819 
2802 

768 
2425 
3034 
3639 


1218 
1821 
2807 

769 
2426 
3035 
3640 
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ccr\   onn/. 


DFPTAI 
DFPTAI 

1 
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10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

31 

33 

3A 

35 

36 

37 

38 

39 

40 

A1 

A2 

A3 

AA 

A5 

A6 


For!  Controller  Utility  Package 

TITLE   DFPTAI 

SUBTTL  Port  Controller  Utility  Package 

SALL 

SEARCH  DFPTA,MONSYM,MACSYM 

Register  Read/write  routines 

ENTRY  .CONI,.CONO,.DATAO,.DATAI 
ENTRY  LDEBUF.LDRAR,LDCRAM.LDCSR 
ENTRY   RDEBUF,RDLAR,RDCRAM,RDCSR 

Port  specific  utility  routines 

ENTRY   SETE8U.SETLAR,CLREBU.CHKCSR      ^  

ENTRY   IPACLR,IPASRTJPASTP,ERESET,IPASSTJSTOP 
INTERN  SNEXT,SLAST,EADDR.AADDR,SDATA,HAVENI,HAVECI 

PI  system  handling  routines 

ENTRY  INITPI,INITPD..PIOFF,.PION.PISYOF 

ENTRY  PISYON,SETVEC,.INPNT        __  ^  ^^,^  ,^,^__^^ 

INTERN  INTNUM.INTPC.INTTYP.INTCONJNTAPR.INTTIM.INTUSE 

INTERN  INTCSR, INTEND, .INWD1,.1NWD2,IDELAY 

Channel  handling  routines 

ENTRY   CHINIT,GENCCW 

ENTRY   GETL06,CCWPNT,L06PNT,CHDATA 

INTERN  CBASE,L0GBUF 

User  mode  support  routines 

ENTRY   DSETUP,DEVREQ,DEVREL,REQ1 ,REQ2.REL 
ENTRY   USRION.USRIOF 


SEQ  200A 


Miscellaneous  routines 

ENTRY   FFF 

ENTRY   PFSET.PFCLR 

INTERN  PFAIL,PFAPR.PF500.PF501 .PF502 

EXTERN' s  located  in  DFPTAU.MAC  (Utility  Routines  module) 
EXTERN  .CLOSE,. EXIT, SUNT, RUNTME.DEBTIM.USTIM 


fatal  error  routine 

page  fail  handling  routines 

page  fail  data 
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^7 

48 

A9 

50 

51 

52 

53 

5A 

55 

56 

57 

58  000000' 

59 


Port  Controller  Utility  Package 

;  EXTERN's  located  in  DFPTAI. MAC  (Mainline  code..) 

EXTERN  UDE8UG.CBUF,CSTWRD,P0RTNI,P0RTCI,NISEL,CISEL 
EXTERN  PMODE.ODELAY 

;  ZJ  -  Address  for  use  in  DDT 


SEQ  2005 


ZI: 


;  address  of  00000* 


r 


ncBTAi   MAron 


*«;7DM'3/.D\  in.1«;   l.lnl-R^  Pane  ^ 


DFPTAI 
DFPTAI 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7A 

75 

76 

77 

78 

79 

80 

81 

82 

83 

\^ 
15 
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Port  Register  Read/Write  Routines 

SUBTIL  Port  Register  Read/Write  Routines 

•  Notes  On  I/O  Routine  Design 

1.  All  code  in  this  f'.\e  is  re-entrant  with  the  exception  of  the 
user  mode  stuff  which  need  not  be  since  the  PI  system  cannot 
be  used  in  user  mode. 


SEQ  2006 


2.  No  AG's  are  modified  unless  they  return  data. 

3.  If  in. (exec  mode)  with  a  port  it  is  necessary  for  the_  f.t!^""?.^ 

ines 


routines  to  do  a  limited'  amount  of  paging,  a  location  "CBASE' 

sd  address  of  0  .  Then  the  routine; 


must  be  set  up  as  a  pagec 
will  then  work  properly. 

The  following  routines  are  given: 

Port  Register  Load/Read  Routines: 

LDEBUF 


LDRAR 

LDCRAM 

LDCSR 
RDE8UF 

RDLAR 

RDCRAM 
RDCSR 


This  is  a  DATAO  with  'Diag  Test  EBUF'  bit  set 
in  the  CSR  Register. 

This  is  a  DATAO  with  'Diag  Test  EBUF'  bit  not 
set  in  the  CSR  Register,  and  Bit  0  set  in  the 
data  given.  The  address  to  put  in  the  RAR  is 
in  bits  1-13. 

This  is  a  DATAO  with  'Diag  Test  EBUF'  bit  not 
set  in  the  CSR  Register,  and  Bit  0  zero  in  the 
data  given.  The  data  to  load  in  CRAM  is  in 
bits  6-35. 

This  is  simply  a  CONO. 

This  is  a  DATAI  with  'Diag  Test  EBUF'  bit  set 
in  the  CSR  Register. 

This  is  a  DATAI  with  'Diag  Test  EBUF'  bit  not 
set  and  'Diag  Sel  LAR'  set  in  CSR  Register 
Register.  TFie  data  returned  is  in  bits  1-12. 
Bit  13  is  returned  as  the  corresponding  bit 
of  the  RAR. 

This  is  a  DATAI  with  'Diag  Test  EBUF'  bit  not 
set  and  'Diag  Sel  LAR'  not  set  in  CSR  Regis- 
ter. The  data  returned  is  in  bits  6-35. 

This  is  simply  a  CONI. 


##♦♦♦♦♦♦*♦♦•♦*«#•»♦*♦♦♦♦♦♦*»*♦*♦******•***♦**♦•♦***•******••**♦*•**** 


r\rnT  ft  t 


•ikrnn    «C7n/1')/'}N     1 H .  1C        l.lnl.S^    D^nc 


DFPTAI 
DFPTAI 

111 

112 

113 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

13A 

135 

136 

137 

138 

139 

KO 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 
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000000' 
000001 ' 
000002* 
000003* 
000004* 
OOOOOS  * 
000006* 
000007* 


332 

263 
261 
200 
434 
256 
262 
263 


000010* 
00001 1  * 
000012* 
000013' 
000014* 
000015* 
000016* 
000017* 
000020* 


00 
17 
17 
02 
02 
00 
17 
17 


332 
263 
261 
200 
434 
540 
256 
262 
263 


00 
17 
17 
02 
02 
02 
00 
17 
17 
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»  Port  Register  Load  Routines 

Port  registers  are  loaded  by  a  CONO  or  DATAO.  The  data  to  be 
written  is  given  right  justified  in  ACl .  Each  routine  will 
will  position  the  data  correctly. 

Example:  MOVE  ACIJOO  ;  data  to  write  to  register 

GO    LDXXXX  ;  XXXX  (Register  description) 

Return  ;  no  errors  are  possible 

#*t *********************************************** *********** 

/(f****************************  ***•**«•********«♦**  ****♦**»*♦** 
*  LDEBUF  -  Load  E8UF 

This  routine  assumes  that  *Diag  Test  EBUF*  bit  is  already  set 


SEQ  2007 


0  00  000000* 
0  00  000000 
0  00  000002 
0  00  003170* 
0  00  000016 
0  00  000002 
0  00  000002 
0  00  000000 


0  00  000000* 
0  00  000000 
0  00  000002 
0  00  003171* 
0  00  000016 
0  00  000001 
0  00  000002 
0  00  000002 
0  00  000000 


I  fl  1 3  r  uui  IMC  assume  J  lhui.   •{'"a  ••-•"■     i.ww.^    „  ■  ^      .-  j.. .-__,_  -  — 

in  the  GSR  Register,  so  a  simple  DATAO  will  load  the  register. 

#*♦********•*********♦*♦♦♦******♦**************************** 


LDEBUF:  SKIPE 
RTN 
PUT 
MOVE 
lOR 
XCT 
GET 
RTN 


UDE6UG 


2,CDATA0  0,i: 

2.MBCN 

2 

2 


debug  mode? 

yes  -  exit 

save  AC2 

build  a  DATAO 

include  the  device  code 

do  the  DATAO 

restore  AC2 


^*«*«***************** *♦*♦♦*****•**********•*••* ************* 

*  LDCSR  -  Load  CSR  (This  is  simply  a  CONO). 

/If*******  **********************************  ******************* 


LDCSR: 


SKIPE 

UDE8UG 

RTN 

PUT 

2 

MOVE 

2. [CONO] 

I  OR 

2,MBCN 

HRR 

2,1 

XCT 

2 

K 

2 

debug  mode? 

yes  -  exit 

save  AC2 

build  a  CONO 

include  the  d'^vio-?  code 

include  data  co  write 

do  the  CONO 

restore  AC2 

return 


r 


1995 


DFPTAI 
DFPTAI 

15^ 

155 

156 

157 

158 

159 

160 

161 

162 

163 

16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 
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Port  Register 


r- 


Read/Write  Routines 


SEQ  2008 


000021 • 
000022* 
000023' 
000025* 
000026' 
000027' 
000030' 
000031 ' 
000032' 
000034' 


332  00  0 
263  17  0 
261  17  0 
200  02  0 


434  02 
242  01 
661  01 
256  00 

262  17 

263  17 


000035* 
000036' 
000037' 
000041 ' 
000042' 
000043' 
000044' 
000045* 
000047' 


#***»*******•**•♦****♦*****♦*********•************************ 
*  LDRAR  -  Load  RAR 

This  assumes  that  'Diag  Test  EBUF' .bit  I's  not  set  in  CSR,  so  a  DATAO 
loads  the  RAR).  The  sign  bit  set  in  the  data  specified  in  the  DATAO 
causes  the  RAR  to  be  Loaded  instead  of  the  CRAM. 

Data  to  load  is  in  ACl:   Bits  23-34  -  CRAM  Address 

35    -  0  -  Left  half  of  CRAM  word 
1  -  Right  half  of  CRAM  word 

#«»**«*****,***********••**♦********************************* 


00  000010*     LDRAR:  SKIPE 

00  000000 

RTN 

00  000001 

RPUT 

00  003170' 

MOVE 

00  000016 

I  OR 

00  000026 

LSH 

00  400000 

TLO 

00  000002 

XCT 

00  000002 

RGET 

00  000000 

RTN 

UDE6UG 

(1.2) 

2,LDATA0  0,1] 

2,MBCN 

1,*D22 

1.400000 

2 

(2,1) 


debug  mode? 

yes  -  exit 

save  AC'S 

build  a  DATAO 

include  the  device  code 

position  data  correctly 

set  sign  bit 

do  the  DATAO 

restore  AC*s 


/If************************************************************ 
*  LDCRAW  -  Load  CRAM 

This  assumes  that  *Diag  Test  EBUF'  bit  is  not  set  in  CSR,  so  a 
DATAO  loads  the  CRAM).  The  sign  bit  zero  in  the  data  specified 
in  the  DATAO  causes  the  CRAM  to  be  loaded  instead  of  the  RAR. 
The  data  to  load  is  given  right  justified  in  ACl. 
#•***********************••********************************** 


332  00  0  00  000021* 

LDCRAM:  SKIPE 

263  17  0  00  000000 

RTN 

261  17  0  00  000001 

RPUT 

200  02  0  00  003170* 

MOVE 

434  02  0  00  000016 

lOR 

621  01  0  00  770000 

TLZ 

256  00  0  00  000002 

XCT 

262  17  0  00  000002 

RGET 

263  17  0  00  000000 

RTN 

UDEBUG 

(1.2) 

2,LDATA0  0,1] 

2.MBCN 

1.770000 

2 

(2.1) 


debug  mode? 

yes  -  exit 

save  AC'S 

build  a  DATAO 

include  the  device  code 

ensure  left  6  bits  zero 

do  the  DATAO 

restore  AC's 


3  1996 
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SEQ  2009 


DFP" 
DFPi 


197 
198 
199 

1 


2QA 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23A 

235 

236 

237 

238 

239 

240 

2A1 

2i^2 

2A3 

244 

245 

246 

247 

248 


00005C' 
000051 ' 
000052' 
000053* 
000054' 
000055* 
000056* 
000057* 


332  GO  0 
263  17  0 
261  17  0 
200  02  0 


000060' 
000061 • 
000062' 
000063' 
000064' 
000065' 
000066' 
000067* 
000070' 
000071  * 
000072* 
000073* 
000074* 


434  02 
230  00 

262  17 

263  17 


00  000035* 
00  000000 
00  000002 
00  003172' 
00  000016 
00  000002 
00  000002 
00  000000 


350  00 
332  00 
263  17 
261  17 
200  02 
434  02 
256  00 
255  00 
255  00  0 
336  00  0 


370  00 

262  17 

263  17 


17  000000 
00  000050* 
00  000000 
00  000002 
00  003173* 
00  000016 
00  000002 
00  000000 
00  000000 
00  000001 
17  777777 
00  000002 
00  000000 


/^********************* **************************** *********** 
*  Port  Register  Read  Routines 

Port  registers  are  read  b)f  a  CONI  or  DATAI.  The  data  is 
returned  right  justified  in  ACl  with  unused  bits  zero. 


Example:  MOVE   Af',FOO 
60    RDXXXX 
Return+1 
Return+2 


some  argument 

XXXX  (Register  description) 

read  failed 

read  succeeded 


Note:  It  is  not  normally  possible  to  tell  if  the  read  failed 
or  succeeded,  except  with  the  CSR  register.  Reading  the.CbR 
is  set  up  for  a  +1  and  ■•■2  return.  The  remaining  routines 
return  +1  always. 

/If************************************************************ 

/If************************************************************ 
*  RDEBUF  -  Read  EBUF 

This  routine  assumes  that  'Diag  Test  EBUF'  bit  is  already  set 
in  CSR,  so  a  simple  DATAI  will  load  the  register. 

/If************************************************************ 


RDEBUF:  SKIPE 
RTN 
PUT 
MOVE 
lOR 
XCT 
GET 
RTN 


UDEBUG 


2.CDATAI  0.13 

2,MBCN 

2 

2 


debug  mode? 

yes  -  return 

save  AC2 

build  a  DATAI 

include  the  device  code 

do  the  DATAI 

restore  AC2 

return 


/If************************************************************ 

*  RDCSR  -  Read  CSR 

/If************************************************************ 


RDCSR: 


AOS 

SKIPE 

RTN 

PUT 

MOVE 

I  OR 

XCT 

JFCL 

JFCL 

SKIPN 

SOS 

GET 

RTN 


(P) 
UDEBUG 


2,[C0NI  0,1] 

2,MBCN 

2 


1 

-l(P) 

2 


set  up  return+2 

debug  mode? 

yes  -  return 

save  AC2 

build  a  CONI  from  ACl 

include  the  device  code 

do  the  CONI 


succeeded? 

no  -  set  up  return+1 
yes  -  error  -  restore  AC2 
and  return 


-„.J 


Q  1997 
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SEQ  2010 


DFP 
DFP 


2A9 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

26A 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

211 

21S 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 


000075' 
000076' 
000077' 
000100' 
000101' 
000102' 
000103' 
000104' 
000105' 


332 
263 
261 
200 
434 
256 
135 
262 
263 


000106' 
000107' 
000110' 
0001 1 1 ' 
000112' 
000113' 
000114' 
000115' 
000116' 


00 
17 
17 
02 
02 
00 
01 
17 
17 


332 
263 
261 
200 
434 
256 
621 
262 
263 


00 
17 
17 
02 
02 
00 
01 
17 
17 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000061* 

000000 

000002 

003172' 

000016 

000002 

003174' 

000002 

000000 


0  00  000075* 
0  00  000000 
0  00  000002 
0  00  003172' 
0  00  000016 
0  00  000002 
0  00  770000 
0  00  000002 
0  00  000000 


#*****•*♦*******♦*******♦************************************ 
*  RDLAR  -  Read  LAR 

This  assumes  that  'Diag  Test  EBUF'  is  not  set  and  'Diag  Sel  LAR'  is 
set  in  the  GSR  Register,  so  a  DATAI  can  be  used  to  load  the  CRAM). 

The  data  is  returned  right  justified  in  AC1: 

Bits  23-34  -  CRAM  Address 

35    -  0  -  Left  half  of  CRAM  word 
1  -  Right  half  of  CRAM  word 

/^************************t*********************************** 


RDLAR: 


SKIPE 

RTN 

PUT 

MOVE 

I  OR 

XCT 

LDB 

GET 

RTN 


UDEBUG 


2.CDATAI  0,1] 
2,MBCN 

1, [POINT  13,1.13] 
2 


debug  mode? 

y(  i  -  return 

save  AC2 

build  a  DATAI  from  AC1 

include  the  device  code 

do  the  DATAI 

position  correctly 

restore  AC2 

return 


/(f*****************«*******  ***************  ******************** 
*  RDCRAM  -  Read  CRAM 

This  assumes  that  'Diag  Test  EBUF'  and  'Diag  Sel  LAR'  bits  are 
not  set  in  the  CSR  Register,  so  a  DATAI  can  be  used  to  load  the 
CRAM).  The  data  is  returned  in  AC1. 

,^*»******************** ************************************** 


RDCRAM:  SKIPE 
RTN 
PUT 
MOVE 
lOR 
XCT 
TLZ 
GET 
RTN 


UDEBUG 


2,CDATAI  0,1] 
2.MBCN 

1,770000 
2 


debug  mode? 

yes  -  return 

save  AC2 

build  a  DATAI  from  AC1 

include  the  device  code 

do  the  DATAI 

ensure  leitmost  6  bits  are  zero 

restore  AC2 

return 


EQ  1998 


O'PTAI 
JFPTAI 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

31A 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 
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SEQ  2011 


DFl 

DFI 


000117' 
000120' 
000121' 
000122' 
000123' 
0001 24' 
000125' 
000126' 


332  00  0 
263  17  0 

261  17  0 
200  02  0 
A3A  02  0 
256  00  0 

262  17  0 

263  17  0 


00  000106* 
00  000000 
00  000002 
00  003173' 
00  000016 
00  000002 
00  000002 
00  000000 


000127' 
000130' 
000131' 
000132' 
000133' 
0001 3A' 
000135' 
000136' 
000137' 


332  00  0  00  000117* 
263  17  0  00  000000 

261  17  0  00  000002 
200  02  0  00  003171' 
434  02  0  00  000016 
540  02  0  00  000001 
256  00  0  00  000002 

262  17  0  00  000002 
265  :7  0  00  000000 


/>***«**♦*♦♦•*****•*****♦♦*♦****»**************♦************** 

•  .CONI  -  Do  a  simple  CONI  (no  error  checking) 


Argument 
Returns: 


MBCN  -  Contains  RH  number  to  do  (left  justified  properly) 
as  54000. ,0,  etc. 


AC1  -  Contains  result 

+1  always 

#*»*»♦****»***»******♦♦*****»*******•********•*♦******♦***♦** 


.CONI 


SKIPE 

RTN 

PUT 

MOVE 

I  OR 

XCT 

GET 

RTN 


UDEBU6 


2. [CONI  o.n 

2,MBCN 

2 

2 


debug  mode? 

yes  -  exit 

save  AC2 

build  a  CONI  from  AC1 

include  the  device  code 

do  the  CONI 

restore  AC2 

return 


/>**»***»*♦*****•*****♦*♦***«***************♦***•************* 
*  .CONO  -  Do  a  simple  CONO 

Argument:  M8CN  -  Contains  RH  number  to  do  (Left  justified  properly) 

as  54000.. 0.  etc. 

Returns:   ACI  -  Contains  data  to  write  to  RH  or  port 

+1  always 

#*«***»*****•***♦********♦♦**«******••*************»*****»*** 


.CONO; 


SKIPE 

RTN 

PUT 

MOVE 

I  OR 

HRR 

XCT 

GET 

RTN 


UDEBUG 


2.CC0N0] 
2. MBCN 

2 


debug  mode? 

yes  -  exit 

save  AC2 

build  a  CONO 

include  the  device  code 

include  data  to  write 

do  the  CONO 

restore  AC2 

return 


OFPTAI 
DFPTAI 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3A0 

341 

3A2 

3A3 

3AA 

3A5 

3A6 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 
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SEQ  20^2 


DF 
DF 


000140' 
000141' 
000142' 
000143' 
000144' 
000145' 
000146' 
000147' 


332 
263 
261 
200 
434 
256 
262 
263 


00 
17 
17 
02 
02 
00 
17 
17 


000150' 
000151' 
000152' 
000153' 
000154' 
000155' 
000156' 
000157' 


332 
263 
261 
200 
434 
256 
262 
263 


00 
17 
17 
02 
02 
00 
17 
17 


0  GO  000140* 
0  00  000000 
0  00  000002 
0  00  003170' 
0  00  000016 
0  00  000002 
0  00  000002 
0  00  000000 


/>»•*«***»*******♦******♦*******************************♦**•♦* 
*  .DATAI  -  Do  a  simple  DATAI  (no  error  checking) 

Argument:  M8CN  -  Contains  RH  number  to  do  (left  justified  properly) 

as  54000, ,0.  etc. 

Returns:   AC1  -  Contains  result 
+1  always 

f********** ****************************** ******************** 


0  00  000127* 

.DATAI:  SKIP 

0  00  000000 

RTN 

0  00  000002 

PUT 

0  00  003172' 

MOVE 

0  00  000016 

I  OR 

0  00  000002 

XCT 

0  00  000002 

GET 

0  00  000000 

RTN 

UDEBUG 


2.CDATAI  0,13 

2,MBCN 

2 

2 


debug  mode? 

yes  -  exit 

save  AC2 

build  a  DATAI  from  ACl 

include  Ll,c  device  code 

do  the  DATAI 

restore  AC2 

return 


#**********************♦*********•*************************** 
*  .DATAO  -  Do  a  simple  DATAO 


Argument: 
Returns: 


MBCN  -  Contains  RH  number  to  do  (left  justified  properly) 
as  54000. ,0,  etc. 


ACl  -  Contains  data  to  write  to  RH  or  IPA20 

+1  always 
#*****************************•****************************** 


.DATAO:  SKIPE  UDEBUG 
RTN 

PUT  2 

MOVE  2,CDATA0  OJJ 

lOR  2,M8CN 

XCT  2 

GET  2 
RTN 


debug  mode? 

yes  -  exit 

save  AC2 

build  a  DATAO 

include  the  device  code 

do  the  DATAO 

restore  AC2 

return 
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370 
271 
372 

F3 
37A 

375  000160'  332  00  0  00  000150* 

376  000161'  263  17  0  00  000000 

377  000162'  336  00  0  00  030037  ^ 

378  000163'  7  000  20  0  00  200000 

379  0001 6A'  332  00  0  00  030037 

380  000165'  260  17  0  00  000243* 

381  000166'  263  17  0  00  000000 
382 


Port  Register  Read/Write  Routines 


SEQ  2013 


D 

D 


.#♦**»*****♦***********♦***♦*********»♦*•***************♦************* 

;♦  ERESET  -  Issue  an  EBUS  reset  ....... 


ERESET:  SKIPE 
RTN 
SKIPN 
CONG 
SKIPE 
GO 
RTN 


UDEBU6 

USER 

APR.200000 
USER 
IPACLR 


;  debug  mode? 

;  yes  -  exit 

;  user  mode? 

;  no  -  do  an  EBUS  reset 

;  user  mode?  .  . 

;  yes  -  do  a  'port  clear'  instead 


DFPTAI 
DFPTAI 

383 
38A 
385 
386 
387 
388 
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Port  Specific 


Utility  Routines 


SEQ  ^o^^ 


' 

389 

000167' 

i 

390 

000170' 

391 

000171' 

392 

000174' 

393 

U00175' 

39A 

000176' 

395 

000177' 

396 

000200' 

397 

000201 ' 

398 

000202' 

399 

000203' 

ADO 

000204' 

401 

000205' 

402 

000206' 

403 

000207' 

404 

000210' 

405 

000211' 

406 

000212' 

407 

000213' 

408 

0002  V,' 

409 

000215' 

410 

000216' 

411 

000217' 

412 

000220' 

413 

000221 ' 

414 

000222' 

415 

000223' 

416 

000224' 

417 

000225' 

418 

000226' 

419 

000227' 

420 

000230' 

421 

000231 ' 

422 

000232' 

423 

000233' 

424 

000234' 

425 

000235' 

426 

000236' 

427 

000237' 

428 

000242' 

332  00 
263  17 
261  17 
260  17 
474  01 
200  02 
603  01 
254  00 

606  01 
254  00 

200  00 
400  01 
603  00 
254  00 
603  00 

201  01 
260  17 
260  17 
474  01 
603  01 
254  00 

602  01 
254  00 

603  02 
5ii  00 
334  00 
037  00 

607  02 
332  00 
334  00 
037  00 
254  00 
201  01 
260  17 
336  00 
037  00 
400  01 
260  17 

262  17 

263  17 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


00 
00 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


00 
00 
00 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


00 
00 


0  00 
0  00 


00 
00 
00 
00 


000160* 

000000 

000000 

000060' 

000000 

000001 

004000 

000203' 

000010 

000235' 

000001 

000000 

002000 

000231  • 

004000 

004000 

000010' 

000060' 

000000 

006000 

000231 ' 

000010 

000231  • 

004000 

000000* 

000000 

003175' 

004000 

000221* 

000000 

003202' 

000235' 

400000 

000010' 

000225* 

003206' 

000000 

000010' 

000002 

000000 


SUBTTL  Port  Specific  Utility  Routines 

.f»***»***»******»»*************************************************** 

'•*  ISTOP  -  Stop  IPA  either  by  a  port  clear  or  by  clearing  the  GSR  register 
•#♦••»•»•»**»«**••***»•*•♦*••***♦*♦*♦**•**************♦*****♦********* 


ISTOP: 


ISTOPO; 


ISTOPC 


ISTOPX 


SKIPE 

RTN 

RPUT 

GO 

SETO 

MOVE 

TLNE 

JRST 

TRNN 

JRST 

WOVE 

SETZ 

TLNE 

JRST 

TLNE 

MOVE  I 

60 

60 

SETO 

TLNE 

JRST 

TRNE 

JRST 

TLNE 

SKIPE 

SKI  PA 

TMSGCD 

TLNN 

SKIPE 

SKI  PA 

TMSGCD 

JRST 

MOVE  I 

60 

SKIPN 

TMSGCD 

SETZ 

GO 

RGET 

RTN 


UDE8UG 

(0.1,2) 
RDCSR 

l.(CRAMPE) 

ISTOPO 

1  .MPRUN 

ISTOPX 

1 

1. 

(MBERR) 

ISTOPC 

(CRAMPE) 

1,E8USPE 

LDCSR 

RDCSR 

1. 

1.( CRAMPE! MBERR) 

ISTOPC 

1 , MPRUN 

ISTOPC 

2,(CRAMPE> 

PMODE 

<[CRAM  PE  cleared]> 

2. (CRAMPE) 

PMODE 

<[Port  stopped]> 

ISTOPX 

I.PCLEAR 

LDCSR 

PMODE 

<[Port  Clear  done]> 

1. 

LDCSR 

(2.1,0) 


debug  mode? 

yes  -  return 

sa^e  AC'S 

read  CSR  register 

error  -  ensure  error  bits  are  set 

?et  into  AC2 
RAM  parity  error  bit  set? 
yes  -  must  clear  it 
I PA  running? 
no  -  exit 

?et  into  ACO 
SR  data  to  clear  'MPRUN' 
MBUS  error  bit  set? 
yes  -  must  do  a  port  clear 
CRAM  parity  error  bit  set? 
yes  -  get  *EBUS  PE'  bit 
write  CSR 
read  CSR  register 
error  -  ensure  error 
error  bits  set? 
yes  -  must  do  a  port  clear 
still  running? 
yes  -  must  do  a 
was  CRAM  PE  set 
yes  -  running  a 
yes  -  don't  print 
no  -  let  operator 


bits  are  set 


Eort  clear 
efore? 
test? 
anything 
know 


CRAM  pE  set  before? 
running  a  test? 


was 

no   .  _ ^  -  

yes  -  don't  print  anything 

no  -  let  operator  know 

no  -  exit 

get  'port  clear'  bit 

write  the  CSR  register 

no  -  running  a  test? 

let  operator  know 

clear  AC1 

clear  CSR  register 

restore  AC's 

return 


L. 


SEQ  2002 
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SEQ  2015 


A29 
A30 

^1 

A33 

43A 

A35 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 


000243* 
000244' 
000245* 
000246* 
000247* 


000250' 
000252' 
000253' 
000254' 
000255' 
000256' 
000257' 
000260' 
000261 ' 
000262* 
000264* 


261  17  0  00  000001 

IPACLR:  PUT 

1 

201  01  0  00  400000 

MOVE  I 

1,PCLEAR 

260  17  0  00  000010* 

60 

LDCSR 

262  17  0  00  000001 

GET 

1 

263  17  0  00  000000 

RTN 

261  17  0 
260  17  0 
254  00  0 
200  00  0 
660  01  0 


620  01 
312  00 
260 


0 

0 

17  0 


350  00 

262  17 

263  17 


000265' 
000267' 
000270' 
000271 ' 
000272' 
000273' 
000274' 
000275' 
000276' 
000277* 
000301  * 


261  17  0 
260  17  0 
254  00  0 
200  00  0 
620  01  0 
660  01 
312  00 
260  17 
350  00 

262  17 


263  17  0 


.01, 1,*********  **********************************  *********************** 

':*   IPACLR  -  Issue  a  port  clear 
]ff******************************************************************** 

save  AC1 

get  'port  clear'  bit 

write  the  CSR  register 

restore  ACI 

return 


ffti,*****************************************************  ************* 

*  SETEBU  -  Check  that  'Diag  Test  EBUF '  bit  is  set  in  CSR  and  set  if  not, 

Return  +1  -  Error  accessing  CSR 

+2  -  Ok 

ffiimti,******************  ******  **************************************** 

save  AC'S 

read  CSR 

error  return 

get  copy  of  ACI  into  ACO 

set  this  bit 

clear  this  bit 

bits  already  set  up  ok? 

no  -  set/clear  them 

set  up  ok  return 

restore  AC's 

return 

ffn******************************************************************'' 

*  SETLAR  -  Check  that  'Diag  Sel  LAR'  bit  is  set  in  CSR  and  set  if  not. 

Return  +1  -  Error  accessing  CSR 

+2  -  Ok 

ffim********************************************  ■***********<********** 

save  AC'S 

read  CSR 

error  return 

get  copy  of  ACI  into  ACO 

clear  tnis  bit 

set  this  bit 

bits  already  set  up  ok? 

is  set  in  CSR  Register 
set  up  ok  return 
restore  AC's 


00  000000 

SETEBU: 

RPUT 

(OJ) 

00  000060' 

GO 

RDCSR 

00  000262' 

JRST 

SETEBE 

00  000001 

MOVE 

1 

00  200000 

TRO 

1.TSTEBF 

00  040000 

TRZ 

1,SELLAR 

00  000001 

CAME 

1 

00  000010' 

GO 

LDCSR 

17  777776 

AOS 

-2(P) 

00  000001 

SETEBE: 

R6ET 

(1,0) 

00  000000 

RTN 

00  000000 

SETLAR: 

RPUT 

(OJ) 

00  000060' 

GO 

RDCSR 

00  000277' 

JRST 

SETLAE 

00  000001 

MOVE 

1 

00  200000 

TRZ 

1,TSTEBF 

00  040000 

TRO 

1,SELLAR 

00  000001 

CAME 

1 

00  000010' 

GO 

LDCSR 

17  777776 

AOS 

-2(P) 

00  000001 

SETLAE: 

RGET 

(1,0) 

00  000000 

RTN 

DFPTAI  I'UCRO  X53B(12A2)  10:15  1-JuL-85  Page  13 

DFPTAI  MAC    17-Mdy-85  22:17       Port  Specific  Utility  Routines 


SEQ  2016 


479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 


000302' 
000304' 
000305' 
000306' 
000307' 
000310' 
000311' 
000312' 
000313' 
000315' 


261  17 
260  17 
254  00 
606  01 
254  00 
620  01 
260  17 
350  00 

262  17 

263  17 


0  00  000000 
0  00  000060' 
0  00  000313' 
0  00  200000 
0  00  000312' 
0  00  200000 
0  00  000010' 
0  17  lllllt 
0  00  000001 
0  00  000000 


000316' 
000317' 
000320' 
000321 ' 
000322' 
000323' 


261 
260 
334 
6u< 
254 
603 


17 
17 
00 
01 
00 
01 


0  00  000001 
0  00  000060' 
0  00  000000 
0  00  002000 
0  00  000333' 
0  00  004000 


000324'  260  17  0  00  003223' 
000325'  350  00  0  17  117717 


000326' 

606  01 

000327' 

254  00 

000330' 

400  01 

000331 • 

260  17 

000332' 

037  00 

000333' 

262  17 

000334' 

263  17 

00 
00 
00 
00 
00 
00 
00 


000010 

000333' 

000000 

000010' 

003227' 

000001 

000000 


#***«****•********•***♦*******•********•***************************** 
*  CLREBU  -  Check  that  'Diag  Test  EBUF '  is  not  set  in  CSR  and  clear  if  is. 

Return  +1  -  Error  accessing  CSR 
+2  -  Ok 

#***************•**•***•********************************************* 


CLREBU:  RPUT 
60 

JRST 
TRNN 
JRST 
TRZ 
GO 
CLREBX:  AOS 
CLREBE:  RGET 
RTN 


(0.1) 

RDCSR 

CLREBE 

IJSTEB! 

CLREBX 

USTEBF 

LDCSR 

-2(P) 

(1.0) 


save  AC'S 

read  CSR 

error  return 

'Diag  Test  EBUF'  bit  set? 

no  -  continue  ,  . 

make  sure  'Diag  Test  EBUF'  bit 

is  cleared  in  CSR  Register 
set  up  ok  return 
restore  AC's 
return 


/y**»*********** ******************************************* *********** 
*  CHKCSR  -  Check  if  error  bits  are  set  in  the  CSR  register 

Also,  stop  the  port  if  it  is  running,  and  announce  the  fact  to  the 

user. 
#*•♦♦*****************♦♦***************************•***************** 


CHKCSR:  PUT 
GO 

SKI  PA 
TLNE 
JRST 
TLNE 
GO 


AOS 


1 
RDCSR 


1,(M6ERR) 

CHKCSX 

1,(CRAMPE) 

[MOVE  I  1,EBUSPE 
GO     LDCSR 
TMSGCD  <CCRAM  PE  cleared  from  CSR  register^ 
RTNJ  ^   ^ 

-1(P)  ;  no  -  set  up  RT;J+2 


save  AC1 

read  CSR  register 

error  return 

MBUS  Error  bit  set? 

yes  -  error  exit 

CRAM  PE  bit  set? 

yes  -  clear  it 


;  Also,  check  to  see  if  the  port  is  running 

TRNN  1,MPRUN  ;  running?  . 

JRST  CHKCSX  ;  no  -  continue 

SETZ  1.  ;  clear  AC i 

GO  LDCSR  ;  stop  the  port 
TMSGCD  <[CSR  cleared  to  stop  the  port3> 

CHKCSX:  GET  1  ;  restore  ACl 

RTN  ;  return 
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Dai  i^  1  r\AC 


SE(J  2017 


OFPTAl 
OFPTAI 

527 

528 

529 

530 

531 

532 

533 

53A 

535 

536 

537 

538 

539 

5A0 

5A1 

5A2 

543 

5AA 

5A5 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 
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SEQ  2017 


/y* »•»♦»♦♦♦♦♦**»*♦♦****♦♦♦♦♦* ***************************************** 

*  IPASRT  -  Start  the  port  at  the  address  given  in  'SADDR'  and  with 

*  initial  parameters  given  in  'SDATA'. 

Arguments:    SNEXT  -  Contains  the  start  address  desired. 

SDATA  -  Contains  the  data  to  be  written  to  the  CSR 
registers  to  initialize  everything  correctly. 

Note:  This  routine  is  normally  used  in  coniunction  with  IPASTP.  IPASTP 
saves  the  next  address  in  SNEXT  and  the  contents  of  CSR  in  SDATA. 
Calling  IPASRT  after  IPASTP  has  been  called  will  leave  the  port  in 
the  same  state  that  it  was,  unless  something  is  done  to  the  port 
betwer-n  the  calls. 


Procedure: 


(1)  Obtain  start  address  in  'SNEXT*  and  write  it  to  the 
RAR  Register. 

(2)  If  SDATA  is  zero,  no  initial  data  is  assumed.  The 
CSR  is  written  as  follows: 

Clear  'Single  Cycle'  -  no  single  stepping  apparently 
is  desired. 


Set  'MPROC  Run'  -  Start  it  up  at  address  in  RAR. 
Set  PIA  bits  to  4  -  Allow  interrupts  c 
Clear  all  remaining  bits. 


■rupts  on  channel  4, 


(3)  If  SDATA  is  non-zero,  the  initial  data  given  in  SDATA 
is  massaged  to  ensure  that  at  least  the  following  is 
true  of  the  data: 

'Single  Cycle'  bit  is  cleared. 
'MPROC  Run'  bit  is  set. 


Return: 


+1  -  Failed  (Error  reading/writing  CSR  Register). 
+2  -  Failed  (Port  already  running). 
+3  -  Failed  (Error  bits  set  in  CSR) 
♦4  -  Ok 
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567 

568 

569 

570 

571 

572 

573 

57A 

575 

576 

'ill 

578 

579 

580 

581 

582 

583 

58A 

585 

586 

587 

588 

589 

590 

591 

592 

593 

59A 

595 

596 

597 

598 

599 

600 

601 

602 

603 

60A 

605 

606 
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000535'  261  17  0  00  000000 


000337'  260  17  0  00  C00060' 

0003A0'  254  00  T  00  C00364' 

000341'  602  01  J  00  000010 

000342'  254  00  0  00  000363' 


000343'  603  01  0  00  006000 
000344'  254  00  0  00  000362' 


000345' 
000346' 
000347' 
000350' 
00035 T 


000352' 
000353' 
000354' 
000355' 
000356' 
000357' 


622 
260 
200 
242 
260 


01 
17 
01 
01 
17 


336  01 
201  01 
620  01 
660  01 
33?  00 
6^.'  01 


000360' 
000361 ' 
000362' 
000363' 
000364' 
000366' 


260 
350 
350 
350 
262 
263 


17 
00 
00 
00 
17 
17 


00 
00 
00 
00 
00 


200000 

000010' 

000417' 

000001 

000021' 


0  00  000^21 ' 
0  00  000014 
0  00  020000 
0  00  040010 
0  00  030037 
0  00  000007 


00 
17 
17 
17 
00 
00 


000010' 

171776 

77777t 

lllllt 

000001 

000000 


IPASRT:  RPUT 


Utility  Routines 


(0.1) 


SEQ  2018 


save  AG's 


First  check  if  the  port  is  already  running 


GO 

JRST 
TRNE 
JRST 


RDCSR 
IPASR3 
1 ,MPRUN 
IPASR2 


;  Check  for  error  bits  set 

TLNE    1.(CRAMPE!MBERR) 
JRST    IPASR1 

;  Now  handle  start  address 


TRZE 

GO 

MOVE 

LSH 

GO 


I.TSTcBF 

LDCSR 

l.SNEXT 

U 
LDRAR 


;  Set  up  data  to  write  to  CSR 

IPASRO:  SKIPN  1.SDATA 

MOVE  I  1.MPRUNI4 

TRZ  l.SJNCYf 

TRO  1,MPRUN:SELLAR 

SKIPE  USER 

TRZ  1.7 

;  Write  the  data  to  CSR 

GO  LDCSR 

AOS  '2iP) 

IPASRl:  AOS  -2(P) 

IPASR2:  mOS  -2(P) 

IPASR3:  RGET  (1.0) 

RTN 


read  CSR 

error  accessing  CSR  register 
uproc  already  running? 
yes  -  exit  +2  (error; 


error  bits  set? 
yes  -  error  exit 


•Diag  Test  EBUF '  bit  set? 
yes  -  clear  it 
get  start  address 
position  correctly 
load  the  register 


any  data  given? 

no  -  set  initial  data 

ensure  SINCYC  are  cleared 

ensure  MPRUN.SELLAR  are  set 

user  mode? 

yes  -  clear  PI  level  bits 


ok  exit  (+4) 
error  exit  (+3) 
error  exit  (+2) 
error  exit  (♦1) 
return 
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CFO  9nio 


r 


DFPTAI 
DFPTAI 

607 

608 

609 

610 

611 

612 

613 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

623 

62A 

625 

626 

627 

628 

629 

630 

631 

632 

633 

63A 

635 

636 

637 

638 

639 

6A0 

6A1 

6A2 

6A3 

6AA 

6A5 

6A6 
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SEQ  2019 


*  IPASTP  -  Stop  the  port 


Arguments; 
Procedure: 


None 

Read  the  CSR  Register. 
Clear  'HPROC  Run'  bit. 
Write  this  data  to  CSR. 


Read  the  CSR  Register  and  save  data  in  SDATA. 
Write  'DIAG  Sel  LAR'  bit  in 


000367*  261  17  0  00  000000 


000371'  260  17  0  00  000060' 

000372'  25A  00  0  00  OOOAU' 

000373'  606  01  0  00  000010 

000374'  25A  00  0  00  000A13' 


000375'  6u<  01  0  00  006000 
000376'  25A  00  0  00  000A12' 


_ .  .    CSR. 

Read  the  LAR  and  save  data  in  SNEXT. 

Return:      +1  -  Failed  (Error  reading/writing  CSR  Register). 
+2  -  Failed  (Port  not  running). 
+3  -  Failed  (Error  bits  set  in  CSR) 
+4  -  Ok,  SDATA  and  SADDR  have  data  at  stopping  point. 
/>•♦»♦♦**•*♦**♦********♦*♦♦*♦•♦•*♦******•***•****♦•***♦♦♦*♦**♦♦♦*♦***• 

IPASTP:  RPUT    (OJ)  ;  save  AC's 

;  First  read  CSR  and  verify  that  'MPRUN'  is  set. 


60 

JRST 
TRNN 
JRST 


RDCSR 
IPAST3 
1 ,MPRUN 
IPAST2 


Check  for  error  bits  set 

TLNE   i,(crampe:mberr) 

JRST    IPAST1 
Then  clear  'MPRUN'. 


000377'  620  01 

000400'  260  17 

000401'  260  17 

000402'  254  00 

000403'  202  01 


00  000010 
00  000010' 
00  000060' 
00  000414' 
00  000421* 


TRZ 

60 

60 

JRST 

MQVEM 


1 , MPRUN 
LDCSR 
RDCSR 
IPAST3 
1, SDATA 


read  CSR 

fdiled  -  exit  +1 

uproc  running? 

no  -  failed  -  exit  +2 


error  bits  set? 
yes  -  error  exit 


clear  'MPROC  Run'  bit 
write  the  CSR 
read  CSR 
failed  -  exit 
save  CSR  at  halt 
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DFPTAI 
OFPTAI 

6A7 

6A8 

6A9 

650 

651 

652 

653 

65A 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 
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SEQ  2020 


Now  read  the  stopping  address  (in  LAR) 


0OOAO4'  660  01 
0OOAO5'  260  17 
000A06'  260  17 
000A07'  21^2  01 
000410'  202  01 


0  00  040000 
0  00  000010* 
0  00  000075' 
0  00  177777 
0  00  000417' 


000411'  350  00  0  17  77777t 
000412'  350  00  0  17  77777t 
000413'  350  00  0  17  77777t 
000414'  262  17  0  00  000001 
000416'  263  17  0  00  000000 


Exit 


IPAST1: 
IPAST2: 
IPAST3: 


TRO 

GO 

GO 

LSH 

MOVEM 


AOS 

AOS 

AOS 

R6ET 

RTN 


1-SELLAR 

l6csr 

RDLAR 

1.-1 
1.SNEXT 


-2(.?) 
-2(P) 
-2(P) 
(1.0) 


;  Parameter  locations 


000417'  000000 
000420'  OOCOOO 


000000 
000000 
000421'  000000  000000 
000422'  000000  000000 
000423'  000000  000000 


SNEXT 
BLAST 
SDATA 
EADDR 
AADDR 


0 
0 
0 
0 
0 


set  'Diag  Sel  LAR/SQR'  bit 
write  it 
read  LAR 
get  LAR  data 
save  the  data 


ok  exit  (+4) 
error  exit  (+3) 
error  exit  (+2) 
error  exit  (+1) 
return 


next  address 

last  address 

contents  of  CSR  at  when  stopped 

correct  stopping  address 

actual  stopping  address 
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DFPTAI 
DFPTAI 

671 

672 

673 

67A 

675 

676 

677 

678 

679 

680 

681 

682 

683 

68A 

685 

686 

687 

688 

689 

690 

691 

692 

693 

69A 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 
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0i,i,i,i,i,**ii****it*i********* ********************************************* 

*  IPASST  -  Single  step  the  port  at  the  address  given  in  'SNEXT*  and 

*  with  initial  parameters  given  in  'SDATA  . 


SEQ  2021 


000A2A'  261  17  0  GO  000000 
000426'  20?  01  0  00  003163' 


000427'  260  17  0  00  000060' 

000430'  254  00  0  00  000503' 

000431'  602  01  0  00  000010 

000432'  254  00  0  00  000502' 


000433'  603  01  0  00  006000 
000434'  254  00  0  00  000501' 


Arguments: 


Procedure: 


Return; 


parameters  g' 

SADDR  -  Contains  the  start  address  desired. 

SDATA  -  Contains  the  data  to  be  written  to  the  CSR 
registers  to  initialize  everything  correctly. 

AC1  -  0  -  Don't  preserve  EBUF  data 
-1  -  Preserve  EBUF  data 

(1)  Start  the  port  exactly  as  IPASRT  would  have,  except 
that  'Single  Cycle'  is  set  at  the  same  time  as 
•MPRUN'. 

(2)  Successive  calls  to  IPASST  do  as  in  (1),  except 
that  SDATA  is  already  set  up  and  SNEXT  is  beinq 
continually  copied  to  SLAST  and  new  contents  of 
the  LAR  are  being  put  into  SNEXT. 

+1  -  Failed  (Error  reading/writing  CSR  Register). 

+2  -  Failed  (Port  already  running). 

+3  -  Failed  (Error  bits  set  in  CSR) 

+4  -  Ok 


#*********************t ********************************************** 


IPASST:  RPUT 
MOVEM 


(0,1) 
1,PRSFLG# 


;  save  AC's        .  ,, 
;  save  'Preserve  EBUF'  flag 


;  First  check  if  the  port  is  already  running 


60 

JRST 
TRNE 
JRST 


RDCSR 
IPASS4 
1 ,MPRUN 
IPASS3 


Check  for  error  bits  set 

TLNE    1,(CRAMPE!MBERR) 
JRST    IPASS2 


;  read  CSR  register 

;  error  accessing  CSR  register 

;  uproc  already  running? 

;  yes  -  exit  +2  (error) 


;  error  bits  set? 
;  yes  -  error  exit 


rvrnriT         uarnrt    VCTD/II/IX     1  r\ .  1  C        1-liil-Q^     Dsna     10 
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DFPTAI 

713 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 


MACRO  X53B(1242)   10:15 
MAC  17-Mdy-85  22:17 


■JuL-85  Page  19   .   . 
Port  Specific 


Utility  Routines 


SEQ  2022 


0004? S' 
000436' 
000437' 
000440' 
000441 ' 


622 
260 
200 
242 
260 


01 
17 
01 
01 
17 


00  200000 
00  000010' 
00  000417' 
00  000001 
00  000021' 


0C0442'  336  01  C  no  000421' 

000443'  201  01  C  ^0  000014 

000A44'  660  01  0  00  060010 

0004 '45'  332  00  0  00  030037 

000446'  620  01  0  00  000007 


000447'  260  17  0  00  000010' 


000450'  260  17  0  00  000060' 
000451'  255  00  0  00  000000 
000452'  202  01  0  00  000421' 


000453' 

331  00 

000454' 

lo-   00 

000455' 

660  01 

000456' 

260  17 

000457' 

260  M 

000460' 

202  01 

000461 • 

200  01 

000462' 

620  01 

000463' 

260  17 

00 
00 
00 
00 
00 
00 
00 
00 
00 


003163' 

000464' 

200000 

000010' 

00005^' 

0031t 

000421' 

200000 

000010' 


000464'  200  00  0  00  000417' 
000465'  202  00  0  00  000420' 
000466'  260  17  0  00  000075' 
000467'  242  01  0  00  777777 
000470*  202  01  0  00  000417' 


Now  handle  start  address 


TRZE 

60 

MOVE 

LSH 

GO 


1JSTEBF 

LDCSR 

1,SNEXT 

U 

LDRAR 


;  Set  up  data  to  write  to  CSR 
IPASSO 


SKIPN 
MOVE  I 
TRO 
SKIPE 
TRZ 


1,SDATA 

1,MPRUN!4 

1,SELLAR!MPRUN!SINCYC 

USER 

1,7 


Do  the  single  step 
GO     LDCSR 

Read  CSR 

RDCSR 
1,SDATA 

Save  EBUF  contents 


60 

JFCL 

MOVEM 


SKIPL 

JRST 

TRO 

60 

60 

MOVEM 

MOVE 

TRZ 

60 


;  Read  LAR 
IPASS1 


MOVE 

MOVEM 

60 

LSH 

MOVEM 


PRSFL6 

I PASS 1 

1,TSTEBF 

LDCSR 

RDEBUF 

1,SAVEBF# 

1,SDATA 

KTSTEBF 

LDCSR 


SNEXT 
SLAST 
RDLAR 
1,-1 
1. SNEXT 


make  sure  'Diag  Test  EBUF'  bit 

is  cleared  in  CSR  Register 
get  start  address 
position  correctly 
load  the  register 


any  data  given? 

no  -  set  initial  data 

ensure  MPRUN,SELLAR,SINCYC  are  set 

user  mode? 

yes  -  clear  PI  level  bits 


write  the  data 


read  CSR 
ignore  error 
save  it 


preserve  EBUF 
no  -  continue 
set  'Diag  Test 
write  it 
read  the  EBUF 
save  EBUF  data 
get  CSR  data 
set  'Diag  Test 
write  it 


data? 
EBUF' 

EBUF' 


get  original  next  address 

save  in  last  address 

read  LAR  register 

get  LAR  data 

set  up  new  next  address 


r 
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Q  2010 
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759 

760 
761 
762 
763 
76A 
765 
766 
767 
768 
769 
770 
771 
772 
773 
77A 
775 

;  Restore  EBUF 

000A71 ' 
000A72' 
000A73' 
000A7A' 
000A75' 
000A76' 
000A77' 

200  01  0  00  000A21 ' 
660  01  0  00  200000 
260  17  0  00  000010' 
200  01  0  00  003165' 
260  17  0  00  000000' 
200  01  0  00  000A21 ' 
260  17  0  00  000010' 

MOVE 

TRO 

GO 

MOVF 

60 

MOVE 

60 

1,SDATA 

IJSTEBF 

LDCSR 

1,SAVEBF 

LDEBUF 

1.SDATA 

LDCSR 

000500' 
000501 ' 
000502' 
000503' 
000505' 

350  00  0  17  777776 
350  00  0  17  777776 
350  00  0  17  777776 

262  17  0  00  000001 

263  17  0  00  000000 

AOS 
IPASS2:  AOS 
IPASS3:  AOS 
IPASSA:  R6ET 

RTN 

-2(P) 
-2(P) 
-2(P) 
(1.0) 

SEQ  2023 


r 

|DF( 
DFI 


get  CSR  data  back 
set  'Diag  Test  EBUF 
write  it 

restore  EBUF  data 
write  the  EBUF 
get  CSR  data  back 
write  it 

ok  exit  (+A) 
error  exit  (+3) 
error  exit  (+2) 
error  exit  (♦1) 
return 


>  t\^     •«  r  7 


r\/^-\y-»\   ^A-IC     i_i..l_OC  n^^^      ^1 


DFPTAI  MACRO  X53B(1242)  10:15  1-JuL-85  Page  21  ^ 
DFPTAI  MAC     17-Mdy-85  22:17        PI  System  Routines 


SEQ  202A 


776 

777 

778 

779 

780 

781 

782 

783 

78A 

785 

786 

787 

788 

789 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8K 

815 

816 

817 


000506'  332  00  0  00  030037 

000507'  263  17  0  00  000000 

000510'  261  17  0  00  000001 

000511'  7  OOA  20  0  00  010000 


000512' 
000513' 
00051A' 
000515' 
000516' 
000517' 
000520' 
000521' 


5A0  20  0 
5AA  20  0 


550  20 
55A  20 
560  20 
56A  20 
570  20 
57A  20 


00  000000 
00  000000 
00  000000 
00  000000 
00  000000 
00  000000 
00  000000 
00  000000 


000522' 
000523' 
00052A' 
000525' 
000526' 
000527' 
000531 ' 


7  OOA  20  0  00  002177 

7  OOA  20  0  00  000200 

"00  000000 


cc 


17  0 


200  00  0  00  003236' 


251  00 
262  17 


00  001327' 
00  000000 


263  17  0  00  000000 


000532'  332  00  0  00  030037 

000533'  263  17  0  00  000000 

00053A'  7  OOA  20  0  00  010000 

000535'  25A  00  0  00  000522' 


SUBTTL  PJ  System  Routines 

.#♦*»*•»♦*♦**♦»*•**♦**♦*♦♦♦♦****♦•***********************♦************ 

;*  INITPI  -  Initialize  and  Turn  On  PI  System 

*  In  exec  mode  only.  Turn  on  PI  system  with  all  channels  activated. 

•  Also,  write  PI  level  bits  to  O's  for  all  other  RH's  to  ensure  that 
;  only  the  port  interrupts. 

)/>**•«♦****»•»«*♦*»»****♦»***♦***•***♦**♦•*********•*♦**•************* 


INITPI:  SKIPE 
RTN 
PUT 
CONO 


USER 

1 
PI,PICLR 


user  mode? 
yes  -  exit 
save  AC1 
clear  PI  system 


Set  PI  level  bits  to  zero  for  each  RH  slot 


CONO 
CONO 
CONO 
CONO 
CONO 
CONO 
CONO 
CONO 


5A0,0 
5AA,0 
550.0 
55A.0 
560.0 
56A.0 
570,0 
57A.0 


set  PIA 
set  PIA 


level  bits  to 
level  bits  to 


DFI 
DFf 


set  PIA  level  bits  to  0 

set  PIA  level  bits  to  0 

set  PIA  level  bits  to  0 

set  PIA  level  bits  to 

set  PIA  level  bits  to 

set  PIA  level  bits  to 


0 
0 
0 


Finally  activate  all  channels  and  turn  on  the  PI  system 


INITPO: 


CONO 

CONO 

PUT 

MOVE 

BLT 

R6ET 

RTN 


PI. 2177 

PI.PION 

0 

[INTNUM,.INTNUM+n 

INTEND 

(0.1) 


activate  all  channels 

turn  on  PI  system 

save  ACO 

build  BLT  pointer 

clear  interrupt  history  data 

restore  AC's 

return 


;  Clear  PI  system  after  returning  from  DDT 

INITPD:  SKIPE  USER 
RTN 

CONO  PI.PICLR 

JRST  INITPO 


user  mode? 
yes  -  exit 
clear  PI  system 
continue 


ac     n Tl 


T\l 


r' 


EQ  2012 


DFPTAI 
DFPTAI 

818 

819 

820 

821 

822 

823 

82A 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

8A0 

8A1 

8A2 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 
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000536' 
000537' 
000540' 
000541 • 
000542* 
000543' 
000544' 
000545' 
000546' 
000547' 


332  00 
263  17 

261  17 
260  17 
260  17 
255  00 
620  01 
260  17 

262  17 

263  17 


0  00  030037 
0  00  000000 
0  00  000001 
0  00  000564' 
0  00  000060' 
0  00  000000 1 
0  00  000007' 
0  00  000010' 
0  OC  000001 
0  00  000000 


000550' 
000551' 
000552' 
000553' 
000554' 
000555' 
000556' 
000557' 
000560' 
000561 ' 
000562' 
000563' 


332  00 
263  17 

261  17 
260  17 
260  17 
255  00 
620  01 
660  01 
260  17 
2oJ  17 

262  17 

263  17 


0  00  030037 
0  00  000000 
0  00  000001 
0  00  000564' 
0  00  000060' 
0  00  000000 
0  00  000007 
0  00  000004 
0  00  000010' 
0  00  000567' 
0  00  000001 
0  00  000000 
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PI  System  Routines 


/^•***********»********t************* ********************************* 

*  .PIOFF  -  Detach  port  from  PI  system 

#t ******************************************************************* 


SEQ  2025 


DF 
DF 


000564'  336  00  0  00  030037 
000565'  7  004  20  0  00  000400 
000566'  263  17  0  00  000000 


000567'  336  00  0  00  030037 
000570'  7  004  20  0  00  002300 
000571'  263  17  0  00  000000 


.PIOFF:  SKIPE 
RTN 
PUT 
GO 
GO 
JFCL 
TRZ 
GO 
GET 
RTN 


USER 

1 

PISYOF 

RDCSR 

1.7 
LDCSR 

1 


user  mode? 

yes  -  return 

save  AC1 

no  -  turn  off  PI  system 

read  CSR 

error  return 

clear  PIA  bits  in  CSR 

write  the  bit 

restore  ACI 

exit 


#***♦*»*♦****»**♦*****♦♦******•**•***♦♦*********♦******************** 

*  .PION  -  Attach  port  to  PI  system  (Channel  4) 
#»****••*♦****»♦******♦♦*•♦***••*********•*************************** 

.PION:  SKIPE   USER  ;  user  mode? 

yes  -  exit 
save  ACI 

turn  PI  system  off 
read  CSR 
error  return 
clear  PIA  bits 
set  PI  level  4 
write  the  bit 
turn  PI  system  back  on 
restore  AC 
exit 

#»**»*♦♦♦»****♦*«•****♦**♦♦***************************♦************** 

•  PISYOF  -  Turn  PI  system  off 
#*»***»*♦***♦♦*»♦•*»*♦*♦******•*•*****•****************************** 


SKIPE 

USER 

RTN 

PUT 

1 

GO 

PISYOF 

GO 

RDCSR 

JFCL 

TRZ 

1.7 

TRO 

1.4 

GO 

LDCSR 

GO 

PISYON 

GET 

1 

RTN 

PISYOF:  SKIPN   USER 

CONO    PI, PIOFF 
RTN 


;  user  mode? 

;  no  -  turn  it  off 

;  exit 


♦  PISYON  -  Turn  PI  system  on 


PISYON:  SKIPN   USER 

CONO    PI. 2300 
RTN 


;  user  mode? 

;  no  -  turn  on  PI  system 

;  and  exit 


EQ  2013 


DFPTAI 
DFPTAI 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

88A 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

•?02 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 
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SEQ  2026 


D 
Dl 


000572' 
000573' 
000574' 
000575' 
000577' 
000600' 
000601 • 
000602' 
000603* 
000604' 
000605' 
000606' 
000607' 
000610' 
00061 1 ' 
000612* 
000613* 
000615* 


0  00 


0  00 
0  00 


402  00 
332  00 
263  17 
261  17 
200  00 
200  01 
271  01  0  00 


270  01 
202  00 
200  01 

271  01 
270  01 
202  00 
260  17 
476  00 
402  00 

262  17 

263  17 


000616' 
000617' 
000620' 
000621 ' 
000622 ' 
000623* 
000624 ' 
000625' 
000626' 
000627' 
000630" 
000631 • 
000632' 
000633' 
000634 ' 
000635* 
000636* 


261  17  0 
2u-'  00  0 
202  00  0 
200  00  0 
202  00  0 
200  00  0 
202  00  0 
200  00  0 
202  00  0 
200  00  0 
202  00  0 
200  00  0 


202  00 
200  00 
202  00 


00 
00 
00 


0  00 
0  01 
0  00 
0  00 
0  00 


262  17  0 

263  17  0 


01 
00 
00 


0  00 


00 
00 


001357' 

030037 

000000 

000000 

003237' 

002366' 

000003 

002275' 

000000 

002370' 

000003 

002275* 

000000 

000616* 

001066* 

001065* 

000001 

000000 


00  000000 
00  003240' 
00  000042 
00  003241' 
00  000044 
00  003242' 
00  000046 
00  003243' 
00  000050 
00  003244' 
00  000052 
00  003245* 
00  000054 
00  003246* 
00  000056 
00  000000 
00  000000 


•#*»•«♦**»*••****•*♦»»•♦♦*♦♦♦*•*•**♦**♦***♦**♦♦*♦**************♦****** 

;•  SETVEC  -  Set  up  interrupt  vectors  for  an  port  under  test 
./>»»*♦••»**•♦♦****»*♦*»♦*♦♦*«*»»•**••**••***•*•*******************♦*** 

SETVEC; 


SETZM 

SKIPE 

RTN 

RPUT 

HOVE 

MOVE 

ADD! 

ADD 

HOVEM 

MOVE 

ADD! 

ADD 

MOVEM 

60 

SETOM 

SETZM 

R6ET 

RTN 


.INUD1 
USER 

(0.1) 

[JSR  VIINT] 

1.ICyA0+5 

1.3 

I.CBASE 

(b 

1JCUA0+7 

1.3 

I.CBASE 

(1) 

SET2N 

INTNUM 

IDELAY 

(1.0) 


clear  special  interrupt  data 

user  mode? 

yes  -  exit 

say/e  AC's  ,  ^ 

get  trap  instruction  (Vectored  Int) 

get  initial  address  of  log  area 

calculate  address  of  4th  word 

add  special  page  number 

put  in  4th  word  of  logout  area 

get  initial  address  oT  log  area 

calculate  address  of  4th  word 

add  special  page  number 

put  in  4th  word  of  logout  area 

set  up  40+2N  transfer  addresses 

initialize  interrupt  count 

clear  delay  time 

restore  AC  s 


•/>♦♦»♦***»***♦*♦*♦•*♦♦♦♦*♦♦***»*•♦*•*♦*•**•*♦•***♦*********♦•******♦*♦ 

;*  SET2N  -  Set  up  40  ♦  2N  locations  with  interrupt  dispatch  instruction 


SET2N: 


PUT 

MOVE 

MOVEM 

MOVE 

MOVEM 

HOVE 

MOVEM 

HOVE 

HOVEM 

HOVE 

HOVEM 

HOVE 

HOVEM 

HOVE 

HOVEM 


[JSR 

42 

[JSR 

44 

[JSR 

46 

[JSR 

50 

[JSR 

52 

[JSR 

54 

[JSR 

56 


NVIIN1] 
NVIIN2] 
NVIIN3] 
NVIIN4] 
NVIIN5] 
NVIIN6] 
NVIIN7] 


save  ACQ 
channel  1 

channel  2 

channel  3 

channel  4 

channel  5 

channel  6 

channel  7 

restore  ACO 


SEQ  ^o^^ 


DFPTAI 
OFPTAI 

915 
916 
917 
918 
919 

I   920 
921 

I   922 
923 
92A 
925 
926 
927 
928 
929 
930 
931 
932 
933 
93A 
935 
936 
937 
938 
939 
9A0 
9A1 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
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SEO  2027 


•  VIINT  -  Vectored  interrupt  (Port) 
This  routine  (and  NVlINx)  do  the  following: 

-  CONJ  PJ  and  save  it 

-  Shut  off  PI  system  .  -,«  .      .  x 

-  Increment  interrupt  offset  (not  to  exceed  20  interrupts) 

-  Save  interrupt  data 

-  Exit  with  a  JEN  after  turning  PI  system  back  on 

Interrupt  data  maintained: 

INTPC  -  PC  interrupted  from  ^,^     ^,         . 

INTTYP  -  Type  0,.0  -  Vectored  (If  overflow  occurred 

0,,n  -  Non-vectored  channel  N    the  left  half  is  -1) 
JNTCON  -  CONI  PI  data 
INTAPR  -  CONI  APR  data 
INTTIM  -  Time  of  interrupt  (in  usee) 
INTUSE  -  Time  of  interrupt  (addl  time  m  usee) 
INTCSR  -  CSR  data  on  interrrupt 
INTNNN  -  Interrupt  # 

The  index  into  these  tables  is  saved  in  INTNUM. 


000637'  000000  000000 

000640'  7  004  24  0  00  003167' 

000641'  7  004  20  0  00  000400 

000642*  2c'  17  0  00  000000 


VIINT:  0 

CONI 
CONO 
RPUT 


PI,VIIPI# 

PI,PIOFF 

(0J,2,3,$SVUU0.$SVUPC) 


;  Save  interrupt  data 


000650* 
000651 ' 
000652* 
000653* 
000654 ' 
000655* 
000656* 
000657' 
000660* 
000661 • 
000662* 


400  00  0 
350  01  0 
301  01  0 
505  00  0 


301 
201 


01 
01 


202  00  0 
200  00  0 


202  00 
200  00 
202  00 


00  000000 
00  001066* 
00  000024 
00  777777 
00  000024 

00  000023 

01  001113* 

00  001066* 

01  001303* 

00  000637* 

01  001067* 


SETZ 

AOS 

CAIL 

HRLI 

CAIL 

MOVE  I 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 


1.  INTNUM 

L*D20 

7)7777 

1,*D20 

1/D19 

INTTYP(I) 

INTNUM 

INTNNN(I) 

VIINT 

INTPCd) 


flags  and  PC  get  stored  here 
save  CONI  PI  data 
no  -  turn  off  PI  system 
save  some  stuff 


initialized  interrupt  type 

increment  interrupt  number 

exceed  maximum? 

yes  -  flag  such 

exceed  maximum? 

yes  -  limit  to  20  entries 

save  interrupt  type 

get  interrupt  number 

save  it 

get  interrupt  PC 

save  it 


___j 


SEQ  2015 


l_ 

538(1242)  10:15  1-Jul- 
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DFPTAI 

MACRO  X 

DFPTAI 

MAC 

17-Md/-85  22:17 

ines 

960 

000663' 

200  00  0  CO  003167' 

MOVE 

VIIPI 

961 

00066A ' 

202  00  0  01  001137' 

MOVEM 

INTCON(I) 

962 

000665' 

7  000  24  0  00  000000 

CONI 

APR,0 

963 

000666' 

202  00  0  01  001163' 

MOVEM 

INTAPRd) 

96A 

000667' 

400  03  0  00  000000 

SET2 

3, 

965 

000670' 

260  17  0  00  000000* 

GO 

RUNTME 

966 

000671 ' 

200  00  0  00  000000* 

MOVE 

DEBTIM 

967 

000672' 

202  00  0  01  001207' 

MOVEM 

INTTIM(I) 

968 

000673' 

200  00  0  00  000000* 

MOVE 

US  TIM 

969 

000674' 

202  00  0  01  001233' 

MOVEM 

INTUSE(I) 

970 
971 

;  Exit  after  turning  on  PI  system  (if  not 

972 
973 

000675' 

200  00  0  01  001303' 

MOVE 

INTNNN(I) 

97A 

000676' 

307  00  0  00  020000 

CAIG 

2000C 

975 

000677' 

260  17  0  00  000550' 

GO 

.PION                ; 

976 

000700' 

303  00  0  00  020000 

CAILE 

20000               ; 

977 

000701 ' 

476  00  0  00  001357' 

SETOM 

.INWD1             „,  . 

978 

000702' 

262  17  0  00  030114 

RGET 

($SVUPC.$:VUUO,3,2,1,0)  . 

979 

000710' 

254  12  1  00  000637' 

JEN 

aVIINT 

SE(3  2028 


get  CONI  PI  data 

save  it 

get  CONI  APR  data 

save  it 

set  up  for  getting  time 

get  current  time 

get  time  in  milliseconds 

save  it 

get  addl  time  in  microseconds 

save  it 


get  interrupt  number 

more  than  20000  interrupts? 

no  -  turn  on  PI  system 

more  than  200C0  interrupts? 

yes  -  indicate  such 

restore  stuff 

release  interrupt  and  return 


DFPTAI 
DFPTAI 

980 

981 

982 

983 

98A 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

lOlo 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 
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SEQ  2029 


000711' 
000712' 
000713' 
000714' 
000715' 
000716' 
000717' 
000720' 

000721 ' 
000722' 
000723' 
000724' 
000725' 
000726' 
000727' 
000730' 

000731 ' 
000732' 
000733' 
000734' 
000735' 
000736' 
000737' 
000740' 

000741' 
000742' 
000743' 
000744 ' 
000745' 
000746' 
000747' 
000750' 

000751 • 
000752' 
000753' 
000754' 
000755' 
000756' 
000757' 
000760' 


000000  000000 
7  004  24  0  00  003167' 
7  004  20  0  00  000400 
261  17  0  00  000000 

200  00  0  00  000711' 
202  00  0  00  001064' 

201  00  0  00  000001 
254  00  0  00  001001' 

000000  000000 
7  004  24  0  00  003167' 
7  004  20  0  00  000400 
261  17  0  00  000000 

200  00  0  00  000721' 

202  00  0  00  001064' 

201  00  0  00  000002 
254  00  0  00  001001' 

000000  000000 
7  004  24  0  00  003167' 
7  004  20  0  00  000400 
261  17  0  00  000000 

200  00  0  00  000731' 

202  00  0  00  001064' 

201  00  0  00  000003 
ly   00  0  00  001001' 


000000  000000 
7  004  24  0  00  003167' 
7  004  20  0  00  000400 
261  17  0  00  000000 

200  00  0  00  000741' 
202  00  0  00  001064' 

201  00  0  00  000004 
254  00  0  00  001001' 

000000  000000 
7  004  24  0  00  003167' 
7  004  20  0  00  000400 
261  17  0  00  000000 

200  00  0  00  000751' 

202  00  0  00  001064' 

201  00  0  00  000005 
254  00  0  00  001001' 


.#**********************♦********************************************* 

;*  NVIINx  -  Non-Vectored  interrupt  (Port) 

J #******•**********•♦********************* **************************** 


NVIIN1 


NVIIN2; 


NVIIN3: 


NVIIN4; 


NVIJN5: 


0 

CONI 

CONO 

PUT 

MOVE 

MOVEM 

Mov:i 

JRST 
0 

con: 

CONO 

PUT 

MOVE 

MOVEM 

MOVE  I 

JRST 

0 

CONI 

CONO 

PUT 

MOVE 

MOVEM 

MOVE! 

JRST 

0 

CONI 

CONO 

PUT 

MOVE 

MOVEM 

MOVE  I 

JRST 

0 

CONI 

CONO 

PUT 

MOVE 

MOVEM 

MOVE  I 

JRST 


PI,VIIPI 

PI,PIOFF 

0 

NVIIN1 

NVJEN 

1 

NVIINC 


PI,VIIPI 

PI,PI0FF 

0 

NVIIN2 

NVJEN 

2 

NVIINC 


PI,VIIPI 
PI,PI0FF 

0 

NVIIN3 

NVJEN 

3 

NVIINC 


PI,VIIPI 

PI.PIOFF 

0 

NVIIN4 

NVJEN 

4 

NVIINC 


PI.VIIPI 

PKPIOFF 

0 

NVIIN5 

NVJEN 

5 

NVIINC 


for  PC+flags 

save  CONI  PI  data 

turn  off  PI  system 

save  ACO 

get  interrupt  PC 

save  It  for  JEN 

set  up  interrupt  type 

go  to  common  handling 

for  PC+flags 

save  CONI  ?l   data 

turn  off  PI  system 

save  ACO 

get  interrupt  PC 

save  it  for  JEN 

set  up  interrupt  type 

go  to  common  handling 

for  PC+flags 

save  CONI  Pi  data 

turn  off  PI  system 

save  ACO 

get  interrupt  PC 

save  it  for  JEN 

set  up  interrupt  type 

go  to  common  handling 

for  PC+flags 

save  CONI  Pi  data 

turn  off  PI  system 

save  ACO 

get  interrupt  PC 

save  it  for  JEN 

set  up  interrupt  type 

go  to  common  handling 

for  PC+flags 

save  CONI  Pi  data 

turn  off  PI  system 

save  ACO 

get  interrupt  PC 

save  it  for  JEN 

set  up  interrupt  type 

go  to  common  handling 


DFPTAI  MACRO  X53B(1242)  10:15  l-Jul-85  Pa^ 

r>PPTAI       MAr  17-M;»v-fiS    ??:17  PI 


le  27 

>vstem  Routines 
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SEQ  2030 


OFPTAI 
DFPTAI 

1029 

1030 

1031 

1032 

1033 

103A 

1035 

1036 

1037 

1038 

1039 

10A0 

10A1 

10A2 

10A3 

10AA 

10A5 

10A6 

10A7 

10A8 

10A9 

1050 

1051 

1052 

1053 

105A 

1055 

1056 

1057 

1053 

1059 

1060 

1061 

1062 

1063 

106A 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

107A 

1075 

1076 
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PI  System  Routines 


SEQ  2030 


000761'  000000  000000 

000762'  7  OOA  2A  0  00  003167' 

000763'  7  OOA  20  0  00  OOOAOO 

00076A'  261  17  0  00  000000 

000765'  200  00  0  00  000761' 

000766'  202  00  0  00  001 06A' 

000767'  201  00  0  00  000006 

000770'  25A  00  0  00  001001' 

000771'  000000  000000 

000772'  7  OOA  2A  0  00  003167' 

000773'  7  OOA  20  0  00  OOOAOO 

00077A'  261  17  0  00  000000 

000775'  200  00  0  00  000771' 

000776'  202  00  0  00  001 06A' 

000777'  201  00  0  00  000007 

001000'  25A  00  0  00  001001' 


001001'  261  17  0  00  000001 
001006'  350  02  0  00  001066' 
001007'  301  02  0  00  00002A 

001010'  505  00  0  00  mm 

00101 1 '  301  02  0  00  00002A 
001012'  201  02  0  00  000023 


001013' 
001 01  A' 
001015' 
001016' 
001017' 
001020' 
001021' 
001022' 
001023' 
001 02A' 
001025' 
001026' 
001027' 
001030' 
001031' 
001032' 
001033' 
00103A' 


lK)i   00  0 

200  00  0 

202  00  0 

200  00  0 


202  00 
200  00 


202  00  0 
7  000  2A 
202  00  0 
260  17  0 
255  00 
202  Oi 
AOO  03 
260  17 


200  00 
202  00 


200  00  0 
202  00  0 


02  001113' 
00  001066' 
02  001303' 
00  001 06A' 
02  001067' 
00  003167' 
02  001137' 
0  00  000000 
02  001163' 
00  000060' 
00  000000 
02  001257' 
00  000000 
00  000670* 
00  000671* 
02  001207' 
00  000673* 
02  001233' 


NVIIN6: 


NVIIN7: 


0 

CONJ 

CONO 

PUT 

MOVE 

MOVEM 

MOVE  I 

JRST 

0 

CONI 

CONO 

PUT 

MOVE 

MOVEM 

MOVE  I 

JRST 


PJ.VJIPI 

PI.PJOFF 

0 

NVIIN6 

NVJEN 

6 

NVIINC 


PJ,VJJPI 

PI,PI0FF 

0 

NVJJN7 

NVJEN 

7 

NVIINC 


for  PC+flags 

save  CONI  Pi  data 

turn  off  ?\   system 

save  ACO 

get  interrupt  PC 

save  it  fc^  JEN 

set  up  interrupt  type 

go  to  common  handling 

for  PC+flags 

save  CONI  Pi  data 

turn  off  PI  system 

save  ACO 

get  interrupt  PC 

save  it  for  JEN 

set  up  interrupt  type 

go  to  common  handling 


;  Save  AC's  ana  calculate  interrupt  number 

NVIINC:  RPUT  (1 ,2.3,$SVUU0,$SVUPC) 

AOS  2,INTNUM 

CAIL  2.*D20 

HRLi  i^mi 

CAIL  2.*D20 

HOVEI  2.*D19 


Save  interrupt  data 


MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

HOVE 

MOVEM 

CONI 

MOVEM 

GO 

JFCL 

MOVEM 

SETZ 

GO 

MOVE 

MOVEM 

MOVE 

MOVEM 


INTTYP(2) 

INTNUM 

INTNNN(2) 

NVJEN 

INTPC(2) 

n\9\ 

INTC0N(2) 

APR.O 

INTAPR(2) 

RDCSR 

1.INTCSR(2) 

3, 

RUNTME 

DEBTIM 

INTTIM(2) 

USTIM 

INTUSE(2) 


save  some  stuff 

increment  interrupt  number 

exceed  maximum? 

yes  -  flag  such 

exceed  maximum? 

yes  -  limit  to  20  entries 


save  interrupt  type 

get  interrupt  number 

save  interrupt  number 

get  interrupt  PC 

save  it 

get  CONI  PI  data 

save  it 

get  CONI  APR  data 

save  it 

read  CSR  register 

ignore  error 

save  data 

set  up  for  getting  time 

get  current  time 

get  time  in  milliseconds 

save  it 

get  addl  time  in  microseconds 

save  it 
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SEQ  2031 


DFPTAI 
DFPTAI 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

11U 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

112A 

1125 

1126 

1127 

1128 

1129 


MACRO  X53B(12A2)  10:15 
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PI  System  Routines 


SEQ  2031 


Save  special  interrupt  data  if  necessary 


001035'  AOC  03  0  00  000000 
001036'  603  01  0  00  004000 


001037' 
001040* 


260  y   0 
603  01  0 


00  003247' 
00  002000 


SET  7 
TLNE 
GO 


TLNE 
60 


3. 

l.(CRAMPE) 


[fLZ 

TRO 

GO 

GO 

MOVE 

RTNJ 
l.(MBERR) 


l.(CRAMPE) 

1,SELLAR1EBUSPE 

LDCSR 

RDLAR 

3.1 


001041'  260  17  0  00  003255' 
001042'  607  01  0  00  006000 
001043'  602  01  0  00  007200 


001044'  260  17  0  00  003263' 


[GO 

MOVE  I 

GO 

GO 

MOVE 

RTNJ 
1,(CRAMPE1MBERR) 


IPACLR 

1.SELLAR 

LDCSR 

RDLAR 

3,1 


clear  LAR  data 
CRAM  p:  occurred? 
yes  -  clear  it  and  read 
LAR 


fiflUS  Erf-or  occurred? 
yes  -  Clear  it  and  read 
LAR 


TLNN    1,(CRAMPE1MBERR)       ;  interrupt  bits  in  CSR  set? 

TRNE    1,EBUSPE!FQUERRIMVRERR!RESQAV 

GO     [MOVE   1JNTCSR(2)     ;  yes  -  save  special  interrupt  data 

MOVEM  1,.INUD1 

MOVEM  3,.1NUD2 

RTN3 

Turn  back  on  PI  system  and  dismiss  interrupt 


001045' 
001046' 
001047' 
001050' 
001051' 
001052' 
001053' 
001054' 
001055' 
001063' 


201  00  0 
332  00  0 
260  17  0 
2uJ  00  0 
307  00  0 
260  17  0 


303  00 
476  00 
262  17 


254  12  1 


00 
OC 
00 
02 
00 
00 
00 
00 
00 
00 


001065' 

001065' 

000000* 

001303' 

020000 

000550' 

020000 

C01357' 

030114 

001064' 


MOVE  I 

SKIPE 

GO 

MOVE 

CAI6 

GO 

CAILE 

SETOM 

RGET 

JEN 


IDELAY 

IDELAY 

ODELAY 

INTNNN(2) 

20000 

.PION 

20000 

.INUD1 

($SVUPC.$SVUUO,3,2J,0) 

SNVJEN 


get  delay  time 

specified? 

yes  -  delay  a  bit 

get  interrupt  number 

more  than  20000  interrupts? 

no  -  turn  on  PI  system 

more  than  20000  interrupts? 

yes  -  indicate  such 

restore  stuff 

release  interrupt  and  return 


001064'  000000  000000 


NVJEN:  0 


;  Interrupt  data  storage 


001065' 
001066' 
001067' 
001113' 
001137' 
001163' 
001207' 
001233' 
001257' 
001303' 
001327' 


000000 
000000 


000000 
000000 


OOOOOC  000000 


IDELAY: 

INTNUM: 

TNTPC: 

INTTYP: 

INTCON: 

INTAPR: 

INTTIM: 

INTUSE: 

INTCSR: 

INTNNN: 

INTEND: 


0 

0 

BLOCK 

BLOCK 

BLOCK 

BLOCK 

BLOCK 

BLOCK 

BLOCK 

BLOCK 

0 


*D20 
*D20 
*D20 
*D20 
*D20 
*D20 
*D20 
•D20 
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SEQ  2032 
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SEQ  2052 


1130 
1131 
1132 
11^3 

ii!a 

1135 

1136 

1137 

1138 

1139 

1H0 

1H1 

1U2 

1U3 

1U4 

1U5 

1K6 

1U7 

1U8 

1U9 

1150 

1151 

1152 

1153 

115A 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

116A 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117A 

1175 

1176 

1177 

1178 


001330'  336  00  0  00  001357' 

001331'  263  17  0  00  000000 

001332'  261  17  0  00  000000 

001 33A'  200  01  0  00  001357' 

001335'  316  01  0  00  003267' 

001336'  254  00  0  00  003303' 

001337'  603  01  0  00  OOAOOO 


001340'  254  00  0  00  003310' 
001341'  603  01  0  00  002000 


001342'  254  00  0  00  003322' 
001343'  602  01  0  00  004000 

001344'  254  00  0  00  003333' 
001345'  60?  01  0  00  002000 

001346'  254  00  0  00  003341' 
001347'  602  01  0  00  001000 

001350'  254  00  0  00  003350' 
001351'  602  01  0  00  000200 
001352'  037  00  0  00  003352' 


001353'  402  00  0  00  001357' 
001354'  262  17  0  00  000001 
001356'  263  17  0  00  000000 


001357'  000000  000000 
001360'  000000  000000 


•#•••*«♦*♦*»*♦*»****•**♦♦**♦***•■♦******♦************•****•*********** 

;*  .INPNT  -  Print  special  interrupt  data  ^^^^ 

•f*** •*•»»*♦*•**♦**♦*•****♦***»*♦**********♦♦***• ********************* 


.INPNT:  SKIPN 
RTN 
RPUT 
MOVE 
CAMN 
JRST 

TLNE 
JRST 


TLNE 
JRST 


TRNE 
JRST 

TRNE 
JRST 

TRNE 
JRST 


.INWD1  ;  any  interrupt  data  saved  yet? 

;  no  -  return 
(0,1)  ;  save  AG's 

1..INWD1  ;  get  CSR  data 

1,[-1]  ;  over  20000  interrupts? 

CTMSGCD  <CMore  than  20000  interrupts  -  PI  system  shut  offJ> 

JRST   .INPNX] 

1,(CRAMPE)  ;  CRAM  PE?. 

CTMS6C  <[CRAM  PE  at  >  ;  yes  -  print  such 

MOVE   .INWD2 

LSH    -1 

PNTOCS 

TMSGD  <]> 

JRST   .INPNX] 
1,(MBERR) 
CtMSGC  <CMBUS  ERR  at  > 

MOVE   .INWD2 

LSH    -1 

PNTOCS 

TMSGD  <]> 

JRST   .INPNX] 
I.EBUSPE 
[TMSGCD  <CEBUS  PEJ> 

JRST   .INPNX] 
I.FQUERR 
[TMSGCD  <CFreeQ  Error]> 

JRST   .INPNX] 
1 ,MVRERR 


M6US  Error? 

yes  -  print  such 


EBUS  PE? 

yes  -  print  such 

FQ  Error? 

yes  -  print  such 

;  DP  Error? 


[TMSGCD  <[Data  Path  Error]>  ;  yes  -  print  such 
JRST   .INPNX] 


TRNE    I.RESQAV 
TMSGCD  <LRspQ  AvaiL]> 


;  Exit 


.INPNX:  SETZM   .INUDl 
RGET    (1.0) 
RTN 

;  Special  interrupt  data 

.INUDl:  0 
.INUD2:  0 


RESPQ  AV? 

yes  -  print  such 


clear  initial  word 
restore  AC's 
return 


;  CSR  data 
:  LAR  data 


L 
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SEQ  2033 


DFPTAI 
OFPTAI 

1179 

1180 

1181 

1182 

1183 

118A 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

119A 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120A 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12K 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

122A 

1225 

1226 
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SEQ  2033 


001361' 
001362' 
001363' 
001364' 
001365' 
001366' 
001367' 
001370' 
001371' 
001372' 
001373' 
001374' 
001375' 
001376' 
001377' 
OOUOO' 

oouor 


001402' 
001403' 
001404' 
001405' 
001406' 
001407' 
001410' 


332  00  0 
263  17  0 
17 


261 
402  00 
402  00 
200  00 


202  00  0 


201  00 

202  00 


402  00  0 
402  00  0 
402  00  0 
402  00  0 


402  00 
402  00 


1412' 
U01413' 
001414' 
001415' 
001416' 
001417' 
001420' 
001421' 


262  17  0 

263  17  0 


00  030037 
00  000000 
00  000000 
00  000500 
00  000501 
00  000502 
00  001402' 
00  001422' 
00  000502 
00  001410' 
00  001403' 
00  001404' 
00  001405' 
00  001406' 
00  001407' 
00  000000 
00  000000 


000000 
000000 
000000 
000000 
GuJOOO 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 


332  00  0 
263  17  0 

261  17  0 
402  00  0 
402  00  0 
200  00  0 
202  00  0 

262  17  0 

263  17  0 


SUBTIL  Page  Fail  Handling  Routines 

•#♦♦••»***»*•*♦•••*****♦♦•♦•****••****••*•***********♦**************** 

!••  PFSET  -  Set  up  EPT  locations  500-502  to  handle  page  fails 
•#*t******** ********************************************************** 

user  mode? 

yes  -  return 

save  ACO 

clear  error  address 

clear  error  PC 

get  original  dispatch  address 

save  it  ^     _,, 

get  address  of  routine  to  handle 

page  fails  and  set  up  502 
init  'page  fail  occurred'  flag 
init  APR  status  dt  page  fail 
init  location  500  at  page  fail 
init  location  501  at  page  fail 
init  location  502  at  page  fail 
init  ACO  at  page  fail 
restore  ACO 
return 


original  dispatch  address 

APR  status  at  page  fail 

location  500  at  page  fail 

location  501  at  page  fail 

location  502  at  page  fail 

ACO  at  page  fail 

flag  that  a  page  fail  has  occurred 


'01li,1,1,i,1,*i,1,1,1,1,if  *******  ************************************************ 

;*  PFCLR  -  Restore  EPT  locations  500-502  to  original  values 
•#*****♦♦****«**********♦♦*•*********♦*********•********♦************* 

user  mode? 

yes  -  return 

save  ACO 

clear  error  address 

clear  error  PC 

get  original  dispatch  address 

save  it 

restore  ACO 

return 


PFSET: 

SKIPE 
RTN 

USER 

PUT 

0 

SETZM 

500 

SETZM 

501 

MOVE 

502 

MOVEM 

PFDISP 

MOVE  I 

PFCHK 

MOVEM 

502 

SETZM 

PFA  L 

SETZM 

PFA»R 

SETZM 

PF5)0 

SETZM 

PF5)1 

SETZM 

PF5)2 

SETZM 

pfa:o 

GET 

0 

RTN 

;  Page 

fail  data  area 

PFDISP. 

0 

PFAPR: 

0 

PF500: 

0 

PF501: 

0 

PF502: 

0 

PFACO: 

0 

PFAIL: 

0 

00  030037     PFCLR:  SKIPE 

USER 

00  000000 

RTN 

00  000000 

PUT 

0 

00  000500 

SETZM 

500 

00  000501 

SETZM 

501 

00  001402' 

MOVE 

PFDISP 

00  000502 

MOVEM 

502 

00  000000 

GET 

0 

00  000000 

RTN 

L 
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SEQ  2034 


DFI 
DFPl 


1227 

1228 

1229 

1230 

1231 

1232 

1233 

123A 

1235 

1236 

1237 

1238 

1239 

12A0 

12A1 

12A2 

12A3 

12AA 

12A5 

12A6 

12A7 

12A8 

12A9 

1250 

1251 

1252 

1253 

125A 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

126A 


00U22' 
00U23' 
00H2A' 
001A25' 
00U26' 
00U27' 
00U30" 
00K3r 
00U32' 
00K33' 
00U3A' 
00U35' 


202  00  0 
7  000  2A 
200  00  0 
202  00  0 
200  00  0 
202  00  0 
200  00  0 
202  00  0 
135  00  0 
302  00  0 
306  00  0 
254  00  0 


00  00U07' 
0  00  001403' 
00  000500 
00  001404' 
00  000501 
00  001405' 
00  000502 
00  001406' 
00  003356' 
00  000036 
00  000037 
00  001440' 


001436'  200  00  0  00  001407' 
001437'  254  00  1  00  001402' 


001440'  3:)}   00  0  00  001410' 
001441'  402  00  1  00  000500 
001442'  7  000  20  0  00  021400 
001443'  200  00  0  00  001407' 
001444'  350  00  0  00  000501 
001445'  254  12  1  00  000501 


*  PFCHK  -  Check  reason  for  page  fail  ond  dispatch  appropriately 


This  routine  determines  if  the  page  fail  is  caused  by  an  AR/ARX  Parity 

Error.  If  it  is,  '-   ^^-   "^•"  ^^"       '*  -'     ^^^^^-u  ^«  -k«- ^i 

dispatch  location. 


_    ,   page  fu.v  .- -,  - ■ -,  .  ,, 

Error.  If  it  is,  set  the  PFAIL  flag.  If  not,  dispatch  to  the  original 

/>**«********************♦*♦*•**************♦************************* 
PFCHK; 


MOVEM  PFACO 

CONI  APR,PFAPR 

MOVE  500 

MOVEM  PF500 

MOVE  501 

MOVEM  PF501 

MOVE  502 

MOVEM  PF502 

LDB  [POINT  5,500,53 

CAIE  36 

CAIN  37 

JRST  PFCHKO 

;  Didn't  get  an  AR/ARx  Parity  Error  page  fail  as  expected  -  exit  to 
;  subroutine  package  page  fail  handler. 


save  ACO 

get  APR  status 

get  location  500 

save  it 

get  location  501 

save  it 

get  location  502 

save  it 


MOVE 
JRST 


PFACO 
aPFDISP 


;  restore  ACO 
;  dispatch 


;  Did  get  an  AR/ARx  Parity  Error  page  fail  -  fix  the  location  and  exit 


PFCHKO:  AOS 

SETZM 

CONO 

MOVE 

AOS 

JEN 


PFAIL 

S500 

APR, 21400 

PFACO 

501 

a501 


increrrient  page  fail  count 

clear  the  location 

clear  error  bit 

restore  ACO 

skip  the  failing  instruction 

exit 
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ccfi  5n?«; 


DFP 


I'^ll 


DFPTAI 
DFPTAl 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 
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Channel  Handling  Routines 

SUBTTL  Channel  Handling  Routines 

#******************♦*****♦**•***************************************** 
*  Routines  To  Interface  With  A  Channel 

There  are  5  routines  available  for  interfacing  with  a  data  channel 
whose  characteristic  differences  become  transparent  to  the  user. 


SEQ  2035 


DFP 
DFP 


NAME 

CHINIT 
GENCCU 
6ETL06 
L06PNT 
CCUPNT 


FUNCTION 

Initialize,  re-sync  hardware  and  software 
Generate  a  list  of  CCW's  in  core 
Snapshot  logout  data  to  a  core  buffer  area 
Print  channel  logout  data 
Print  a  CCW  list  from  memory 


Notes  On  Initial  Control  Word  Addr: 

With  each  controller  is  an  associated  channel  *.  The  channel  routines 
default  to  the  following  (exec  mode)  initial  control  word  addresses 
for  each  of  the  channels. 


TYPE 


DEV.  CODE 


CHAN  H 


ICW-ADR 


RH20 

540 

RH20 

544 

RH20 

550 

RH20 

554 

RH20 

560 

NIPort 

564 

RH20 

570 

CIPcrt 

574 

000(1 
004(1 
010(1 
014(1 
020(1 
024(1 
030(1 
034(1 


CWAO) 
CWA1) 
CWA2) 
CWA3) 
CWA4) 
CWA5) 
CWA6) 
CWA7) 


The  RH20  zero  fill  words  are  located  at  EPT  locations  060  thru  063 
these  locations  are  set  to  zero  by  CHINIT  if  running  in  exec  mode. 


!     

I DFPTAl 


MACRO  X53B(1242)  10:15_  1-Jul-85.Page  33 


CFQ  ?n^A 


DFI 


I  2023 
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SEQ  2036 


DFI 
DFI 


1302 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

13U 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

132A 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

133A 

1335 

1336 

1337 

1338 

1339 

13A0 

13A1 


00UA6' 
001450* 
00U5r 
00U52' 
001453' 
001454' 
001455' 
001456' 
001457' 

001460' 
001461' 
001462' 
001463' 
001464' 
001465' 
001466' 
001467' 


261  17  0 
554  02  0 
275  02  0 
270  02  0 


504  01 
261  17 
135  01 
200  02 
2dJ  17 

202  01 
552  01 
200  02 
270  02 
202  02 
336  00 
332  00 
254  00 


#*♦*»***♦*************•♦*♦********** N ********************************* 

*  CHINIT  -  Channel  Initialization  Roitine 
This  routine  synchronizes  software  and  hardware  channel  logic. 
Ex: 


MOVE 

GO 

Return 


1,ARG1 
CHINIT 


setup  AC1 

call  the  routine 

ICWA  is  in  AC1 


ACl 


Specify  (ACDr  start  addr  of  channel  command  buffer 
Specify  (ACl) I  size  of  the  channel  command  buffer 


Note:  For  figuring  out  the  size  of  the  command  word  buffer,  it 
should  be  noted  that  the  GENCCW  routine  will  transfer  a  maximum 
of  512  words  per  CCW.  Five  additional  words  should  be  allowed 
for  as  overhead. 

1.  Sets  up  the  initial  control  word  with  the  proper  jump 

2.  Sets  up  various  software  params  for  channel  routines 

#*****♦******************♦*************•********************* 


00  000001 
00  000001 
00  000001 
00  000001 
00  000002 
00  000001 
00  003357' 
00  000001 
00  000001 


0  02  002307' 
0  02  002277' 
0  02  002361 ' 
0  00  002275' 

0  17  mm 

0  00  000167* 
0  00  030037 
0  00  001501' 


CHINIT:  RPUT 
HLR2 
SUB  I 
ADD 
HRL 
PUT 
LDB 
MOVE 
GET 

MOVEM 

HRRZM 

MOVE 

ADD 

MOVEM 

SKIPN 

SKIPE 

JRST 


(1.2) 
2.1 

?:1 

1, [POINT  3,MBCN,9] 

2,1 

1 

l.CADTBL(2) 

1,SCLP(2) 

2,ICWA0(2) 

2,CBASE 

2,-1 (P) 

UDEBUG 

USER 

CHINX 


save  AC'S 

make  AC2/final  adr,, start  adr 


save  ACl 

get  channel  number 
now  to  AC2 
restore  the  AC 

save  characteristics  of  CCW  buffer 

set  up  software  cmd  list  pointer 

AC2=ICUA 

causes  paging  to  occur 

becomes  ACl  on  return 

debug  mode? 

user  mode? 

yes  -  exit 


incDTAi   MATDn  *«;70M5Z.5N  in-1«;   1-liil-RS  Paop  '^4 


DF 


Q  2024 
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SEQ  2037 


DF 
DF 


Clear  2nd  and  3rd  words  of  logout  area  if  in, exec  mode  and  place  a 
jump  to  command  list  in  the  EPT.  And  clear  the  zero  fill  locations 
of  the  EPT. 


00U70' 
00H71' 
00U72' 
00U73' 
00K7A' 
00U75' 
001476' 
001477' 
001500' 
001501' 
001503' 


550 
434  , 
202  01 
402  00 
402  00 
402  00 
402  00 
402  00 
402  00 

262  17 

263  17 


00QQQ1 
..  002276' 
02  000000 
02  000001 
02  000002 
00  000060 
00  000061 
00  000062 
00  000063 
00  000002 
00  000000 


CHINO: 


CHINX: 


HRRZ 

I  OR 

MOVEM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

RGET 

RTN 


U 

1,JMPUD 

1,(2) 

1(2) 

2(2) 

60 

61 

62 

63 

(2.1) 


AC1  ==>  0,. buffer  address 
makes  a  jump  CCW   ,,  ,  ^^ 
make  ICW  a  jump  to  CCW  buffer 
zero  the  term  control  word 
2nd  and  3rd  words  now  cleared 


clears  the  zero 
restore  AC's 
return 


fill  words 


ncDTAT  MATon  i!«;?Rn?^.?>  in^lS  1-.iijl-85  Paae  35 


'rr\      -U\  7  O 


r' 


-.0  2025 


DFPTAI 
DFPTAI 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 
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SEQ  2038 


Dl 

Dl 


#»»♦«*•♦*•»**»**♦***♦*♦♦♦♦*♦•*♦****♦»♦****♦•*•***♦***•*****♦♦ 

*  GENCCW  -  Channel  Command  Word  Generator 

This  routine  takes  a  PDP10  word  count  and  core  address  and  translates 
it  to  a  list  of  CCW's  in  a  command  ring  buffer  defined  at  init  time. 
It  returns  the  starting  address  of  the  list  within  the  ring,  and  the 
#  of  CCW's  for  this  transfer. 


This  routine  has  the  following  properties: 

-  A  maximum  of  512  words  per  CCW  is  allowed  (1  page). 

-  No  CCW  will  transfer  accross  a  page  boundry. 

-  The  address  passed  to  this  routine  is  the  1st  addr 

buffer  that  data  will  be  transferred  into  or  out 

-  Buffers  need  not  be  page  aligned  in  user  program. 


in 
of 


the  user 


Call 


sequence: 
MOVE 
MOVE 
MOVE 
GO 
RETURN 


AC3.ARG3 
AC2.ARG2 
AC1.AR61 
GENCCW 


a  zero  fill  specifier 
pos  or  neg  word  count 
an  addr  up  to  22   bits 
build  the  command  list 
returns  here 


AC1: 
Contains 


a  22   bit  address  specifying  where  transfer  is  to  start 


AC2 


Positive  or  negative  word  count  for  #  of  words  to  go  to  or  from 
the  device.  A  negative  word  count  on  the  RH20  will  cause  the 
routine  to  build  a  reverse  CCW  list  (core  addr  decrements), 
appropriate  command  list  will  be  generated. 


AC3: 
Not  meaningful  I  except  for  disks. 
In  user  mode  under  TOPSIO,  this 
zero  fill  is  not  allowed  with 
non-zero,  word  count  will  cause 
fill  command  words  are  desired 


Other  devices 

routine  will  c 

TOPS 10  DIAG  UUO 

the  routine  to 

in  the  list  and 


zero  fill  words  will  be  generated.  Essentially 
that  the  size  of  the  xfer  is  an  even  modulo  of 
Extra  words  are  padded  with  zero's  supplied  by 
device  write  and  extra  word?  are  thrown  away  b 
a  device  read. 


should  zero  AC3. 
lear  AC3  because 

s.  A  positive, 
assu'.ie  that  zero 

the  appropriate 
,  zero  fill  says 
tne  value  of  AC3. 
'.he  channel  on  a 
/  the  channel  on 


The  following  method  is  used  to  calculate  the  number  of  words 
of  fill:  FILWDS  =  AC3  -  remainder  of  [ABS(AC2)/AC31 

RETURN:  .   ,  ,  . ,   . 

On  return  AC"!  will  contain  the  following: 

(ACDL  =  #  of  command  words  generated  by  the  routine 
(ACDR  =  Points  to  the  first  word  in  the  list. 
f» »»♦♦♦•♦*«♦♦»»»♦»•*♦♦**♦♦♦♦**♦*******«•«*»♦♦***♦**♦ *♦♦♦*♦•****♦*♦♦♦* 


rvrnriT        u*rr>n    WC7n  / 1  O/.  t  ^      1  n  .  1  i:        1.liil-fi^     Dana    7A 


r 


EQ  2026 
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SEQ  2039 


HID 

1A11 

U12 

K13 

UU 

1A15 

1A16 

K17 

1A18 

1419 

U20 

1A21 

U22 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

U32 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 


001504' 
001505' 
001506' 
001507' 
001510' 
001511' 
001512' 
00151:' 


001531' 
001532" 
001533' 
001 534' 
001535' 


332  00  0  00  030037 
332  00  0  00  001465* 
254  00  0  00  001514' 
0  00  030516 
0  00  001514' 
0  00  000003 
260  17  0  00  002216' 
263  17  0  00  000000 


332  00 
254  00 
402  00 


001514'  570 

001515'  2c' 

001516'  261 

001521'  261 


200 
402 
325 
476 
213 


02 
17 
17 
17 


00 
00 
00 
00 
00 


001536'  402  00 

001537'  322  03 

001540'  200  11 

001 54T  332  00 

001542'  254  00 


00  000002 
00  003157' 
00  000010 
00  000000 


00 
00 
00 
00 
00 


000002 

000007 

001536' 

000007 

000000 


00  003157' 
00  001556' 
00  000000 
00  000011 
00  001 55 T 


#**»»*»**********««***t*************»*»**********«*««*****«*«******** 

Functions  of  the  AC's  used  in  6ENCCW  routine 
AC   FUNCTION 

0  Holds  remaining  size  in  words 

1  ecu's  are  manufactured  in  this  AC 

2  Holds  the  current  core  adr  at  any  time 

3  Holds  the  logical  channel  number  (0-7) 

4  Holds  current  software  CLP 

5  Holds  last  avail  buffer  addr     .,.,., 

6  Holds  (Start  adr  of  CCW  list,,#  of  wds  in  list) 

7  Holds  the  read  reverse  flag 

10  A  scratch  AC 

11  A  scratch  AC 

12  A  scratch  AC 
/>»»**•••♦••»**»**•***••♦*♦♦♦•*******•***♦*****♦****♦***************•* 


GENCCy: 


SKIPE 

SKIPE 

JRST 

SKIPE 

JRST 

SET7M 

GO 

RTN 


USER 

UDEBUG 

GENGO 

MONTYP 

GENGO 

3 

CHP10 


code 


user  mode? 

special  debug  mode? 

no  -  skip  this  special 

TOPS10  or  TOPS20? 

T0PS20  -  do  normal  code 

clear  users  AC3  (zero  fill  illegal) 

build  a  special  CCW  list  for  TOPSIO 

get  out  -  we  are  done 


;  Here  for  either  exec  mode  or  user  mode  under  TOPS20 


GENGO:  HRRE  2.2 

PUT  FILWDS* 

RPUT  (10J1.12) 

RPUT  (0,1.2,3.4,5.6,7) 


extend  si 
preserve 
save  AC'S 
save  AC'S 


?n  in  case  used  immed  mode 
or  re-entrant  possibility 


Set  up  read  reverse 
will  be  used  as  the 


flag  and  take  the  absolute  value  of  size  which 


wo 


ag  a 

rd  c 


ount 


MOVE 

SETZM 

JUMPGE 

SETOM 

MOVNS 


2 
7 

O.CZF 
7 


get  wc  to  ACO  where  its  needed  later 
assume  forward  CCW  list 
jump  if  list  was  positive 
set  flag  for  reverse  CCW  list 
makes  tne  word  count  positive 


;  Calculate  the  number  of  zero  fill  words  required  (if  any) 
CZF: 


SETZM 

JUMPE 

MOVE 

SKIPE 

JRST 


FILWDS 

3,ACSET 

ll.O 

11 

CZFD 


assume  no  zero  fill  required 

jump  if  not  doing  zero  fill 

get  +WC  to  AC11 

IS  the  numerator  =  0? 

no  -  proceed  with  divide  operation 


4  /\  4  r 


n 77 


SEO  2027 


DFPTAI 
DFPTAI 

H60 

H61 

U62 

H63 

U64 

U65 

1466 

H67 

H68 

K69 

U70 

U71 

1A72 

H73 

H7A 

U75 

1A76 

K77 

1A78 

U79 

K80 

H81 

1A82 

H83 

USA 

1A85 

1A86 

1A87 

1A88 

1A89 

1A90 

1A91 

1A92 

1A93 

1A9A 

1A95 

1A96 

1A97 

1A98 

1A99 

1500 

1501 

1502 

1503 

150A 

1505 
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•  Here  because  the  users  WC=0  and  must  now  check  for  and  set  up  [or  the 
;  possibility  that  he  wants  to  transfer  no  words  to  nremory  but  .nstead 
;  do  throw  away  operations  using  zero  fill  only. 


SEQ  20A0 


0015A3* 
001 5AA' 
001 5A5' 
001 5A6' 
0015A7' 
001550' 


001551' 
001552' 
001553' 
00155A' 
001555' 


336 
260 
202 
200 
A02 
25A 


00  0  00  000003 

17  0  00  003U0' 

03  0  00  003157' 

00  0  00  000003 

00  0  00  000002 

00  0  00  001557' 


230 
322 
200 
27A 
202 


n 

12 
11 
11 
11 


00 
00 
00 
00 
00 


000003 

001556' 

000003 

000012 

003157' 


200  02  0  17  777772 
135  01  0  00  003357' 
0  00  000001 


001556' 

001557'  

00156C'  200  03  .  ..  ....^,. 

001561'  200  OA  0  03  002277' 

001562'  55A  05  0  03  002307' 

001563'  51 A  06  0  00  OOOOOA 


00156A'  260  17  0  00  001610' 


001565' 
001566' 
001567' 
001577- 
001602' 
001603' 
001 60A' 
001605' 
001606' 
001607' 


202  OA  0 
206  06  0 
262  V  0 
262  17  0 

262  17  0 
332  00  0 

263  17  0 
332  00  0 
260  17  0 
263  17  0 


03  002277' 
17  777772 
00  000007 
00  000012 
00  003157' 
00  001505* 
00  000000 
00  030037 
00  0021A1' 
00  000000 


SKIPN 
GO 

NOVEM 
MOVE 
SETZM 
JRST 


3 

FFF 

3.FILWDS 

3 

2 

ACSET1 


;  were  both  WC  and  zero  fill  spec 

;  yes  -  fatal  pgm  bug     .  . 

;  yes  -  force  remainder  =  div'sor 

;  use  zero  fill  spec  as  WC 

;  set  core  addr=0 

;  go  off  and  set  up  rest  of  AC  s 


0? 


This  calculates  the  number  of  fill  words  (if  any)  when  there  is  also 
some  words  being  transferred.  The  users  wc  not  0. 


CZFD; 


IDJV 

JUMPE 

MOVE 

SUB 

MOVEM 


11.3 

12,ACSET 

11,3 

11.12 

11.FJLWDS 


divide  to  get  remainder  in  AC12 
no  fill  words  if  remainder  is  zero 
get  zero  fill  specifier  to  AC  11 
subtract  remainder  to  get  fill  count 
now  have  number  of  zero  fill  words 


Set  up  the  rest  of  the  AC's  for  use  by  this  routine  and  those  it  calls 

gets  the  core  address 

get  channel  number 

now  to  AC3 

gets  software  CLP 

gets  final  buffer  addr 

start  of  CCW  list,,*  of  words 


ACSET:  MOVE 
ACSET1:  LDB 
MOVE 
MOVE 
HLRZ 
HRLZ 


2,-6(P) 

1. [POINT  3,MBCN.9] 

A,SCLP(3) 
5,CADTBL(3) 
6. A 


Check  direction  of  transfer  and  branch  to  proper  CCW  builder  routine 

GO     GRINDF  ;  build  CCW  list 

Done  with  the  list.  Time  to  clean  up  and  exit. 


LSTDON:  MOVEM 
MOVSM 
RGET 
RGET 
GET 
SKIPE 
RTN 
SKIPE 
GO 
RTN 


A,SCLP(3) 

6.-6(P) 

(^6,5,A.3,2,1,0) 

(1^,1l,l6) 

FILWDS 

UDEBU6 

USER 
CHP20 


save  updated  software  CLP. 
so  we  can  pass  back  to  user 
restore  AC's 

restore  zero  fill  count 

special  debug  mode? 

yes  -  return 

user  mode? 

yes  -  T0PS20  -  build  DIAG  CCW  hst  . 

return 


SEQ  2028 


DFPTAI  MACRO  X53B(12A2)  10:15,  l-Jul-85  Page  38 

DFPTAI  MAC     17-Mdy-85  22:17        Channel  Handling  Routines 


SEQ  2041 


1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

15U 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

152A 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 


001610'  552  02  0  00  000001 


001611*  135  11  0  00  003360' 

001612'  201  07  0  00  001000 

001613'  322  11  0  00  00161"^' 

001614'  274  07  0  00  000011 


001615'  317  00  0  00  000007 

001616'  254  00  0  00  001622' 

001617'  137  07  0  00  003361' 

001620'  274  00  0  00  000007 


001621'  25'.  00  0  00  0016?^' 


001622' 
001623' 
001624' 
001625' 
001626' 
001627' 
001630' 
001631' 
001632- 


137  00 
322  02 
336  00 
254  00 
200  00 
402  00 
254  00 
661  01 
402  00 


0  00  003361 ' 
0  00  001631' 
0  00  003157' 
0  00  001631' 
0  00  003157' 
0  00  000002 
0  00  001633' 
0  00  200000 
0  00  000000 


001633'  260  17  0  00  001636' 
001634'  327  00  0  00  001610' 
001635'  263  17  0  00  000000 


*  GRINDF  -  Subroutine  to  build  a  forward  transfer  CCW  list. 
This  is  called  from  GENCCW  and  uses  the  values  already  in  AC's. 

0  -  Remaining  size  in  words        5  -  Last  avail  buffer  addr 

1  -  Manufactured  CCW's  6  -  (Start  adr  of  cCW  list,,#  wds) 

2  -  Current  core  adr  at  any  time    7  -  Scratch  AC 

3  -  Logical  channel  number  (0-7)    10  -  Scratc,  AC 

4  -  Current  software  CLP  11  -  Scratch  AC 
#»♦****»*************♦*♦*•************************♦****************** 

GRINDF:  HRRZM   2.1  ;  current  aJdr  goes  into  CCW(R) 

;  Code  to  set  AC3  to  number  of  words  that  remain  on  the  page 

;  get  the  low  order  9  bits  of  address 


LDB  11. [POINT  9.2.35] 

MOVEI  7/D512 

JUMPE  II.WCCHK 

SUB  7.11 


,  assume  a  full  paae  remains 

;  page  aligned,  full  page  left. 

;  not  aligned  -  calc  size  remaining 


;  See  if  words  to  go  will  fit  in  this  CCW  and  process  accordingly 
WCCHK 


CAMG 
JRST 
DPS 
SUB 


7 

WFIT 

7, [POINT  11.1.13J 

7 


will  wc  fit  into  current  space? 

n"-  use  AC7  for  CCW(L) 
decrement  wc  by  amount  just  used 


*********  Next  2  instructions  are  ommitted  for  DFPTA  tests.  **************** 

JUMPE  2,. ^2  ;  doing  a  zero  fill  CCW  right  now? 

ADD  2.7  ;  no  -  adjust  addr  by  value  of  AC7 

*********  This  causes  every  CCW  to  start  at  same  memory  location.  ********** 

JRST  STRE  ;  and  off  to  common  code 

;  Here  because  number  of  wds  left  will  fit  in  the  remaining  space 

WfIT; 


WFIT1 


DPS  [POINT  11. 1.1 3D 

JUMPE  2.WFIT1 

SKIPN  FILWDS 

JRST  WFIT1 

MOVE  FILWDS 

SETZM  2 

JRST  STRE 

TLO  1.(181) 

SETZM  0 


put  wc  into  CCW(L) 

jump  if  we're  doing  zero  fill 

no  zero  fill  yet.  Any  to  follow? 

no  -  Then  this  is  last  CCW 

yes  -  Get  count  for  zero  fill  words 

zero  fill  uses  an  address  of  0 

off  to  common  code 

sets  the  last  transfer  bit  in  the  CCW 

no  more  words.  WC=0 


Store  CCW  from  ACI  in  buffer,  see  if  done  and  branch  accordingly 


STRE: 


60 

JUMPG 

RTN 


CCWST 
GRINDF 


puts  CCW  in  buffer 

done?  no  -  loop  till  done 

yes  -  exit  ...  AC's  are  up  to  date. 


DFPTAI 
DFPTAI 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

157? 

157A 

1575 

1576 

1577 

1578 

i57<5 

1580 

1581 

158? 
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SEQ  20^2 


001636" 
001637' 
001 6A0' 
001 6A1' 
001 6A2' 
001 6A3' 
001 6A4' 
001 6A5' 
001646' 
001647' 
001650' 
001651' 
001652' 
001653' 


261  17  0 
312  04  0 
254  00  0 
200  01 
540  01 


202  01 
350  00 
550  04 
262  " 
661 


0 
0 
0 
0 
0 

17  0 

01 


0 
202  01  0 
271  04  0 
271  06  0 
263  17  0 


/y* ******************************************* **************** 
*  CCWST  -  RH20  ecu  Store  Routine 

1.  Puts  C(AC1)  in  CCW  buffer 

2.  Does  buffer  management 

3.  Counts  each  CCW  entered 

The  CCW  is  returned  an  AC1  as  received  except  for  the  "OP-DATA' 

bit  (bit-0)  which  is  set. 

/^♦******* ************************************ **************** 


00  000001 
00  000005 
00  001646' 
00  002276' 

03  002307' 

04  000000 
00  000006 
00  000001 
00  000001 
00  400000 
04  000000 
00  000001 
00  000001 
00  000000 


CCWST:   PUT 
CAME 
JRST 
MOVE 
HRR 
MOVEM 
AGS 
HRRZ 

CCWST1:  GET 
TLO 
MOVEM 
ADDI 
ADDI 
RTN 


1 

CCWST1 

1.JMPWD 

1,CADTBL(3) 


1 

6 

4 

1 

1 

1 

4,1 

6.1 


(4) 

1 

(180) 
(4) 


save  AC1  .  „ 

are  we  at  last  buffer  location? 
no  -  go  store  the  word 
)fes  -  build  a  jump  CCW 
include  start  adr  of  buffer 
put  in  the  last  buffer  loc 
count  the  entry 

reset  the  CLP  to  start  of  buffer 
recover  original  CCW 
set  op-data  bit 
put  in  the  buffer 
update  counter/pointer 

and  exit 


r' 


DFPTAI 
1 DFPTAI 
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SEQ  2043 


DFPTAl 
DFPTAI 

1583 

158A 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

159A 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

160A 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

16U 

1615 

1616 

1617 

1618 
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SEQ  20A3 


.ft *»»♦*•*•♦*»♦»•♦♦***♦♦ 
;*  GETLOG  -  Snapshot  The 

« 

;  This  routine  takes  dat 
;  LOGBUF  for  LOGPNT  to  p 
;  transfers  also.  This 


♦♦»♦♦«♦♦♦♦♦*♦«♦♦♦*•♦•*••****♦*•*****♦•*••«♦•••♦ 

Channel  Logout  Area 

a  from  the  channel  logout  area  and  places  it  in 
rint  it  out.  It  zeros  the  logout  area  as  it 
routine  must  be  called  before  calling  LOGPNT. 


001654' 
001655' 
001656' 
001661' 
001662' 
001663' 
001 66A' 


332  00 
263  17 
261  17 
135  01 
200  01 
270  01 
332  00 


0  00  001603* 
0  00  000000 
0  00  000000 
0  GO  003357' 
0  01  002361 • 
0  00  002275' 
0  00  030037 


GETLOG: 


SKIPE 

RTN 

RPUT 

LDB 

MOVE 

ADD 

SKIPE 

GO 


001665'  260  17  0  00  003363' 

001666'  201  02  0  00  002317' 

001667'  50A  02  0  00  000001 

00167C'  251  02  0  00  002322* 

001671'  262  17  0  00  000002 

001 67A'  263  17  0  00  000000 


001675'  000000  000006 

001676'  000  00  0  00  000000 

001677' 

001703' 

001777' 


MOVE  I 

HRL 

BLT 

RGET 

RTN 


UDEBUG 

(0.1.2) 

1, [POINT 

1.ICUA0( 

1.C8ASE 

USER 

[MOVE 

MOVEP, 

MOVE 

XCT 

GO 

MOVE  I 

RTN] 
2. LOGBUF 
2.1 

2.L0GBUF 
(^.1.0) 


3.MBCN.9] 
1) 


debug  mode? 
yes  -  exit 
save  AC'S 

get  channel  number 
get  ICWA 
get  EPT  address 
user  mode? 

yes  -  get  device  address  word 
and  put  in  argument  list 


OEVADR 

L0GAR6+1       . 

1.[-*D66..L0GARGJ 

.DIAG         ;  get  logout  data 

DIA6ER         ;  error 

1.L0GARG+2     ;  set  up  address  of  logout  data 

get  address  to  save  logout  data 

build  BLT  word 

move  the  data 

restore  AC's 

return 


Argument  list  for  channel  status  snapshot  routine 


LOGARG:  6 

Z 

BLOCK   A 
PHYLST:  BLOCK   *D60 

BLOCK   1 


function 

reserved  for  device  addr  word 
reserved  for  logout  data 
room  for  physical  I/O  list 
a  spare  location 
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SEQ  20AA 


DFPTAI  MACRO  X53B(1242)  10:15^  1-Jul-85  Page  Al 

DFPTAI  MAC    17-Mdy-85  22:17       Channel  Handling  Routines 


SEQ  20A4 


1619 

1620 

1621 

1622 

1623 

162A 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

163A 

1635 

1636 

1637 

1638 

1639 

16A0 

16A1 

16A2 

16A3 

16AA 

16A5 

16A6 

16A7 

16A8 

16A9 

1650 

1651 

1652 

1653 

165A 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

166A 


002000*  261  17  0  00  000000 

00200A'  037  00  0  00  003372' 

002005'  135  01  0  00  003357' 

002006'  200  03  0  00  000001 

002007'  200  00  0  00  000003 

002010'  037  01  0  00  000000 

002011'  037  00  0  00  003375' 
002012'  260  17  0  00  002022' 
002013'  260  17  0  00  002026' 
00201 A'  260  17  0  DC  0020A3' 
002015'  262  17  0  00  000003 
002021'  263  17  0  OC  000000 


002022'  037  00  0  00  003A03' 

002023'  200  00  0  00  002317' 

00202A'  037  13  0  00  000000 

002025'  263  17  0  00  000000 


002026' 
002027' 
002030' 
002031 ' 
002032' 


037 
200 
AOA 
AOO 
603 


00 
01 
01 
02 
01 


00 
00 
00 
00 
00 


003A06' 

002320' 

003A11' 

000000 

AOOOOO 


/^* *«*♦•♦*♦♦*♦*»******♦♦***♦**♦♦***•****♦♦♦*****♦*♦*♦♦**♦***♦♦♦♦******* 

*  LOGPNT  -  Channel  Logout  Printer 

Routine  prints  the  status  of  the  channel  at  logout  time.  Logout  data 
is  printed  from  a  buffered  area,  therefore.  GETlOG  should  be  executed 
first 


LOGPNT:  RPUT 
TMSGC 
LDB 
MOVE 
MOVE 
PNTl 
TMSG 

Log   Contents> 
GO 
GO 
GO 
RGET 
RTN 


(0,1,2,3) 

<Cnannel-> 

1, [POINT  3,M8CN,9J 

<Logout  Data 

ICWPT 
LOSPT 
TCUPT 
(3,2,1,0) 


save  AC'S 

get  channel  number 
now  to  AC 3 
ready  to  print 
print  it 


print  ICW  data 
print  SWI  data 
prints  TCU  status 
restore  the  AC's 
and  exit 


;  Printer  for  initial  control  word 
ICWPT: 


TMSGC 
MOVE 
PNTHW 
RTN 


<  1    ICW:  > 
LOGBUF 


;  RH20  status  word-1  printer 

LOSPT:   TMSGC   <  2    SWi :  > 
MOVE    1, LOGBUF +1 
AND     1, [777760,, 0] 
SET2    2, 
LOSPTl:  TLNE    1. AOOOOO 

)(CT     [TMSG   <  LOGOUT> 
TMSG   <  M-PAR> 
TMSG   <  -ADRPE> 
TMSG   <  -WCZRO> 
TMSG   <  NXM> 
JFCL 
JFCL 
JFCL 
JFCL 


&  pointer  setup  routine 


fetch  the  initial  CW 
and  print  it 
and  exit 


get  SWI  word 

mask  off  unwanted  bits 

initialize  text  poirter 

bit  set? 

yes  -  print  text 
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SEQ  20A5 


DFPTAI 
DFPTAI 

1665 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

167A 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 
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SEQ  20A5 


002033' 
00203A' 
002035' 
002036' 
002037' 
0020A0' 
0020A1' 
0020A2' 


0O20A3' 
0020AA' 
0020A5' 
0020A6' 
0020A7' 
002050' 
002051' 
002052' 
002053' 
002054' 


256  00 
2A2  01 
350  00 
326  01 
037  00 
135  00 
037  16 
263  17 


0  02  003A35' 
0  00  000001 
0  00  000002 
0  00  002032' 
0  00  003453' 
0  00  003457' 
0  00  000003 
0  00  000000 


037  00  0  00  003460' 
200  00  0  00  002321* 
037  13  0  00  000000 
037  00  0  00  003466' 
135  00  0  00  003470' 
037  15  0  00  000000 
037  00  0  00  003471 ' 
135  00  0  00  003473' 
037  16  0  00  000003 
263  17  0  00  000000 


LSH 

AGS 

JUMPN 

TMS6 

LDB 

PNTOCi 

RTN 


THSG   <  LSTXER> 

<  RH-ERR> 

<  LN6-WC> 

<  SHT-WC> 

<  0VRRUN>](2) 


TMS6 
TMS6 
TMSG 
TMSG 

y 

MOSPTI 

<  CLP  points  to:  > 

[POINT  22,L0GBUF+1,35] 


shift  in  next  bit 
point  the  next  text 
loop  till  done 

fetch  the  actual  CLP  address 
print  in  octal 
and  exit 


Print  termination  word  from  the  logout  area 


TCUPT; 


TMS6C 

MOVE 

PNTHU 

TMSG 

LDB 

PNTDEC 

TMSG 

LDB 

PNTOCS 

RTN 


<  3    Last  Updated  CCW: 
L0G8UF+2 

<  UC=> 

[POINT     11,L0GBUF+2J3] 

<•  ADR=> 

[POINT  22.L0GBUF+2.35] 


fetch  last  CCW 
print  it 

gets  word  count 
print  it 

gets  address 
print  it  in  octal 
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SEQ  2046 


r 


DFPTAI 
DFPTAl 

1691 
1692 
1693 
169A 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 

04 
1/05 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
17K 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
172A 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
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r' 


SEQ  2046 


002055"  261  17  0  00  000000 
002062'  400  03  0  00  000000 


002063' 
002064' 
002065' 
002066' 
002067' 
002070* 


201  04 
336  00 


00  000000* 
00  030037 


254  00  0  00  002071 ' 
201  04  0  00  002252' 
332  00  0  00  030516 
201  04  0  00  002204' 


002071'  037  00  0  00  003474' 
002072'  037  00  0  00  003477' 
002073'  037  00  0  00  003507' 


002074'  402  00  0  00  003161" 
002075'  476  00  0  00  003166' 


002076'  336  01  0  04  000000 

002077'  254  00  0  00  002132" 

002100'  350  00  0  00  000004 

002101'  350  00  0  00  000003 


002102' 
002103' 
002104' 
002105* 
002106' 
002107' 


312  01 
254  00 
350  00 
336  00 
037  00 
254  00 


00  003161' 
00  002110' 
00  003166' 
00  003166* 
00  003517' 
00  002076* 


l»**»*** ♦*♦**♦♦♦*•****♦♦♦*♦♦**»************♦*♦**********♦******* ****** 

*  CCWPNT  -  Channel  Command  List  Printer 

Address  of  the  list  is  -  CBUF  (in  exec  mode) 

CHARG  (under  TOPS20) 
CHAR61  (under  TOPS10) 

Calling  Sequence:    GO     CCWPNT        ;  print 

Return  ;  and  return 

01,** *********************  ******************************************** 


CCWPNT:  RPUT 
SETZ 


(0,1.2,3,4) 


;  Get  address  of  list 


MOVE  I 
SKIPN 
JRST 
MOVE  I 
SKIPE 
MOVE  I 

Print  titles 

TMSGC 
TMSGC 
TMSGC 


4, CBUF 
USER 

4,CHARG1+2 

MONTYP 

4,CHARG+2 


<CCW  List:> 

<  #  Op  Code 

<  -  


save  the  AC's 

clear  count  of  CCW's 


get  address  of  CCW  list 

user  mode? 

no  -  continue         .„  .  . 

yes  -  get  address  of  TOPS10  list 

TOPS20?  ,„  . 

yes  -  get  address  of  TOPS20  list 


Word  Cnt  Buffer  Adr> 
> 


;  Initialize  last  CCW  printed  and  number  of  CCW's  skipped  -  these  will 
;  be  used  to  determine  what  to  print  so  as  to  shorten  the  CCW  list. 

SETZM   LSTCCW* 
SETOM   SKPCCW* 

;  Loop  on  CCW's 

CCWPNO:  SKIPN  1,(4) 

JRST  CCWPNX 

AOS  4 

AGS  3 

;  Check  if  have  to  skip  a  few  of  these 


CAME 

JRST 

AOS 

SKJPN 

TMSGC 

JRST 


1,LSTCCW 

CCWPN1 

SKPCCW 

SKPCCW 

<  ..> 

CCWPNO 


clear  'last  CCW*  printed 
init  'number  of  CCW's  skipped' 


fetch  current  CCW  -  zero? 
yes  -  done  printing 
point  to  next  word 
increment  CCW  count 


same  as  'last  CCW  printed'? 

no  -  go  print  it 

update  'number  of  CCW's  skipped* 

*number  of  CCW's  skipped*  zero? 

yes  -  print  this 

loop  till  doni 
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SEQ  20^7 
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SEQ  20A7 


17A2 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 


Print  the  CCW  word 


OFF 
DFP 


002110*  202  01  0  00  003161' 

002111'  476  00  0  00  003166' 

002112'  037  00  0  00  030242 

002113'  001  03  0  00  000003 

002114'  135  01  0  00  003521' 


CCUPNl 


MQVEM 

SETOM 

PCRL 

PNTOCC 

LDB 

XCT 


002115' 
002116' 
002117' 
002120' 
002121' 
002122' 


256  00  0  01  003552' 
135  00  0  00  003562' 
006  07  0  00  000000 
037  00  0  00  003563' 
135  00  0  00  003564' 
037  10  0  00  000000 


LDB 

PDEC 
Tfi:6 
LDB 
PNTADR 


1,LSTCCU 
SKPCCW 

3,3 

1, [POINT 
[TMS6 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 
[POINT 
7,0 
<   > 
[POINT 


update  'last  CCW  printed' 
init  'number  of  CCW's  skipped' 


< 
< 
< 
< 
< 
< 
< 
< 


3,LSTCCW,2: 

Halt 

??1?? 

jump 
79397 

6t-fwd 
Dt-rev 


> 
> 
> 
> 
> 
> 


print  CCW  number 
get  op  code 
print  it 


Dt-fwd-hlt> 
Ot-rev-hlt>](1) 


11,LSTCCW,13J 
22,LSTCCW,35] 


Check  for  end  of  list 


002123' 
002124' 
002125' 
002126' 
002127' 
002130' 
002131' 


135  00 
306  00 
254  00 
322  00 
242  00 
30?  00 
cy   00 


0  00  003521' 
0  00  000002 
0  00  002076' 
0  00  002132' 
0  00  777777 
0  00  000003 
0  00  002076' 


LDB 

CAIN 

JRST 

JUMPE 

LSH 

CAIE 

JRST 


Exit 


002132'  037  00  0  00  030242 
002133'  262  17  0  00  000004 
002140'  263  17  0  00  000000 


CCWPNX:  PCRL 
R6ET 
RTN 


[POINT 

2 

CCWPNO 

CCWPNX 

-1 

3 

CCWPNO 


(4,3,2,1,0) 


3,LSTCCW,2] 


get  word  count 
print  it 

get  address 
print  it 


fetch  control  part  of  the  CCW 
is  it  a  jump  CCW? 
no  -  keep  looping 
(0-2)=00D  means  halt 


(0-2)  110  or  111  is 
no  -  keep  looping 


1st  xfer  CCW 


final  CRLF 
restore  the 
and  exit 


AC'S 
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SEQ  2048 


1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 


#♦**»******************♦**************************♦****************** 
♦  CHP20  -  Builds  a  TOPS20  User  Mode  Channel  Program 

This  routine  is  used  to  build  a  channel  program  using  a  diagnostic 
monitor  call.  This  routine  is  set  up  to  operate  with  up  to  50  channel 
command  words  which  is  the  TOPS20  limit.  (1  page  per  CCW) 

This  routine  expects  AC1  to  be  set  up  in  the  following  way: 
ACKR)  =  Pointer  to  first  word 
ACKL)  =  *  of  words  in  the  list  (50  or  less) 

Calling  sequence: 

MOVE    1,ARG         ;  #  of  words., pointer  to  first 
GO     CHP20         ;  call  the  routine 
RETURN  ;  returns  +1  always 

#******************************************♦************************* 


DFI 
DFI 


002141'  261  17  0  00  000004 


002146'  135  01  0  00  003357' 
002147'  200  03  0  00  000001 


002150'  554  00  0  17  000000 
002151'  303  00  0  00  000062 
002152'  2oJ  17  0  00  003140' 


CHP20:  RPUT    (4,3.2,0,1) 

;  Get  the  logical  chan  H   to  AC3 

LDB     1, [POINT  3,MBCN,9] 
MOVE    3,1 

;  Range  check  the  word  count 


save  AC'S 


get  channel  number 
now  to  AC3 


002153' 
0C2154' 
002155' 
002156' 
002157' 
002160' 
002161' 
002162' 
002163' 


402  00 
210  01 
514  01 
540  01 
200  00 
202  00 
402  00 
350  00 
253  01 


HLRZ 

CAILE 

GO 


(P) 

*D50 

FFF 


get  count 

less  than  or  equal  to  50 


fatal  out 
;  Word  count  ok.  Set  up  pointer  I   xfer  to  argument  list 


0  00  000002 
0  00  000000 
0  00  000001 
0  17  000000 

01  000000 

02  002204' 
02  002205' 


00  000002 
00  002157' 


SETZM 
MOVN 
HRLZ 
HRR 
CHPGMO:  MOVE 
CHPGM1:  MOVEM 
SETZM 
AOS 
AOBJN 


2 
1.0 

1,(P) 

(1) 

CHARG+2(2) 

CHARG+3(2) 

2 

1.  CHPGMO 


clear  index 

-CNT  to  AC1 

-CNT  to  left  half 

pointer  to  right  half 

fetch  a  CCW 

put  in  argument  list 

zero  next  loc  so  end  of  list  obviour* 

bump  store  pointer 

loop  till  done 
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.^1  i.^n     Of 


SEQ  2049 


or 


DFPTAI 
DFPTAI 

1822 
1823 
182A 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

183A 

1835 

1836 

1837 

1838 

1839 

18A0 

18A1 
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0021 6A' 
002165* 
002166' 
002167' 
002170' 
002171' 
002172* 
002173' 
0021 7A* 
002201  * 


'00 
?02 

10  02 


01 
01 


5K 
5A1 

256  00 
260  17 

262  17 

263  17 


;  Set  up  an  execute  DIAG  monitor  call 


003156' 

002203' 

OOOOC 

OOOOC 

000002 

002202' 

002405' 

00225A* 

000001 

000000 


C20D; 


MOVE 

MOVEM 

ADD] 

MOVN 

HRLZ 

HRRI 

XCT 

GO 

RGET 

RTN 


1.DEVADR 
1,CHARG+1 


1:2 

1,CHARG 

.DIAG 

DIAGER 

(1.0,2,3,4) 


SEQ  20A9 


DF 
DF 


get  device  address  word 

put  in  argument  list 

AC2  now  holds  *  of  arguments 

make  it  negative 

-count  to  left  hand  side  AC1 

pointer  to  arglist 

DIAG  monitor  call 

error 

no  error 


002202'  000000  OOOOOA 
002203'  000  00  0  00  000000 
002204* 


;  Argument  list  for  channel  program  command 
CHARG:  4 


Z 

BLOCK 


•D10 


function  code 

reserved  for  device  address  word 

reserved  for  CCW's 
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SEQ  2050 


r 

D 


0  2037 
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SEQ  2050 


r 

0 
D 


18A2 

18A3 

18A4 

18A5 

1846 

18A7 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 


002216' 
002221  • 
002222' 
002223' 
002224' 
002225' 
002226' 
002227' 
002230' 
002231' 
002232' 
002233' 
002234' 
002235' 
002236' 
002237' 
002240' 
002241' 
002242' 
002243' 
002246' 
002247' 


261  17  0 
570  02  0 
321  02  0 
201  00  0 
213  02  0 
504  02  0 
540  02  0 


254  00 
201  00 


02  0 
0 
0 


504  02  0 
540  02  0 


202  00 
202  02 
200  01 
202  01 
200  01 
256  00 
260  17 

262  17 
200  01 

263  17 


00  000000 
00  000002 
00  002231 ' 
00  000004 
00  000002 
00  000002 
00  000001 
00  000001 
00  002234' 
00  000012 
00  000002 
00  000001 
00  002250' 
00  002252' 
00  003156' 
00  002251 ' 
00  003565' 
00  002405' 
00  002254' 
00  000002 
00  003566' 
00  000000 


002250'  000  00  0  00  000000 

002251'  000  00  0  00  000000 

002252'  000  00  0  00  000000 

002253'  000  00  0  00  000000 


*  CHP10  -  Builds  a  TOPS10  Channel  Command  List 

This  routine  is  used  to  build  a  TOPS10  channel  command  list  using  the 
DIAG  UUO  monitor  call.  Both  forward  and  read  reverse  command  lists  are 
supported. 

For  a  forward  list  TOPS10  expects  1  word  of  the  form  (-WC,,ADDR-1) 
where  I/O  is  to  take  place.  This  is  done  with  a  DIAG  function  4. 

For  a  read  reverse  list  TOPS10  expects  1  word  of  the  form.  (-WC,,ADDR) 
where  I/O  is  to  take  place.  This  is  done  with  a  DIAG  function  ^2. 

Calling  sequence:  ^^   ^  ^  ^^   ,/•  .  .  .•     \ 

MOVE    AC1.ARG1       ;  start  addr  of  buffer  (first  location) 
MOVE    AC2,ARG2       ;  word  count  (+means  FWD,  -means  REV) 
GO     CHP10         ;  call  the  routine  ^     .   „  .  ^  • 
RTN+1  ;  RTN+1  always.  ACl  contains  #  of  wds  in 

CCW  list  and  pointer  to  the  first 
for  compatability  with  CCWPNT 
/>*****•***♦♦♦♦•*»*»****♦*»***•***•***•***♦******•**************•*•**♦ 


CHP10:  RPUT 
HRRE 
JUMPL 
MOVE  I 
MOVNS 
HRL 
HRR 
SU8I 
JRST 

CWBACK:  MOVE  I 
HRL 


CP10C; 


HRR 

MOVEM 

HOVEM 

MOVE 

MOVEM 

MOVE 

XCT 

GO 

RGET 

MOVE 

RTN 


(0J.2) 

2j 

2,CUeACK 

4 

2,2 

2.2 

2.1 

2,1 

CP10C 

12 

2.2 

CHARG1 

2.CHARG1+2 

1.DEVADR 

1.CHARG1+1 

1.C-3..CHARG1: 

.DIAG 

DIAGER 

1.[1,,CHARGU23 


save  AC'S 

extend  sign  (user  maybe  used  MOVED 

-WC  means  reverse  list... 

+UC  means  fwd.  Get  function  code 

make  AC2/-WC,,ADDR-1 


AC2/-WC.,ADDR-1 

to  common  code 

-WC  means  rev.  Get  function  code 

make  AC2/-WC,.ADDR 

AC2/-WC.,ADDR 

put  function  code  in  table 

TOPS10  ecu  in  table 

device  address  word 

in  argument  table 

argument  list  pointer  for 
execute  the  monitor  call 
error  reporter  .... 
restore  AC's 

for  compatability  with  CCWPNT 
exit 


put 
get 
put 
get 


DIAG 


;  Argument 

CHARG1:  Z 
Z 
Z 

z 


list  for  TOPS10  DIAG  CCW  list  builder 


function  goes  here 
device  addr  goes  here 
single  CCW  go^s  here 
a  spare  word 


-  r\    -in  1  a 
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S£Q  2051 


189A 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

00225A' 

261  17 

1903 

002256' 

202  01 

190A 

002257' 

037  01 

1905 

002260' 

037  01 

1906 

002261  • 

540  00 

1907 

002262' 

037  17 

1908 

002263' 

037  01 

1909 

002264* 

200  00 

1910 

002265' 

037  17 

1911 

002266' 

037  01 

1912 

002267' 

260  ^7 

1913 

002270' 

037  01 

19H 

002271 ' 

262  17 

1915 

002273' 

263  17 

•  DIAGER  -  Report  Monitor  Call  Error  In  User  Mode 

This  routine  prints  an  error  message  stating  where  and  why  a 
diagnostic  monitor  call  has  failed. 
#•♦»♦••♦*♦»*♦%♦**»*»♦♦*♦♦♦*♦♦•*»*♦*•♦••*••**♦**♦**•**•******•**♦****** 


0  00  000000     DIAGER:  RPUT 

0  00  003164' 

HOVEM 

0  00  030242 

PCRLF 

0  00  003567* 

FMSGC 

0  17  77177t 

HRR 

0  00  000003 

PNTOCF 

0  00  003602' 

FMSGC 

0  00  003164' 

MOVE 

0  00  000003 
0  00  003606' 

PNTOCF 

FMSG 

0  00  003027* 

GO 

0  00  030242 

PCRLF 

0  00  000000 

RGET 

0  00  000000 

RTN 

(0.1) 
l.SACl* 


;  say/e  AC*s 

;  save  the  error  number 


<?  Error  return  from  diagnostic  monitor  call  at  PC-> 

-2(P)  ;  get  PC  . 

;  print  it 
<?  Error  code=> 

SAC1  ;  get  error  code 

;  print  it 
<  -  > 

DGEPNT  ;  print  DIAG  error  message 


(0.1) 


;  restore  AC's 
;  return 
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ceo  pn«;5 


DFPTAI 
DFPTAl 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

19A0 

19A1 

19A2 

1943 

1944 

1945 

1946 
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SEO  2052 


002274' 
002275' 

002276' 
002277' 
002307' 
002317' 


000000 
000000 


001000 
000000 


200000  000000 


;*  Some  Channel  Routine  Variables 

;  Here  are  the  conditional  RH20  parameters  necessary  for  use  with  the 
;  data  channel  routines. 

;  The  #  of  words  (maximum)  that  will  be  specified  in  a  single 

;  channel  control  word.  ^^^^ 


002357' 

000000 

000004 

CHK: 

002360' 

777771, 

002317' 

CHCNT 
;Def  i 

002361 ' 

000000 

000000 

ICWAO 

U02362' 

000000 

000004 

ICUA1 

002363' 

000000 

000010 

ICUA2 

002364' 

000000 

000014 

ICUA3 

002365' 

000000 

000020 

ICUA4 

002366' 

000000 

000024 

ICUA5 

002367* 

oonooo 

000030 

ICUA6 

002370' 

Gu.'OOO 

000034 

ICWA7 

MAXUD:   "0512 
CBASE :   0 

JMPUD:   181 
SCLP:   BLOCK 
CADTBL:  BLOCK 
LOGBUF:  BLOCK 

4 

-4,. LOGBUF 


*D8 
*D8 
*D32 


default  to  1  page  per  xfer  word 
a  base  for  computing  JCWA  in  RH20 

the  340000  causes  paging 
a  KLIO  channel  jump  word 
8  software  clp's 

CCW  buff  params  last  adr,, first  adr 
buffered  logout  area 
*  of  logout  words  per  channel 
used  by  GETL06 


.•Defining  initial  control  wd  addr  for  each  channel 

0 

4 

10 

14 

20 

24 

30 

34 
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SEO  2053 


19^7 

19A8 

1949 

1950 

1951 

1952 

1953 

195A 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

196A 

1965 

1966 

1967 

1968 

1969 


002371' 
002372' 
002373' 
00237A' 
002375' 
002376' 
002377' 
Q02A00' 
002401 ' 
002402' 


;*  CHDATA  -  Obtain  channel  logout  data  and  inspect  results 

;  Arguments:  ACI  -  Contains  expected  word  count 

;  Returns:    +1  -  Error  occurred 
;  +2  -  No  error  occurred 

ACI  -  Contains  error  flags 
•#♦»♦♦♦♦♦♦*»♦***»•*•*♦*♦♦♦♦♦♦••*•**•♦***•***•*************♦**♦******** 


261 
260 
200 
251 
200 
621 
620 
430 
262 
263 


17 
17 
01 
01 
01 
01 
01 
01 
17 
17 


0  00  000000 
0  00  001654' 
0  00  003607' 
0  00  000000* 
0  00  000000* 

..  000000 
00  000000 


0  00 
0  00 


CHDATA:  PUT  0 

GO  6ETL0G 

MOVE  1.CL0GBUF..CSTWRD] 

BLT  I.CSTURDO 

MOVE  1.CSTWRD*1 

!fei  VW/r 

XOR  1.CADRPE] 

GET  0 

RTN 


save  ACO 

get  logout  data  into  LOGBUF 

move  it  from  LOGBUF  to 

CSTWRD 
status  in  AC5 

clear  'LOGO'  bit  /  address  bits 
clear  address 

complement  parity  error  bu 
restore  ACO 
return 


vrnmr        UArcin    VC7D/1'}/.0>     in.1i;        1-liil.R'\    Dane    't1 


SEQ  ?041 


OFPTAI 
DFPTAI 

1970 

1971 

1972 

1973 

197A 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

198A 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

199A 

1995 

1996 

1997 

1998 

1999 

2000 
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SEQ  205A 


SUBTTL  User  Mode  Support  Routines 

#«***♦♦»**♦**♦******•♦***♦*•**•***♦**********♦*****•********• 
*  DSETUP  -  Setup  Routine  For  Diagnostic  Function 

This  routine  sets  up  a  Location  called  ".DIA6"  with  the  appropriate 
JSYS  or  DUO  for  a  diagnostic  monitor  call.  It^enables  pnvs. under 
TOPS-20,  checks  for  multiple  CPUs  under  TOPS-10.  and  exits  with  the 
user  10  mode  bit  set. 

Calling  sequence:  , ,  .. 

GO  DSETUP  ;  call  the  routine 

RETURN  ;  returns  ♦  1  always 

#***«******•***♦*******♦♦♦*********♦*************•»********** 


002403'  0A7  01  0  00  000163 

002A0A'  10A  00  0  00  000530 

002A05'  260  17  0  00  002A37' 

002A06'  336  00  0  00  001 65A* 

002A07'  336  00  0  00  030037 

OC'MO*  263  17  0  00  000000 

OO^Air  332  00  0  00  030516 

002A12'  25A  00  0  00  002A17' 


002A13'  260  17  0  00  002AA3' 

002A1A'  261  17  0  00  002A03' 

002A15'  26?  17  0  00  002A05' 

002A16'  2y  00  0  00  002A22' 


•  UUO: 

.JSYS: 

.DIAG: 

DSETUP; 


CALLI 

JSYS 

GO 

SKIPN 

SKIPN 

RTN 

SKIPE 

JRST 


1.163 

5^0 

NOSET 

UDE8UG 
USER 

MONTYP 
SNKMON 


TOPS  monitor  found  (TOPS-10) 


TPSMON:  GO 
PUT 
GET 
JRST 


CPUTST 
.UUO 
.DIAG 
PRVCHK 


CALLI  AC1J63  (DIAG. J  for  TOPS-10^^ 
JSYS  530  (DIAGX)  for  SNARK  (TOPS-20) 
a  default  error  reporter 

special  debug  mode? 
exec  mode? 
yes  -  then  exit 
Skip  if  TOPS-10 
Nope,  TOPS-20 


test  for  dual  CPU 
get  appropriate  UUO 
move  into  execute  location 
Check  USER  10  privs 


42 


DFPTAI  MACRO  X53B(1242)  10:15  1-JuL-85  Page  52       .  „  ,. 
DFPTAI  MAC    17-May-85  22:17       User  Mode  Support  Routines 


SEQ  2055 


2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 


002417'  261 
002420'  262 
002421'  260 


17 
17 
17 


00  002404' 
00  002405' 
00  V.03120' 


002422'  260  17  0  00  003075' 

002423'  260  17  0  00  002424' 

0C2424'  262  17  0  00  000001 

002425'  603  01  0  00  004000 

002426'  263  17  0  00  000000 


002427' 

037 

01 

0  00  003611' 

002430' 

201 

01 

0  00  000101 

002431 ' 

525 

02 

0  00  400000 

002432' 

402 

00 

0  00  000003 

002433' 

104 

00 

0  00  000011 

002434' 

255 

00 

0  00  000000 

002435' 

255 

00 

0  00  000000 

002436' 

260 

17 

0  00  003140' 

002437'  5:) J  00  0  00  002406* 

002440'  254  00  0  00  030064 

002441'  037  01  0  00  003626' 

002442'  260  17  0  00  003140' 


SNARK  monitor  found  (TOPS-20) 


SNKMON:  PUT 
GET 
GO 


.JSYS 
.DIAG 
ENABLE 


Get  appropriate  JSYS 

Set  as  function  to  execute 

Enable  available  privileges 


;Here  to  make  sure  whoever  is  running  this  has  USER  10  privs 
PRVCHK 


GO 

GO 

GET 

TLNE 

RTN 


USRJON 
.+1 
1 
1.(186) 


Turn  on  user  10  mode 

Push  PC  onto  stack 

Pop  it  from  stack  into  ACI 

Is  USRIOT  bit  set? 

Yes,  return 


;Can't  enter  'iv-r  I/O  mode,  print  message  and  die. 

f-MSGC   <?  User  does  not  have  proper  privi ledges  to  run  diagnostic 

''  >  .   . 

specify  terminal  as  destination 

This  fork,  last  error 

must  be  cleared 

does  an  ERSTR  JSYS 

Ignore  error  return  1 

Ignore  error  return  2 

Back  to  the  monitor 

;  Default  error  reporter  if  we  try  to  execute  a  DIAG  function  with 
;  setting  up. 

NOSET:  SKIPE  UDE8UG  ;  debug  mode?  . 

JRST  CPOPJI  ;  Yes,  give  skip. return 

FMSGCD  <?  Diagnostic  attempted  a  DIAG  Before  imtialization> 

GO  FFF 


MOVE  I 

1,.PRI0U 

HRLOI 

2,.FHSLF 

SETZM 

3 

ERSTRX 

JFCL 

JFCL 

GO 

FFF 

343 
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SEQ  2056 


)43 


DFPTAl 
DFPTAI 

2035 

2036 

2037 

2038 

2039 

20A0 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

1062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 


MACRO  X53B(1242)  1 
MAC     17-Mdy-85 


:15  1-Jul-85  Page  53 

2:17       User  Mode  Support  Routines 


SEQ  2056 


002473'  254  00  0  00  003724' 
002474'  262  17  0  00  000002 
002477'  263  17  0  00  000000 


f»*»»*»****»**»»***»********************************** ******* 

*  CPUTST  -  Determine  Which  Of  2  CPU's  To  Run  On 

Here  if  T0PS10  only.  First  find  out  if  we  have  a  dual  CPU  systen. 
If  so,  ask  user  to  select  the  proper  one.  You  must  test  RH  s  only  that 
are  on  the  same  CPU.  This  code  also  sets  up  to  run  on  the  correct  one. 

Calling  sequence:  , ,  , 

GO     CPUTST  ;  cali  the  routine 

RTN  ;  RTN+1  always 

<(*•»*»•»*»»»»*»*»*♦••♦*♦♦*••♦»*•**♦***************♦** **********♦♦**"* 


002443' 

261  17  0  00  000000 

CPUTST:  RPUT 

002446' 

402  00  0  00  003155' 

SETZM 

002447' 

200  00  0  00  003642' 

MOVE 

002450' 

047  00  0  00  000041 

GET TAB 

002451' 

260  17  0  00  003140' 

GO 

002452' 

607  00  0  00  000040 

TLNN 

002453' 

254  00  0  00  002474' 

JRST 

002454' 

336  00  0  00  003162' 

SKIPN 
FMS6C 

002455' 

037  01  0  00  003643' 

Furthermore,  al 

002456' 

476  00  0  00  003162' 

SETOM 

002457' 

037  01  0  00  003674' 

FMSGC 

002460' 

037  04  0  00  000003 

TTIDEC 

002461 ' 

254  00  0  00  002460' 

JRST 

002462 ' 

331  00  0  00  000000 

SKI  PL 

002463' 

303  00  0  00  000005 

CAILE 

002464' 

254  00  0  00  002457' 

JRST 

002465' 

2ui  00  0  00  003155' 

MOVEM 

002466' 

200  02  0  00  000000 

MOVE 

002467' 

201  01  0  00  000001 

MOVE  I 

002470' 

242  01  0  02  000000 

LSH 

002471 ' 

505  01  0  00  000014 

HRLI 

002472' 

047  01  0  00  000075 

SETUUO 
JRST 

(0,1,2) 
CPUNUM* 
[17, ,11] 
0, 
FFF 
40 

DPRCX 
MCPUS* 
<This  is  a 
I  the  ports 
MCPUS 


yes  -  save  AC's 
clear  remembered  CPU 
TABLE=11  ENTRY=17 
table  lookup 
fatal  out 
dual  CPU  system? 
no  -  then  we  can  exit 
msg  flag  printed  flag  set? 
multi-CPU  system.  You  must  choose  only  1 
you  select  must  be  on  that  CPU.> 
clear  the  flag 


to  run  in. 


DPRCX: 


RGET 
RTN 


<Select  CPU  0  thru  5  <CR>  -  > 


.-1 

5 

.-5 

CPUNUM 
2,0 

1,(2) 
1,K 

CFMS6C 
FMSGCD 
GO 

(2,1,0) 


5? 


timeout 
less  than  0? 
less  than  or  equal 
invalid  -  reask 
Save  CPU  to  run  on 
get  *  to  AC  for  indexing  later 
set  bit  mask  to  assume  cPUO 
shift  into  position  for  selected 
set  CPU  is  Function-U 
.  set  to  proper  CPU 

<SETCPU  UUO  failed.  Either  wrong  CPU  selection  or> 

<must  have  wheel  priviLeges.> 

FFF]         ;  fatal  out 

;  restore  AC's 
;  and  exit 


CPU 


044 
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SEQ  2057 


2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

208m 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

209A 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

21 OA 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

21U 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

21 2A 

2125 

2126 

2127 

2128 


002500'  336  GO  0  00  002A37* 
002501 '  336  00  0  00  030037 
002502'  263  17  0  00  000000 


002503' 
002504' 
002505' 
002506' 
002507' 
002510' 


002511' 
002513' 

00251A' 
002515' 
002516' 
002517' 
002520' 
002521 • 
002522' 


400 
332 
200 

200 
322 


261 
260 


16  0  00  000000 
00  0  00  002673' 
16  0  00  000000* 
00  0  00  002672' 
16  0  00  000000* 
16  0  00  003226' 


17  0 
17  0 


00 
00 


000001 
C.  "^' 


200  00 
336  00 


242  00  0 
135  01  0 
137  01  0 
202  00  0 
202  00  0 


00  000016 
00  030516 
00  000003 
00  003357' 
00  003727' 
00  003156' 
00  002566' 


002523'  316  16  0  00  002507* 

002524'  260  17  0  00  002552' 

002525'  316  16  0  00  002505* 

002526'  260  17  0  00  002540' 


#♦♦♦»»*»****♦♦*»»****♦♦%♦♦♦**•****«*******♦*♦**************** 
*  OEVREL  -  User  Mode  Release  Routine 

Does  nothing  in  exec  mode. 

TOPS-20  user  mode:  For  the  CI  port,  a  DIA6  JSYS  (function  3), 
is  issued  to  return  the  port  to  the  monitor.  For  the  NI  port, 
an  NI  JSYS  call  is  issued  to  return  the  device  to  monitor 
resources. 

TOPS-10  user  mode:  For  the  both  CI  and  NI  ports,  a  DIAG  JSYS 
(function  3),  is  issued  to  return  the  port  to  the  monitor. 

This  routine  is  different  in  use  from  RH20  disk  and  tape  uses 
in  that  the  device  (the  port)  is  released  only  upon  exiting  the 
diagnostic. 

Return:  +1  always 

/^**»**»******* ******* **************************************** 


DEVREL:  SKIPN 
SKIPN 
RTN 


UDEBUG 
USER 


;  See  if  any  port  is  specified 


SETZ 

SKIPE 

MOVE 

SKIPE 

MOVE 

JUMPE 


M8CN, 

HAVENI 

M8CN,P0RTNI 

HAVE CI 

M8CN.P0RTCI 

MBCN.CRTN] 


;  special  debug  mode? 
;  or  exec  mode? 
;  yes  -  return 


initialize  MBCN 

have  the  NI  port? 

yes  -  set  up  MBCN 

have  the  CI  port? 

yes  •-  set  up  MBCN 

any  selected?  no  -  return 


;  Do  the  release:  first  get  device  address 

RPUT  (1,2) 

GO  IPACLR 

MOVE  MBCN 

SKIPN  MONTYP 

LDB  1, [POINT  3, MBCN, 9] 

DPB  1, [POINT  3,0,23] 

MOVEM  DEVADR* 

MOVEM  RELARG+1 

;  Dispatch  to  the  required  function 

CAMN  MBCN,PORTCI 

GO  RELCI 

CAMN  MBCN.PORTNI 

GO  RELNI 


save  AC'S 

do  a  port  clear 

fet  device  code 
OPS-20  monitor? 

no  -  position  all  the  way  left 
get  channel  number 
put  into  device  address 
save  it 
place  in  argument  list 


CI  port? 

yes  -  go  release  it 

NI  port? 

yes  -  go  release  it 
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SEQ  2058 


DFPTAI 
DFPTAI 

2129 
2130 
2131 

2133 

21 3A 

2135 

2136 

2137 

2138 

2139 

2U0 

21A1 

2U2 

2U3 

21AA 

2145 

21A6 

2U7 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 


MACRO  X53B(1242)  10:15 
MAC     17-Mdy-85  22:17 


•JuL-85  Page  55 
User  Mode 


002527' 
002530' 
002531' 
002532' 
002533' 


402 
316 
402 
316 
402 


002534'  262 
002536'  254 
002537'  263 


00 
16 
00 
16 
00 


17 
02 
17 


00 
00 
00 
00 
00 


00 
00 
00 


003160* 
002523* 
002672' 
002525* 
002673' 


000002 

003730' 

000000 


002540' 
002541' 
002542' 
002543' 
002544' 
002545' 
002546' 
002547' 


336  00 
254  00 
201  " 
542 
201 

506  01 
200  01 
104  00 


01 
01 
01 


0  00  030516 
0  00  002552' 
0  00  000021 
0  00  002572' 
0  00  000000 
0  00  002574' 
0  00  003731 ' 
0  00  000630 


002550'  320  16  0  00  003744' 
002551'  263  17  0  00  000000 


002552'  476  00  0  00  003160' 
002553'  200  01  0  00  003746' 
002554'  256  00  0  00  002405' 


002555'  254  00  0  00  003757' 


002556'  263  17  0  00  000000 


Support  Routines 


SEQ  2058 


Done  -  clean  up 


SETZM 

CAMN 

SETZM 

CAMN 

SETZM 


INDIAG 
M8CN,P0RTCI 
HAVE CI 
M8CN,P0RTN1 
HAVENI 


Clean  up  and  exit 


RGET 

JRSTF 

RTN 


(2,1) 


NI  port  release  (TnPS-20  only) 


RELNI 


REL1: 


SKIPN 

JRST 

MOVX 

STOR 

MOVX 

STOR 

MOVX 

NIX 

ERJMP 

TMS6CD 
RTN 


MONTYP 

RELCI 

K.EIREL 

1,EIFCN,+NIAKG 

1,0 

1,EICHN.+NIARG 

l.NIARG 

[TMS6CD  <?  NI  JSYS  fai 
JRST   .+2] 
<[Released  NI  port]> 


no  longer  in  DIAG  JSYS 

CI  port? 

yeo  -  clear  flag 

NI  port? 

yes  -  clear  flag 


restore  AC's 
Turn  off  USER  lOT 
exit 


Skip  if  TOPS-20  ^   ,„ 

Nope,  release  with  DIAG  on  the  -\0. 
code  is  "release  ownership  of  ma20 
put  function  code  into  the  arg  block 
get  nia20  *  0 

put  channel  #  into  the  arg  block 
get  argument  block  address 
,  release  ownership  of  the  NIA20 
led  in  attempt  to  release  NIA20> 


;  CI  port  release  or  NI  (TOPS-10  only)  release 
RELCI 


REL: 


SETOM 
MOVE 
XCT 
JRST 


TMSGC 
GO 

TMSGD 
RTN 


INDIAG* 

1,[-2,,RELARG] 

.DIAG 

[MOVEM  1,SAC1 

FMSGC  <?  Release  of 

GO    PRCINI 

FMSG   <  port  failed 

GO    D6EPNT 

PCRLF 

RTN3 

<[Released  > 
PRCINI 
<  port]> 


;  useful  for  debugging  crashes 

;  pointer  Ui^ed 

;**  Overwritten  with  SKIPA  if  DMT  test 

;  error 


-  > 


Print  "CI"  or  "NI" 

print  error  message 

final  CRLF 
exit 

**  Too  wordy,  removed  this 

Print  "CI"  or  "NI" 
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SEQ  2059 


DFPTAI 
DFPTAI 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

21 8A 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

219A 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 
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r 


SEQ  2059 


.-Here  to  print  "CI"  or  "Nl  '  depending  on  MBCN 


002557'  316  16 

002560'  037  00 

002561'  316  16 

002562'  037  00 

002563'  037  00 

00256A'  263  17 


00  002530* 
00  000103 
00  002532* 
00  000116 
00  000111 
00  000000 


002565'  000000  000003 
002566'  000  00  0  00  000000 


002567'  000000  000002 
002570'  000  65  0  00  000000 
002571'  001623  416000 


002572' 


002672'  000000 
002673*  000000 


000000 
000000 


PRCINI:  CAMN  MBCN,P0RTCI 

PNTCI  "C" 

CAMN  MBCN,P0RTN1 

PNTCI  "N" 

PNTCI  "1" 
RTN 

;  Argument  list  for  release  command 

RELAR6:  3 
Z 

;  Argument  list  for  request  command 

REQARG:  2 

*D1000**D60**DAOOO 

;  NI  argument  block 

NIARG:   BLOCK   100 

;  Miscellaneous  dat=» 

HAVECI:  0 
HAVENI:  0 


CI  port? 

Yes 

NI  port? 

Yes 

Print  the  "I 

Return 


function  3 

reserved  for  device  adr  word 


function  2 

reserved  for  device  address 

4000  minutes  (in  milleseconds) 


;.EIBMX  mX   jsys  argument  block 


;  'have  CI  port'  flag 
;  'have  NI  port'  flag 
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SEQ  2060 
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220A 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

22U 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

222A 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 


85  Page  57 
User  Mode  Support  Routines 


/^*** ************************************************** ******* 
*  DEVREQ  •  oser   Mode  Request  Routine 

Does  nothing  in  exec  mode. 

TOPS-20  user  mode:  For  CI  port,  this  routine  executes  a 
diagnostic  monitor  call  of  Function  2  to  request  the  port  from 
the  monitor.  For  NI  port,  this  routine  executes  an  m  JSYS 
call  to  request  the  port  from  from  the  monitor. 

TOPS-10  user  mode:  For  CI  port  and  NI  port  this  routine 
executes  a  diagnostic  monitor  call  of  Function  2  to  request  the 
port  from  the  monitor. 

This  routine  is  different  in  use  from  RH20  disk  and  tape  uses 
in  that  the  device  (the  port)  is  requested  only  when  the 
diagnostic  starts  up. 

^^************************************************************ 


SEQ  2060 


002674*  350  00  0  17  000000 

002675'  336  00  0  00  002500* 

002676'  336  00  0  00  C30037 

002677'  263  17  0  00  000000 


002700'  312  16  0  00  002557* 

002701'  316  16  0  00  002561* 

002702'  3y   00  0  00  000000 

002703'  263  17  0  00  000000 


002704'  316  16  0  00  002700* 


002705'  254  00  0  00  003766' 
002706'  316  16  0  00  002701* 


002707'  254  GO  0  00  003771' 


002710' 
002711' 
002712' 
002713' 
002714' 
002715* 


261 
336 
332 
260 
262 
260 


17 
00 
00 
17 
17 
17 


00 
00 
00 
00 
00 
00 


000016 

002672' 

002673' 

002500' 

000016 

003075* 


DEVREQ: 


AOS 
SKIPN 
SKIPN 
RTN 


(P) 

UDE8UG 

USER 


See  if  no  port  is  specified 


CAME 
CAMN 
SKI  PA 
RTN 


MBCN,P0RTCI 
MBCN,P0RTNI 


set  up  proper  return 
special  debug  mode? 
or  exec  mode? 
yes  -  return 


request  either  the  CI  port 

or  the  NI  port? 
yes  -  continue 
no  -  exit 


See  if  any  port  is  foecified  if  already  gotten  from  the  system 


CAMN 
JRST 


CAMN 
JRST 


MBCN,P0RTCI 
CSKIPE  HAVECI 

RTN 

JRST   .+13 
MBCN,P0RTNI 
[SKIPE  HAVENI 

RTN 

JRST  .+n 


Release  the  other  port  if  necessary 


PUT 

SKIPN 

SKIPE 

GO 

GET 

GO 


MBCN 

HAVECI 

HAVENI 

DEVREL 

MBCN 

USRION 


CI  port? 

yes  -  if  have  the  port  then 
just  exit 

NI  port? 

yes  -  if  have  the  port  then 
just  exit 


save  MBCN 

have  the  CI  already? 

have  the  NI  already? 

yes  -  release  the  device 

restore  MBCN 

set  USRIOT  bit 


2048 


DFPTAI 

hCDT&T 
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SEQ  2061 


2048 
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2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

002716' 
002720' 
002721 ' 
002722' 
002723' 
002724' 
002725' 
002726' 

261  17  0  00  000001 
200  00  0  00  000016 
336  00  0  00  030516 
242  00  0  00  00Q503 
135  01  O  00  003357' 
137  01  0  00  003727' 
202  00  0  00  003156' 
202  00  0  00  002570' 

002727' 
002730' 
002731 ' 
002732' 

316  16  0  00  002704* 
254  00  0  00  002744' 
316  16  0  00  002706* 
254  00  C  00  002777' 

002733' 
002734' 
002735' 
002736' 
002737' 

316  16  0  00  002727* 
476  00  0  00  002672' 
316  16  0  00  002731* 
476  00  0  00  002673' 
260  17  0  00  000243' 

002740' 
002741 • 
002743' 

402  00  0  00  003160' 
262  17  0  00  000000 
2o<  17  0  00  000000 

Get  device  address 

RPUT  (1.0) 

MOVE  MBCN 

SKIPN  MONTYP 

LSH  3 

LDB  1, [POINT  3,MBCN.9] 

DPS  1, [POINT  3,0,23] 

MOVEM  DEVADR* 

MOVEM  REQARG+1 

Do  the  required  function 

CAMN  MBCN.PORTCI 

JRST  REQCI 

CAMN  MBCN,P0RTNI 

JRST  REQNI 


;  Done  -  clean  up  and  exit 
REQOK 


DEVRQX: 


CAMN 

SETOM 

CAMN 

SETOM 

GO 

SETZM 

RGET 

RTN 


MBCN.PORTCI 
HAVE CI 
M8CN,P0RTNI 
HAVENI 
IPACLR 

INDIAG 
(0,1) 


SEQ  2061 


save  AC'S 

get  device  code 

TOPS-20  monitor? 

no  -  position  alt  the  way  left 

get  channel  number 

put  into  device  address 

save  it 

place  in  argument  list 


CI  port? 

yes  -  go  release  it 

NI  port? 

yes  -  go  release  it 

Fall  through  if  unknown  MBCN 


requested 
yes  -  set 
requested 
yes  -  set 
do  a  port 


the  CI  port? 
the  switch 
the  NI  port? 
the  switch 
clear 


no  longer  in 
restore  AC's 
exit 


DIAG  JSYS 


Q  2049 


DFPTAI  MACRO 
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SEQ  2062 


DFPTAI 
DFPTAI 

2287 
2288 
1289 

]90 
J91 

292 
^293 
229A 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
230A 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 


MACRO  X53B(12A2)  10:15 
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User  Mode 


Support  Routines 


SEQ  2062 


00274A' 
0027A5' 
002746' 
002747' 
002750' 
002751 • 
002752' 
002753' 
002754' 
002755' 
002756' 
002757' 
002760' 
002761 ' 
002762' 
002763' 
002764' 
002765' 
002766' 
002767' 
002770' 
002771 ' 
002772' 
002773' 


200  01 
476  00 
256  00 
334  00 
254  00 
370  00 
552  01 
037  01 
260  17 
037  01 
260  17 
037  01 
200  01 
302  01 
254  00 
037  01 
260  17 
037  01 
200  02 
037  01 
037  01 
260  17 
037  01 
254  00 


00  003774' 
00  003160' 
00  002405' 
00  000000 
00  002733' 
17  77777 t 
00  003164' 
00  003775' 
00  002557' 
.  00  003776' 
0  00  003027' 
0  00  030242 
00  003164' 
00  000006 
00  002774' 
,  00  004003' 
0  00  002557' 
0  00  000055 
0  00  003155' 
0  02  000060 
0  00  004013' 
0  00  002557' 
0  00  004020' 
0  00  002740' 


002774'  306  01  0  00  602712 

002775'  Oi'  01  0  00  004022' 
002776'  254  00  0  00  002740' 


;  Request  the  CI  port  (-10  and  -20)  or  the  HI   port  (-10  only) 


REQCI:  MOVE 
SETOM 

REQ1:   XCT 

SKI  PA 

JRST 

SOS 

HRRZM 

FMS6C 

60 

FMS6 

GO 

PCRLF 

MOVE 

CAIE 

JRST 

FMS6 

60 

PNTCIF 

MOVE 

PNTCIF 

FMSG 

60 

FMSGD 

JRST 

REQCI2:  CAIN 
FMSGD 


1,[-3,.REQARG] 

INDIAG 

.DIAG 

REQOK 
-2(P) 
1,SAC1 

<i  > 

PRCINI 

<  port  not  selectable 

DGEPNT 


;  pointer  word 

;  entering  DIAG  JSYS      .^  „^ 

;**  Overwritten  with  SKIPA  if  DMT  test 

;  error 

;  continue 

;  set  up  failed  return 

;  Save  error  code 


-  > 


1.SAC1 

1,6 

R^QCI2  .  . 

<X   You  must  use  OPR's 

PRCINI 


Print  "CI"  or  "NI" 

print  error  message 
Print 


2.CPUNUM 


<"  command  to  test  the 

PRCINI 

<  port> 

DEVRQX 

1.602712         .  . 
<X   You  must  use  OPR's 


CRLF 

,  Reload  the  error  code 

;  Port  not  enabled  (TOPS-10)? 

;  No,  maybe  its  the  20 
•CONFIG  REMOVE  > 

;  Print  CI  or  NI 

;  Output  dash 

;  Load  CPU  number 

;  and  print  it 
> 

;  Print  CI  or  NI 


JRST    DEVRQX 


;  and  exit 

:  Port  not  enabled  (TOPS-20)? 
'S§T  PORT  CI  UNAVAILABLE"  command  to  test  the  CI  port> 

;  exit 


DFPTAI     MACRO  ;53B(1242)  10:15^  1-Jul-85  Page  60  ,„    .■ 

r\cDTAT     MAT  1 7-iiuw-s«;  55-17  iicpp  Mnrfp  Sunnort  Routines 


SEQ  2063 


Q  2050 


OFPTAI 
DFPTAI 

2319 

2320 

2321 

5522 

2323 

232A 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

233A 

2335 

2336 

2337 

2338 

2339 

23A0 

23A1 

2;A2 

23A3 

23AA 

23A5 

23A6 

234  7 

23A8 

23A9 

2350 

2351 

2352 

2353 

235A 

2355 

2356 


MACRO  X53B(12A2)  10:15 
MAC     17-Mdy-85  22:17 


1-JuL-85  Page  60 
User  Mode 


r 


002777' 
003000' 
003001 ' 
003002' 
003003' 
00300A' 
003005' 
003006' 


336  00 
25A  00 
201  01 
542  01 
201  01 
506  01 
200  01 
104  00 


0  00  030516 
0  00  002744' 
0  00  000020 
0  00  002572' 
0  00  000000 
0  00  002574' 
0  00  003731 ' 
0  00  000630 


003007'  320  16  0  00  004056* 


003010'  201  01  0  00  000015 

003011'  542  01  0  00  002572* 

003012'  201  01  0  00  000000 

003013'  506  01  0  00  002574' 

003014'  200  01  0  00  003731' 

003015'  104  00  0  00  000630 

003016*  320  16  0  00  004071' 
003017'  135  01  0  00  004073' 
003020'  306  01  0  00  000011 
003021'  254  00  0  00  002733* 
003022'  03^  00  0  00  004074* 


003023* 

003023*  037  00  0 

003024*  040  00  0 

003025*  370  00  0 

003026*  254  00  0 


00  004111' 
00  002540' 
17  Vint 
00  002740' 


Support  Routines 


SEQ  2063 


Request  the  NI  port  (TOPS-20  only) 


REQNI 


REQ2: 


SKIPN 

JRST 

MOVX 

STOR 

MOVX 

STOR 

MOVX 

NIX 

ERJMP 


MONTYP 

REQCJ 

1..EI6ET 

1.EIFCN.+NIARG 

1,0 

I.EJCHN.'t-NlARG 

1.NIARG 


[TMSGC 
JRST 


<X   NI  port 
GETERRJ 


not 


Skip  if  TOPS-20  (nonitor 
TOPS-10  monitor,  NI  same  as  Z\    .  ,, 
code  is  "get  the  NIA20s  ownership 
put  function  code  into  the  arg  block 
get  nia20  *  0      ^     ^,  , 
put  channel  *  into  the  arg  block 
get  argument  block  address 
**  Overwritten  with  SKIPA  if  DMT 
selectable  -  NI  JSYS  failed  to  obtain  NIA20> 


Read  the  NIA20's  state,  and  proceed  only  if  it's  'OFF  to 
is  using  it.  If  its  not  off,  first  check  that  no  one  is 
then  use  the  OPR  command  SET  PORT  NI  UNAVAILABLE  to  turn 


be  sure  no  one  ei.se 
using  the  NI  and 
it  off. 


MOVX  1,.EIRCI 

STOR  1,EIFCN,+NIAR6 

MOVX  1,0 

STOR  1.EICHN.+NIARG 

MOVX  1.NIARG 

NIX 

ERJMP  [TMSGC  <^  NIX  JSYS 

JRST   GtTERR] 

LOAD  1,EISST,+NIARG 

CAXN  1..EIS0F 

JRST  REQOK 

TMSGC  <X  NI  JSYS  indicates 


code  is  "read  channel  info 
put  function  code  into  the 
get  nia20  #  0 

put  channel  *  into  the  arg 
get  argument  block  address 
read  tne  nia20*s  state 
failed  to  obtain  NIA20  state> 


arg  block 
block 


port 


get  the  state 
IS  the  nia20  off? 

^es  .  .      u- 

not  OFF  after  we  acquired  ownership> 


;  Here  when  NIA20  state  was  not  "OFF" 

GETERR:  TMS6CD  <X  You  must  use  OPR's  "SET  PORT  NI  UNAVAILABLE"  command  to  test  the  NI  port> 


CALL 

SOS 

JRST 


RELNI 
-2(P) 
DEVROX 


release  ownership 
set  up  failed  return 
exit 


Fo  ?nsi 


DFPTAI  MACRO  X53B(1242)  10:15,  l-Jul-85  Page  61       .  ^     ,- 

t\rnT*T        MAT  17_M:>w-aC     0D.17  Hear    MnHfi    ^iinnnrf    Rolifm^S 


SEQ  2064 


£Q  20S^ 


DFPTAl 
DFPTAI 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

236A 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

237A 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

238A 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

239A 

2395 

2396 

2397 

2398 

2399 

2A00 

2A01 

2402 

2403 

2404 

2405 


WACRO  X53B(1242)  10:15 
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User  Mode 


003027'  261  17  0  00  000000 
003033'  336  00  0  00  030516 
003034'  254  00  0  00  003045' 


003035' 
003036' 
003037' 
003040' 
003041' 
003042' 
003043' 
003044' 


201  01  0 
550  02  0 


505  02 
400  03 
104  00 


255  00  0 
255  00  0 
254  00  0 


00  000101 
00  003164' 
00  400000 
00  000000 
00  000011 
00  000000 
00  000000 
00  003056' 


003045'  550  00  0  00  003164' 
003046'  205  01  0  00  777767 


00304'' 
003050' 
003051' 
003052' 
003053' 
005054' 
003055' 


554  03  0 
302  00  0 
253  01  0 
550  03  0 
03^  00  0 
5i'  00  0 
037  13  0 


01  003063' 
03  000000 

00  003047' 

01  003063' 
03  000000 
00  000001 
00  000000 


003056'  262  17  0  00  000003 
003062'  263  17  0  OC  000000 


003063' 
003064 • 
003065' 
003066' 
003067' 
003070' 
003071 ' 
003072' 
003073' 
003074 ' 


000001 
000002 
000003 
000006 
000013 
000014 
000017 
000021 
000023 
000000 


004131' 
004140' 
004146' 
004152' 
004162' 
004166' 
004173' 
004177' 
004202' 
004207' 
000012 


Support  Routines 


SEQ  2064 


*  DGEPNT  -  Opcode  and  print  DIAG  error 

#t *»•*•*»**♦*»••**♦****♦**♦♦******••♦•**• **************************** 


DGEPNT 


Rpu; 

SKIPN 
JRST 


(0.1,2,3) 

MONTYP 

DGEPNI 


save  AC'S 
TOPS-10  monitor? 
yes 


;TOPS-20,  use  the  ERSTRX  JSYS  to  output  the  error. 


MOVE  I 

HRRZ 

HRLI 

SETZ 

ERSTRX 
JFCL 
JFCL 

JRST 


1,.PRI0U 

2,SAC1 

2..FHSLF 


Output  to  terminal 
Load  error  code 
This  fork 

No  limit  on  string 
Error  code  to  string 
Ignore 
errors 
exit 


DGEPNX 
;TOPS-10,  search  table  for  the  error  code  and  publish 


DGEPNI : 
DGEPNO; 


DGEPNX: 


HRRZ 
MOVSI 

HLRZ 

CAIE 

AOeJN 

HRRZ 

PNTMSG 

SKIPL 

PNTHW 

RGET 
RTN 


0.SAC1 
1.-<T10TLN-1> 

3,T10TAB(1) 
0.(3)  ^ 
1. DGEPNO 
3-TlOTAB(1) 

1 


(3.2,1,0) 


Load  the  error  code 
Load  AOBJN  pointer 

Get  entry 

Match? 

No,  loop 

Get  addr  of  TMSG 

Output  the  error 

Was  the  error  code  found? 

No,  print  it 

restore  AC's 
return 


TOPS-10  frror  Messages 


T10TAB: 


00000 ;  .CASciz 

000002,, [ASCIZ 
000003,.  l'ASC  J  Z 
000006.. CaSCJZ 
000013. .[ASCIZ 
000014,.[ASC.'Z 
000017, .[ASCIZ 
000021., [ASCIZ 
000023., [ASCIZ 
000000,. [ASCIZ 


T10TLN==.-T10TAB 


/No  privileges  to  execute  DIAG.  UUO/] 

/Argument  count  is  too  small/] 

/No  such  channel/3 

/NI  port  not  enabled  for  maintenance  use/J 

/Illegal  function/3 

/Job  cannot  be  virtual/3 

/Bad  argument  list/3 

/No  NI  port/3 

/Microcode  reload  failed/3 

/Unknown  error  code:  /3 


.-Size  of  table 


ceo  pn«;? 


DFPTAI  MACRO  X53B(1242)  10:15  1-J"l-85  Page  62 


D^\i  1  ^  ^  r\  ^p 


SEQ  2065 


5E0  2052 


DFPTAI 
DFPTAI 

2406 

2A07 

2408 

2A09 

2A10 

2411 

2412 

t   |413 

1   2414 

2415 

!   2416 

:   2417 

i   2418 

:   2419 

2420 

2421 

,   2422 

!   2423 

I   2424 

I   2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 


MACRO  X53B(1242)  10:15 
MAC     17-Mdy-85  22:17 


1-J' 


'1-85  Page  62 
User  Mode 


Support  Routines 


SEO  2065 


•  USRION/USRIOF  -  Turn  User  I/O  Privileges  On/Off 

This  routine  does  nothing  in  exec  mode.  Under  TOPS-20  we  do  an  enable 
of  privileges  and  then  a  USER  I/O  JSYS  to  get  User-IOT  set.  Under  TOPS10, 
a  TRPSET  uOO  gets  us  into  User-IOT  mode. 


003075' 
003076' 
003077' 
003100' 
003102' 
003103' 
003104' 
003105' 
003106' 
003107' 
003110' 
003111' 
003113' 


336 
336 
263 
261 
201 
336 
047 
255 
332 
104 
255 
262 
263 


00 
00 
17 
17 
01 
00 
01 
00 
00 
00 
00 
17 
17 


0  00  002675* 
0  00  030037 
0  00  000000 
0  00  000000 
00  000000 
00  030516 
00  000025 
.  00  000000 
0  00  030516 
0  00  000310 
0  00  000000 
0  00  000001 
0  00  000000 


USRION:  SKIPN   UDEBUG 
SKIPN   USER 
RTN 

RPUT    (OJ) 
HOVEI   1,0 
SKIPN   MONTYP 
TRPSET  1, 
JFCL 
SKIPE   MONTYP 
USRIOX 

JFCL 
R6ET    (1,0) 
RTN 

;  Code  to  turn  User  I/O  oft 


special  debug  mode? 

exec  mode? 

yes  -  return 

save  AC'S 

Load  null  TRPSET  arg 

TOPS-10? 

Yes.  enter  user  10  mode 

Ignore  error 


<9 
TO 


0031 U'  336  00  0  00  003075* 

003115'  336  00  0  00  030037 

003116'  263  17  0  00  000000 

003117'  254  02  1  00  004214' 


USRIOF:  SKIPN 
SKIPN 
RTN 
JRSTF 


UDEBL6 
USER 

a[Oioooo.,cpnpj] 


t6ps-20? 

Yes,  enter  user  10  mode 
Ignore  error 
restore  the  AC's 


special  debug  mode? 
exec  mode? 
yes  -  return 
modify  the  flags 


DFPTAI  MACRO  X53B(1242)  .1Q:15_  1-JuL-85.  Page,.63 


<:fq  P0<S6 


SEO  2053 


DFPTAl 
DFPTAI 


MACRO 
MAC 


X55B(1 2A2) 
17-Mdy 


10:15  l-JuL-85  Page  63 
85  ?2:17        User  Mode 


Support  Routines 


SEO  2066 


003120' 
003121' 
003122' 
003123' 
003126' 
003127' 
003130' 
003131' 
003132' 
003133' 
003134' 
003137' 


*  ENABLE  -  Enable  Capabilities  of  This  Process 

First  read  .apabiiities  and  then  enable  them.  Same  as  typing  "ENA* 
from  exec  level.  ^^^^ 


336 
336 
263 
261 
201 
104 
320 
200 
104 
320 
262 
263 


00 
00 
17 
17 
01 
00 
16 
03 
00 
16 
17 
17 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


003114* 

030037 

000000 

000001 

4C0000 

000150 

003131' 

000002 

000^51 

003134' 

000003 

000000 


ENABLE:  SKIPN 
SKIPN 
RTN 
RPUT 
MOVE  I 
RPCAPX 
ERJMP 
MOVE 
EPCAPX 
ERJMP 
RGET 
RTN 


UDEBUG 
USER 

(1.2.3) 
1,.FHSLF 

.♦1 
3.2 

.♦1 
(3.2.1) 


spec  ial  debug  mode? 

exec  mode? 

yes  -  exit 

save  AC'S 

process  handle 

read  capabilities 

Ignore  error 

get  capabilities  to  AC3 

now  enable 

ignore  errors 

restore  AG's 

exit 


HFPTAI  KAfRQ  X53B(1242)  10:15  1-Jul-85  Page  64 


ecn   on/.y 


r 


SEQ  2054 


MACRO  X53B(12A2)    10:15     1-Jul 
MAC  17-Mdy-85  22:17 


003U0' 
003Ur 
003U2' 
003U3' 
003KA' 
003U5' 
003U6' 
003K7' 
003150' 
003151' 


0 
0 


DFPTAI 
DFPTAI 

>455 
456 

5A58 
2A59 
2A60 
2A61 
2A62 
'463 
|46A 
465 
}466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 


NO  ERRORS  DETECTED 

PROGRAM  BREAK  IS  004223 
CPU. TIME  USED  00:10.026 

113P  CORE  USED 


-85  Page  64 

Miscellaneous  Routines 

SUBTTL  Miscellaneous  Routines 

i^*  ♦****♦♦*•*♦♦»♦**♦»♦♦♦•*♦»*»♦•♦***••♦***♦**•*•********♦*♦♦'•* 

•  FFF  -  Routine  To  Handle  Fatals 

There  is  no  return  from  this  call.  You  end  up  at  DDT  in  exec  mode 
or  the  moni*'or  if  in  user  mode. 

Calling  sequence: 

GO     FFF  ;  call  routine 
;  pgm  has  fataled  out  .... 


SEO  2067 


00 
00 


0  17 
0  00 


260  17 
037  01 
550  00 
275  00 
037  06 
037  01 
332  00 
254  00 
254  04 
254  00  0  00 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


002500' 

004215' 

000000 

00000! 

000001 

030242 

030037 

003152' 

000000* 

003150* 


003152'  260  17  0  00  000000* 
003153'  260  17  0  00  000000* 
003154'  254  00  0  00  003151* 


FFF 


GO 

FMSGC 

HRRZ 

SUB  I 

PNT6F 

PCRLF 

SKIPE 

JRST 

HALT 

JRST 


OEVREL  ;  release  device  if  necessary 

<Fatal  pgm  error  at  PC  -  > 
(p)  ;  get  calling  PC 

1  ;  gets  correct  PC 

;  print  it 


USER 
.+3 
START 
START 


;  User  mode  fatal  halt 


GO 
GO 
JRST 


.CLOSE 

.EXIT 

START 


;  user  mode? 

;  yes 

;  halt  ..  restart 

;  to  be  sure 


;  close  output  f i les 
,  exit  the  job 
;  restart  program 


/If*  *♦»♦♦**»•♦*•♦♦«»♦*•*♦♦♦*♦•***••***************•*************  ******* 

End  of  DFPTAI .MAC  Module 
f* *♦»*♦•*««•»♦»*****»*♦♦«♦♦♦**•**•*♦♦****•********•**•*******• ******* 

END 


DFPTAI 

MACRO  5;53B(1242 

)  10:15 
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DFPTAI 

MAC    17-Mdy- 

85  22:17 

SYMBOL 

TABLE 

SEQ  2068 

AADDR 

000423' 

int 

DSETUP 

002406' 

ent 

IPASSO 

000442' 

PF500 

001404' 

int 

ACSET 

001556' 

EADDR 

000422' 

int 

IPASS1 

)00464' 

PF501 

001405' 

int 

ACSET1 

001557' 

EBUSPE 

004000 

spd 

IPASS2 

000501' 

PF502 

001406' 

int 

ADRPE 

100000  000000 

spd 

EICHN 

777177 

000000 

spd 

IPASS3 

000502' 

PFACO 

001407' 

APR 

000000 

spd 

EIFCN 

777777 

spd 

IPASS4 

)00503' 

PKAIL 

001410' 

int 

C20D 

002172' 

EISST 

77700O 

spd 

IPASST 

000424 ' 

ent 

PFAPR 

001403' 

int 

CADTBL 

002307' 

ENABLE 

003120' 

IPAST1 

000412' 

PFCHK 

001422' 

CALL 

200000  000000 

spd 

EPCAPX 

104000 

000151 

int 

IPAST2 

000413' 

PFCHKO 

001440' 

CDASE 

002275' 

int 

ERESET 

000160' 

ent 

IPAST3 

000414' 

PFCLR 

001411' 

ent 

CBUF 

002063' 

ext 

ERJMP 

320700 

000000 

int 

IPASTP 

000367' 

ent 

PFDISP 

001402' 

CCWPNO 

002076' 

ERSTRX 

104000 

000011 

int 

I  STOP 

000167' 

ent 

PFSET 

001361' 

ent 

CCUPN1 

002110' 

FFF 

003140' 

ent 

ISTOPO 

000203' 

PHYLST 

001703' 

CCWPNT 

002055' 

ent 

FILWDS 

003157' 

ISTOPC 

000231 • 

PI 

000004 

spd 

CCWPNX 

002132' 

FQUERR 

002000 

spd 

ISTOPX 

000235' 

PICLR 

010000 

spd 

CCWST 

001636' 

GENCCU 

001504' 

ent 

JEN 

254500 

)00000 

PIOFF 

000400 

spd 

CCUST1 

001 6A6' 

6ENG0 

001514' 

JMPWD 

)02276' 

PION 

000200 

spd 

CHARG 

002202' 

GET 

262740 

000000 

JRSTF 

254100 

)00000 

PISYOF 

000564' 

ent 

CHARG1 

002250' 

GETERR 

003023' 

JSYS 

104000 

)00000 

PISYON 

000567' 

ent 

CHCNT 

002360' 

GETLOG 

001654- 

ent 

LDCRAM 

000035' 

ent 

PMODE 

000233' 

ext 

CHDATA 

002371 ' 

ent 

GET  TAB 

047000 

000041 

LDCSR 

)00010' 

ent 

PNT1 

037040 

000000 

CHINO 

001A70' 

GO 

260740 

000000 

LDEBUF 

)00000' 

ent 

PNT6F 

037300 

000001 

CHINIT 

001A46' 

ent 

GRINDF 

001610' 

LDRAR 

000021 ' 

ent 

PNTADR 

037400 

000000 

CHINX 

001501' 

HALT 

254200 

000000 

LOGARG 

001675' 

PNTCI 

037000 

000000 

CHK 

002357' 

HAVE  CI 

002672' 

int 

LOGBUF 

)02317' 

int 

PNTCIF 

037040 

000000 

CHKCSR 

000316' 

ent 

HAVENI 

002673' 

int 

LOGPNT 

)02000' 

ent 

PNTDEC 

037640 

000000 

CHKCSX 

000333' 

ICWAO 

002361' 

LOSPT 

)02026' 

PNTHW 

037540 

000000 

CHP10 

002216' 

ICWA1 

002362- 

L0SPT1 

002032' 

PNTMSF 

037040 

000000 

CHP20 

002K1' 

ICWA2 

002363' 

LSTCCW 

003161' 

PNTMSG 

037000 

oocooo 

CHPGMO 

002157' 

ICWA3 

002364' 

LSTDON 

001565' 

PNTOCC 

001000 

000000 

CHPGM1 

002160' 

ICWA4 

002365' 

MAXUD 

002274' 

PNTOCF 

037740 

000003 

CISEL 

OuJOOO 

ext 

ICWA5 

002366' 

MBCN 

000016 

PNTOCS 

037700 

000003 

CLREBE 

000313' 

ICWA6 

002367' 

MBERR 

002000 

000000 

spd 

PORTCI 

002733' 

ext 

CLREBU 

000302' 

ent 

ICWA7 

002370' 

MCPUS 

003162' 

PORTNI 

002735' 

ext 

CLREBX 

000312' 

ICWPT 

002022' 

MONTYP 

030516 

PRCINI 

002557' 

CP10C 

002234' 

IDELAY 

001065' 

int 

MPRUN 

000010 

spd 

PRSFLG 

003163' 

CPOPJ 

030065 

INDIAG 

003160' 

MVRERR 

)01000 

spd 

PRVCHK 

002422' 

CP0PJ1 

030064 

INITPO 

000522' 

mx 

104000 

)00630 

int 

PUT 

261740 

000000 

CPUNUM 

003155' 

INITPD 

000532' 

ent 

NIARG 

002572' 

RDCRAM 

000106' 

ent 

CPUTST 

002443' 

INITPI 

000506' 

ent 

NISEL 

000000 

ext 

RDCSR 

000060' 

ent 

CRAMPE 

004000  000000 

spd 

INTAPR 

00  163' 

int 

NOSET 

002437' 

RDEBUF 

000050' 

ent 

CSTWRD 

003607' 

ext 

INTCON 

001137' 

int 

NVIIN1 

000711' 

RDLAR 

000075' 

ent 

CWBACK 

002231 ' 

INTCSR 

001257' 

int 

NVIIN2 

000721 ' 

REL 

002554' 

ent 

CZF 

001536' 

INTEND 

001327' 

int 

NVIIN3 

000731 ' 

REL1 

002547' 

CZFD 

001551' 

INTNNN 

001303' 

NVIIN4 

000741 ' 

RELARG 

002565' 

DEBTIM 

001031' 

ext 

INTNUM 

001066' 

int 

NVIIN5 

000751 ' 

RELCI 

002552' 

OEVADR 

003156' 

INTPC 

001067' 

int 

NVIIN6 

000761 ' 

RELNI 

002540' 

DEVREL 

002500' 

ent 

INTTIM 

001207' 

int 

NVIIN7 

000771 ' 

REQ1 

002746' 

ent 

DEVREQ 

002674 ' 

ent 

INTTYP 

001113' 

int 

NVIINC 

OOIOOT 

REQ2 

003006' 

ent 

DEVRQX 

002740' 

INTUSE 

001233' 

int 

NVJEN 

001064' 

REQARG 

002567' 

DGEPNO 

003047' 

IPACLR 

000243' 

ent 

ODELAY 

001047' 

ext 

REQCI 

002744' 

0GEPN1 

003045' 

IPASRO 

000352' 

P 

000017 

REQCI2 

002774 ' 

DGEPNT 

003027' 

IPASR1 

000362' 

PCLEAR 

400000 

spd 

REQNI 

002777' 

DGEPNX 

003056' 

IPASR2 

000363' 

PCRL 

037C30 

030242 

REQOK 

002733' 

DIAGER 

002254 ' 

IPASR3 

000364' 

PCRLF 

037040 

030242 

RESQAV 

000200 

sod 

DPRCX 

002474' 

IPASRT 

000335' 

ent 

PDEC 

006000 

000000 

RPCAPX 

104000 

000150 

int 

r 
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SEQ  2069 


OFPTAI 
DFPTAI 

RTN 

RUNTME 
SAC1 
SAVEBF 
SCLP 
SDATA 
SELLAR 
SET2N 
SETEBE 
SETEBU 
SETLAE 
SETLAR 
SETUUO 
SETVEC 
SINCYC 
SKPCCW 
SLAST 
SNEXT 
SNKMON 
START 
STRE 
SWITT 
T10TAB 
TIOTLN 
TCUPT 
TPSMON 
TRPSET 
TSTEBF 
TTIDEC 
UDEBUG 
USER 
USRIOX 
USRIOF 
USRION 
USTIM 
VIINT 
VIIPI 
UCCHK 
UFIT 
WFIT1 
ZI 

SEICHN 
SEIFCN 
SEISST 
SSVUPC 
SSVUUO 
..CSC 
.CSN 
.MX1 
.MX2 
..PST 
.CLOSE 
.CONI 
.CONO 
.DATAl 


MACRO 
MAC 

2637A0 


X53B(12A2)  10:15 
17-May-85  22:17 


1-Jul-85  Page  S-2 

SYMBOL  TABLE 


SEQ  2069 


0A70O0 


047000 
037200 

10A000 


GOOOuO 

001030' 

0031 6A' 

003165' 

002277' 

000421 ' 

040000 

0006 i 6' 

000262' 

000250' 

000277' 

000265' 

000075 

000572' 

020000 

003166' 

000420' 

000417' 

002417' 

003154' 

001633' 

000000 

003063' 

000012 

002043' 

002413' 

000025 

200000 

000003 

003120' 

0iJ037 

000310 

003114' 

003075' 

001033' 

000637' 

003167' 

001615' 

001622' 

001631' 

000000' 

000002 

000000 

000004 

030114 

030113 

000004 

000003 

002572' 

000001 

000003 

003152' 

000117' 

000127' 

000140' 


ext 


int 
spd 


ent 

ent 

ent 
spd 

int 
int 

ext 

ext 

spd 


spd 

ext 

int 
ent 
ent 
ext 


spd 
spd 
spd 


spd 
spd 
spd 
spd 
spd 
ext 
ent 
ent 
ent 


.DATAO 

.DIAG 

.EICHN 

.EIFCN 

.EIGET 

.EIRCI 

.EIREL 

.EISOF 

.EISTA 

.EXIT 

.FHSLF 

.INPNT 

.INPNX 

.INWD1 

.INUD2 

.JSYS 

.PIOFF 

.PI  ON 

.PRIOU 

.UUO 


)0150' 
2405' 
0002 

Noqo 

0020 

m 

0011 
0004 
3153' 
)0QQ0 
)1330' 
)1353' 
)1357' 
J 1360' 
)2404' 
)0536' 
)0550' 

Joioi 

)02403' 


ent 

sin 
sin 
sin 
sin 
sin 
sin 
sin 
ext 
sin 
ent 

int 
int 

ent 
ent 
sin 


AADDR 
ACSET 


18 
1456 
U70 


670# 
1476 
1484# 


1483# 


SEQ  2070 


AADDR 

ACSET 

ACSET1 

ADRPE 

APR 

C20D 

CADTBL 

CBASE 

CBUF 

CCWPNU 

CCUPN1 

CCWPNT 

CCWPNX 

CCWST 

CCWST1 

CHARG 

CHARG1 

CHCNT 

CHDATA 

CHINO 

CHINIi 

CHINX 

CHK 

CHKCSR 

CHKCSX 

CHP10 

CHP20 

CHPGMO 

CHP6M1 

CISEL 

CLREBE 

CLREBU 

CLREBX 

CP10C 

CPOPJ 

CP0PJ1 

CPUNUM 

CPUTST 

CRAMPE 

CSTWRD 

CW6ACK 

CZF 

CZFD 

DEBTIM 

DEVADR 

DEVREL 

OEVREQ 

OEVRQX 

DGEPNO 

DGEPNI 

DGEPNT 

OGEPNX 

DIAGER 


J 


18 

670* 

1456 

1476 

1483* 

U70 

1484* 

1966 

378 

962 

1066 

1237 

1259 

1831# 

1334 

1487 

1573 

1932* 

31 

881 

885 

1337 

1597 

1928* 

50* 

1708 

1729# 

1741 

1768 

1772 

1737 

1745* 

30 

1703* 

1730 

1769 

1776* 

1554 

1569* 

1571 

1577* 

1713 

1818 

1819 

1826 

1830 

1838* 

1711 

1877 

1878 

1880 

1881 

1885        1890* 

1935* 

30 

1959* 

1347# 

29 

1324* 

1341 

1356* 

1934# 

16 

506* 

510 

521 

525* 

1434 

1865* 

1504 

1798* 

1817* 

1821 

1818# 

50# 

489 

495* 

16 

487* 

491 

494* 

1873 

1877* 

2434 

2032 

2049* 

2049 

2065 

2308 

1997 

2048* 

395 

403 

408 

^^i 

416 

511           579 

50* 

1961 

1962 

1963 

1867 

1874* 

1449 

1455* 

1459 

1475* 

46* 

966 

1073 

1599 

1825 

1879 

2120* 

2120 

2265*      2265 

35 

2097* 

2253 

2469 

35 

2225* 

2284* 

2313 

2318 

2356 

2382* 

2384 

2364 

2379* 

1912 

2168 

2300 

2362* 

2375 

2390* 

1603 

1832 

1883 

1902* 

SEQ  2070 


637 


711         1081         1082        1095        1142 


OPRCX 
OSETUP 

CAt\rtD 


2054 
35 


2074* 
1989* 


"1 


SEO  2071 


DPRCX 

DSETUP 

EADDR 

EBUSPE 

EICHN 

EIFCN 

EISST 

ENABLE 

ERESET 

FFF 

FILWDS 

FQUERR 

GENC  ' 

GENGL 

GETERR 

GETLOG 

GRINDF 

HAVE CI 

HAVENI 

ICUAO 

1CWA1 

ICUA2 

ICWA3 

ICWAA 

ICUA5 

ICWA6 

ICWA7 

ICWPT 

IDELAY 

INDIAG 

INITPO 

INITPD 

INITPI 

INTAPR 

INTCON 

INTCSR 

INTEND 

INTNNN 

INTNUM 

INTPC 

INTTIM 

INTTYP 

INTUSE 

IPACLR 

IPASRO 

IPASR1 

IPASR2 

IPASR3 

IPASRT 

IPASSO 

IPASSl 

IPASS2 

IPASS3 


2054 
35 
18 
A04 
2151 
2149 
2345 
2006 
17 
40 
1440* 
1096 
29 
1430 
2331 
30 
1492 
18 
18 
879 
1940* 
1941# 
1942# 
1943* 
1944* 
1945* 
1946* 
1636 
25 
2132 
804* 
22 
22 
24 
24 
25 
25 
957 
24 
24 
24 
24 
24 
17 
592* 
580 
575 
573 
17 

724* 
743 
712 
707 


2074* 
1989* 

669* 

512 
2327 
2325 

2443* 
375* 
1466 
1440 
1159 
1428* 
1432 
2344 
1592* 
1519* 
2106 
2104 
883 


SEQ  2071 


1644* 
889 

2161* 
817 
814* 
786* 
963 
961 

1070 
808 
973 
807 
959 
967 
955 
969 
380 

603* 
604* 
605* 
568* 

754* 
771* 
772M 


1083 
2340 
2338 


1809 
1455 


1439* 

2352* 

1960 

1555 

2134 

2136 

1336 


1096 


2026 
1467 


1156 


2034        2052 
1479        1500 


2073 
1544 


2469* 
1546 


2202* 
2203* 
1596 


2240  2251 
2244  2252 
1939* 


2279 
2281 


1104 

1105 

1119* 

2161 

2284 

2291 

1067 

1124* 

1065 

1123* 

1097 

1127* 

1129* 

1061 

1107 

1128* 

888 

950 

956 

1063 

1121* 

1074 

1125* 

1059 

1122* 

1076 

1126* 

434* 

1089 

2113 

1051 


2282 


1060        1120* 


IPASS4 

705 

773* 

IPASST 

1DACT1 

17 

A7fi 

699* 

SEQ  2072 


IPASSA 

IPASST 

1PAST1 

IPAST2 

IPAST3 

IPASTP 

ISTOP 

ISTOPO 

ISTOPC 

ISTOPX 

JMPWD 

LDCRAM 

LDCSR 

LDEBUF 

LDRAR 

LOGARG 

L06BUF 

LOGPNT 

LOSPT 

L0SPT1 

LSTCCW 

LSTDON 

MAXWD 

MBCN 


MBERR 

MCPUS 

MONTYP 

MPRUN 

MVRERR 

NIARG 

NISEL 

NOSET 

NVIIN1 

NVIIN2 

NVIIN3 

NVIINA 

NVIIN5 

NVIIN6 

NVIIN7 

NVIINC 

NVJEN 

ODE LA  ' 

P 

PCLEAR 

PF500 

PF501 

PF502 

PFACO 

PFAIL 


705 

773* 

17 

699* 

638 

659* 

633 

660* 

631 

645 

661* 

17 

626* 

17 

389* 

396 

399* 

A02 

409 

411 

421* 

398 

420 

425* 

13A8 

1572 

1930* 

11 
11 

188* 
145* 

405 

422 

426 

436 

455 

475 

^>?l 

513 

523 

585 

601 

643 

1    1 

651 

1  T  «/»T 

717 

732 

745 

750 

764 

768 

830 

347 

1084 

1091 

11 

131* 

766 

11 

167* 

588 

720 

1600 
31 

1601 
1606 

1604 
1608 

1614* 
1645 

1652 

1675 

1682 

1685 

1688 

1933* 

1935 

1961 

30 

1628* 

1637 

1651* 

1655* 
172A* 

1673 
1724 

1736 

1745 

1749 

1758 

1761 

1766 

1496* 

1927* 

135 

1595 

149 
1630 

171 
1802 

192 
2103 

226 
2105 

241 
2107 

267 
2108 

286 
2115 

306 
2118 

326 
2125 

346 
2127 

366 
2133 

<•.  (ih  ■— n 

1330 
2135 

1484 
2178 

2180 

2232 

2233 

2239 

2243 

2250 

2254 

2260 

2263 

2270 

2272 

2278 

2280 

401 

408 

509 

579 

637 

711 

1088 

1095 

1149 

2055* 
U31 

2055 
1712 

2058 
1992 

2116 

2146 

2261 

2322 

2363 

2420 

2423 

397 

410 

520 

574 

593 

595 

632 

642 

706 

725 

726 

1096 
2149 

1162 
2151 

2152 

2198* 

2325 

2327 

2328 

2338 

2340 

2341 

2345 

50* 

1987 

2031* 

899 

985* 

989 

901 

994* 

998 

903 

1003* 

1007 

905 

1012* 

1016 

907 

1021* 

1025 

909 

1030* 

1034 

911 

1039* 

1043 

992 

1001 

1010 

1019 

1028 

1037 

1046 

1050* 

990 

999 

1008 

1017 

1026 

1035 

1044 

1062 

1113 

1115* 

51* 
236 

1106 
246 

456 

476 

494 

516 

602 

603 

604 

658 

659 

660 

770 

771 

772 

1338 

1483 

1497 

1807 

1816 

1906 

2225 

2295 

2355 

2471 

421 

435 

42 

1196 

1207* 

1239 

42 

1197 

1208* 

1241 

42 

1198 

1209* 

1243 

1199 

1210* 

1236 

1252 

1260 

42 

1194 

1211* 

1257 

SEQ  2072 


PFAPR 
PFCHK 

■Ik  V  At  ll.^ 


42 

1192 


1195 
1236* 

4  -H"Tl« 


1206*      1237 


SEQ  2073 


PFAPR 

PFCHK 

PFCHKO 

PFCLR 

PFDISP 

PFSET 

PHYLST 

PI 

PICLR 

PIOFF 

PION 

PISYOF 

PISYON 

PMODE 

PORTCI 

PORTNI 

PRCINI 

PRSFLG 

PRVCHK 

RDCRAM 

RDCSR 

RDEBUF 

RDLAR 

REL 

REL1 

RELARG 

RELCI 

RELNI 

REQ1 

REQ2 

REQARG 

REQCI 

REQCI2 

REQNI 

REQOK 

RESQAV 

RUNTME 

SAC1 

SAVEBF 

SCLP 

SDATA 

SELLAR 

SET2N 

SETEBE 

SETEBU 

SETLAE 

SETLAR 

SETVEC 

SINCYC 

SKPCCU 

SLAST 


1192 

12A7 
41 

1191 
41 

1617* 

789 

1013 

789 

858 

805 
22 
23 
51* 
50* 
50* 

2166 
700* 

2000 
12 
12 
843 
12 
12 
35 

2153* 

2121 

2126 

2128 
35 
35 

2192* 

2271 

2304 

2273 

2278* 

1096 
46* 

1903* 
747* 

1335 

18 

453 

887 

450 

16 

470 

16 

23 

594 

1725* 
18 


1195 

1206* 

1237 

1257* 

1218* 

1205* 

1223 

1253 

1185* 

804 

805 

816 

858 

^^l 

943 

944 

986 

1014 

1022 

1023 

1031 

1032 

1040 

1041 

816 
944 

987 

996 

1005 

1014 

1023 

1032 

1041 

826 

842 

857* 

848 

866* 

413 

417 

423 

2107 

2125 

2133 

2178 

2232 

2239 

2270 

2278 

2105 

2127 

2135 

2180 

2233 

2243 

2272 

2280 

2178* 

2298 

2306 

2311 

700 

742 

2010* 

^  O  "^  li 

282* 
236* 

392 

406 

449 

469 

488 

507 

572 

1068 

222* 

746 

263* 

652 

756 

1085 

1092 

2163* 

2162 

2187* 

2147 

2161* 

2146* 

2354 

2292* 

2329* 

2266 

2290 

J290* 

2323 

2315* 

2322* 

2294 

2347 

1165 

965 

1072 

1903 

1909 

2164 

2296 

2302 

2369 

2379 

747 

765 

1486 

1496 

^'531* 

592 

646 

>68* 

724 

738 

748 

762 

767 

473 

595 

50 

726 

1083 

1090 

898* 

457* 

448* 

477* 

468* 

874* 
726 
1725 

1738 

1739 

1746 

667* 

755 

SEQ  2073 


987 


995 


996        1004        1005 


630 


644 


704  736  827 


SNEXT 
SNKMON 


18 
1993 


586 
2004* 


654 


666*        718 


754 


758 


SEQ  2074 


SNEXT 

SNKMON 

START 

STRE 

SWITT 

T10TAB 

T10TLN 

TCWPT 

TPSMON 

TSTEBF 

UDEBUG 

USER 

USRIOF 

USRION 

USTIM 

VIINT 

VIIPI 

WCCHK 

UFIT 

UFIT1 

ZI 

SEICHN 

SEIFCN 

SEISST 

SSVUPC 

SSVUUO 

XEICHN 

XEIFCN 

XEISST 

..CSC 

..CSN 
..MX1 

..MX2 

..PST 

.CLOSE 

.CONI 

.CONO 

.DATAI 

.DATAO 

.DIAG 

.EICHN 

.EIFCN 

.EIGET 

.EIRCI 

.EIREL 

.EISOF 

.EISTA 

.EXIT 

.FHSLF 


18 
1993 
2A77 
1538 

2382 
2380 
1638 
1997* 
A52 
50# 
389 
377 
U28 
36 
36 
A6* 
878 
9A3# 
1525 
1531 
1543 
58* 
2151# 
2149* 
2345* 
946 
946 
2151 
2149 
2345 
2149* 
2328 
2149* 
2148* 
2341* 
2148* 
2149* 
46* 
10 
10 
10 
10 
1602 
2151 
2149 
2324 
2337 
2148 
2346 
2345 

46* 
2021 


586 
2004* 
2478 
1548 

2385 

2405* 

1681* 

472 

131 
1339 

379 
1503 
2431* 
2010 

968 

942* 

943 
1530* 
1542* 
1545 

2327* 
2325* 

978 

979 

2327 

2325 

2149 
?328# 
i149 
2148 

2149 
2149 
2482 
302* 
322* 
342* 
362* 
1831 
2327 
2325 


2483 
2370 


6^4 

2484 
1554* 


666* 


718 


754 


758 


SEQ  2074 


2395*   2405 


490 
145 

1429 
596 

1598 

2255 

1075 

958 

960 


1549* 

2340* 
2338* 

1051 
1051 
2340 
2338 

2150 
2338* 
2151* 
2150# 

2150* 
2151* 


1832 
2340 
2338 


492 

167 

1501 

m 

1709 

2415* 

979 
986 


1112 
1113 


2150* 
2338 
2151 
2150 

2151 
2151 


584 
188 

1592 
786 

1990 


716 
222 

1989 
814 

2098 


744 

749 

237 

263 

2031 

2097 

823 

839 

2221 

2416 

763 

302 

122 

^226 

2415 

2431 

857 

866 

^l\ 

2432 

2ki,k 

2(^7^ 

342 

362 

375 

2443 

1185 

1218 

1340 

995    1004    1013   1022    1031    1040    1064 


2151* 
2339 
2325* 
2152* 

2324* 
2325* 


2151 
2339* 
2325 
2324* 

2325 
2325 


2152 
2340* 
2327* 
2324 

2326* 
2327* 


2152* 
2340 
2327 
2326* 

2327 
2327 


2325* 
2341 
2338* 
2326 

2337* 
2338* 


2325 
2341* 
2338 
2328* 

2338 
2338 


2326 
2345* 
2340* 
2337* 

2339* 
2340* 


2326* 
2345 
2340 
2337 

2340 
2340 


2327* 
2346 
2345* 
2339* 


2327 
2346* 
2345 
2339 


2345*   2345 


1987*   1999    2005    2163    2292 


2447 


. INPNT 
.INPNX 


23 
1141 


1135* 
1148 


1155    1158    1161    1164    1170* 


SEQ  2075 


:Q  2062 


,1NPNT 
INPNX 
.INUD1 
.INUD2 
JSYS 
.PIOFF 
.PION 
.PRIOU 
•  UUO 


23 
11A1 

25 

25 
1986* 

22 

2020 
1985# 


1135* 
1U8 

1099 
2004 
823* 
839# 
2368 
1998 


1155 

977 

1U4 


1158 
1098 
1151 


1161 
1111 
1177* 


1164 
1135 


117Q# 
1138 


SEQ  2075 


1170    1176* 


975    1109 


CI  port> 


"1 


EQ  2063 


CAXN 
EPCAPX 


2346 
2451 


SEQ  2076 


EQ  2063 


NI  port> 


CAXN 

EPCAPX 

ERJMP 

ERSTRX 

FMSG 

FMSGC 

FMSGCD 

FMSGD 

GET 


GETTAB 
GO 


HALT 

JEN 

JRSTF 

JSYS 

LOAD 

MOVX 

NIX 

OPXXCA 

PCRL 

PCRLF 

PDEC 

PNT1 

PNT6F 

PNTADR 

PNTCI 

PNTCIF 

PNTDEC 

PNTHW 

PNTMSF 

PNTMSG 


PNTOCC 
PNTOCF 
PNTOCS 
PUT 


2346 
2A51 
21 5A 
2023 
1911 
1905 
iQ53 
2312 
137 
427 
773 
1172 
1777 
2140 
2051 
380 
512 
720 
843 
1097 
1832 
2126 
2477 
979 
2141 
1986 
2345 
2148 
2153 
2346 
1747 
1904 
1759 
1633 
2473 
1762 
2179 
2307 
1686 
1646 
1905 
2310 
415 
1629 
1674 
1756 
1748 
1907 
1146 
133 
391 
699 
1015 


SEQ  2076 


2330 

2372 

2167 

1908 

2072 

2316 

152 

428 

774 

1200 

1778 

2141 

392 

513 

732 

847 

1106 

1883 

2128 

1113 
2434 


2150 
2329 

1776 
1913 


2181 
2309 

1683 
1908 
2312 
419 
1635 
1681 
1757 

1910 

1153 

147 

392 

700 

1024 


2343    2449    2452 


2018 

2056 

2059 

2071 

175 

176 

195 

196 

437 

457 

458 

477 

809 

810 

831 

849 

1225 

1332 

1356 

1357 

1833 

1834 

1884 

1885 

2254 

2285 

2286 

2390 

405 

523 

736 

848 

1109 

1912 

2166 

1262 


2152 
2342 


2388 
1911 
2317 
424 
1644 
1684 
1760 


1676 
169 
434 
788 

1033 


406 

572 

745 

887 

1434 

1960 

2168 


2324 


2169    2301 


2182 


2019 
2470 
514 
1651 
1687 
2154 


1689 
170 
448 
806 

1042 


422 

585 

746 

965 

1466 

1987 

2253 


2033 

524 
1656 
1717 
2330 


190 

449 

825 

1050 


426 

588 

750 

975 

1492 

1997 

2255 


1140 
1657 
1718 
2343 


191 

468 

841 

1051 


2165 


228 

478 

890 

1498 

1914 

2391 

436 
601 
756 
1068 
1504 
2006 
2282 


1143 
1658 
1719 
2348 


224 

469 

877 

1137 


2297    :'70 


247 

495 

891 

1499 

1915 

2426 

449 
630 
764 
1072 
1554 
2010 
2298 


2057    2059    2071 


1147 
1659 
1740 
2353 


239 

487 

878 

1138 


270 

496 

913 

1500 

1967 

2427 

455 
643 
766 
1082 
1599 
2011 
2300 


2326    2328    2337    2339    2341 


2474 


2072 

1150 
1660 
1750 
2386 


265 

488 

898 

1187 


289 

525 

978 

1577 

1999 

2453 

469 
644 
768 
1084 
1603 
2026 
2306 


1154 
1666 
1751 


284 

506 

945 

1220 


308 

605 

979 

1609 

2005 

2454 

475 
651 
826 
1085 
1636 
2034 
2311 


1157 
1667 
1752 


304 

568 

946 

1324 


329 

606 

1112 

1610 

2012 


488 
652 
827 
1089 
1637 
2052 
2469 


1160 
1668 
1753 


324 

569 

988 

1325 


348 

661 

1113 

1639 

2074 


493 
704 
830 
1091 
1638 
2073 
2482 


1163 
1669 
1754 


344 

626 

997 

1329 


368 

662 

1171 

1640 

2075 


507 
717 
842 
1092 
1809 
2113 
2483 


2165    2167    2297    2299    2305 


1166 
1670 
1755 


364 

627 

1006 

1440 


SEQ  2064 


1441 
1902 


1442 
1903 


1443 
1959 


1569 
1998 


1594 
2004 


1595 
2048 


1628 
2049 


1629 
2112 


1703 
2113 


1704 
2250 


1798 
2259 


1799 
2260 


1865 
2362 


1866 
2363 


SEQ  2077 


SEQ  206A 


IRGET 

i 

! RPCAPX 


RPUT 
RTN 


SETUUO 

STOR 

TMSC 

TMSGC 

TMSGCD 

TMSGD 

TRPSET 

TTIDEC 

USRIOX 

XEICHN 

XEIFCN 

XEISST 


UA1 

1902 

2A18 

175 

1356 

2453 

2AA8 

169 

UA1 

132 

283 

438 

8A0 

1219 

1690 

21 7A 

2070 

2K9 

163A 

1750 

1U3 

A15 

1K7 

2A21 

2060 

2A24 

2151 

2K9 

2345 


1442 
1903 
2419 
195 
1498 


190 

1442 

138 

290 

458 

850 

1226 

1778 

2183 

2151 
1656 
1751 
1150 
419 
1154 


2327 
2325 


1443 
1959 
2446 
427 
1499 


391 

159/. 

146 

303 

478 

859 

1357 

1834 

2228 

2325 
1657 
1752 
1629 
424 


2340 
2338 


1569 
1998 
2447 
457 
1609 


448 

1628 

153 

309 

496 

868 

1435 

1886 

2235 

2327 
1658 
1753 
1644 
514 


1594 
2004 

477 
1639 


468 

1703 

168 

323 

515 

876 

1502 

1915 

2241 

2338 
1659 
1754 
1651 
524 


1595 
2048 

495 
1777 


487 

1798 

176 

330 

526 

891 

1505 

1968 

2245 

2340 
1660 
1755 
1681 
1140 


1628 
2049 

1833 


568 

1865 

189 

343 

606 

914 

1556 

1991 

2286 


1666 
1756 
1717 
1157 


1629 
2112 


626 

1902 

196 

349 

662 

1087 

1582 

2014 

2391 


1667 
1757 
1718 
1160 


1703 
2113 

773 

1914 


699 

2048 

223 

363 

774 

1094 

1593 

2075 

2417 


1668 
1760 
1719 
1163 


1704 
2250 

809 
2074 


877 

2112 

229 

369 

787 

1100 

1605 

2099 

2427 


1669 

1740 
1166 


1798 
2259 

890 
2140 


945 

2259 

238 

376 

810 

1136 

1610 

2108 

2433 


1799 
2260 

978 
2285 


1050 

2362 

248 

381 

815 

1172 

1640 

2142 

2445 


J65 
562 


1670    1674 


2330 
2154 


2343 
2352 


1112 
2390 


1137 

2418 

264 

390 

824 

1186 

1647 

2157 

2454 


1684 
2346 


1866 
2363 

1171 
2426 


1324 

2446 

271 

428 

832 

1201 

1677 

2170 


1687 


SEQ  2077 


SEQ  2065 


DFPTAU  MACRO  X53B(1242)  10:16,  i-Jul-85 

nPDTAll   MAT      1A-M;»v-R'i  17:4^ 


Page  1 
CITY 


UTI 


Routines  Module 


SEQ  2078 


SEO  2065 


DFPTAU  MACRO 
DFPTAU  MAC 

1 


X53B(12A2)  10:16,  i-Jul-SS  Paae  1  ^   .   ^  ^  , 
-     -  UTILITY  Routines  Module 


16-Mdy-85  17:43 


SEQ  2078 


4 
5 


9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

32 
33 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


TITLE 
SUBTIL 

SALL 
.DJREC 


DFPTAU 

UTILITY  Routines  Module 


;First  line  binary  only  in  listing 


FLBLST 

SEARCH  DFPTA.MONSYM 

Typeout/typin  routines 

ENTRY   CLRBUFJTYYES.PNTDEV        ^   ^^^^^ 
ENTRY   PPDEC,PPDECF,PSDN.ALTCHH,CONVSX,.PNTOC 

Clock  handling  routines/variables 

ENTRY   STCLOK,MONTIM,PTIME,RUNTME,PSTAMP 
INTERN  CURTIM,MAXTIM,DEBTIM.USTIM.FORPNT.LCHAR 

TOPS-10/20  miscellaneous  routines 

ENTRY   .CLOSE. .RESET, .EXIT 

File  handling  routines 

ENTRY   FINIT,FGETU,FINCMD,F0AR6 
INTERN  UNAME 

Data  pattern  routines 

ENTRY   BUF6EN,BUFC0M,PATPNT.PAT8UF 
INTERN  WRDERR 

Switch  handling  routines 

ENTRY   .SWCHP,SUITT..ISWT,SWCHPT,SWCOM 
INTERN  .RSWIT,.LSWIT,SWRGT 

Miscellaneous  routines 


ENTRY 
INTERN 

Scope  routine 

ENTRY 
INTERN 


PARSER,. COMM..SARG,.OARG,.DARG.CHKARG,LASARG,DECYN,FIOFF 
.CGOT,ARGUM,AkGFLG 


SC0PE1 
SC0SW,SC00FF 


EXTERN's  located  in  DFPTAI.MAC 

EXTERN  UDEBLlG,MDEBUG,BUFF,CADDR,CU0RDL,CW0RDR,yUT,SPREP2 

EXTERN  INDLiS,TSTCLS.TSTNUM,TSTSUB,TSTPC,TSTPNT.TSTREP.TSTOFF 

EXTERN  FI.\rUT:FINECH:TAKFIL,TPAT,PORTCI,PORTNI,NISEL,CISEL,PORSEL 

EXTERN  ALTF.TSTINH 


<:fq  po<s<s 


DFPTAU     MACRO  X53B(1242)   10:16     1-Jul-85  Page  2 

r^^^^T•..       u>r  iz_u OC    17. /?  llTIlTTV    Dniit-inoc    Mnrliilo 


SEQ  2079 


SEQ  2066 


DFPTAu  WACRO  X53B(12A2)  10:16  1-Jul-85  Page  2 


DFPTAU  MAC 


16-Mdy-85  17:43 


5A 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6A  000000' 

65 


UTILITY  Routines  Module 

;  EXTtRN's  located  in  DFPTAI.MAC  (Port  Device  Handling  Routines  module) 
EXTERN  RDCSR,GETLOG,LOGHNT,FFF 

•/>♦»*••♦•*******♦***•*♦♦♦♦**♦******♦****♦**********♦****************** 
;  ZU  -  Address  for  use  in  DDT 


StQ  2079 


ZU: 


;  address  of  00000* 


ccn  onA7 


DFPTAU  MACRO  X53B(1242)  10:16,  1-JuL-85  Page  3 


D^i  1^  1  r\  AC' 


SEQ  2080 


SEO  2067 


DFPTAU 
OFPTAU 


78 
7Q 
80 
81 
82 
83 
b^ 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
95 
96 
7 


I 


9 
100 
V 
1i 
105 
10A 
105 
lOu 


MACRO  X53B(1242)  10:16  l-JuL-85  Page  3  ,  .  „   . 
MAC    16-Mdy-85  17:43       Pnntout/Typin  Routines 

SUBTIL  Pn'ntout/Typin  Routines 

•  #«»**♦**»**♦**••*****♦♦♦♦♦*♦**'********** 
;♦  CONVSA  -  Convert  sixbit  to  octdl 


SEQ  2080 


»*♦*«««*«****•**♦*♦»•******** 


000000' 
000002' 
000003' 
000004 ' 
000005' 
000006' 
000007' 
000010' 
00001 1 ' 
000012' 
000013' 
00001 4 • 
000015' 
000016' 


261  17 
202  01 
200  01 
202  01 
400  02 
134  01 
322  01 
301 
303 

254  00 
405  01 
242  02 
272  01 
254  00 


01 
01 


0  00  000000 
0  00  006114' 
0  00  004063' 
0  00  000027' 
0  00  000000 
0  00  000027' 
0  00  000022' 
0  00  000020 
0  00  000027 
0  00  000017' 
C  00  000007 
0  00  000003 
0  00  000002 
0  00  000006' 


000017'  26?  17  0  00  000002 
000021'  2o<   17  0  00  000000 


000022'  200  01  0  00  000002 

^00023'  262  17  0  00  000002 

U00025'  350  00  0  17  000000 

000026'  263  17  0  00  000000 

000027'  000000  000000 

000030'  000000  000000 


Argument 


AC1  -  Contains  a  word  of  sixbit  (which  may  or  may  not 
be  an  octal  number). 


;  Return 


+1  -  Error  -  not  a  valid 
+2  -  Ok  -  number  convert 


CONVSX:  RPUT  (0,2) 

MOVEM  1,C0NVSS# 

MOVE  1.CP0INT  6,C0NVSSJ 

MOVEM  1,C0NVSr' 

SETZ  2. 

CONVSO:  ILDB  1.C0NVSP 

JUMPE  UCONVSI 

CAIL  I.^O 

CAILE  1.27 

JPST  CONVSE 

ANDI  1.7 

LSH  2.3 

ADDM  1.2 

JRST  CONVSO 


;  Error 
CONVSE: 


RGET    (2.0) 
RTN 


;  Dtne  -  put  result  into  ACI 
C0NVS1 


CONVSP: 


MOVE 
RGET 
AOS 
RTN 

0 
0 


(p5 


octal  number 

'  ok  -  in  ACI 
•*****♦»**»**********♦**♦**♦ 

sai  /  AC'S 

save  argument 

set  to  get  sixbit  char 

save  the  pointer 

clear  result 

get  a  char 

zero  -  all  done  -  exit 

see  if  its  in  octal  range 

no  -  error      .  . 
yes  -  save  only  digit 
multiply  by  8 
insert  in  number 
get  next  digit 


restore  AC'S 
return  +1 


restore  AC's 
set  up  return  +«. 
exit 

number  to  convert 
trailing  zeros 


DFPTAU 
DFPTAU 

107 

108 

109 

110 

111 

112 

113 

IH 

115 

116 

117 

118 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 

13A 

135 

136 

137 

138 

139 

140 

Ul 

K3 
U4 
US 
K6 
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SEQ  2081 


000031 • 
000032' 
000033" 
000034' 
000035' 
000036' 
000037' 
000040' 
000041 ' 


261  17 
200  00 
306  00 
254  00 
302  00 
306  00 
254  00 

262  17 
254  00 


0  00  000000 
0  00  030232 
0  00  000033 
0  00  000042' 
0  00  000175 
0  00  000176 
0  00  000042' 

0  00  000000 

1  00  C30113 


000042'  262  17  0  00  000000 
000043'  262  17  0  00  006137' 
000044'  254  00  1  00  030063 


000045* 
000046' 
000047' 
000051 ' 
000052' 
000053' 
000054' 
000055' 
000056' 
000060' 


Sic  00 
263  17 

261  17 
201  01 
332  00 
104  00 
Z66  00 
051  11 

262  17 

263  17 


00  03003^ 
00  000000 
00  000000 
00  000100 
00  030516 
00  000100 
00  030516 
00  OOOOCO 
00  000001 
00  000000 


*  ALTCHH  -  Handle  altmode  intercept 

If  an  altmode  has  been  typed  in  response  to  tSe  question  asked 
immediately  before  this  call  -  exit  through  ALTMcO. 

If  an  altmode  has  not  been  typed  -  exit  to  the  address  specified 
by  the  r  ght  half  of  the  UUO  (in  SSVUUO). 

;#*******l^*************************************** ************ ********* 


ALTCHH:  PUT 
MOVE 
CAIN 
JRST 
CAIE 
CAIN 
JRST 
GET 
JRST 

ALTCHX:  GET 
GET 
JRST 


0 

SCHRIN 

33 

ALTCHX 

175 

176 

ALTCHX 

0 

a$svuuo 

0 

XX* 

aALTMGO 


save  ACO 

get  last  character  typed 

altmoo'e? 

yes  -  handle 

altmode? 

altmode? 

yes  -  handle 

no  -  restore  ACO 

exit 


;  restore  ACO 

;  take  off  return  address 

;  go  to  intercept  address 


;^*****************************************************^(^^^,^^^^l^(^<f<^^^^^^ 

;♦  CLRBUF  -  Clear  input  buffer 

;#  ■♦♦******»*v**************»*************************,^j^jt..^^^^^^<^<^^^^^^^^^^ 

user  mode? 

no  -  "eturn 

save  some  AC's 

set  UD  TOPSIO  argument 

TOPS-20? 

yes  -  clear  TTY  input  buffer 

tOPS-10? 

yes  -  clear  input  buffer 

restore  AC's 

return 


CLRBUF:  SKIPN 

USER 

RTN 

RPUT 

(0,1) 

novEi 

1,100 

SKIPE 

MONTYP 

CFIBF 

SKIPN 

MONTYP 

CLRBFI 

R6ET 

(1,0) 

RTN 

DFPTAU  MACRO  X53B(1242)  10:16 
DFPTAU  HAC    16-Nay-85  17:43 


1-Jul-85  P^ge  5 

Pnntout/TvDin  Routines 


CFQ  TOfl? 


DFPTAU 
DFPTAU 

K7 

148 

K9 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 
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SEQ  2082 


000061 • 
000064' 
000065' 
000066' 
000067' 


000070' 
000071 ' 
000072' 
000073' 
000074' 
000075' 
000076' 
000077' 
000100' 
000101 ' 
000104' 


*  TTYYES  -  Answer  yes  or  no  question 

Calling  sequence:  MOVE  Lfn^Z    <Question?>3 

GO   TTYYES 
Return+1  ==>  No 
Return+2  ==>  Yes 


261  17 
202  00 
256  00 
037  01 
037  10 


007  00 
404  00 
241  00 
302  00 
306  00 
334  00 
254  00 
306  00 
350  00 

262  17 

263  17 


00  000000 
00  000002 
00  000002 
00  004064' 
00  000003 


00  004067' 
00  004072' 
00  000006 
00  000071 
00  000056 
00  000000 
00  000065' 
00  000071 
17  777775 
00  000002 
00  000000 


TTYYES:  RPUT  (0.1,2) 

MOVEM  2 

TTYYO:  XCT  2 

FMS6  <  <Y  or  N)  -  > 
TTYY1 :  TTSIXB 

ALTCHK  [SKIPE  STWCNT 
JRST   TTYYO 


AND 

ROT 

CAIE 

CAIN 

SKIPA 

JRST 

CAIN 

AOS 

R6ET 

RTN 


JRST   TTYYIJ 
C770000,,0] 
6 
71 
56 

TTYYO 
71 

-3(P) 
(2.1.0) 


save  AC'S 

get  printout  in  AC? 

print  question 

print  r  or  N  section 

get  it 

aid  a  timeout  occur? 

no  -  error  -  reask  question 

yes  -  just  keep  looking  for  answer 

mask  out  all  but  first  character 

right  justify  byte 

N? 

yes  -  continue 

neither  -  reask  question 

Y? 

increment  return 

restore  AC's 

return 
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SEQ  2083 


D 


OFPTAU 
DFPTAU 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 
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SEQ  2083 


DF 
OF 


000105'  261  17  0  00  000000 


000106' 
000107' 
000110' 
000111' 
000112' 


321  00 
037  15 
037  00 

262  17 

263  17 


00  004074' 
00  000000 
00  004077' 
00  000000 
00  000000 


000113'  261  17  0  00  000000 


000114'  321  00  0 

000115'  037  15  0 

000116'  037  01  0 

000117'  262  17  0 

000120'  263  17  0 


00  004100' 
00  000001 
00  000056 
00  000000 
00  000000 


*  PSDN  -  Prints  signed  decimal  numbers 

PSDN  prints  the  contents  of  ACO  as  a  signed  decimal  number  followed 
by  a  period.  Leading  zeros  are  suppressed. 

PSDN:   PUT 

JUMPL   CTMSG   <-> 


PNTDEC 
TMSG 
GET 
RTN 


MOV\'   (P) 
JRST   .+1] 


<•> 


;  pr  in*,  the  number 
;  follow  with  a  period 


PSDNF :  PUT 

JUMPL  CFMSG  <-> 
MOVN  (P) 
JRST   .+13 

PNTDCF 

PNTCIF  "." 

GET 

RTN 
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Routines 


SEQ  20.  . 


OFI 

rvcf 


DFPTAU 
OFPTAU 

■•00 

2. 

iO: 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
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SEQ  20:  * 


DFF 
DFf 


.  0121' 
OvOISO' 
OOv.131' 
000.32' 
000133' 
000134' 
000135' 
000136' 
000137' 
000140' 
00014  V 
000142' 
000143' 
000144' 
000145' 
000146' 
000147' 


000150' 
000151' 
000152' 
000153' 
000162* 


261  17 
135  01 
661  01 

261  17 

200  01 
256  00 

262  17 
214  02 
243  02 

201  03 
231  03 
135  02 
270  02 
275  02 
335  00 
370  00 
333  00 


256  00 
200  00 
037  16 
*:62  17 
263  17 


;*  .PNTOC  -  Print  n  digit  octal  number  with  leading  zeros  suppressed 


00  000000 
00  004103' 
00  200040 
00  0C0001 
17  777772 
17  000000 
00  006137' 
00  000001 
00  000141' 
00  000043 
00  000003 
00  004104' 
00  000003 
00  000014 
00  000001 
00  000002 
00  000002 


.PNTOC:  RPUT 
LDB 
TLO 
PUT 
MOVE 
XCT 
GET 

Novn 

JFFO 

MOVE! 

IDIVI 

LDB 

ADD 

SUBI 

SKIP6E 

SOS 

SKIPLE 

XCT 


02  004131' 
00  000001 
00  000003 
00  030114 
00  000000 


MOVE 
PNTOC S 
R6ET 
RTN 


(0J.2,3,4.$SVUUO,$SVUPC) 
1,CP0INT  2S,$SVUU0j53  ; 
1.200040 

1,-6(P) 

(P) 

XXM 

2,1 

2. .+2 

3.*D35 

3,3 

2, [POINT  4,$SVUU0,12J 

2,3 

2,*D12 

2 
2 
CJFCL 

TMSG  <  > 

TMS6  <  > 

TMSG  <   > 

TMSG  <    > 

TMSG  <    > 

TMSG  <     > 

TMSG  <      > 

TMSG  <       > 

TMSG  <        > 

TMSG  <        > 

TMSG  <         >J(25 
1 

($SVUPC,$SVUU0, 4,3,2,1,05 


get  address  portion 

make  into  a  WOVE  1,"  instruction 

put  on  stack 

restore  AC1 

get  number  into  AC1 

pop  off  temporary  stack  location 

?et  absolute  value 
ind  out  where  number  starts 
assume  at  least  one  bit  set 
calculate  #  of  leading  O's  there  are 
get  AC  field 
calculate  number  of  spaces  to 

print 
number  is  actually  negative? 
yes  -  allow  for  minus  sign 
nijnber  of  spaces  still  1..n? 
yes  -  print  leading  spaces 

2 
3 

4 
5 
6 
7 
8 
9 
10 

get  number 
print  it 

exit 
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SEQ  2085 


DFP' 


DFPTAU 
DFPTAU 
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*  PPDEC  -  Print  decimal  number  in  a  field  of  size  x. 
Call  is:  PDEC  X,ADR 


SEQ  2085 


0FP1 
DFP1 

1 
1 
1 
1 


000163' 
000167' 
000170' 
000171' 
000172' 
000173' 
000174' 
000175' 
000201 ' 


261  17  0 
200  00  1 


135  01 
322  00 
250  01 
037  16 
202  01 

262  17 

263  17 


00  000000 
00  030113 
00  004104' 
00  000202' 
00  030264 
00  000000 
00  030264 
00  030114 
00  000000 


000202'  322  01  0  00  000172' 


PPDEC:  RPUT 
MOVE 
LDB 
JUMPE 

PDECO:  EXCH 
PNTDS 
MOVEM 
RGET 
RTN 

PDECSS:  JUMPE 
XCT 


(0.1,$SVUUQ.$SVUPC) 

assvuuo 

1.CP0INT  4,$SVUU0.12] 

PDECSS 

1,RADLSC 

1.RADLSC 
($SVUPC.$SVUUOJ,0) 


000203'  256  00  0  01  004206' 
000204'  262  17  0  00  030114 
000210'  263  17  0  00  000000 


RGET 
RTN 


1, PDECO 
CtMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 

TMSG 


<0> 
<0> 
<  0> 


save  ACS 

get  number  to  print 

get  size  field 

special  print 

put  in  position 

no  -  print  the  number 

restore  old  field  size 

restore  ACs 

exit 

make  sure  length  field  is  specified 
print  a  bunch  of  spaces 


< 
< 
< 
< 
< 
< 
< 
< 
< 
< 
< 
< 
< 


0> 
0> 
0> 


($SVUPC,$SVUU0J,0) 


0> 
0> 
0> 

0> 

0> 
0> 
0> 
0> 

o>:(i) 


restore  ACs 
exit 
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SEQ  2086 


DFPT/ 

nCDTi 


DFPTAU 
DFPTAU 

27A 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
30- 
30^ 
305 
306 
307 
308 
309 
310 
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SEQ  2086 


;*  PPDECF  -  Force  print  decimal,  number  in  a  field  of  size  x. 
;  Call  is:  PDECF  X.ADR 


000211' 
000215' 
000216' 
000217' 
000220* 
000221 ' 
000222' 
000223' 
000227' 


261  17 
200  00 
135  01 
322  00 
250  01 
037  16 
202  01 

262  17 

263  17 


00  000000 
00  030113 
00  004104' 
00  000230' 
00  030264 
00  000001 
00  030264 
00  030114 
00  000000 


000230'  322  01  0  00  000220' 


PPDECF:  RPUT 
MOVE 
LDB 
JUMPE 

PDECFO:  EXCH 
PNTDSF 
MOVEM 
RGET 
RTN 

PDECFS:  JUMPE 
XCT 


(0J,$SVUUO,$SVUPC) 

SSSVUUO 

1, [POINT  4,$SVUU0,12J 

PDECFS 

URADLSC 

1.RADLSC 
($SVUPC.$SVUU0,1,0) 


1, PDECFO 
CFMSG   <0> 


0> 
0> 
0> 


000231'  256  00  0  01  004226' 
000232'  262  17  0  00  030114 
000236'  263  17  0  00  000000 


RGET 
RTN 


FMSG  <0> 

FMS6  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 

FMSG  < 
($SVUPC,$SVUU0J,0) 


save  ACs 

get  number  to  print 

get  size  field 

special  print 

put  In  position 

no  -  print  the  number 

restore  old  field  size 

restore  ACs 

exit 

make  sure  length  field  is  specified 
print  a  bunch  of  spaces 


0> 
0> 
0> 
0> 
0> 
0> 
0> 
0> 


0^ 
0> 

0>](1) 

;  restore  ACs 

;  exit 
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SEQ  2087 


DFPTAU 
DFPTAU 

311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
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SEQ  2087 


000237' 
000241 ' 
000242* 
000243' 
000244' 
000245' 
000246' 
000247' 
000250' 
000251 • 
000252' 
000253' 
000254' 
000255' 
000257' 

000260' 


261  17  0 
332  00  0 
254  00  0 
7  024  20 
402  00  0 
402  00  0 
7  024  20 
7  J20  04 
254  00  0 
476  00 


260  17 
255  00 
124  01 

262  17 

263  17 


00  000000 
00  030037 
00  000251' 
0  00  420000 
00  000510 
00  000511 
0  00  002000 
0  00  000260' 
00  000255' 
00  006125' 
00  000262' 
00  000000 
00  000260' 
00  000001 
00  000000 


SUBTTL  Clock  Handling  Routines 


*  STCLOK  -  Initialize  program  runtime  clock 


This  routine  initializes  the  clock  for  the  program, 
conjunction  with  routine  "RUNTME". 


It  is  used  in 


.In  exec  mode  this  routine  resets,  restarts  and  reads  the  current 

microsecond  time  clock  into  memory  for  reference  by  the  runtime 

calculator  TIUNTME  .  The  clock  is  set  up  so  it  causes  a  hardware 
interrupt,  it  merely  free  runs. 

In  user  mode  the  program  run  time  is  obtained  in  milliseconds  with 
a  monitor  call,  converted  to  microseconds  and  stored  for  future 
reference  by  the  runtime  calculator  "RUNTME". 

This  routine  may  be  caUed  anytime  to  reset  the  program  runtime. 

Call  Sequence:     60  STCLOK     ;  calls  the  routine 

P  tJ-l        ;  always  returns  +1 


STCLOK:  RPUT 
SKIPE 
JRST 
CONO 
SETZM 
SETZM 
CONO 
DATAI 
JRST 

STCU:   SETOM 
GO 
JFCL 
DMOVEM 

STCX:   R6ET 
RTN 


(0,1) 

USER 

STCU 

24-1818! 1B22 

5l6 

511 

24,1825 

20,TMRST1 

STCX 

INITM# 

MONTIM 


1JMRST1 
(1,0) 


TMRST1:  BLOCK   2 


save  AC'S 

in  user  mode? 

yes 

stop  »nd   reset  the  clock 

clear  EPT  locations 

for  timer  data 
turns  the  meter  on 
save  a  double  word 
done  -  exit 

invalidate  initial  time 
get  monitor  time  in  microseconds 

in  meter  format 
save  a  double  word 
restore 
exit 

2  word  initial  time  storage 
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SEQ  2088 
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SEQ  2088 


DFPTAU 
DFPTAU 


1^ 


365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 

I 

395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 


00026 r 
000263' 
000264' 
000265' 
000266' 
000267' 
000270' 
000271 ' 
000272' 
000273' 
000274' 
000275' 
000276' 
000277' 
000300' 
000301 • 
000302' 
000303' 
000304' 
000305' 
000306' 
000307' 
C 00310' 


261  17 
332  00 
254  00 

200  01 
047  01 
400  01 
221  01 
336  00 
231  01 
332  00 
231  01 
254  00 

201  01 
104  00 
320  17 
355  00 

202  01 
274  01 
400  02 
225  01 
244  01 

262  17 

263  17 


000311'  261  17 

000312'  200  03 

000313'  402  00 

000314'  260  17 

000315'  262  17 

000316'  263  17 


00  000003 
00  030516 
00  000276' 
00  004246' 
00  000041 
00  000000 
00  001750 
00  030505 
00  000074 
00  030505 
00  000062 
00  OD0301 ' 
00  400000 
00  000014 
00  004247' 
00  006125' 
00  006125' 
00  006125' 
00  000000 
00  001750 
00  000014 
00  000003 
00  000000 


0  00  C00003 
0  00  004131 ' 
0  00  006121' 
0  00  000325' 
0  00  000003 
0  00  000000 


000317'  261  17  0  00  000003 

000320'  200  03  0  00  004131' 

9551?!!  *76  00  0  00  006i2r 

000322'  260  17  0  00  000325' 


*  MONTIM  -  Read  program  runtime  from  monitor 

Here  is  a  subroutine  called  by  both  STCLOK  and  RUNTME.  It  reads 
current  program  runtime  in  milliseconds  from  the  monitor,  converts 
tne  time. to  microseconds  and  positions  the  microsecond  count  in  AC2 
and  AC1 jn  the  same  59  bit  format  you  get  when  you  read  the  meter 
board  microsecond  clock.  The  microsecond  count  is  then  returned  in 
AC1  and  AC2  


Call: 


60    MONTIM        ;  call  the  routine 

RTN+1  ;  microsecond  time  in  AC1  and  AC2 


MONTIM: 


MONTI 0: 


MONTH; 


PUT 

3 

SKIPE 

MONTYP 

JRST 

MONTI 0 

HOVE 

1,C136,J1] 

6ETTAB 

1. 

SETZ 

1.               ; 

IMULI 

1,*D1000 

SKIPN 

CYCL60 

IDIVI 

1,*D60 

SKIPE 

CYCL60 

IDIVI 

1,*D50 

JRST 

MONTH 

MOVE  I 

1,.FHSLF 

TIME 

ERCAL 

:rtnj                      ;• 

SKIP6E 

NITM# 

MOVEM 

,INITM# 

SUB 

1,INITM# 

SETZ 

2, 

MULI 

1,*D1000 

ASHC 

1,*D12 

GET 

3 

RTN 

save  AC3  (RUNTM  JSYS  destroys  it) 

TOPS10? 

no  -  go  ^»andle  TOPS20 

6ETTAB  I'rsm  for  system  uptime  in  jiffies 

ask  the  monitor 

not  likely  it  will  fail 

convert  to  milli-jiffies 

then  to  milliseconds 

if  60  Hz  power  frequency 

but  if  European  frequency 

use  different  divisor 

get  process  handle 
does  a  • IME  JSYS 
error  not  likely 
initial  time  valid? 
no  -  set  it  up 
subtract  initial  time 
clear  AC2 
converts  ms  to  us 
put  data  in  proper 
restore  AC3 
and  exit 


microsecond  format 


;*  PTIME  -  Print  time  of  day 

;#*****«****************t**«rt***********«*i^«*i^*<   ******************** 


PTIME:  PUT 
MOVE 
SET2M 
GO 
GET 
RTN 

PTIMEF:  PUT 
MOVE 
SETOM 
GO 


3,CJFCL] 
FORPNT* 
RUNTME 
3 


3 

3.CJFCL] 

FORPNT 

RUNTME 


;  save  AC3 

;  non-zero  for  RUNTME 

;  clear  forced  print  flag 

;  go  print  out  time 

;  restore  AC3 

;  return 

:  save  AC3 

;  non-zero  for  RUNTME 

;  set  forced  print  flag 

;  go  print  out  time 


DFPTAU  MACRO  X53B(1242)  10:16  1-Jul-85  Page  11-1 
DFPTAU  MAC    16-May-85  17:43       Clock  Hand I i 


ng  Routines 


SEQ  2089 


DFPTAU 
DFPTAU 


DFPTAU 
DFPTAU 

407 
A08 
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000323'  262  17  0  00  000003 
000324'  263  17  0  00  000000 


GET 
RTN 
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SEQ  2089 


restore  AC3 
return 


SEQ  2090 


DFPTAU 
DFPTAU 
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SEQ  2090 


409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 


*  RUNTME  -  Calculate  and  print  program  runtime 

This  reports  the. elapsed  time  (exec  or  user  mode)  since  the  last 
call  to  the  initialize  routine  STCLOK  .  The  runtime  is  printed  on  the 
current  line  and  no  line^feed  is  printed  at  the  end  of  the  message. 
It  IS  printed  as   Ih  20m  48s 

In  exec  mode, the  time  is  calculated  by  using  the  microsecond  clock 
that  was  initialized  in  the  call  to  "STCLOK".  In  user  mode,  "RUNTIME" 


monitor  calls  are  used  and  the  difference 
call  to  "STCLOK". 


is  calculated  from  the  last 


.  Arguments:  AC3  -  contains  message  to  print  -  if  zero  then  the  time 
IS  only  .Cc'lculated  and  the  routine  returns  (in  TMS6  format).  The 
current  time  is  always  placed  in  CURTIM  (in  seconds). 


Call  sequence: 


call  the  routine 


60  RUNTME 

RTN+1        ;  always  returns  +1 


000325'  261  17  0  00  000000 


000331 • 

332  00  0  00  030037 

SKIPE 

000332' 

254  00  0  00  000335' 

JRST 

990333' 

7  020  04  0  00  000415' 

DATAI 

000334' 

254  00  0  00  000337' 

JRST 

000335' 

2oJ  17  0  00  000262' 

RUNTMO: 

60 

000336' 

124  01  0  00  000415' 

DMOVE 

:  Calcu 

late  t 

000337' 

120  00  0  00  000415' 

RUNTM1 : 

DMOVE 

000340' 

115  00  0  00  000260' 

DSUB 

000341 ' 

244  00  0  00  777764 

ASHC 

000342' 

234  00  0  00  004250' 

DIV 

000343' 

202  00  0  00  000421' 

MOVEM 

000344' 

202   01  0  00  000422' 

MOVEM 

000345' 

230  CO  0  00  004250' 

IDIV 

000346' 

202  00  0  00   000417' 

MOVEM 

RUNTME:  RPUT    (0,1,2.3) 

;  6et  the  microsecond  count 

USER 

RUNTMO 

20,TMRUN1 

RUNTMl 

MONTIH 

1,TMRUN1 


TMRUN1 
TMRST1 
-*D12 

c*Diooo: 

DE8TIM 
1.USTIM 
C^DIOOO] 
CURTIM 


Exit  if  not  printing 


000347'  336  00  0  00  000003 
000350'  254  00  0  00  004251' 


SKIPN 
JRST 


3 

CR6ET 
RTNJ 


(3,2,1,0) 


save  AC'S 


in  user  mode? 

yes 

exec  mode,  get  dble  word  time 

go  to  common  code 

get  time  from  mon  calls  to  AC1,AC2 

save  microsecond  count  in  double  word 


get  current  run  time 

calculates  actual  run  time 

right  justify 

convert  us  to  ms 

save  in  debug  time  location 

save  microseconds  also 

convert  ms  to  seconds 

save  in  current  time  location 


message  to  print? 
no  -  restore  AC's  and 
return 
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ines 


SEQ  2091 


DFPTAU 
OFPTAU 

MACRO  3;53B(1242)  10:16  1-Jul- 
MAC    16-May-85  17:43 

•85  Page  13 

Clock  Handling 

Routines 

458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 

ti! 

484 
485 

i 

490 
491 
492 
493 
494 
495 

500 
501 
502 

504 

;  Print 

■  the  time 

000351  • 
000352' 
000353' 
000354' 
000355' 

Ht  §8 1 8?  mi 

202  01  0  00  000003 
231  00  0  00  000074 
322  00  0  00  000366' 

XCT 

IDIVI 

MOVEM 

IDIVI 

JUMPE 

3 

*D60 
1,3 
*D60 
RUNTM2 

;  Print  hours 

000356' 
00C357' 
000360' 
000361 • 

332  00  0  00  006121' 
037  15  0  00  000001 
336  00  0  00  006121' 
037  15  0  00  000000 

SKIPE 
PNTDCf 
SKIPN 
PNTDEC 

FORPNT 
FORPNT 

000362' 
000363' 
000364' 
000365' 

332  00  0  00  006121' 
037  01  0  00  004256' 
336  00  0  00  006121* 
037  00  0  00  004256' 

SKIPE 
FMS6 
SKIPN 
TMS6 

FORPNT 
<h  > 
FORPNT 
<h  > 

;  Print  minutes 

000366' 
000367' 
000370' 
000371 • 
000372' 
000373' 
000374' 
000375' 
000376' 

200  00  0  00  000001 
332  00  0  00  006121' 
037  15  0  00  000001 
336  00  0  00  006121 ' 
037  15  0  00  000000 
332  00  0  00  0061 ?1* 
037  01  0  00  004  ;7' 
33-  00  0  00  006.^1* 
037  00  0  00  004257* 

RUNTM2: 

HOVE 

SKIPE 

PNTDCF 

SKIPN 

PNTDEC 

SKIPE 

FMS6 

SKIPN 

TMS6 

1 
FORPNT 

FORPNT 

FORPNT 
<ffl  > 
FORPNT 

<m  > 

;  Print 

seconds 

000377' 
000400' 
000401 • 
000402' 
000403' 
000404' 
000405' 
000406' 
000407' 

ifz  §§  §  8§  8ra- 

037  15  0  00  000001 
336  00  0  00  006121' 
037  15  0  00  000000 
332  00  0  00  006121* 
037  01  0  00  004260* 
336  00  0  00  006121* 
037  00  0  00  004261  * 

MOVE 

SKIPE 

PNTDCF 

SKIPN 

PNTDEC 

SKIPE 

FMS6 

SKIPN 

TMSG 

3 
FORPNT 

FORPNT 

FORPNT 
<s  > 
FORPNT 
<s> 

000410' 
000414* 

262  17  0  00  000003 

263  17  0  00  000000 

RUNTMX: 

R6ET 
RTN 

(3,2,1.0) 
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SEQ  2091 


;  print  the  message 

;  compute  minutes,  seconds 

;  save  seconds 

;  compute  hours,  minutes 

;  print  hours  if  not  zero 


forced  print? 
yes  -  print  hours 
forced  print? 
no  -  print  hours 

forced  pr  nt? 

yes 

forced  print? 

no 


forced  print? 

yes  -  print  minutes 

forced  print? 

no  -  print  minutes 

forced  print? 

yes 

forced  print? 

no 


forced  print? 

yes  -  print  seconds 

forced  print? 

no  -  print  seconds 

forced  print? 

forced  print? 


restore  AC's 
and  exit 


993 

01 

994 

0 

995 

0 

996 

0 

997 

998 

999 

1000 

Oi 

1001 

01 

1002 

01 

1003 

01 

1004 

01 

1005 

1006 

1007 

1008 

0( 

1009 

Oi 

1010 

0 

1011 

0( 

1012 

Oi 

1013 

01 

1014 

0' 

1015 

01 

1016 

Oi 

1017 

0' 

1018 

0' 

1019 

0( 

1020 

0( 

1021 

0( 

1022 

0( 

1023 

1024 

1025 

1026 

01 

1027 

01 

1028 

SEQ  2092 


OFPTAU 
DFPTAU 

505 
506 
507 
508 
509 
510 
511 
512 
513 
5K 
515 
516 
517 
518 
519 
520 
521 
522 
523 
52A 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
5A0 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
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S£Q  2092 


000415' 

000417' 
000420* 
000421  • 
000422' 


000423' 
000430' 
000431 ' 
000432' 
000433' 
000434' 
000435' 
000436' 


000437' 
000440' 
000441 ' 
000442' 
000443' 
000444' 
000445' 
000446' 
000447' 
000450' 
000451 ' 
000452' 
000453' 
000454' 
000455' 
000456' 
000457' 
000460' 
000461 ' 
000462' 
000463' 
000464  • 


00046^ 
00047! 


000000  000000 

000000  000000 

000000  000000 

000000  000000 


;  Timer  routine  storage 

TMRUNl:  BLOCK   2 

CURTIM:  0 

MAXTIM:  0 

DEBTIM:  0 

USTIM:  0 


microsecond  runtime  saved  here... 

current  time  in  seconds 

maximum  wait  time 

current  time  in  milliseconds 

current  usees  (additional  to  DFBTIM) 


;*  PSTAMP  -  Check  for  an  'S'  typed. 

;#**♦*************************•**************************************• 

;  save  AC's 

;  get  last  character  typed 

;  was  it  an  upper  case-s? 

;  yes  -  print  current  statistics 

;  lower  case-s? 

;  yes  -  print  current  statistics 

;  control-s? 

;  no  -  exit 


print  device  name 

get  test  class 

get  class  description 

print  it 

get  test  number 

print  it 

get  subtest  number 

zero?  yes  -  continue 

no  -  pnnt  it 


print  current  time 

Get  the  switches 
OPRSEL  switch  on? 
SUBRTN  is  counting  passes 
I  am  counting  the  passes 
Load  the  pass  count 
print  it 


261  17  0  00  000000 

PSTAMP:  RPUT 

(0,1,2,3,4) 

200  00  0  00  006126' 

MOVE 

iCHMM 

306  00  0  00  000123 

CAIN 

123 

254  00  0  00  000437' 

JRST 

PSTAMO 

306  00  0  00  000163 

CAIN 

163 

254  00  0  00  000437' 

JRST 

PSTAMO 

302  00  0  00  000023 

CAIE 

023 

254  00  0  00  000465' 

JRST 

PSTAMX 

;  Print  runtime 

data 

037  01  0  00  004262' 

PSTAMO:  FMS6C 

<**  > 

260  17  0  00  004045' 

GO 

PNTDEV 

037  01  0  00  004264' 

FMSG 

<  Test  > 

200  01  0  00  000000* 

MOVE 

1,TSTCLS 

2vJ   00  0  01  000000* 

MOVE 

INDLIS(l) 

037  01  0  00  000002 

PNTSXF 

200  00  0  00  000000* 

MOVE 

TSTNUM 

037  17  0  00  000003 

PNTOCF 

200  00  0  00  000000* 

MOVE 

TSTSUB 

322  00  0  00  000453' 

JUMPE 

.+3 

037  01  0  00  004073' 

FMSG 

<-> 

037  17  0  00  000003 

PNTOCF 

037  01  0  00  004266' 

FMSG 

<  at  > 

260  17  0  00  000317' 

GO 

PTIMEF 

037  01  0  00  004267' 

FMSG 

<in  Pass  > 

260  17  0  00  001571' 

60 

SWITT 

607  00  0  00  000010 

TLNN 

OPRSEL 

334  01  0  00  030047 

SKIPA 

1,PASCNT 

200  01  0  00  000000* 

MOVE 

1,TSTREP 

201  00  0  01  000001 

MOVE  I 

1(1) 

037  15  0  00  000001 

PNTDCF 

037  01  0  00  004271 ' 

FMSGD 

<.  **> 

402  00  0  00  006126' 

PSTAMX:  SETZM 

LCHAR 

:  2  17  0  00  000004 

RGET 

(4,3,2,1,0) 

3  17  0  00  000000 

RTN 

*  '    9  ^   W  ^    W           #**• 

clear  last  character  typed  location 

restore  AC's 

return 


DFPTAU 

MA 

OFPTAU 

MA 

1029 

030 

031 

032 

1033 

1034 

1035 

1036 

1037 

1038 

00 

1039 

00 

1040 

00 

1041 

00 

1042 

00 

1043 

00 

1044 

00 

1045 

00 

1046 

00 

1047 

00 

1048 

00 

1049 

00 

1050 

00 

1051 

00 

1052 

00 

1053 

00 

1054 

00 

1055 

00 

1056 

00 

1057 

00 

1058 

00 

1059 

00' 

1060 

00 

1061 

00 

1062 

00 

1063 

00 

1064 

00 

1065 

00' 

1066 

00' 

1067 

00' 

1068 

00' 

1069 

00' 

1070 

00' 

1071 

00' 

1072 

00' 

1073 

00' 

1074 

00' 

1075 

1076 

00' 

1077 

00 

1078 

001 
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SEQ  2093 


OFPTAU  MAC 
DFPTAU  MAC 


OFPTAU 
DFPTAU 

557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
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SEQ  2093 


000474' 
000501 • 
000502' 
000503' 
000504' 
000505' 
000506' 
000507' 


000510' 
000511' 
000512' 
000513' 
000514' 
000515' 
000516' 
000517' 
000520' 
000521 ' 
000522' 
000523' 
000524' 

000525' 
000526' 
000533' 


,♦  LSTAMP  -  Check  for  an  'S'  typed. 

save  AC'S 

get  last  character  typed 

was  It  an  upper  case-s? 

yes  -  print  current  statistics 

lower  case-s? 

yes  -  print  current  statistics 

control-s? 

no  -  exit 


get  test  class 

get  class  description 

print  it 

get  test  number 

print  it 

get  subtest  number 

zero?  yes  -  continue 

no  -  print  it 


261  17  0  00  000000 

LSTAMP: 

RPUT 

(0,K2,3,4) 

200  00  0  00  006126' 

MOVE 

LW^ft 

306  00  0  00  000123 

CAIN 

12! 

254  00  0  00  000510' 

JRST 

LSTAMO 

306  00  0  00  000163 

CAIN 

163 

254  00  0  00  000510' 

JRST 

LSTAMO 

302  00  0  00  000023 

CAIE 

023 

254  00  0  00  000525' 

JRST 

LSTAMX 

;  Print 

runtime 

data 

037  01  0  00  004273' 

LSTAMO: 

FMSGC 

<**  Looping  on 

Test  > 

200  01  0  00  000442* 

MOVE 

1,TSTCLS 

200  00  0  01  000443* 

MOVE 

INDLISd) 

037  01  0  00  000002 

PNTSXF 

200  00  0  00  000445* 

MOVE 

TSTNUM 

037  17  0  00  000003 

PNTOCF 

200  00  0  00  000447* 

MOVE 

TSTSUB 

322  00  0  00  000522' 

JUMPE 

.+3 

037  01  0  00  004073' 

FMS6 

<-> 

037  17  0  00  000003 

PNTOCF 

037  01  0  00  004266' 

FMS6 

<  at  > 

260  17  0  00  000317' 

GO 

PTIMEF 

037  01  0  00  004300' 

FMSGD 

<  **> 

4ui  00  0  00  006126' 

LSTAMX: 

SETZM 

LCHAR 

262  17  0  00  000004 

RGET 

(4.3,2,1.0) 

263  17  0  00  000000 

RTN 

W    ^^     W    ^"  W                 W     ^     ' 

print  current  tir- 


clear  last  character  typed  location 

restore  AC's 

return 


DFPTAU 
DFPTAU 

1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 


SEQ  2081 


DFPTAU 
DFPTAU 

591 
592 
593 
59A 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60A 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6K 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62A 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
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SEQ  2094 


000534' 
000535' 
000536' 
000537- 
000540' 
000541 • 
000542' 


000543' 
000544' 
000545' 
000546' 
000547' 
000550' 
000551 ' 
000552' 
000553' 
000554' 
000555* 
000556' 
000557' 
000560' 


336  00 
263  17 
336  00 
047  00 
332  00 
104  00 
263  17 


336  00 
263  17 
037  05 

261  17 
336  00 
254  00 
201  01 
104  00 
320  17 

254  00 
070000 

255  00 

262  17 

263  17 


00  030037 

.RESET: 

SKIPN 

USER 

00  000000 

RTN 

00  030516 

SKIPN 

MONTYP 

00  000000 

CALLI 

0 

00  030516 

SKIPE 

MONTYP 

00  000147 

RESET 

00  000000 

RTN 

SUBTTL  T0PS10/20  Related  Routines 

*  .RESET  -  Subroutine  to  issue  a  RESET  JSYS/UUO 

In  exec  mode  it  does  nothing.  In  user  mode  it  issues  the  "^"^npriate 
RESET  UUO/JSYS  that  may  be  desirable  at  the  start  or  end  of   ^,  ogram. 

user  mode? 

no  -  exit 

T0PS10? 

do  a  RESET  UUO 

TOPS20? 

do  a  RESET  JSYS 

exit 

/jf*****************  *************************************************** 

*  .CLOSE  -  Subroutine  to  close  opened  files 

This  does  nothing  in  exec  mode.  In  user  mode  under  T0PS10  and 
T0PS20  It  takes  the  necessary  steps  to  close  the  output  file  which 
IS  necessary  if  you've  been  outputting  to  a  disk  file  and  wish  to 
leave  the  program  .... 

Note  ***  Once  you  do  a  close  from  a  Ctrl-C  intercept  the  PNT  File 
gets  closed  correctly  but  if  you  continue,  the  SUBRTN  PK6  creates  a 
new  PNT  File  and  you  lose  the  old  one. 

skip  if  we're  in  user  mode 

exec  mode 

SUBRTN  PK6  UUO  or  it  won't  work  ok 

save  AC 

TOPS20? 

no  -  go  handle  T0PS10 

get  fork  handle 

close  all  files  JSYS  .. 

error  return 

exit 

CLOSE  D,0  UUO  ...  closes  files 

restore  AC 
and  exit 


0  00  030037 

.CLOSE: 

SKIPN 

USER 

0  00  000000 

RTN 

0  00  000002 

DROPDV 

0  00  000001 

PUT 

1 

0  00  030516 

SKIPN 

MONTYP 

0  00  000555' 

JRST 

CLS10 

0  00  400000 

MOVE  I 

1,.FHSLF 

0  00  000034 

CLZFF 

0  00  004247' 

ERCAL 

CRTNJ 

0  00  000557' 

JRST 

CLSX 

000000 

CLS1C: 

070000, 

,000000 

0  00  000000 

JFCL 

0  00  000001 

CLSX: 

GET 

1 

0  00  000000 

RTN 

CFQ  Tnfl? 
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SEQ  2082 


OFPTAU 
DFPTAU 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 
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SEQ  2095 


000561 '  336  00  0  00  030037 

000562'  263  17  0  00  000000 

000563'  261  17  0  00  000001 

000564'  336  00  0  00  030516 

000565'  254  00  0  00  000572' 

000566'  201  01  0  00  400000 

000567'  104  00  0  00  000170 

000570'  255  00  0  00  000000 

000571'  254  00  0  00  000574' 

000572'  047040  000012 

000573'  255  00  0  00  000000 

000574'  262  17  0  00  000001 

000575'  263  17  0  00  000000 


*  .EXIT  -  Subroutine  to  exit  job  in  user  mode 

In  exec  mode  it  does  nothing.  In  user  mode  it  issues  the  appropriate 
EXIT  UUO  or  HALTF  JSYS  getting  you  back  to  monitor  level.  This  also 
allows  you  to  continue  with  a  continue  command. 

Call  seq: 

60  ^    .EXIT  ;  the  call 

RTN1  ;  rtn+1  always 

;  user  mode? 

;  no  -  exec  mode  -  exit 

;  save  AC1 
;  TOPS20? 
;  no  -  TOPS 10 

;  aet  fork  handle 

;  nalt...  to  monitor  level 

;  here  on  a  continue  command 

;  to  exit  code 

;  EXIT  1.  UUO  (CALLI  12  F=1) 
;  here  on  a  continue  command 

;  restore  thp  AC 
;  exit 


.EXIT: 

SKIPN 
RTN 

USER 

PUT 

SKIPN 

JRST 

1 

MONTYP 

EXTIO 

MOVEI 
HALTF 
JFCL 
JRST 

1,.FHS 
EXTX 

EXTIO: 

047040. 
JFCL 

.000012 

EXTX: 

GET 
RTN 

1 

SEQ  2083 
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DFPTAU 
OFPTAU 

667 
668 
669 
670 
671 
672 
673 
67A 
675 
676 
677 
678 
679 
680 
681 
682 
683 
68A 
685 
686 
687 
688 
689 
690 
691 
692 
693 
69A 
695 
696 
697 
698 
699 
700 
701 
702 
703 


MACRO  X53B(1242)  10:16  l-Jul- 
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000576*  261  17  0  00  000000 
000577'  201  00  0  00  000657' 
000600'  037  05  0  00  000004 


000601 ' 
000602' 
000603' 
000604' 
000605' 
000606' 
000607' 
000610' 
000611' 
000612' 
000613' 


254  00 
037  00 
200  00 
037  00 
037  00 
200  00 
037  00 
037  00 

262  17 
350  00 

263  17 


000614'  037  06  0 

000615'  263  17  0 

000616'  322  00  0 

000617'  350  00  0 

000620'  263  17  0 


00  004302' 
00  004306' 
00  000657' 
00  000002 
00  000056 
00  000660' 
00  000002 
00  004312' 
00  000000 
17  000000 
00  000000 


00  000004 
00  000000 
00  000614' 
17  000000 
00  000000 
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SUBTTL  File  Handling  Routines 

*   FINIT  -  Initialize  reading  of  microcode  file 

Returns:     +1  -  Error  occurred 
+2  -  OK 


SEQ  2096 


Dl 

Dl 


FINIT: 


PUT 

0 

novEi 

UNAME 

FSELECT 

JRST 

CMOVEI  1. UNAME 

GO    FFAIL 

GET    0 

RTNJ 

TMS6C 

<CReading  file:  > 

NOVE 

UNAME 

PNTSIX 

PNTCI 

•  1  11 

MOVE 

UNAME +1 

PNTSIX 

TMS6D 

o> 

GET 

0 

AOS 

(P) 

RTN 


point  to  file  name  buffer 

init  the  file 

error  -  get  pointer  to  file  name 

report  to  opr 

restore  ACO 

exit 

get  the  selected  file  name 
print  it 

get  the  extension  of  file 
print  it 

restore  ACO 
set  up  RTN+2 
return 


;*  CHRIN  -  Routine  to  read  an  ASCII  character  from  the  selected  file. 


CHRIN: 


FREAD 

RTN 

JUMPE 

AOS 

RTN 


CHRIN 
(P) 


tell  DIAMON  to  get  a  file  character 
error  or  eof  detected  during  reading 
eat  all  null  characters 
normal  exit  +2 
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DFPTAU 
DFPTAU 

70A 
705 
706 
707 
708 
709 
710 
711 
712 
713 
71A 
715 
716 
717 
718 
719 
720 
721 
722 
723 
72A 
725 
726 
727 
728 
729 
730 
731 
732 
^33 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
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SEQ  2097 


000621 • 
000622' 
000623' 
000624' 
000625' 
000626' 
000627' 
000630' 
000631 ' 
000632' 

000633' 
000634' 
000635' 
000636' 
000637' 
000640' 
000641 ' 
000642' 
000643' 
000644' 


261  17  0  00  000000 

037  06  0  00  000004 

254  00  0  00  000633' 

322  00  0  00  000622' 

350  00  0  17  mm 

202  00  0  17  000000 

332  00  0  00  000000* 

037  12  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 

037  01  0  00  004313' 

200  00  0  00  000000* 

037  01  0  00  000002 

037  01  0  00  000056 

200  00  0  00  000000* 

037  01  0  00  000002 

037  01  0  00  004312' 

402  00  0  00  000000* 

262  17  0  00  000000 

263  17  0  00  000000 

000645' 
000646' 
000647' 
000650' 
000651 • 
000652' 
000653' 
000654' 
000655' 
000656' 


261  17 
037  01 
200  00 
03?  01 
037  01 
200  00 
037  01 
037  01 

262  17 

263  17 


00  000000 
00  004316' 
00  000657' 
00  000002 
00  000056 
00  000660' 
00  000002 
00  004322' 
00  000000 
00  000000 


000657'  43  51  21   20  00  00 
000660'  65  54  44  00  00  00 


;*  CHRINS  -  Routine  to  read  an  ASCII  character  from  the  selected  file. 


CHRINS: 


PUT 

FREAD 

JRST 

JUMPE 

AGS 

MOVEM 

SKIPE 

PNTCHF 

GET 

RTN 


CHRINX:  FMS6C 
MOVE 
PNTSXF 
PNTCIF 
MOVE 
PNTSXF 
FMS6D 
SETZM 
GET 
RTN 


CHRINX 

.-2 

-KP) 

(P) 

FINECH 


<CEnd  of  > 
TAKFIL 


TAKFIL+1 

F INPUT 
0 


save  ACO 

get  a  file  character 

error  or  eof  detected  during  reading 

eat  all  null  characters 

normal  exit  +2 

put  character  on  stack 

echo  flag  set? 

yes  -  echo  the  character 

restore  ACO 


end  of  file 
print  file  name 


clear  'file  input'  flag 
restore  ACO 


DF 
DFI 


;*  FFAIL  -  Routine  to  report  "DIAMON"  open  failure  on  a  selected  file. 


FFAIL:  PUT 


0 


UNAME: 


FMSGC 

<?  Can't  access  "> 

MOVE 

UNAME 

PNTSXF 

PNTCIF 

II  1 1 

• 

MOVE 

UNAME +1 

PNTSXF 

FMS6D 

<"  on  selected  loa 

GET 

0 

RTN 

SIXBIT 

/CI20/ 

SIXBIT 

/ULD/ 

:  save  ACO 

;  get  file  name 

;  print  it 

;  get  extension 

;  print  it 
ice.> 

;  restore  ACO 

;  return 
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fttD 


OFPTAU 

MACRO  31 

DFPTAU 

MAC 

7A9 

750 

751 

752 

753 

75A 

755 

756 

757 

758 

759 

760 

761 

762 

000661 • 

763 

000664' 

76A 

000665' 

765 

000666' 

766 

000667' 

767 

000670' 

768 

000671 ' 

769 

000672' 

770 

000673' 

771 

000674' 

m 

000675' 

111 

000676' 

lit. 

000677' 

77S 

000700' 

776 

000701 ' 

777 

000702' 

778 

000703' 

779 

000704' 

7  JO 

000705' 

7J1 

000706' 

7J2 

000707' 

7J3 

000710' 

7J4 

000711' 

715 

000712' 

7J6 

000713' 

717 

000714' 

788 

000715' 

789 

000716* 

790 

000717' 

791 

J00720' 

792 

000721 ' 

793 

000722' 

794 

000725' 
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SEO  2098 


261  17 
402  00 
402  00 
402  00 
260  17 
254  00 
202  01 
260  17 
254  00 
302  00 
254  00 
260  17 
254  00 
137  01 
260  17 
254  00 
137  01 
2oJ  17 
254  00 
246  01 
137  01 
400  01 
246  01 
137  01 
260  17 
254  00 
137  01 
260  17 
254  00 
137  01 
350  00 

262  17 

263  17 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
17 
00 
00 


000000 

000000* 

000000* 

000000* 

000726' 

000722' 

000664* 

000614' 

000722' 

000075 

000672' 

000750' 

000722' 

004330' 

000750' 

000722' 

004331 ' 

000750' 

000722' 

777772 

004332' 

000000 

000006 

004333' 

000750' 

000722' 

004334' 

000750* 

000722' 

004335' 

777775 

000002 

000000 


*  FGETW  -  Get  microword  entry  from  file 


Arguments; 

Function: 

Returns: 


None  (but  file  is  already  open  and  ready  for  use) 

Read  a  file  entry  consisting  of  'CADDR]=Microword  Data' 


+1  -  Error/EOF  occurred 

+2  -  OK  -  Address  is  in  CADDR 

Microword  is  in  CWOR0L,CWORDR 

^*******************************«*1^***i^**«r*«t*****t****************** 


FGETW: 


F GET WE: 


RPUT 

SETZM 

SETZM 

SETZM 

60 

JRST 
NOVEM 
GO 

JRST 
CAIE 
JRST 
60 

JRST 
DPB 
60 

JRST 
DPB 
60 

JRST 
LSHC 
DPB 
SETZ 
LSHC 
DPB 
60 

JRST 
DPB 
GO 

JRST 
DPB 
AOS 
R6ET 
RTN 


(0,1,2) 

CADDR 

CWORDL 

CWORDR 

FGETA 

FGETWE 

1, CADDR 

CHRIN 

FGETWE 
"_•  • 

.-3 

F6ETD 

FGETWE 

1,CP0INT  12, CWORDL,  17J 

FGETD 

FGETWE 

1,CP0INT  12, CWORDL. 29J 

FGETD 

FGETWE 

1,-6 

1,CP0INT  6, CWORDL, 35: 

1:6 

1, [POINT  6,CWORDR,113 

FGETD 

FGETWE 

1, [POINT  12, CWORDR, 23] 

FGETD 

FGETWE 

1,[P0INT  12, CWORDR, 353 

-Up) 

(2,1,0) 


save  AC'S 

clear  address 

clear  left  half 

clear  right  half 

get  load  address 

error/EOF  occurred 

save  address 

search  for  the  =  sign 

error/EOF  occurred 

equal  sign? 

keep  looking 

get  a  4  digit  number 

error/EOF  occurred 

save  it 

get  a  4  digit  number 

error/EOF  occurred 

save  it 

get  a  4  digit  number 

error/EOF  occurred 

right  shift  6  bits 

save  6  of  the  bits 

clear  AC1 

left  shift  6  bits 

save  remaining  6  bits 

get  a  4  digit  number 

error/EOF  occurred 

save  it 

get  a  4  digit  number 

error/EOF  occurred 

save  it 

done  -  set  up  RTN+2 

restore  AC's 

return 


DFPTAU  MACRO  X538(1242)  10:16  1-Jul-85  Page  21 


DFPTAU 
DFPTAU 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 
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SEQ  2099 


000726' 
000727- 
000730' 
000731 • 
000732' 
000733' 
000734' 
000735' 
000736* 
000737' 
000740' 
000741 ' 

000742' 
000743' 
000744' 
000745' 
000746' 
000747' 


261  17 
260  17 
254  00 
306  00 
260  17 
302  00 
254  00 
260  17 
254  00 
350  00 

262  17 

263  17 

260  17 
254  00 
302  00 
306  00 
263  17 
254  00 


;*  FGETA  -  Obtain  microcode  load  address  'ADDR:'  from  file 

;  Returns:    +1  -  Error/EOF  occurred 

+2  -  OK  -  AC1  contains  octal  address 

save  ACO 

get  a  character 

exit  -  error  or  EOF  occurred 

comment  character? 

yes  -  go  skip  it 

found  Beginning  of  address? 

no  -  keep  looking 

get  up  to  4  digit  #  ended  by  CR  or  2 

exit  -  error  or  EOF  occurred 

restore  ACO 
return 

get  a  character 

exit  -  error  or  EOF  occurred 

CRLF  yet? 

yes  -  return 

no  -  keep  looking  for  it 


00  000000 

FGETA: 

PUT 

0 

00  000614' 

F6ETA0: 

GO 

CHRIN 

00  000740' 

JRST 

FGETAE 

00  000073 

CAIN 

•  1 ,  li 

00  000742' 

GO 

FSKIPC 

00  000133 

CAIE 

■  irit 

00  000727' 

JRST 

FGETAO 

00  000750' 

GO 

FGETD 

00  000740' 

JRST 

FGETAE 

17  777777 

AOS 

-UP) 

00  000000 

F6ETAE: 

GET 

0 

00  000000 

RTN 

00  000614' 

FSKIPC: 

GO 

CHRIN 

00  000740' 

JRST 

FGETAE 

00  000015 

CAIE 

00  000012 

CAIN 

12 

00  000000 

RTN 

00  000742' 

JRST 

FSKIPC 
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822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
83A 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
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SEQ  2100 


000750' 
000752' 
000753' 
000754' 
000755' 
000756' 
000757' 
000760' 
000761 ' 
000762' 
000763' 
000764' 
000765' 
000766' 
000767' 
000770' 
000771 ' 
000772' 
000774' 


261  17 
400  01 
201  02 
260  17 
254  00 
306  00 
254  00 
306  00 
254  00 
301  00 
303  00 
254  00 
275  00 
242  01 
272  00 
367  02 
350  00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  000000 
00  000004 
00  000614' 
00  000772' 
00  000015 
00  000771 • 
00  000135 
00  000771 ' 
00  000060 
00  000067 
00  000772' 
00  000060 
00  000003 
00  000001 
00  000754' 
17  777776 
00  000002 
00  000000 


;*  F6ETD  -  Obtain  microcode  data  entry  from  file  (4  digits). 

Returns:    +1  -  Error/EOF  occurred 

+2  -  OK  -  ACl  contains  octal  data 


F6ETD:  RPUT 
SETZ 
MOVE  I 

FGETDO:  60 

JRST 
CAIN 
JRST 
CAIN 
JRST 
CAIL 
CAILE 
JRST 
SU6I 
LSH 
ADDM 
SOJG 

FGETDl:  AOS 

FGETDE:  RGET 
RTN 


(0,2) 

2:4 

CHRIN 

FGETDE 

15 

FGETDl 

FGETDl 

60 

67 

FGETDE 

60 

1-^ 

2-F6ETD0 

-5(P) 

{2.0) 


save  AC'S 
clear  result 
up  to  4  digits 
get  a  digit 
error  -  exit 
carriage  return? 
yes  -  done  -  exit 
end  of  address  field? 
yes  -  done  -  exit 
is  character  between 

0  and  7? 
no  -  error  -  exit 
normalize  to  0-7 
multiply  result  so  far  by  8 
add  current  digit 
loop  till  done 
ok  -  set  up  RTN+2 
restore  AC's 
return 
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5F0  ?ini 


088 


DFPTAU 
DFPTAU 

850 
851 
852 
853 
85A 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
8S9 
8V0 
89; 
392 
193 
|94 
|95 
896 
897 
898 
899 
900 
901 
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SEQ  2101 


000775' 
000776' 
000777' 
001000' 
001001' 
001002' 
001003' 
001004' 
001005' 
001006' 
001007' 
001010' 
001011' 


402  00 
476  00 
476  00 
335  00 
402  00 
217  00 
306  01 
254  00 
334  00 
402  00 
202  01 
322  14 
261  17 


0  00  006136' 
0  00  006122' 
0  00  006123' 
0  00  000001 
0  00  006123' 
'  00  000001 
00  000003 
00  001104' 
00  000000 
00  006122' 
00  006124' 
0  00  004247' 
0  00  000000 


001017'  201  00  0  00  000115 

001020'  301  14  0  00  000116 

001021 '  201  00  0  00  000127 

001022'  202  00  0  00  006130' 


001023'  332  00  0  00  006122' 

001024'  254  00  0  00  001027' 

001025'  306  01  0  00  000001 

001026'  200  14  0  00  006130' 


0:';i027' 
0C!030' 
00^031' 
001032' 
001033" 
001034' 


200  01  0  00  000002 
303  01  0  00  001000 


201  01 
201  02 
213  00 
506  01 


00  001000 
00  000000* 
00  000001 
00  000002 


SUBTTL  Data  Pattern  Generator/Compare  Routines 

*  BUF6EN  -  Generate  the  specified  data  pattern  in  the  data  buffer. 

*  BUFCOM  -  Compare  the  data  buffer  with  expected  data 


Arguments:  AC1  -  Type:  1  read 

2  write 

3  read/write 
AC2  -  Length  in  words 
PAT  -  Data  pattern 


-1  read  (don't  report  errors) 

-2  write  (don't  report  errors) 

-3  read/write  (don't  report  errors) 


Returns  (BUFCOM):  ACl  -  Number  of  words  in  error 
/|f*************************************t«***************************** 


BUFCOM:  SETZM 
SETOM 
SETOM 


URDERR 

GENFLG* 

GENREP* 


MOVMS 
CAIN 
JRST 
SKI  PA 
BUFGEN:  SETZM 
MOVEM 
JUMPE 
RPUT 


SKIPGE  1 
SETZM   GENREP 


1 

1,3 

BUFCRW 

GtNFLG 
1,GENTYP# 
PAT.CRTN] 
(0,1. 2, 3, 7. PAT) 


clear  word?  "n  error  count 

set  to  'co  ,dre  data' 

set  'repori  errors'  flag 

report  errors? 

no  -  clear  'report  errors'  flag 

get  absolute  value 

read/write  transfer? 

yes  -  go  do  the  special  compare 

set  to  'generate  data' 

save  type  of  transfer 

exit  immediately  if  pat  is  zero 

save  some  AC's 


;  Find  out  fill  pattern  to  use 


MOVE  I 
CAIL 
MOVE  I 
MOVEM 


FILLFP 
PAT.VPATRN 
FILLVP 
PATFLG* 


get  fill  pattern  (fixed) 

variable  pattern? 

yes  -  get  fill  pattern  (variable) 

save 


■,?' 


Check  if  read  -  if  so  set  up  fill  pattern 


SKIPE 
JRST 
CAIN 
MOVE 


GENFLG 

.+3 

1,1 

PAT,PATFL6 


compare  data? 

yes  -  continue 

no  -  read? 

yes  -  get  fill  pattern 


;  Handle  buffer  length  -  cannot  exceed  512  words  (all  the  CCWs  necessary 
;  are  generatea  by  5ENCCW,  but  they  all  start  at  the  same  address. 


DFPTAU 
DFPTAU 

1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 


Mov: 

CAILE 
MOVEl 
MOVE  I 
MOVNS 
HRLM 


1,2 

1,*D512 
1,*D512 
2,BUFF 

1,2 


;  get  number  of  full  words  in  buffer 
;  over  512  words? 
;  yes  -  limit  to  512  words 
:  get  buffer  address 
:  generate  AOBJ.'J  word  to  sequence 
through  the  buffer 


89 
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<:pq  ?inp 


DFPTAU 


DFPTAU 
DFPTAU 

902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
9U 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
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SEQ  2102 


Now  generate/compare  the  data  (for  a  constant  pattern) 


001035' 
001036* 
001037* 
001040* 
001041* 
001042* 


301  14 
254  00 
200  07 


00  000116 

00  001046* 

14  001172* 


336  00  0  00  006122' 
202  o: 
332  GO 


BUFGO: 


^2  000000 
00  006122' 


001043'  260  17  0  00  004336' 


001044*  253  02  0  00  001037* 
001045'  254  00  0  00  001061' 


CAJL 

PAT,VPATRN 

JRST 

BUFG1 

MOVE 

7,PATBUF(PAT) 

SKIPN 

GENFL6 

MOVEM 

7,(2) 

SKIPE 

GENFLG 

GO 

CCAME  7A2) 

GO    DATMES 

RTN3 

next 

word 

AOBJN 

2. BUFGO 

JRST 

BUFGX 

skip  if  a  constant  pattern 

go  generate  variable  pattern 

get  pattern 

compare  data? 

no  -  put  into  buffer 

compare  data? 

yes  -  compare  it 

error  -  go  handle 


loop  till  done 
all  done  -  exit 


;  Now  generate/compare  the  data  (for  a  variable  pattern) 


Generate  first  word  of  buffer 


001046' 
001047' 
001050' 
001051' 
001052' 


200 
552 
207 
256 
334 


07 
07 
00 
00 
00 


14  001172* 
00  006135* 
00  000007 
07  000000 
00  000000 


BUF61 


MOVE 
HRRZM 
MOVSS 
XCT 
SKI  PA 


7,PATBUF(PAT) 
7.VARPAT# 

(7) 


;  get  pattern  pointer  word 

;  put  adr  of  2nd  instruction  in  VARPAT 

:  swap  address  of  pointer 

;  get  first  word  of  pattern 

;  continue 


Generate  success-fve  words  of  variable  pattern 


001053*  256  00  1  00  006135' 

001054'  336  00  0  00  006122' 

001055*  202  07  0  02  000000 

001056*  332  00  0  00  006122* 


001057*  260  17  0  00  004336' 


001060*  253  02  0  00  001053* 


BUF62: 


XCT 

SKIPN 

MOVEM 

SKIPE 

60 


aVARPAT 

GENFLG 

7,(2) 

GENFLG 

[CAME 

GO 

RTNJ 


7,(2) 
DATMES 


Now  do  next  word 

AOBJN   2,BUFG2 


generate  another  word  of  pattern 

compare  data? 

no  -  put  into  buffer 

compare  data? 

yes  -  compare  it 

error  -  go  handle 


loop  till  done 


n 
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SFQ  2103 


DFPTAU 


DFPTAU 
DFPTAU 

945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
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001061' 
001062' 
001063' 
001064' 
001065' 
001066' 
001067' 
001070' 
001071' 
001072' 
001073' 
001074' 
001075' 
001103' 


001104' 
001113' 
001114' 
001115' 
001116' 
001117' 
001120' 
001121' 


336  00 
254  00 

337  00 


261  17 

200  01 
242  01 

201  10 
270  10 
201  02 
213  00 
506  01 


001122'  550  07 

001123'  200  07 

001124'  312  07 

001125'  260  17 


001126'  350  00 

001127'  2-3  02 

001130'  262  17 

001131'  254  00 


254  00  0 
336  00  0 


254  00 
037  00 
200  00 
037  15 
037  00 
200  01 
202  01 

262  17 

263  17 


00  006122' 
00  001075' 
00  006136' 
00  001073' 
00  006123' 
00  001073' 
00  004341 ' 
00  006136' 
00  000000 
00  004077' 
00  006136' 

17  invk 

00  000014 
00  000000 


00  000000 
00  000002 

00  mm 

00  001032* 
00  000001 
00  001115* 
00  000001 
00  000002 


00  000002 

10  ooocoo 

02  000000 
00  001132' 


00  000010 
00  001122' 
00  000010 
00  001061' 


All  done  -  exit 


BUF6X: 


BUFGXY: 
BUFGXZ: 


SKIPN 

JRST 

SKIPG 

JRST 

SKIPN 

JRST 

TMS6C 

MOVE 

PNTDEC 

TMS6 

MOVE 

MOVEM 

R6ET 

RTN 


GENFLG 

BUFGXZ 

URDERR# 

BUFGXY 

6ENREP 

BUFGXY 

<Uords  in  error  =  > 

URDERR 

<.> 

' , URDERR 

1  .-4(P) 

^r,J,7,3,2J,0) 


;  Data  compare  for  split  buffer 

BUFCRW:  RPUT    (0 J, 2, 3, 7. PAT, 10) 

MOVE  lj 

LSH  1.-1 

MOVEI  10, BUFF 

ADD  10,1 

MOVEI  2. BUFF 

MOVNS  1 

HRLM  1,2 

;  Do  the  data  compare 


BUFCR1 


HRR2 
MOV. 
CAME 
GO 


1,2 

7,(10) 
IM) 
DATMES 


Now  do  next  word 


AOS 
AOBJN 
GET 
JRST 


10 

2.BUFCR1 
l6 
BUFGX 


SEQ  2103 


compare  data? 
no  -  exit 

any  compare  errors? 
no  -  return 
report  errors? 
no  -  return 


get  number  of  errors 
save  it 
restore  AC's 


save  some  AC's 

get  number  of  full  words  in  buffer 
divide  by  2 
get  buffer  address 
point  to  middle  of  buffer 
get  buffer  address 
generate  AOBJN  word  to  sequence 
through  the  buffer 


get  address  portion 
get  word 
data  compares? 
no  -  go  handle  error 


point  to  next  word 
loop  till  done 
restore  AC10 
all  done  -  exit 


DFPTAU 
DFPTAU 
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SEQ  2104 


DFPTAU 
DFPTAU 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

100A 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

10U 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

102A 

1025 

^026 

1027 

1028 
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SEQ  2104 


001132*  261  17  0  00  000000 

001136*  336  00  0  00  006123' 

001137*  254  00  0  00  001140* 

001140*  350  03  0  00  006136* 


001141*  336  00 
001142*  254  00 


001143' 
001144* 
001145* 


001146* 
001147* 
001150* 
001151* 
001152* 
001153* 
001154* 
001155* 
001156* 
001157* 
001160* 
001161* 
001162* 
001163* 
001164* 


307  03 


00  006123* 
00  001165* 
00  000003 


254  00  0  00  001146' 
254  00  0  00  001165' 


302  03 
254  00 
037  00 
037  00 
550  00 
275  00 
202  00 
037  00 
006  04 
03/  00 
200  00 
037  13 
037  00 
200  00 
037  13 


00  000001 
00  001152* 
00  004345* 
00  004352* 
00  000002 
00  000000* 
00  006115* 
00  030242 
00  000000 
00  004107* 
00  000007 
00  000000 
00  004106' 
02  000000 
00  000000 


001165*  262  17  0  00  000003 
001171*  263  17  0  00  000000 


;*  DATMES  -  A  data  conparison  error  has  been  found.  Report  the  error, 
;*  printing  a  maximum  of  three  lines  of  errors. 


DATMES:  RPUT 
SKIPN 
JRST 

DATMO:  AOS 


(0,1,2,3) 
GENREP 
DATMO 
3,WRDERR 


Now  see  if  should  be  printed 


SKIPN 

JRST 

CAIG 

JRST 

JRST 


Now  print 


DATM1 


;  Exit 
DATMX: 


CAIE 

JRST 

TMS6C 

TMSGC 

HRRZ 

SUBI 

MOVEM 

PCRL 

PDEC 

TMS6 

MOVE 

PNTHW 

TMS6 

MOVE 

PNTHW 


R6ET 
RTN 


GENREP 
DATMX 
3,3  ^ 

DATM1 
DATMX 


.+3 

<Data  Compare  Error :> 

<Uord   — Correct — 

2 

BUFF-1 

CWORDN* 

4,0 

<  > 

7 

<  > 

(2) 


(3,2,1,0) 


save  AC'S 
report  errors? 
no  -  skip  this 
increment  error  count 


report  errors? 
no  -  exit 
already  print  3 
no  -  go  print 
yes  -  exit 


of  them? 


;  first  data  error? 

;  no  -  don't  print  headers  . 

— Actual > 

;  get  word  number,  numbered 

from  1  ... 

;  save  current  word  number 

;  print  it 

;  print  spaces 

;  get  correct  data 

;  print  it 

;  print  some  more  spaces 

;  get  actual  data 

;  print  it 


restore  AC's 
return 


DFPTAU 

M 

DFPTAU 

M 

1565 

1566 

C 

1567 

C 

1568 

c 

1569 

c 

1570 

c 

1571 

0 

1572 

c 

1573 

0 

1574 

0 

1575 

0 

1576 

0 

1577 

0 

1578 

0 

1579 

c 

1580 

0 

1581 

c 

1582 

0 

158? 

0 

1584 

c 

1585 

c 

1586 

0 

1587 

c 

1588 

0 

1589 

0 

1590 

0 

1591 

0 

1592 

1593 

0 

1594 

0 

1595 

0 

1596 

c 

1597 

c 

1598 

0 

1599 

0 

1600 

0 

1601 

0 

1602 

0 

1603 

0 

1604 

0 

1605 

1606 

0 

1607 

0 

1608 
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SEQ  2105 


DFPTAU 


DFPTAU 

MACRO  J! 

DFPTAU 

MAC 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

001172' 

1039 

001173' 

1040 

001174' 

1041 

001175' 

1042 

001176' 

1043 

001177' 

1044 

001200' 

1045 

001201' 

1046 

001202' 

1047 

001203' 

1048 

001204' 

1049 

001205' 

1050 

001206' 

1051 

001207' 

1052 

001210' 

1053 

001211' 

1054 

001212' 

1055 

001213' 

1056 

001214' 

1057 

001215' 

1058 

001216' 

1059 

001217' 

1060 

001220' 

1061 

001221' 

1062 

001222' 

1063 

001223' 

1064 

001224' 

1065 

001225' 

1066 

001226' 

1067 

001227' 

1068 

001230' 

1069 

001231' 

1070 

001232' 

1071 

001233' 

1072 

001234' 

1073 

001235' 

1074 

001236' 

1075 

001237' 

1076 

001240' 

1077 

001241' 

1078 

001242' 
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SEQ  2105 


000000 
000000 
777777 
525252 
252525 
000000 
000000 
000000 
000000 
000000 
000000 

oocooo 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
OuJOOO 
000000 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
200000 
400000 


000000 
000000 
777777 
525252 
252525 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
200000 
400000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


SUBTTL  Data  Patterns 

♦  Data  Patterns 

Here  are  the  locations  called  by  the  BUFGEN  and  BUFCOM  routines 
indexed  by  the  pattern  number. 


PATBUF:  0 
0 
-1 

525252525252 
252525252525 


100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 

200000 

400000 

4-,0 

i6,.o 

20,,0 
40., 0 

io6,,o 

200., 0 
400.,0 

ioo6,,o 

2000,, 0 
4000., 0 

10006,, 0 

20000,, 0 
40000., 0 

1 00006,, 0 

200000,, 0 
400000,, 0 


unused 


1 

2  - 

3  - 

4  - 

5  - 
6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 

46 

47 

50 


zeros 
ones 

alternate  bit 
alternate  bit 
floating  I's 


in 
in 


36-bit 
36-bit 


word 
word 


DFPTAU 

m; 

DFPTAU 

MA 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

oc 

1620 

oc 

1621 

1622 

1623 

1624 

1625 

1626 

oc 

1627 

oc 

1628 

1629 

oc 

1630 

oc 

1631 

OC 

1632 

oc 

1633 

1634 

1635 

00 

1636 

oc 

1637 

oc 

1638 

oc 

1639 

oc 

1640 

oc 

1641 

oc 

1642 

oc 

1643 

oc 

1644 

oc 

1645 

00 
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SEQ  2106 


DFPTAU  MAI 

hPPTAII   MAr 


OFPTAU 
DFPTAU 

1079 

1080 

1081 

1082 

1083 

108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110A 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

11U 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 
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SEQ  2106 


0012A3' 
001 2A4' 
001245' 
001246' 
001247' 
001250' 
001251' 
001252' 
001253' 
001254' 
001255' 
001256' 
001257' 
001260' 
001261' 
001262' 
001263' 
001264' 
001265' 
001266' 
001267' 
001270' 
001271' 
001272' 
001273' 
001274' 
001275' 
001276' 
001277' 
001300' 
001301' 
001302' 
001303' 
001304' 
001305' 
001306' 


777771 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777776 
777775 
777773 
777767 
777757 
777757 
777677 
777577 
777177 
776777 
775777 
773777 
7om7 
757777 
717777 
677777 
577777 
377777 


001307'  400000 


777776 
777775 
777773 
777767 
777757 
777737 
777677 
777577 
777377 
776777 
775777 
773777 
767777 
757777 
737777 
677777 
577777 
377777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 
777777 

000115 

000001 


000116 


001310'  004362'  004363' 

001311'  004364'  004366' 

001312'  004367'  004370' 

001313'  004371'  004370' 


777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777777. 
777776. 
777775. 
777773. 
777767. 
777757. 
777737. 
777677. 
777577. 
777377. 
776777. 
775777. 
773777. 
767777. 
757777. 
737777. 
677777. 
577777. 
377777. 


.777776 
.777775 
.777773 
.777767 
.777757 
.777737 
.777677 
.777577 
.777377 
.716777 
.775777 
.773777 
.767777 
.757777 
.737777 
.677777 
.577777 
.377777 
.777777 
.777777 
.777777 
.777777 
.777777 
.777777 
.777777 
.777777 
.777777 
.777777 
.777777 
.777777 
.777777 
.711111 
.111111 
.111111 
.111111 
.111111 


FILLFP==.-PATBUF 


400000,, 000001 


51  -  floating  O's 

52 

53 

54 

55 

56 

57 

60 

61 

62 

63 

64 

65 

66 

67 

70 

71 

12 

13 

74 

75 

76 

11 

100 

101 

102 

103 

104 

105 

106 

107 

110 

111 

112 

113 

114 

read  fill  pattern 

115 


;  Pattern  codes  I'lom  here  require  execution  of  special  routines 
VPATRN==.-PAf8'JF 


Each  location  contains  addresses,  the  first  address  should  be  used 
to  generate  the  first  word  in  a  buffer,  the  second  should  be  used 
to  generate  each  remaining  word.  An  execute  is  performed  on  the 
mstructior  in  the  specified  address.  The  data  is  returned  in  AC7. 


C(i0  PATRANJ,.[60  PATRAl] 
CGO  PATADRJ..CADD  7, CI.. 133 
WOVE  I  7^n..CR0T  7.1] 


116  -  random  .lumbers 

117  -  memory  address  pattern 

120  -  floating  ones 

121  -  floating  zeros 


DFPTAU 

MAC 

DFPTAU 

MAC 

1646 

1647 

1648 

1649 

1650 

1651 

002 

1652 

002 

1653 

002 

1654 

002 

1655 

002 

1656 

00? 

1657 

002 

1658 

002 

1659 

002 

1660 

002 

1661 

002 

1662 

002 

1663 

002 

1664 

002 

1665 

1666 

002 

1667 

002 

1668 

002 

1669 

002 

1670 

002 

1671 

002 

1672 

002 

1673 

002 

1674 

002 

1675 

002 

1676 

002 

1677 

00.1 

1678 

002 

1679 

002 

SEQ  209A 


DFPTAU 
DFPTAU 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1K0 

1H1 

1U2 

1U3 

1UA 

1U5 

1U6 

1U7 

1U8 

1U9 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

116A 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117A 

1175 

1176 

1177 

1178 

1179 
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0013U' 
001315' 
001316* 
001317' 
001320' 


00A375' 
004377' 
004A01 ' 
004403' 
004405' 


004372' 
004373' 
004374' 

004376' 
004400' 
004402' 
004404' 
004131' 


000127 
001321'  004407'  004131' 
000127 


001322'  200  07  0  00  001323' 

001323'  202  07  0  00  006127' 

01324'  263  17  0  00  000000 

001325'  270  07  0  00  030022 

001326'  241  07  0  00  Vlllt, 

001327'  447  07  0  00  006127' 

001330'  263  17  0  00  000000 


PATCN2==CBYTE  (8)1,2.3,4] 
PATCN3==[BYTE  (7)1,2,3,4,5] 
PATCN4==CBYTE  (6)1,2,3,4,5,6] 

[MOVE  7,PATCN2],,CGO  PATCN8] 

CMOVE  7,PATCN3],,CGO  PATCN7] 

[MOVE  7,PATCN4],.I:gO  PATCN6] 

[MOVE  7,PATBUF+3],,CSETCA  7,] 

[MOVE  7.TPAT],,CJFCL] 

FILLVP==.-PATBUF 

[MOVE  7,C400000,,1]],,[JFCL] 

MAXPAT==.-PATBUF-1 

;  Random  number  generator 


PA7RAN: 


PATRA1 


MOVE 

MOVEM 

RTN 

ADD 
ROT 
EQVB 
RTN 


7,.+l 
7,0LDRAN# 


7,RANDBS 

7,-4 

7,0LDRAN 


001331'  2u'  07  0 
001332'  504  07  0 
001333'  263  1/  0 


001334' 
001336' 
001337' 
001340' 
001341' 
001342' 
001343' 
001344' 
001345' 
001346' 
001350' 


17 
05 


261 
201  . 
135  06 
350  00 
405  06 
242  07 
436  06 
367  05 
242  07 

262  17 

263  17 


00  001117* 
00  000007 
00  000000 


00  000005 
00  000004 
00  004410' 
00  000006 
0  00  000377 
0  00  000010 
00  000007 
00  001340' 
^^  000004 
00  000006 
00  000000 


;  Put  address  of  data  pattern  in  AC7 

PATADR:  MOVEI  7, BUFF               ; 

HRL  7J 
RTN 

;  Count  the  number  in  AC 7  in  8-bit  bytes 

PATCN8:  RPUT  (5,6) 

MOVE]  5,4 

LDB  6,CP0INT  8,7,31] 

AOS  6 

ANDI  6,377 

LSH  7,8 

ORM  6,7 

SOJG  5,. -4 

LSH  7,4 

RGET  (6,5) 
RTN 


SEQ  2107 


;  122  -  count  pattern  in  8-bit  bytes 

;  123  -  count  pattern  in  7- bit  bytes 

;  124  -  count  pattern  in  6-bit  bytes 

;  125  -  alternating  36-bit  pattern 

;  126  -  operator  selected  pattern 

;  read  fill  pattern 

;  127  -  read  buffer  fill  pattern 

;  maximum  pattern  number  allowed 


get  base 
save  it 


number 


modify  number  in  AC7 

to  create  a  new  number 

put  result  in  AC7  and  OLDRAN 


get  buffer  address 
put  in  both  halves 


save  AC'S 

set  up  to  loop  4  times 

get  last  byte  into  AC6 

increment  byte  number 

clear  all  but  one  byte 

shift  word 

merge  with  new  byte 

loop  on  5  bytes 

shift  over  and  clear  bit  32-35 

restore  AC's 

return 


INrnT  Ai  I        UA  rw\r\     tf  r  Vn  t  A*\i  '\\      4/\4y 


Ar     9K . 


SEQ  2095 


DFPTAU 
DFPTAU 

1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1195 
119A 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
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SEQ  2108 


001351' 
001353' 
001354' 
001355' 
001356' 
001357' 
001360' 
001361' 
001362' 
001363' 
001365' 


J01366' 
001370' 
001371' 
001372' 
001373' 
001374' 
001375' 
001376* 
001377' 
001401" 


261 
201 
135 
350 
405 
242 
436 
367 
242 
262 
263 


17 
05 
06 
00 
06 
07 
06 
05 
07 
17 
17 


17 
05 


261 
201 

550  06 
350  00 
405  06 
242  07 
436  06 
367  05 

262  17 

263  17 


00  000005 
00  000005 
00  00441 1 • 
00  000006 
00  000177 
00  000007 
00  000007 
00  001355' 
00  000001 
00  000006 
00  000000 


;  Count  the  number  in  AC7  in  7-bit  bytes 
PATCN7: 


0  00  000005 
0  00  000006 
00  000007 
00  000006 
00  000077 
00  000006 
00  000007 
00  001372' 
00  000006 
00  000000 


PATCN6: 


RPUT 

(5.6) 

HOVE  I 

5j 

LDB 

6,CP0INT  7.7,34] 

AOS 

6 

AND  I 

6,177 

LSH 

IJ 

ORM 

6,7 

SOJG 

5, .-4 

LSH 

7,1 

R6ET 

(6,5) 

RTN 

the  number  in 

AC7  in  6-b 

RPUT 

(5,6) 

HOVE  I 

5,6 

HRRZ 

6,7 

AOS 

6 

AND  I 

6,77 

LSH 

7,6 

ORH 

6,7 

SOJG 

5, .-4 

RGET 

(6,5) 

RTN 

save  AC'S 

set  up  to  loop  5  times 

get  last  byte  into  AC6 

increment  byte  number 

clear  all  but  one  byte 

shift  word 

merge  with  new  byte 

loop  on  5  bytes 

shift  over  and  clear  bit 

restore  AC's 

return 


save  AC'S 

set  up  to  loop  6  times 

get  word  into  AC6 

increment  byte  number 

clear  all  but  one  byte 

shift  word 

merge  with  new  byte 

loop  on  four  bytes 

restore  AC's 

return 


35 


nPDTAii  MAron  ¥CTDno/.ON  in  i/l,  i-i..i-oc  D-^..,  f\ 


1 


DFPTAU 
OFPTAU 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 
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SEQ  2109 


;*  PATPNT  -  Translate  pattern  number  to  description 

;#**************t*****rlr*««*«**************************«**it  ************ 


001402' 

001403' 
001404' 
001405' 
001406' 
001407' 
001410' 
001411' 
001412' 
001413' 
0014U' 
001415' 
001416' 
001417' 
001420' 
001421' 
001422' 
001423' 
001424' 
001425' 
001426' 
001427' 
001430' 
001431' 
001432' 
001433' 
001434' 
001435' 
001436' 
001437' 
001440' 
001441' 
001442' 
001443' 
001444' 
001445' 
001446' 
001447' 
001450' 
001451' 
001452* 


037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  OC 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
03/  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


004412' 
004415' 
004417' 
004421 ' 
004426' 
004433' 
004435' 
004437' 
004441 ' 
004444  • 
004447' 
004452' 
004455 • 
004460' 
004463' 
004466' 
004471 ' 
004474' 
004477' 
004502' 
004505 ' 
004510' 
004513' 
004516' 
004520' 
004522' 
004524' 
004527' 
004532' 
004535' 
004540* 
004543' 
004546' 
004551 • 
004554' 
004557' 
004562' 
004565' 
004570' 
004573' 
004576' 


PATPNT: 


TMS6 

<0 

THS6 

<1 

TMSG 

<2 

THS6 

<3 

TMSG 

<4 

TMSG 

<5 

TMSG 

<6 

TNSG 

<7 

THSG 

<10 

TNS6 

<11 

THSG 

<12 

TMSG 

<13 

TMSG 

<14 

TMSG 

<15 

TMSG 

<16 

TMSG 

<17 

TMSG 

<20 

TMSG 

<?1 

TMSG 

<22 

TMSG 

<23 

TMSG 

<24 

TMSG 

<25 

TMSG 

<26 

TMSG 

<27 

TMSG 

<::o 

TMSG 

<::i 

TMSG 

<2 

TMSG 

<:3 

TMSG 

<:4 

TMSG 

<:5 

TMSG 

<36 

TMSG 

<37 

TMSG 

<40 

TMSG 

<41 

TMSG 

<42 

TMSG 

<43 

TMSG 

<44 

TMSG 

<45 

-MSG 

<46 

TMSG 

<47 

TMSG 

<50 

IUegal> 

2eros> 

ones> 

alternating 

alternating 

2"? 
0,,2> 

0,,4> 

•  6,,10> 

•  0,,20> 

•  0,,40> 

•  0,,100> 
-  C,,200> 

■  0,,400> 

•  0,,1000> 

•  0,,2000> 

•  0,,4000> 

■  0.J0000> 

■  0...20000> 

■  0,,40000> 
0,,100000> 

•  0,,200000> 

■  0,,400000> 

■  1"2> 

■  ?"2> 

•  i6,,o> 

•  20., 0> 

•  40-, 0> 

•  io6,,o> 

•  200,, 0> 

•  400., 0> 

•  ioo6,,o> 

■  2000,, 0> 

•  4000., 0> 

•  10006,, 0> 

•  20000,. 0> 

■  40000.. 0> 

-  1 00006.. 0> 

•  200000.. 0> 

•  400000.. 0> 


unused 


5252.. > 
2525.. > 


nCDTAII 


MATDn  VCIO/IO/.OX  in.1^ 


1_  I.. I  -OC  B...  Ti 


r 


L 


DFPTAU 
DFPTAU 

1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
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SEO  2110 


001453* 
001454' 
001455- 
001456* 
001457* 
001460* 
001461* 
00Vr62* 
001463* 
001464* 
001465* 
001466* 
001467* 
001470' 
001471* 
001472* 
001473* 
001474* 
001475* 
001476' 
001477' 
001500' 
001501' 
001502' 
001503' 
001504' 
001505' 
001506* 
001507* 
001510* 
001511* 
001512* 
001513* 
001514' 
001515' 
001516* 
001517' 
001520' 
001521' 
001522' 
001523' 
001524' 
001525' 
001526' 
001527' 
001530' 
001531' 


037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  .. 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
03/  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 
037  00 


0  00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 

0  00 

00  0  00 

0  00 

0  00 

0  00 

00 

00 

00 

00 

00 

00 

00 

00 


0 
0 
0 
0 
0 
0 
0 
0 
0  00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


004601 ' 
004605' 
00461 1  * 
004615' 
004621 ' 
004625' 
004631 ' 
004635' 
004641  • 
004645' 
004651 ' 
304655' 
004661 ' 
004665 ' 
004671 ' 
004675 ' 
004701 ' 
004705' 
00471 1 ' 
004715' 
004721 ' 
004725' 
004731 ' 
004735' 
004742' 
004747' 
004754' 
004761  • 
004766' 
004773' 
005000' 
005005  * 
005012* 
005017* 
005024* 
005031  * 
005036* 
005042* 
005047' 
005055' 
005061 ' 
005066' 
005075' 
005104' 
005113' 
005122' 
005127' 


TMSG 
THSG 
TMSG 
THSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
T^«l 
V'  ' 
TM^j 
ThoG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 
TMSG 


<51  -  777777 ,  J77776> 

<52  -  777777 , .777775> 

<53  -  777777 . .77777l> 

<54  -  777777.. 7777 t7> 

<55  -  777777 . .777757> 

<56  -  777777 . .777717> 

<57  -  777777 . .777 t77> 

<60  -  777777 . .777S77> 

<61  -  777777 . .777Z77> 

<62  -  777777 . .77t777> 

<63  -  777777 . .775777> 

<64  -  777777 . .771777> 

<65  -  777777.. 7 h7777> 

<66  -  777777 . .7 S7777> 

<67  -  777777 . .717777> 

<70  -  777777 . .t77777> 

<71  -  777777 . .577777> 

<72  -  777777 .  .1>77777> 

<73  -  77777b.. 777777> 

<7ii  -  777775.. 777777> 

<75  -  777771.. 777777> 

<76  -  7777t7 . .777777> 

<77  -  777757 ..777777> 

<100  -  7777V1 .  .777777> 

<101  -  777h77 . .777777> 

<102  -  777577 . .777777> 

<103  -  777177 . .777777> 

<104  -  77b777 . .777777> 

<105  -  775777 . .777777> 

<106  -  771777 . .777777> 

<107  -  767777 . .777777> 

<110  -  757777 . .777777> 

<111  -  717777 . .777777> 

<112  -  677777 . .777777> 

<113  -  577777 . .777777> 

<114  -  177777 . .777777> 

<115  -  400000,  J> 

<116  -  ranJoffi  numbers> 

<117  -  memory  address  patten-i> 

<120  -  floating  ones> 

<121  -  floating  2eros> 

<122  -  count  pattern  in  8-bit  bytes> 

<123  -  count  pattern  in  7-bit  bytes> 

<124  -  count  pattern  in  6-bit  bytes> 

<125  -  alternating  36-bit  pattern> 

<126  -  oor  select  pattern> 

<127  -  400000,, 1> 


Dl 
Di 


- I 


IXtDTftll         MATDn     VCTB/in/')\      M\.M. 


I.  .1     or    n 


r 


L_ 


DFPTAU 
DFPTAU 

1301 
1302 
1303 
130A 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
13K 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
132A 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
13A0 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
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SEQ  2111 


DFI 
OFI 


001532' 
001537' 
001540' 
001541' 
001542' 
001543' 
001544' 
001545' 
001546' 

001547' 
001550' 
001551' 
001552' 
001553' 
001554' 
001555' 


SUBTTL  Switch  Handling  Routines 
;*  .SUCHP  -  Print  switch  settings  in  English 


261  17 
037  01 
403  02 
400  03 
661  03 
260  17 
037  13 
037  01 
260  17 


00 
00 
00 


0  00 


616  00 
254  00 
271  04 
303  04 
037  01 
303  04 
201  04 


0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


000000 

005133' 

000004 

000000 

400000 

001571' 

000001 

004106' 

001571' 


.SUCHP:  RPUT 
FMSGC 
SETZB 
SETZ 
TLO 
60 

PNTHWF 
FMSG 
60 


00  000003 
00  001557' 
00  000007 
00  000052 
00  005136' 
00  000052 
00  000007 


,SUCH0: 


TDNN 

JRST 

ADOI 

CAILE 

FMSGC 

CAILE 

MOVEl 

XCT 


(0.1.2, 
<Swit-li 

3.4)           ; 

es:  > 

\:' 

3.(180) 

SUNT 

<  > 

SUNT 

3 

.SUCHl 

4.7 

4.*D42 

< 

4.*D42 

C^MS6 

<AB0RT  >      ': 

FMS6 

<RSTART  > 

FnS6 

<T0TALS  > 

FMS6 

<NOPNT  > 

FMS6 

<PNTLPT  > 

FMS6 

<DIN6  > 

FMS6 

<L00PER  > 

FMS6 

<ERST0P  > 

FMS6 

<PALERS  > 

FMS6 

<RELIAB  > 

FMS6 

<TXTINH  > 

FMSG 

<PA6INH  > 

FMSG 

<M0DDVC  > 

FMSG 

<CAS1NH  > 

FMSG 

<0PRSEL  > 

FMSG 

<CHAIN  > 

FMS6 

<KA10  > 

JFCL 

FMSG 

<TRACE  > 

FMSG 

<INHFLT  > 

FMSG 

<INHMSG  > 

FMSG 

<L00PGM  > 

FMSG 

<L00PTS  > 

FMS6 

<RUNALL  > 

FMS6 

<DSPEAR  > 

save  AC'S 

init  print,  switch  count  AC's 
set  up  AC3  to  point  to 
the  leftmost  switch 
get  program  switches 
print  in  octal  first 

get  program  switches 

this  switch  set? 
no  -  continue 
6  more  characters  printed 
print  42  characters  yet? 
>  ;  yes  -  continue  on  next 
print  42  characters  yet? 
yes  -  reinit  print  counter 

1 
2 
3 

4 
5 

6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 

18 
19 
20 
21 
22 
23 
24 


line 


DFPTAU     MAPRn   tS^RflPA?)    in?U      LlnLRi;   Paha    1L 


__,J 


DFPTAU 
DFPTAU 

1349 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
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1350 


SEQ  2112 


DFP 
DFP' 


001556' 
001557' 
001560' 
001561' 
001562' 
001563' 
001570' 


256  00 
242  03 
350  00 
326  03 
037  01 

262  17 

263  17 


02  005242' 

00  mm 

00  000002 
00  001547' 
00  030242 
00  000004 
00  000000 


.SWCH1:  LSH 
AOS 
JUMPN 
PCRLF 
RGET 
RTN 


FMS6 
FMSG 
FMS6 
FMS6 
FMSG 
FMSG 
JFCL 
JFCL 
FMSG 
FMSG 

i-' 

3,.SWCH0 


FMSG 
<MDEBUG 
<SDEBU6 
<LDEBUG 
<IDEBUG 
<NIP0RT 
<CIP0RT 


<MMPR0C 
<MCBUS 


(4.3,2.1,0) 


<UDEBUG  >      ;  25 

>  ;  26 

>  :  n 

>  :  28 

>  ;  29 

>  ;  30 

>  ;  31 
;  32 
;  33 

>  ;  34 
>3(2)   ;  35 

;  right  shift  the  switch  pointer 

;  increment  text  pointer 

;  done?  no  -  continue 

;  restore  AC's 

;  return 


:*   SWITT  -  Get  value  of  switches 

;/>*****  ***************************************************  .-********** 


001571'  200  GO  0  00  030046 

001572'  336  00  0  00  030037 

001573'  037  10  0  00  000002 

001574'  434  00  0  00  001576' 

001575'  263  17  0  00  000000 

001576'  OOnOOO  000000 


SUITT:  MOVE    CONSW 
SKIPN   USER 
SWITCH 

I OR     SURGT 
RTN 

SWRGT :  0 


;  get  switches 

;  user  mode? 

;  no  -  get  switches  from  KLDCP 

;  insert  addl  right  hand  switches 

;  return 

;  right  hand  switches 


I 


nFPTAii    MAfRn  yiinnoLO^   ^(\^^A     i.ii.i.r^  D>n<>  ?<; 


DFPTAU 
DFPTAU 

1381 

1382 

1383 

138A 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

139A 

1395 

1396 

1397 

1398 

1399 

UOO 

1A01 

1A02 

1403 

KOA 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 
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SEQ  2113 


001577' 
001601" 


001602' 
001603' 
001604' 
001605' 
001606" 
001607' 
001610' 
001611' 
001612' 


261  17  0  00  000000 
260  17  0  00  001637' 


260  17 
202  00 
202  00 
037  01 
037  13 
037  01 
476  00 
336  00 
254  00 


00 
00 
00 
00 


0  00 


00 
00 
00 


0  00 


001571' 

006131' 

006113' 

005306' 

000001 

030242 

006134' 

030037 

001614' 


001613'  260  17  0  00  002254' 


001614'  332  00  0  00  030037 
001615'  254  00  0  00  001620' 


001616'  260  17  0  00  001571' 
001617'  202  00  0  00  006113' 


001620'  260  17  0  00  002355' 


001621'  200  00  0  00  006113' 
001622*  552  00  0  00  001576' 
001623'  202   00  0  00  030046 


;*  .ISWT  -  Complete  switch  handling 

;  This  routine  will  print  out  switches  if  desired,  and  then  enter  left 
;  hand  switches  (if  user  mode)  and  then  enter  right  hand  switches. 


;  Print  program  switches  if  desired 


.ISWT; 


RPUT 
60 


.J,1) 
.SUPNT 


;  save  AC's 

;  print  switches  if  desired 


;  Now  look  at  switches  and  determine  if  we  should  enter  them 


.ISWT2:  GO 

MOVEM 

MOVEM 

FMS6C 

PNTHUF 

PCRLF 

SETOM 

SKIPN 

JRST 


SWITT 
SAVSUU^ 
C0NSUU# 
<Switches 


SUPSUW^ 

USER 

.ISUT7 


;  Now  input  the  switches 

.ISWT6:  60     .SLEFT 

;  Now  get  right  hand  switches 


.ISUT7:  SKIPE 
JRST 


USER 
.ISWT8 


get  switches 

save  switches 

save  in  work  location 


set  switches  printed  flag 

user  mode? 

no  -  don't  ask  for  left  hand  switches 


get  left  hand  switches 


user  mode? 

yes  -  go  ask  for  them 


;  In  exec  mode  get  switches  which  may  have  been  entered  already 


.ISWT8:  60 

MOVEM 


SWITT 
CONSWW 


;  Now  input  the  switches 
.ISWTB:  60     .SRI6T 


;  get  switches 
;  save  switches 


;  go  get  right  hand  switches 


;  Now  ensure  right  hand  switches  are  saved  and  print  out  new  switches 
;  if  they  changed. 


.ISWTX:  MOVE 
HRR2M 
MOVEM 


CONSWW 

SWR6T 

CONSW 


;  get  switches 

;  make  sure  right  half  is  saved  away 

;  save  in  real  switches  location  also 
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101 


DFPTAU 
OFPTAU 

U31 
1432 
K33 
143A 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 


MACRO  X53B(1242)  10:16 
MAC    16-May-85  17:43 
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Switch  Handling  Routines 


SEQ  2114 


001624' 
001625' 
001626' 
001627' 
001630' 
001631' 
001632' 
001633' 
001634' 
001636' 


001637' 
001640' 
001641' 
001642' 
001643' 
001644' 


260  17 
312  00 
254  00 
332  00 
254  00 
037  01 
037  13 
037  01 

262  17 

263  17 


037 
200 
260 
263 
037 
263 


01 
00 
17 
17 
00 
17 


00  001571' 
00  006131' 
00  001631' 
00  006134' 
00  001634' 
00  005311' 
00  000001 
00  030242 
00  000001 
00  000000 


00  000026 
00  005324' 
00  000061' 
00  000000 
00  001645' 
00  000000 


001645' 

001645'  015  012  055  055  055 


.ISW'TY; 


.ISWT2; 


GO 

CAME 

JRST 

SKIPE 

JRST 

FMSGC 

PNTHUF 

PCRLF 

RGET 

RTN 


SWITT 

SAVSUU 

.ISWTY 

SWPSUW# 

.ISWTZ 

<SUITCHES 


(1,0) 


get  switches 

same  as  original  switches? 
no  -  go  print  them  out 
switcnes  already  printed? 
yes  -  don't  print  them 


done  with  switch  handling 
return 


Print  switches  available 


.SWPNT:  PFORCE  ^  ;  handle  Control-0 

MOVE  CFMS6C  <Print  the  selectable  pgm  switches?>J 

GO  TTYYES  ;  go  get  response 

RTN  ;  no  -  return 

PNTMS6  .SWTXT  ;  yes  -  print  it 

RTN  ;  return 


.SWTXT:  ASCIZ   / 
Left  Side  Switches- 


SU 

"o 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

/ 


KL10 

400000 
200000 
100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000209 
000100 
000040 
000020 
000010 
000004 
000002 


11 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


Function 


Right  Side  Switches- 

SW   Value  Function 


Abort 
Restart 
Totals 
No  print 
Print  on  LPT 
Ding  bell  on  err 
Loop  on  error 
Halt  on  error 
Print  alt  errors 


18 
19 
20 
21 
22 
23 
24 
25 
26 


Reliability  mode  27 
Text  inhibit  28 
Inhibit  paging  29 
Mod  device  codes  30 
Inhibit  cache  31 
Operator  select  34 
Chain..  (DIAMON)  35 
KA10  50  Hertz 


400000  Program  trace 

200000  Inhibit  fault  isolation 

100000  Inhibit  error  messages 

040000  Loop  on  program 

020000  Loop  on  test 

010000  Run  all  test  segments 

004000  Disable  SPEAR  reporting 

002000  User  mode  debug 

001000  Error  message  debug 

000400  Test  debug 

000200  Load  microcode  debug 

000100  Fault  isolation  debug 

000040  NI  port 

000020  CI  port 

000002  Missing  MPROC  module 

000001  Missing  CBUS  module 


n? 
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OFPTAU 
DFPTAU 

U7A 
U75 
K76 
U77 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
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SEQ  2115 


002254'  261  17  0  00  000000 


002263* 
002264' 
002265' 
002266' 
002267' 
002270' 
002271 ' 
002272' 
002273' 

002274' 
002275' 
002276' 
002277' 
002300' 
002301 ' 
002302' 
002303' 
002304' 
002305' 

002306' 
002307' 
002310' 
002311' 
002312' 
002313' 
002314' 
002315' 
002316' 
002317' 
002320' 
002321 • 
002322' 
002323' 
002324' 
002325' 
002326' 
002327' 
002330' 
002331 • 
002332' 
002333' 
002334' 


554  00 
037  01 
037  17 
037  01 
260  17 
254  00 
254  00 
506  01 
254  00 


0  00  006113' 
0  00  030242 
0  00  000003 
0  00  005325' 
0  00  002466' 
0  00  002274' 
0  00  002263' 
0  00  006113' 
0  00  002345' 


037  01 
037  01 
037  01 
201  05 
275  05  0 
350  00  0 
335  00  0 
400  05  0 
303  05  0 
254  00  0 


0 
0 
0 
0 


00  030242 
00  005333' 
00  030243 
00  000001 
00  000002 
00  000005 
00  000005 
00  000000 
00  000015 
00  002345' 


200  04 
200  00 
6io  00 
037  01 
612  00 
037  01 
200  00 
037  01 
037  00 
037  11 
306  00 
260  17 
306  00 
254  00 
037  01 
306  00 
254  00 
306  00 
254  00 
306  00 
254  00 
302  00 
254  00 


05 
00 
00 
00 
00 
00 
05 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


002527' 

006113' 

000004 

005337' 

000004 

005340' 

002511' 

000002 

005341 ' 

000003 

000015 

000045' 

000015 

002301 ' 

030242 

000032 

002345' 

000136 

002300' 

000131 

002341 • 

000116 

002306' 


;*  .SLEPT  -  Input  left  hand  switches 

.SLEPT:  RPUT    (0,1,2,3,4,5,6) 
CONSWU 


save  AC'S 


.SLP1 


HLR2 

PCRLP 

PNTOCF 

PMSG 

GO 

JRST 

JRST 

HRLM 

JRST 


;  print  out  left  hand  switches  as 
they  currently  are 


<  LH  Switches  <»  or  ?>  -  > 


.S'JIN 
.SLP2 

.SLrl 

1,C0NSWW 

.SLPX 


;  go  input  switches 

;  typed  a  ? 

;  error  -  re-ask  question 

;  save  left  hand  switches 

;  exit 


SLP2:  PCRLP 

PNTMSP  CASCIZ  /Type  Y,N,*,CR,*Z/3 

PCRL2P 

MOVEI  5,1 

.SLP3:  SU8I  5,2 

.SLP4:  AOS  5 

SKIPGE  5 

SETZ  5, 

CAILE  5,*D13 

JRST  .SLPX 


.SLP5: 


MOVE 

MOVE 

TDNN 

FMSG 

TONE 

FMSG 

MOVE 

PNTSXP 

TMSG 

TTYINP 

CAIN 

GO 

CAIN 

JRST 

PCRLP 

CAIN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

CAIE 

JRST 


4,.LSWTN(5) 

CONSWU 

4 

<N  > 

4 

<y  > 

.LSWIT(5) 
<  -  > 

15 

CLR8UP 
15 
.SLP4 

32 

•  SLPX 

136 

.SLP3 

I  f  y  •  t 

.SLP6 

"N" 

.SLP5 


mit  pointer  to  switch  to  ask 

back  up 

forward 

backed  up  too  much? 

yes  -  init  pointer  to  first  switch 

reach  end  yet? 

yes  -  exit 


get  proper  bit  in  AC4 
get  switches 


get  SIXBIT  switch  name 
print  it 

carraige  return? 
clear  input  buffer 
carraige  return? 
yes  -  lext  switch 

Control-Z? 
yes  -  exit 
*  back  up? 
yes  -  go  back  up 

yes  -  set  switch 

no  -  unrecognizable  -  reask  question 


DFPTAU 
DFPTAU 

1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
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I  r\CDT*ll 


DFPTAU 
DFPTAU 

1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
153A 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
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SEQ  2116 


002335' 
002336' 
002337' 
002340' 
002341 ' 
002342' 
002343' 
002344' 

002345' 
002354' 


200  00 
412  00 
202  00 
254  00 
200  00 
434  00 
202  00 
254  00 


262 
263 


17 

17 


0  00  006113' 
0  00  000004 
0  00  006113' 
0  00  002301 ' 
0  00  006113' 
0  00  000004 
0  00  006113' 
0  00  002301 • 

0  00  000006 
0  00  000000 


002355'  261  17  0  00  000000 


002364' 
002365' 
002366' 
002367' 
002370' 
002371 • 
002372' 
002373' 
002374' 

002375' 
002376' 
002377' 
002400' 
002401 ' 
002402' 
002403' 
002404' 
002405' 
002406' 
002407' 


550  00 
037  01 
037  17 
037  01 
260  17 
254  00 
254  00 
542  01 
254  00 


00  006113' 
00  030242 
00  000003 
00  005342' 
00  002466' 
00  002375' 
00  002364' 
00  006113' 


0  00  002456' 


037  01 
Gi.'  01 
201  05 
275  05 
350  00 

335  00 
400  05 
303  05 
254  00 

336  00 
254  00 


0  00  005333' 
0  00  030243 
0  00  000001 
0  00  000002 
00  000005 
00  000005 
00  000000 
00  000021 
00  002456' 
05  002545' 
00  002401 • 


.SLF6: 


MOVE 
AND CAM 
MOVEM 
JRST 
MOVE 
I  OR 
MOVEM 
JRST 


.SLFX:  R6ET 
RTN 


CONSWU 

4 

CONSUU 

.SLF4 

CONSUU 

4 

CONSUU 

.SLF4 

(6,5,4,3,2,1,0) 


get  switches 
clear  switch 
save  switches 
continue 
get  switches 
set  switch 
save  switches 
continue 

restore  AC's 
return 


;*  .SRI6T  -  Enter  right  hand  switches 

;#************************** A ***************************** ************ 


.SRIGT:  RPUT 


.SRG2: 


HRRZ 

PCRLF 

PNTOCF 

FMSG 

GO 

JRST 

JRST 

HRRM 

JRST 


.SRG3; 


MOVE  I 
.SRG4:  SUB I 
.SRG5:  AOS 

SKIPGE 

SET2 

CAILE 

JRST 

SKIPN 

JRST 


(0,1,2,3,4,5,6) 
CONSUU 


;  save  AC's 

;  print  out  right  hand  switches  as 
they  currently  are 


<  RH  Switches  <M  or  ?>  -  > 


.SUIN 
.SRG3 
.SRG2 
1, CONSUU 
.SRGX 


;  go  input  switches 

;  typed  a  ? 

;  error  -  re-ask  question 

;  save  right  hand  switches 
;  exit  this  switch  handling 


PNTMSF  CASCIZ  /Type  Y,N,*,CR,*2/] 
PCRL2F 


5,1 

V 

5 

5, 

5,*D17 

.SRGX 

.RSWIT(5) 

.SRG5 


;  init  pointer  to  switch  to  ask 

:  back  up 

;  forward 

;  backed  up  too  much? 

;  yes  -  init  pointer  to  first  switch 

;  reach  end  yet? 

;  yes 

;  switch  zero? 

;  yes  -  go  handle  next  one 


DFPTAU 
DFPTAU 

2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 


DFPTAU  MACRO  X53B(1242)  10:16  1-Jul-85  Page  39 


nFPTAII 


DFPTAU 

MACRO  X53B(1242)  10:16  1-JuL- 

-85  Page  : 
Switch 

59 

DFPTAU 

MAC 

16-May-85  17:43 

Handling 

Routines 

1565 
1566 

002410' 

201  04  0  00  400000 

.SRG6: 

MOVEl 

4,400000 

1567 

002411' 

210  06  0  00  000005 

MOVN 

6.5 

1568 

002412' 

242  04  0  06  000000 

LSH 

4,(6) 

1569 

002413' 

200  00  0  00  006113' 

MOVE 

CONSWU 

1570 

002414' 

616  00  0  00  000004 

TDNN 

4 

1571 

002415' 

037  01  0  00  005337' 

FMSG 

<N  > 

1572 

002416' 

612  00  0  00  000004 

TDNE 

4 

1573 

002417' 

037  01  0  00  005340' 

FMSG 

<Y  > 

1574 

002420' 

200  00  0  05  002545' 

MOVE 

.RSWIT(5) 

1575 

002421 • 

037  01  0  00  000002 

PNTSXF 

1576 

002422' 

037  00  0  00  005341 ' 

TMS6 

<  -  > 

1577 

002423' 

037  11  0  00  000003 

TTYINP 

1578 

002424' 

306  00  0  00  000015 

CAIN 

15 

1579 

002425' 

260  17  0  00  000045' 

GO 

CLRBUF 

1580 

002426' 

306  00  0  00  000015 

CAIN 

15 

1581 

002427' 

254  00  0  00  002401 ' 

JRST 

.SRG5 

1582 

002430' 

037  01  0  00  030242 

PCRLF 

158? 

002431 ' 

306  00  0  00  000032 

CAIN 

32 

158A 

002432' 

254  00  0  00  002456' 

JRST 

.SRGX 

1585 

002433' 

302  00  0  00  000136 

CAIE 

136 

1586 

002434' 

254  00  0  00  002442' 

JRST 

.SRG6B 

1587 

002435' 

322  05  0  00  002410' 

JUMPE 

5,.SRG6 

1588 

002436' 

370  00  0  00  000005 

.SR66A. 

SOS 

1589 

002437' 

336  00  0  05  002545' 

SKIPN 

.RSWIT(5) 

1590 

002440' 

254  00  0  00  002436' 

JRST 

.SR66A 

1591 
159? 

002441 ' 

254  00  0  00  002410' 

JRST 

.SRG6 

1  JtC 

1593 

002442' 

306  00  0  00  000131 

.SRG6B: 

CAIN 

•  lyl  1 

1594 

002443' 

254  00  0  00  002452' 

JRST 

.SRG7 

1595 

002444' 

3ui  00  0  00  000116 

CAIE 

'V 

1596 

002445' 

254  00  0  00  002410' 

JRST 

.SRG6 

1597 

002446' 

200  00  0  00  006113' 

MOVE 

CONSUU 

1598 

002447' 

620  00  0  04  000000 

TRZ 

(4) 

1599 

002450' 

202  00  0  00  006113' 

MOVEM 

CONSUU 

1600 

002451 ' 

r     00  0  00  002401 ' 

JRST 

.SRG5 

1601 

002452' 

2i   0  0  00  006113' 

.SRG7: 

MOVE 

CONSUU 

1602 

002453' 

66t  jO  0  04  000000 

TRO 

(4) 

1603 

002454' 

202  00  0  00  006113' 

MOVEM 

CONSUU 

1604 
1605 
1606 

002455' 

254  00  0  00  002401 ' 

JRST 

.SRG5 

002456' 

262  17  0  00  000006 

•SRGX: 

R6ET 

(6,5,4,3,2.1,0) 

1607 
1608 

002465' 

263  17  0  00  000000 

RTN 

'"»^#  '    w  ^  w  ^  m     ^    0  ^r  r 

SEQ  2117 


get  a  bit  set  in  AC4 
negate  for  shifting 
shift  over  properly 
get  switches 


get  SIXBIT  switch  name 
print  it 

carraige  return? 
clear  input  buffer 
carraige  return? 
yes  -  next  switch 

Control-Z? 

yes  -  exit 

*  back  up? 

no  -  continue 

at  first  switch?  -  yes  -  reask 

decrement  switch 

this  switch  exists? 

no  -  try  previous  one 

yes  -  now  continue 


Y? 

yes  -  set  switch 

no  -  unrecognizable 
get  switches 
clear  switch 
save  switches 
continue 
get  switches 
set  switch 
save  switches 
continue 


-  reask  question 


restore 
return 


AC'S 


DFPTAU 
DFPTAU 

2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
3107 

2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
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DFPTAU 
DFPTAU 

1609 
1610 
1611 
1612 
1613 
16U 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
162A 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
163A 
1635 
1636 
1637 
1638 
1639 
16A0 
16A1 
16A2 
1643 
1644 
1645 
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002466'  037  11  0  00  000003 
002467*  306  00  0  00  000015 


002470'  254  00  0  00  005350' 

002471 •  306  00  0  00  000077 

002472'  254  00  0  00  00531  - ■ 

002473'  400  01  0  00  OOOOCu 

002474'  301  00  0  00  000060 

002475'  303  00  0  00  000067 


002476' 
002477' 
002500' 
002501 ' 
002502' 
002503' 
002504' 
002505' 
002506' 
002507' 
002510' 


254  00 
275  00 
242  01 
270  01 
03'  11 
302  00 
254  00 
260  17 
350  00 
350  00 
263  17 


00  005353' 
00  000060 
00  000003 
00  000000 
00  000003 
00  000015 
00  002474' 
00  000045' 
17  000000 
17  000000 
00  000000 


;  .SWIN  -  Input  switches  (either  as  *  or  ?) 

;  Return  +1  -  ?  typed 

I       +2  -  error 

+3  -  #  typed  (in  AC1) 

+4  -  no  change 

;  0*******1i**1fti***it1(1i1t**1t***1r1f  It***  ii1t1t1t1i1Ht1i1lit1t**1t***1i1ci!ltifi'1f1,*  tit****  ****** 


.SUIN: 


TTYINP 

CAIN 

PJRST 


CAIN 
PJRST 

SET2 
, SWINO:  CAIL 
CAILE 
PJRST 


SUB  I 

LSH 

ADD 

TTYINP 

CAIE 

JRST 

GO 

AOS 

AOS 

RTN 


15 

CGO 

CLRBUF 

AOS 

(P) 

AUS 

(P) 
(P) 

PCRLF 

RTN  J 

"•>" 

[PCRL2F 

RTN  J 

1. 
"6" 

f  1^1  1 

[AOS 

(P) 

PCRLF 

RTN  J 

60 

1,3 

1.0 

15 

.SWINO 

CLRBUF 

(P) 

(P) 

;  get  image  mode  character 

;  tR  typed? 

;  clear  input  buffer 

;  increment  return 

;  increment  return 

;  increment  return 


?  typed? 
yes  -  exit 

clear  number  for  starters 
number  typed  is  in  a  valid 

range? 
no  -  error  return 


normalize  to  0..7 

shift  over  current  copy  of  number 

add  in  new  digit 

get  a  new  character 

carraige  return? 

no  "  go  decode  as  a  digit 

clear  out  extra 

set  up  return*2 

return 


P1 18 

DFPTAU  M 

i 

DFPTAU  M 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135  0 

2136  C 

2138  0 

2139 

2140  C 

2141  C 

2142  C 

2143  C 

2144  C 

2145  C 

2146 

2147  C 

2148  C 

2149  0 
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j«^M   n«  4  A 


DFPTAU 


DFPTAU 
DFPTAU 

16A6 
16A7 
16A8 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
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SEQ  2119 


002511' 
002512' 
002513' 
002514* 
002515' 
002516' 
002517' 
002520' 
002521 ' 
002522' 
002523' 
002524' 
002525' 
002526' 

002527' 
002530' 
002531 ' 
002532' 
002533' 
002534' 
002535' 
002536' 
002537' 
002540' 
002541 ' 
00.?542' 
002543' 
002544' 


;  .LSWIT  -  Table  of  left  hand  switch  names 


***************** 
*************** 


41  42  57 
62  63  64 
64  57  64 

56  57  60 
60  56  64 

44  51  56 

54  57  57 

45  62  63 
60  41  54 
62  45  54 
64  70  64 

55  57  44 

57  60  62 
43  50  41 

40C000 
200000 
100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
GoJ200 
000040 
000010 
0000G4 


00 


62  64 
54  63 


62  64 
41 
41 

56  64  00 
54  60  64 
47  00  00 
60  45  62 
64  57  60 
45  62  63 
51  41  42 
51  56  50 
44  66  43 

63  45  54 
51  56  00 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


LSWIT:  SIXBIT 

/ABORT  / 

SIXBIT 

/RSTART/ 

SIXBIT 

/TOTALS/ 

SIXBIT 

/NOPNT  / 

SIXBIT 

/PNTLPT/ 

SIXBIT 

/DING  / 

SIXBIT 

/LOOPER/ 

SIXBIT 

/ERSTOP/ 

SIXBIT 

/PALERS/ 

SIXBIT 

/RELIAB/ 

SIXBIT 

/TXTINH/ 

SIXBIT 

/MODDVC/ 

SIXBIT 

/OPRSEL/ 

SIXBIT 

/CHAIN  / 

LSWTN:  400000, 

,0 

200000, 

,0 

100000, 

,0 

040000, 

,0 

020000, 

,0 

010000, 

,0 

004000, 

.0 

002000, 

,0 

001000, 

,0 

000400, 

,0 

000200, 

,0 

000040, 

,0 

000010, 

.0 

000004, 

,0 

;  ABORT 

;  RSTART 

;  TOTALS 

;  NOPNT 

;  PNTLPT 

;  DING 

;  LOOPER 

;  ERSTOP 

;  PALERS 

;  RELIAB 

;  TXTINH 

;  MODDVC 

;  OPRSEL 

;  CHAIN 


DFPTAU 

M/ 

DFPTAU 

MA 

2150 

2151 

215L 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

OC 

2167 

2168 

2169 

OC 

2170 

OC 

2171 

2172 

2173 

2174 

OC 

2175 

OC 

2176 

2177 

2178 

2179 

OC 

2180 

2181 

2182 

OC 

2183 

2184 

2185 

2186 

OC 

2187 

OC 

2188 

2189 

2190 

2191 

OC 

2192 

OC 

2193 

2194 

2195 

2196 

00 

DFPTAU 
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1680 

1581 

1682 

1683 

168A 

1685 

1686 

1687 

0025A5' 

64 

62  41  43  45  00 

1688 

002546' 

51 

56  50  46  54  64 

1689 

002547' 

51 

5b  50  55  63  47 

1690 

002550' 

54 

57  57  60  47  55 

1691 

002551 ' 

54 

57  57  60  64  63 

1692 

002552- 

62 

65  56  41  54  54 

1693 

002553' 

44 

63  60  45  41  62 

169A 

002554' 

65 

44  45  42  65  47 

1695 

002555' 

55 

44  45  42  65  47 

1696 

002556' 

63 

44  45  42  65  47 

1697 

002557' 

54 

44  45  42  65  47 

1698 

002560' 

51 

44  45  42  65  47 

1699 

002561 ' 

56 

51  60  57  62  64 

1700 

002562' 

43 

51  60  57  62  64 

1701 

002563' 

65 

56  65  63  45  44 

1702 

002564' 

65 

56  65  63  45  44 

1703 

002565' 

55 

55  60  62  57  43 

170A 
1705 
1706 

002566' 

55 

43  42  65  63  00 

1707 

1708 

1709 

1710 

1711 

002567' 

26' 

17  0  00  000000 

1712 

002570' 

037  00  0  00  005360' 

1713 

002571 ' 

200  00  0  00  030046 

■71A 

002572' 

037  13  0  00  000001 

'715 

002573' 

037  00  0  00  005363' 

"716 

002574' 

262 

•  17  0  00  000000 

1717 

002575' 

263 

;  17  0  00  000000 
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;  .RSWIT  -  Table  of  right  hand  switch  names 

;  Here  is  the  switch  prompt  table  of  SIXBIT  switch  names  to  use 


SEQ  2120 


.RSUIT; 


SIXBIT 
SIXBIT 
SIXBIT 
SJX^iT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 


/TRACE/ 

/INHFLT/ 

/INHMSG/ 

/LOOPGM/ 

/LOOPTS/ 

/ftUNALL/ 

/DSPEAR/ 

/UDEBUG/ 

/MDEBUG/ 

/SDEBUG/ 

/LDEBUG/ 

/IDE6UG/ 

/NIPORT/ 

/CIPORT/ 

/UNUSED/ 

/UNUSED/ 

/IWPROC/ 

/MCBUS/ 


sw 

itch 

18 

sw 

itch 

19 

sw 

itch 

20 

sw- 

•tch 

21 

sw- 

•tch 

22 

SW' 

•tch 

21 

sw 

"tch 

24 

SW1 

"tch 

25 

SW1 

•tch 

26 

SW1 

•tch 

27 

SWl 

"tch 

28 

3W1 

•tch 

29 

SW1 

•tch 

30 

SW1 

'tch 

31 

SW1 

'tch 

32 

SW1 

tch 

3^ 

SW1 

tch 

34 

SW1 

tch 

35 

;*  SWCHPT  -  Prints  current  state  of  switches 

SWCHPT:  PUT  0 

TMSG  <Switches  -  > 

MOVE  CONSW 

PNTHWF 

TMS6C  <> 

GET  0 

RTN 


DFPTAU 
DFPTAU 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

173A 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 
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SEO  2121 


002576'  261  17  0  00  000000 

002601'  200  02  0  01  002666' 

002602'  200  01  0  01  002635' 

002603'  336  00  0  00  030037 

002604'  607  01  0  00  777177 

002605'  254  00  0  00  002615' 


002606'  037  01  0  00  005364' 

002607'  256  00  0  00  000002 

002610'  037  01  0  00  005366' 

002611'  200  01  0  17  777777 


002612'  256  00 
002613'  037  01 
002614'  254  00 


002615' 
002616' 
002617' 
002620' 
002621 ' 
002622' 
002623' 
002624' 
002625' 
002626' 
002627' 
002630' 
002631 ' 
002634' 


260  17 
430  00 
202  00 
552  00 
037  01 
256  00 
260  17 
404  00 
332  00 
037  01 
336  00 
037  01 

262  17 

263  17 


01  005403' 
00  005414' 
00  002631 ' 


0  00  001571' 
0  00  000001 
0  00  030046 
0  00  001576' 
0  00  005416' 
0  00  000002 
0  00  001571' 
0  00  000001 
0  00  000000 
0  00  005417' 
00  000000 
00  005421 ' 
00  000002 
00  000000 


;*  SUCOM  -  Switch  complement  routine  (AC1  has  switch  command  number  0-n) 


sucon: 


RPUT 

HOVE 

HOVE 

SKIPN 

TLNN 

JRST 


(0,1.2) 

2.SWC0HP(1) 

I.SUCOMT(l) 

USER 

y, 777777 

SUCOMO 


;  Cannot  complement 


FHS6C 

XCT 

FHSG 

HOVE 

XCT 


FMSGD 
JRST 


<[AUer  > 
2 

<  with  PDP11  Switch  > 
1.-1(P) 
CFHSG   <12> 
FHSG   <11> 

<10> 

<9> 

<8> 

<7> 

<6> 

<5> 

<1>](1) 


FHSG 

FHSG 

FHSG 

FHSG 

FHSG 

FHSG 

FHSG 
<  only]> 
SyCOHX 


:  Ok  to  complement 


SUCOnO:  GO 
XOR 
HOVEH 
HRRZH 
FHSGC 
XCT 
GO 
AND 
SKIPE 
FHSGD 
SKIPN 
FHSGD 

SWCOHX:  R6ET 
RTN 


SUITT 

1 

CONSU 

SWRGT 

<[> 

2 

SUITT 

1 

<  OnJ> 

<  Off3> 
(2.1.0) 


save  AC'S 

get  text 

get  switch  in  octal 

user  mode? 

no  -  left  hand  switch  set? 

no  -  continue 


get  switch  number 
print  it 


exit 


get  swif  es 

compleffl'   as  specified 

save  swuches 

save  right  hand  switches 


print  text 

get  switches 

get  only  this  switch 

did  it  get  set? 

yes 

did  it  get  set? 

restore  AC's 
continue 


-J 


SEQ  2109 


DFPTAU 

MACRO  X 

OFPTAU 

MAC 

176A 

1765 

1766 

1767 

002635' 

1768 

002636' 

1769 

002637' 

1770 

002640' 

1771 

002641 ' 

1772 

002642' 

1773 

002643' 

177A 

002644' 

1775 

002645' 

1776 

002646' 

1777 

002647' 

1778 

002650' 

1779 

002651 ' 

1780 

002652' 

1781 

002653' 

1782 

002654' 

1783 

002655' 

1784 

002656' 

1785 

002657' 

1786 

002660' 

1787 

002661 ' 

1788 

002662' 

1789 

002663' 

1790 

002664' 

1791 

002665' 
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SEQ  2122 


040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000010 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


Switches  in  octal 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
400000 
200000 
100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000002 
000001 


SWCOMT: 


)40000..0 
)20000,,0 
10000,.0 
]04000,,0 
002000.. 0 
001 000..  c 
000400.. 0 
000200.. 0 
00001 O-.O 

0..400660 

6.. 200000 
0., 100000 
"  ,040000 
,020000 
,010000 
.004000 
Q.. 002000 
0.. 001000 
0., 000400 
0.. 000200 
Q.. 00010? 
0,,00004C 
'  ,000020 
,000002 
,000001 


0: 

0, 


0. 

2- 
0. 


NOPNT 

PNTLPT 

DING 

LOOPER 

ERSTOP 

PALERS 

RELIAB 

TXTINH 

OPRSEL 

TRACE 

INHFLT 

INHMSG 

LOOPGM 

LOOPTS 

RUNALL 

DSPEAR 

UDEBUG 

MDEBUG 

SDEBUG 

LDEBUG 

I DEBUG 

NIPORT 

CIPORT 

MMPROC 

nCBUS 


5E0  2110 


DFPTAU 
DFPTAU 

1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
180A 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
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002666* 
002667' 
002670' 
002671 ' 
002672' 
002673' 
002674' 
002675' 
002676' 
002677' 
002700* 
002701 ' 
002702' 
002703' 
002704' 
002705* 
002706* 
002707' 
002710* 
002711* 
002712* 
002713* 
002714* 
002715* 
002716* 


037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 
037  01 


00 
00 
00 
00 


0  00 


00 
00 
00 
00 
00 
00 
0  00 
0  00 
"  00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


005423* 
005425* 
005427' 
005430' 
005432* 
005434* 
005436* 
005440' 
005442' 
005444' 
005446* 
005450* 
005452* 
005454* 
005456* 
005460* 
005462* 
005464' 
005466* 
005470* 
005472* 
005474* 
005476* 
005500* 
005502* 


;  Switch 
SUCOMP: 


and  ling 

Routines 

text 

FMSG 

<NOPNT> 

FMS6 

<PNTLPT> 

FMS6 

<DING> 

FMSG 

<LOOPER> 

FHS6 

<ERSTOP> 

FMS6 

<PALERS> 

FMSG 

<REL]AB> 

FHSb 

<TXTINH> 

FHSG 

<OPRSEL> 

FMSG 

<TRACE> 

FMSG 

<INHFLT> 

FMSG 

<INHMSG> 

FMSG 

<LOOPGM> 

FMSG 

<LOOPTS> 

FMSG 

<RUNALL> 

FMSG 

<DSPEAn> 

FMSG 

<UDEBU6> 

FMSG 

<MDE8UG> 

FMSG 

<SDEBUG> 

FMSG 

<LDEBU6> 

FMSG 

<IDE8UG> 

FMSG 

<NIPORT> 

FMSG 

<CIPORT> 

FMSG 

<MMPROC> 

FMSG 

<MCBUS> 

SE^i  2123 


J 


1 


r 


I 


-J     L 


Q  2111 
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1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 


SEQ  2124 


D 
D 


002717' 

002720' 

002721 • 

002723' 

002724' 

002725' 

002726' 
0027?7^ 

002730' 
002731 ' 
002732' 
002733' 
002734' 
002735' 
002736' 
002737' 
002740' 
002741 ' 
002742' 
002743' 
002744' 
002745' 

002746' 
002747' 
002750' 
002751 ' 
002752' 
002753' 
002754' 
002755' 
002756' 
002757' 
002760' 


332  00  0 
260  17  0 


261  17 
402  00 
260  17 
255  00 
037  01 
037  01 
200  00 
037  13 
260  17 
260  17 
336  00 
260  17 

255  00 

256  00 
404  00 

311 
254 
037  01 
260  17 


00 
00 
00 


00  030037 
00  000000* 
00  000000 
00  000001 
00  000000* 
00  000000 
00  005504' 
00  005520' 
00  000001 
00  000001 
00  000000* 
00  000000* 
00  030041 
00  002720* 
00  000000 
00  005522' 
00  005523' 
00  006141' 
00  006112' 
00  002746' 
00  005524' 
00  002735* 


037  01 
256  00 
554  00 
435  00 
405  00 
434  00 
256  00 
256  00 
262  17 
262  ^7 
25^   12 


00  005537' 
00  005552' 
00  000000 
00  000001 
00  007777 
00  005553' 
0  00  000000 
0  00  005552' 
0  00  000001 

0  00  000000 

1  00  030104 


SUBTTL  Miscellaneous  Routines 

;#**♦***********************♦*******************♦*♦♦****♦***♦*♦**♦**♦♦ 
;*  PARSER  -  Additional  CPU  parity  error  service 

;  This  routine  is  called  by  the  subroutine  package  automatically  when  the 

;  processor  is  interrupted  with  a  memory  parity  error.  It  furnishes  some 

;  additional  useful  information.  (A)  IpA  status  (8)  Channel  status.  If 

;  running  on  a  KLIO  in  exec  mode,  and  the  parity  error  occurs  not  in  the 

;  program  area  but  the  data  buffer,  the  error  will  be  cleared  and  the 

;  diagnostic  will  be  forced  to  loop  on  the  error. 


PARSER:  SKIPE 
GO 
RPUT 
SETZM 
60 

JFCL 
FMSGC 
FMSGC 
MOVE 
PNTHUF 
GO 
GO 

SKIPN 
GO 
JFCL 
XCT 
AND 
MOVEM 
CAML 
JRST 
FMSGCD 
GO 

CORECT:  FMSGCD 
XCT 
HLR2 
lORI 
AND  I 
lOR 
XCT 
XCT 
GET 
GET 
JEN 


USER 

FFF 

(OJ) 

RDCSR 


user  mode? 

yes  -  fatal  error 

save  AC'S 


;  read  CSR  register 

;  error  return 
<*****•*«***«*  Memory  Parity  Error  Occurred  *************> 
<CSR:  > 
1 


GETL06 
LOGPNT 
KLFL6 
FFF 

C700400,,0] 

0.C17, 7^^777] 

XYZ* 

0,aA8UFF# 

CORECT 

<Error  not  in  data  buffe 

FFF 


get  loaout  area  for  channel 

print  logout  data 

KL-PROCESSOR? 

no  -  fatal  error 

yes 

read  error  addr  register 

save  22   bit  address 

save 

in  buffer  area 

yes.  we  can  continue 

area,  cannot  continue> 

fatal  out 


5^J!C2''  ■'s  in  the  data  buffer,  diag  will  continue> 

CONI  APR 


C700240.,0] 

0,0 

0,1 

0,7777 

0, [700200,, 1200003 

C700240,,0] 

0 
aiTRCHi 


swaps  flags  to  right 
include  PI  channel 
save  FLAGS  and  PI 
clr  and  re-enable 
does  the  CONO 
another  CONI 


dismiss  the  interrupt 


L 


r 


J     L 


! 


DFPTAU 
DFPTAU 

1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
188A 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
189A 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
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SEQ  2125 


002761'  261  17  0  00  000000 
002764*  202  01  0  00  003006' 


002765'  474  03  0  00  000000 

002766'  350  00  0  00  000003 

002767'  260  17  0  00  003012' 

002770'  254  00  0  00  002766' 

002771'  254  00  0  00  002776' 


002772'  262  17  0  00  000003 
002775'  263  17  0  00  000000 


002776'  202  03  0  00  003005' 

002777'  202  03  0  00  000001 

003000'  262  17  0  00  000003 

003003'  350  00  0  17  000000 

003004'  263  17  0  00  000000 


003005'  000000  000000 

003006'  000000  000000 

003007'  000000  000000 

003010'  000000  000000 

003011'  000000  000000 


*  .COMM  -  Match  a  command  entered  against  a  command  table. 

Handle  erroneous  input  by  returning  to  re-ask  question. 

Arguments:    AC1  -  Contains  the  S1X8IT  command  entered 
AC2  -  Contains  address  of  command  table 

Returns:     RTN+1  -  Return  error  address  (for  re-asking  question) 
RTN+2  -  Valid  command  recognized,  offset  in  command 
table  is  returned  in  ACl 

ft**************'ik**********************l,l,l,i[i,************************** 


.COMM: 


RPUT 
MOVEM 


(0,2,3) 
1,.CTYP 


Now  look  through  each  command 


SETO 
.COMMO:  AOS 
60 
JRST 
JRST 

;  Error  exit 

RGET 
RTN 


i- 

.C0MM2 
.COMMO 
.COMMl 


(3,2,0) 


Found  a  valid  command 


.COMMl:  MOVEM 
MOVEM 
RGET 
AOS 
RTN 

;  Storage  areas 

.CGOT:  0 

.CTYP: 


3, .CGOT 

(5,2,0) 
(P) 


.CTBL: 


0 
0 

0 
0 


;  save  some  AC's 
;  save  command  typed 


;  init  test  check  pointer 

:  point  to  next  command 

;  see  if  this  is  the  test  selected 

;  no  -  try  next  command 

;  yes  -  go  handle 


OF 
DF 


! 


;  restore  AC's 

;  return  +  1  (error) 

:  save  command  number 

;  put  into  ACl 

;  restore  AC's 

;  set  up  return  +  2  (valid 

return) 

;  command  number 

;  command  typed  (SIXBIT) 

;  commana  to  compare 

"1 


2113 


DFPTAU 
DFPTAU 

1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
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SEQ  2126 


003012' 
003016' 
003017' 
003020' 
003021 ' 
003022' 
003023' 
003024' 
003025' 
003026' 
003027' 
003030' 
003031 ' 
003032' 
003033' 
003034' 
003040' 
003041 ' 
003042' 
003046' 
003047' 
003053' 
003054' 
003055' 


261 
270 
200 
322 
202 
200 
200 
135 
135 
322 
312 
254 
133 
133 
254 
262 
350 
263 
262 
263 
262 
350 
33  J 
263 


;♦  .C0MM2  -  Compare  command  typed  to  table  to  see  if  valid 

;  AC2  -  Contains  address  of  sixbit  command  table 
;  AC3  -  Contains  current  command  number  (0..) 


17  0  00  000000 

.C0MH2: 

RPUT 

02  0  00  000003 

ADD 

00  0  02  000000 

MOVE 

00  0  00  003047' 

JUMPE 

00  0  00  003010' 

MOVEM 

02  0  00  005554' 

MOVE 

03  0  00  005555' 

MOVE 

00  0  00  000002 

.C0MM3: 

LDB 

01  0  00  000003 

LDB 

00  0  00  003034' 

JUMPE 

00  0  00  000001 

CAME 

00  0  00  003042' 

JRST 

00  0  00  000002 

IP 

00  0  00  000003 

IBP 

00  0  00  003024' 

JRST 

17  0  00  000003 

.C0MM4: 

R6ET 

00  0  17  000000 

AOS 

17  0  00  000000 

RTN 

17  0  00  000003 

.C0W5: 

R6ET 

17  0  00  000000 

RTN 

17  0  00  000003 

.C0W16: 

R6ET 

00  0  17  000000 

Kus 

00  0  17  000000 

17  0  00  000000 

RTN 

(0J,2,3) 

(h 

.C0MM6 

.CTBL 

2, [POINT  6  ..TYP,5J 

3,CP0INT  6,.CTBL,5J 

0,2 

1,3 

.C0MM4 

1 

.C0MM5 


.C0MM3 
(3-2.1,0) 

{p5 


(3,2,1,0) 
(352.,. 0) 

(P) 


save  AC'S 

calculate  address  of  entry  to  compare 

get  cmd  table  entry 

reached  end  of  table?  -  yes  -  exit 

save  cmd  table  entry 

set  up  byte  pointers  ,  % 

get  character  of  typed 
get  character  of  table 
end  of  typed?  yes  -  done 
no  -  same  as  table? 
no  -  no  match  -  exit 
increment  byte  pointers 


end  of  table  entry?  no 

yes  -  match  -  done 

set  up  return+2 

return+2 

no  match 

return+1 

return  as  end  of  list 

set  up  return+2 

set  up  return+3 

return+3 


-  keep  looping 


r\mTAii         tMk  r^r\r\     •fr7r^/4'^/■^v       t  f\      A  ^ 


1     f 


1 


DFPTAU 
DFPTAU 

19A9 
1950 
1951 
1952 
1953 
195A 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
196A 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
197A 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
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SEQ  2127 


003056*  261  17  C  GO  000000 


003063*  201  00  0  00  005556' 
003064*  202  00  0  00  030063 


003065*  336  00  0  00  003277* 
003066*  254  00  0  00  003107* 


003067*  332  00  0  00  000642* 


003070*  254  00  0  00  005561 


003071*  037  10  0  00  000003 
003072*  007  00  0  00  003116' 


4F***»***«******4r******t*i«r***  ***************************************** 

;*  .SARG  -  Obtain  SIXBIT  argument 

Arguments:  AR6FLG  -  0  -  No  more  arguments 

-1  -  More  arguments  have  been  given 
;  ACl  -  Contains  executable  help  message 

;  Returns:  AR6UM  -  Contains  SIXBIT  argument 
;,         ARGFLG  -  Updated 

i  +1  -  Error  occurred/Altmode  typed/Question  mark  typed 

;         +2  -  No  argument 
+3  -  Ok 

save  AC'S 

set  up  altmode  handling  to  exit 


003073'  322  00  0  00  005564' 
003074'  202  00  0  00  003276' 


.SARG: 

RPUT 
MOVE  I 

MOVEM 

(0,1,2, 
CSETOM 

PCRL 

JRST 
ALTMGO 

3, ALTMGO) 
ALTF 

.SARX13 

;  Check 

if  any 

argumei.!: 

s  were  gi 

SKIPN 
JRST 

ARGFLG 
.SARX2 

;  Check 

for  fil 

e  input 

SKIPE 
JRST 

F INPUT 

CGO 
JRST 
JRST 

FSAR6 
.SARXl 
•SARGl 3 

;  Input 

SIXBIT 

argument 

.SAR60: 

TTSIXB 
ALTCHK 

.SARGA 

;  Check 

result 

.SARGl: 

JUMPE 
MOVEM 

[MOVE 
CAIN 
JRST 
JRST 

ARGUM 

STTCHR 
40 

.SARGO 
.SARX2J 

+1  after  setting  altmode  flag 
and  skipping  a  line 


any  arguments? 
no  -  exit  'no  ar 


gument' 


file  input? 

yes  -  input  octal  argument 

error  or  EOF  occurred 

continue 


get  argument 
error  -  go  handle 


anything  typed?  if  a  space,  keep 
looking  for  an  argument,  if  not 
exit 

save  argument 


115 


"n 


DFPTAU 
DFPTAU 

199A 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
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003075'  402  00  0  00  003277' 

003076'  200  01  0  00  030231 

003077'  302  01  0  00  000015 

003100'  476  00  0  00  003277' 


003101'  331  00  0  17  llllTi 

003102'  254  00  0  00  003106' 

003103'  260  17  0  00  003324' 

003104'  254  00  0  00  003110' 


003105'  254  00  0  00  005570' 
003106'  350  00  0  17  imiZ 
003107'  350  00  0  17  Vmi 


003110' 
003115' 


003116' 
003117' 
003120' 
003121' 
003122' 


003123' 
003124' 


262 
263 


17 
17 


262  17 

336  00 

ly  00 

200  01 

306  01 


00  030063 
00  000000 


00  006140' 
00  030225 
00  003107' 
00  030231 
00  000077 


254  00  0  00  005570' 
302  01  0  00  000040 


003125'  254  00  0  00  005601' 
003126'  254  00  0  00  003073' 


SEQ  2128 


Check  for  last  argument 


SETZM 
MOVE 
CAIE 
SETOM 


ARGFLG 
1,$TTCHR 

aAgflg 


clear  'argument  typed'  flag 

?et  last  character  typed 
R?  (end  of  line) 
no  -  set  'argument  typed'  flag 


;  Check  if  this  should  have  been  the  last  argument 


SKI  PL 

JRST 

GO 

JRST 

JRST 


AOS 
.SARX2:  AOS 


-3(P) 
.+4 

LASARG 
.SARX1 
CMOVM 
JUMPE 
XCT 
JRST 
-5(P) 
-5(P) 


;  Exit 
.SARX1: 


RGET 
RTN 


CAIE 
JRST 

JRST 


1,-3(P) 
1,.SARX1 
1 
.SARX1J 


it 


(ALTMGO,3,2J.0) 


;  Altmode  typed 

,SARGA:  GET 

SKIPN 

JRST 

MOVE 

CAIN 

JRST 


XXT* 

STWCNT 

.SARX2 

1,$TTCHR 

1,77 

[MOVM 

JUMPE 

XCT 

JRST 
1,40 
CFMS6CD 

JRST 
.SARG1 


1,-3(P) 
1,.SARX1 

.SARX1J 

<?  Argument 
.SARXn 


help  message  negative? 

no  -  exit 

check  for  last  argument 

error  -  exit  +1 

any  help  here? 

no  -  continue 

yes  -  execute 

yes  -  handle 

adjust  return 

adjust  return 


restore  AC's 
return 


adjust  stack  properly 
did  a  timeout  occur? 
yes  -  assume  'no  argument' 
no  -  get  character  typed 
was  a  question  mark  typed? 
yes  -  any  help  here? 
no  -  exit 
yes  -  execute  it 
exit 
.  space  (delimiter  character) 
error>  ;  no  -  error  -  exit 


typed' 


continue 


I  INCDTAII 


MAron    wCTD/i'^/ix     in.iz 


ac    n n 


16 


DFPTAU 
DFPTAU 

2035 
2036 
2037 
2038 
2039 
20A0 
20A1 
20A2 
20A3 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
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SEQ  2129 


003127'  261  17  0  00  000000 


003134'  201  00  0  00  005603' 
003135'  202  00  0  00  030063 


003136'  336  00  0  00  003277' 
003137'  254  00  0  00  003161' 


003140'  33?  00  0  00  003067* 


003141'  254  00  0  00  005606' 


003142'  037  03  0  00  000003 
003143'  007  00  0  00  003170' 


003144'  202  00  0  00  003276* 
003145'  336  00  0  00  030510 


003146'  254  00  0  00  005611 


*  .OARG  -  Obtain  octal  argument 

Arguments:  ARGFLG  -  0  -  No  more  arguments 

-1  -  More  arguments  have  been  given 
AC1  -  Contains  executable  help  message 

Returns:  ARGUM  -  Contains  octal  argument 
ARGFLG  -  Updated 


t  ■••1  -  Error  occurred/Altmode  typed/Question  mark  typed 

;         +2  -  No  argument 
+3  -  Ok 


.OARG: 


RPUT 
MOVE  I 


MOVEM 


(0,1,2.3.ALTM60) 
CSETOM  ALTF 

PCRL 

JRST   .0ARX1J 
ALTMGO 


;  save  AC's 

:  set  up  altmode  handling  to  exit 
+1  after  settina  altmode  flag 


and  skipping 


ing 
a  li 


ne 


;  Check  if  any  arguments  were  given  at  all 


SKIPN 
JRS: 


ARGFLG 
.0ARX2 


;  Check  for  file  input 


SKIPE 
JRST 


F INPUT 

CGO 
JRST 
JRST 


FOARG 

.0ARX1 

.OARGIJ 


Input  octal  argument 
OARGA 


.OARGO:  TTIOCT 
ALTCHK 


;  Check  -esult 

.0ARG1:  MOVEM 
SKIPN 
JRST 


ARGUM 

TTN8RF 

CMOVE 

CAIN 

JRST 

JRST 


1,$TTCHR 
1.40 
.OARGO 
.0ARX2J 


any  arguments? 

no  -  exit  'no  argument* 


file  input? 

yes  -  input  octal  argument 

error  or  EOF  occurred 

continue 


get  a  number 
error  -  go  handle 


save  argument 

any  number  typed? 

anything  typed?  if  a  space^  keep 

looking  for  an  argument,  if  not 

exit 


nFPTAii    MAfon  «(;xnn7/.?>   in.iA     i.i..i-flc  d>#.<>  c? 


— I 


DFPTAU 
DFPTAU 

2082 
2083 
208A 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
209A 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 

2107 

2108 
2109 
2110 
2111 
2112 
2113 
21U 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 


MACRO  X53B(1242)   10:16 
MAC  16-May-85  17:43 


l-Jul-85  Page  52 

Miscellaneous  Routines 


SEQ  2130 


003147'  402  00  0  00  003277' 

003150'  200  01  0  00  030231 

003151*  302  01  0  00  000015 

003152'  476  00  0  00  003277* 


003153'  331  00  0  17  11711^ 

003154'  254  00  0  00  003160' 

003155*  260  17  0  00  003324' 

003156*  254  00  0  00  003162' 


003157'  254  00  0  00  005615' 
003160'  350  00  0  17  171771 
003161'  350  00  0  17  777771 


003162' 
003167' 


003170' 
003171* 
003172* 
003173* 
003174* 


262 
263 


17  0 
17  0 


00  030063 
00  000000 


262  17  0  00  006140' 
336  00  0  00  030225 
0  00  003161' 
0  00  030231 
0  00  000077 


c>'  00 
200  01 
306  01 


003175'  254  00  0  00  005615' 

003176'  302  01  0  00  000040 

003177'  254  00  0  00  005621* 

003200*  200  00  0  00  030233 

00320T  254  00  0  00  003144' 


Check  for  last  argument 


SETZM 

AR6FLG 

MOVE 

I.STTCHR 

CAIE 

1,15 

SETOM 

ARGFLG 

;  Check 

if  this 

should 

have  been  th 

SKI  PL 

-3(P) 

JRST 

.♦4 

_-;. 

60 

LASARG 

JRST 

.OARXl 

JRST 

CMOVM 

1,-3(P) 

JUMPE 

1,. OARXl 

XCT 

1 

JRST 

•OARXl 3 

AOS 

-5(P) 

.0ARX2: 

AOS 

-5(P) 

;  Exit 

.0ARX1: 

R6ET 
RTN 

(ALTMGQ 

,3,2,1,0) 

;  Altmode  typed 

.0AR6A: 

GET 

XXT* 

SKIPN 

STWCNT 

JRST 

.0ARX2 

MOVE 

1,$TTCHR 

CAIN 

1.77 

JRST 

CMOVM 

1.-3(P) 

JUMPE 

1,. OARXl 

XCT 

1 

JRST 

.OARXl 3 

CAIE 
JRST 

1,40 
CFMS6CD 

<?  Argument 
.OARXTJ 

JRST 

MOVE 

STYPNB 

JRST 

.OARGl 

clear  'argument  typed'  flag 

?et  last  character  typed 
R?  (end  of  line) 
no  -  set  'argument  typed*  flag 


last  argument 


it 


error> 


help  message  negative? 

no  -  exit 

check  for  last  argument 

error  -  exit  +1 

any  help  here? 

no  ~  continue 

yes  -  execute 

yes  -  handle 

adjust  return 

adjust  return 


restore  AC*s 
return 


adjust  stack  properly 
did  a  timeout  occur? 
yes  -  assume  'no  argument' 
no  -  get  character  typed 
was  a  question  mark  typed? 
yes  -  any  help  here? 
no  -  exit 
yes  -  execute  it 
exit 

space  (delimiter  character) 
no  -  error  -  exit 


typed' 


DFPTAU 
DFPTAU 

2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 


get  number 
and  exit 


typed 


nCDTAII   MAron  «C7D/10/')\   lA.i^ 


^OC  n.--  CT 


. — I 
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21 2A 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2153 
21 3A 
2135 
2136 
i137 
2138 
2139 
21 AO 
2U1 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 


SEQ  2131 


;#*♦♦•***»******•**»**♦♦♦♦♦♦♦***»»****♦♦♦♦**«**♦»♦»♦♦♦♦*»»*«*♦♦*♦***•* 

;*  DECYN  -  Decode  an  argument  which  should  be  NO  or  YES 

;  Arguments:  AR6UM  -  Contains  sixbit  argument 

;  Return:     +1  -  Unrecognizable  (print  message  also) 
+2  -  No 
+3  -  Yes 


003202'  261 

003205'  200 

003206'  201 

003207'  260 


003210' 
003211' 
003212' 
003213' 
003214' 
003217' 

003220' 
003221 


254 
332 
350 
350 
262 
263 


17 
01 
02 
17 

00 
00 
00 
00 
17 
17 


00  000000 
00  003276' 
00  003220' 
00  002761 ' 


0  00  005631 " 
0  00  000001 
17  777775 
17  777775 
00  000002 
00  000000 


56  57  00  00  00  00 
71  45  63  00  00  00 
003222'  000  00  0  00  000000 


DECYN:  RPUT 
MOVE 
MOVE  I 
GO 
JRST 

SKIPE 
AOS 
AOS 
DECERR:  RGET 
RTN 

DECLIS:  SIXBIT 
SIXBIT 
I 


(0,1.2) 
1.ARGUM 
2. DECLIS 

.COMM  .  

[FMSGCD  <?  Unrecognized  argument> 
JRST   DECERR] 

U,„,  .     ;  NO  typed? 

-3(P)         ;  increment  return 

-3(P)         ;  increment  return 

(2.1,0)        ;  restore  AC'S 

;  return 

/NO/ 
/YES/ 


save  AC'S 

get  command  into  AC1 
get  address  of  cmd  list 
nandle  command  decoding 


DFPTAU 
DFPTAU 

2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
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DFPTAU 
DFPTAU 

2150 

2151 

215k 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 
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SEQ  2132 


003223'  261  17  0  00  000000 


003230*  201  00  0  00  005633' 
003231 '  202  00  0  00  030063 


003232'  336  00  0  00  003277' 
003233'  ^54  00  0  00  003255' 


003234'  33?  CO  0  00  003140* 


003235'  25'.  00  0  00  005636' 


003236'  037  05  0  00  000003 
003237'  007  00  0  00  003264' 


003240'  202  00  0  00  003276' 
003241'  336  00  0  00  030510 


003242'  254  00  0  00  005641' 


;*  .DARG  -  Obtain  octal /decimal  argument 

;  Arguments:  ARGFL6  -  0  -  No  more  arguments 

-1  -  More  arguments  have  been  given 
;  AC1  -  Contains  executable  help  message 

;  Returns:  AR6UM  -  Contains  octal  argument 
ARGFL6  -  Updated 


+1  -  Error  occurred/Altmode  typed/Question  mark  typed 
I        +2  -  No  argument 
+3  -  Ok 


.DARG: 


RPUT 
MOVE  I 


MOVEM 


(0J.2,3,ALTMGO) 
CSETOM  ALTF 

PCRL 

JRSr   .DARXn 
ALTM60 


;  save  AC's 

;  set  up  altmode  handling  to  exit 
••■I  after  setting  altmode  flag 


and  skipping  a  line 


;  Check  if  any  arguments  were  given  at  all 


SKIPN 
JRST 


ARGFL6 
.DARX2 


;  Check  for  file  input 


SKIPE 
JRST 


F INPUT 

CGO 
JRST 
JRST 


FOARG 

.DARXl 

.DARG1J 


;  Input  octal/decimal  argument 

.DARGO:  TTICNV 

ALTCHK  .DAR6A 


;  Check  result 

.DARG1:  MOVEM 
SKIPN 
JRST 


ARGUM 

TTNBRF 

CMOVE 

CAIN 

JRST 

JRST 


1,$TTCHR 
1,40 
.DARGO 
.DARX23 


any  arguments? 

no  -  exit  'no  argument' 


file  input? 

yes  -  input  octal  argument 

error  or  EOF  occurred 

continue 


get  a  number 
error  -  go  handle 


save  argument 

any  number  typed? 

anything  typed?  if  a  space,  keep 

looking  for  an  argument,  if  not 

exit 


DFPTAU 
DFPTAU 

2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2112 
2721 
272^ 
2725 
2726 
2727 
272b 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 


.J 


1 


SEQ  2120 
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2197 
2198 
2199 
2200 
2201 
2202 
2203 
220A 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 

iin 

2228 
2229 
2230 
2231 

22.53 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 


SEQ  2133 


003243*  402  00  0  00  003277' 

003244'  200  01  0  00  030231 

003245'  302  01  0  00  000015 

003246'  476  00  0  00  003277' 


003247'  331  00  0  17  lim^^ 

003250'  254  00  0  00  003254' 

003251'  260  17  0  00  003324' 

003252'  254  00  0  00  003256' 


003253'  254  00  0  00  005645' 
003254'  350  00  0  17  niVl 
003255'  350  00  0  17  imn 


003256'  262  17  0  00  030063 
003263'  263  17  0  00  000000 


003264 ' 
003265' 
003266' 
003267' 
003270' 


262  17 
336  00 
254  00 

200  01 
3u-  01 


00  006140' 
00  030225 
00  003255' 
00  030231 
00  00007/ 


003271'  254  00  0  00  005645' 

003272'  302  01  0  00  000040 

003273'  254  00  0  00  005651' 

003274'  200  00  0  00  030233 

003275'  254  00  0  00  003240' 


003276'  000000  000000 
003277'  000000  000000 


Check  for  last  argument 


SETZM 
MOVE 
CAIE 
SETOM 


ARGFLG 
MTTCHR 

aAgflg 


clear  'argument  typed*  flag 

?et  last  character  typed 
R?  (end  of  line) 
no  -  set  'argument  typed'  flag 


;  Check  if  this  should  have  been  the  last  argument 


SKIPL 

JRST 

GO 

JRST 

JRST 


AGS 
.DARX2:  AOS 

;  Exit 

.DARX1:  RGET 
RTN 

.DAR6A:  GET 

SKIPN 

JRST 

MOVE 

CAIN 

JRST 


CAIE 
JRST 

MOVE 
JRST 


-3(P) 
.+4 

LASARG 
.DARX1 
[MOVM 
JUMPE 
XCT 
JRST 
-5(P) 
-5(P) 


1,-3(P) 
1,.DARX1 

.DARXn 


it 


(ALTMGO,3,2J.O) 


XX  T# 

STUCNT 

.DARX2 

1,$TTCHR 

1,77 

CMOVM 

JUMPE 

XCT 

JRST 
1,40 
CFMS6CD 

JRST 
$TYPN8 
.DARG1 


■3(P) 
.DARXI 


1 
1 
1 
.DARXI] 

<?  Argument 

.darxt: 


error> 


help  message  negative? 

no  -  exit 

check  for  last  argument 

error  -  exit  ■•■1 

any  help  here? 

no  -  continue 

yes  -  execute 

yes  -  handle 

adjust  return 

adjust  return 


restore  AC's 
return 

adjust  stack  properly 
did  a  timeout  occur? 
yes  -  assume  'no  argument' 
no  -  get  character  ^yped 
was  a  qu'estion  mark  typed? 
yes  -  any  help  here? 
no  -  exit 
yes  -  execute  it 
exit 

space  (delimiter  character) 
no  -  error  -  exit 


typed; 


get  number 
and  exit 


typed 


;  Argument  variables 

AR6UM:  0 
ARGFLG:  0 


SEO  2121 


OFPTAU 
DFPTAU 

^242 
.243 
224A 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
227B 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
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SEQ  2134 


003300'  261  17  0  00  000000 
003303'  336  00  0  00  003277' 
003304'  254  00  0  00  003317' 


003305'  201  00  0  00  005653' 
003306'  202  00  0  00  030063 


003307'  332  00  0  00  003234* 

003310'  254  00  0  00  005656' 
003311'  037  05  0  00  000003 


003312'  007  00  0  00  005660' 
003313'  336  00  0  00  030510 


003314'  254  00  0  00  005670' 


037  01  0 
i34  00  0 


003315' 
003316' 
003317' 
003320' 


003323'  263  1> 


00  005676' 


;*  CHKAR6  -  Check  for  argument  when  there  shouldn't  be  any 


Arguments; 
Return: 


AC1  -  Contains  confirmation  message 


♦1  -  An  argument  was  typed 
*2  -  No  argument  was  typed 


CHKAR6:  RPUT    (OJ.ALTHGO) 
SKIPN   AR6FLG 
JRST    CHKAfiX 
MOVE I   CSETOM  ALTF 
PCRL 

^^,zi     chkara: 

MOVEM   A  TMGO 
;  Input  argument  to  see  if  ?  typed 


CHKARO: 


SKIPE 
JRST 

TTICNV 
ALTCHK 


SKIPN 
JRST 


030063 
000000 


CHKARY:  FMSGCD 
SKI  PA 
CHKARX:  AOS 
CHKARA:  RGE^ 

nm 


F INPUT 
[GO 
JRST 

CGET 
SKIPN 
JRST 
MOVE 
CAIE 
JRST 
XCT 
JRST 
TTNBRF 
CMOVE 
CAIN 
JRST 
CAIN 
JRST 
JRST 


FEOL 
CHKARX] 

XXT# 

STUCNT 

CHKARY 

1,$TTCHR 

1,77 

.+1 

-1(P) 

CHKARA] 

STTCHR 

40 

CHKARO 

15 

CHKARX 

CHKARY] 


<?  No  argument  expected> 

-3(P)  ; 

(AL TMGO,  1,0)  ; 


save  AC'S 

any  argument  at  all? 

no  -  exit  +2 

set  up  altmode  handling  to  exit 

♦1  after  setting  altmode  flag 

and  skipping  a  line 


file  input  switch  set? 
yes  -  move  to  end  of  line 

get  a  number 

adjust  stack  properly 

did  a  timeout  occur? 

yes  -  error 

no  -  get  character  typed 

was  a  question  mark  typed? 

no  -  error 

print  help  message 

and  exit 
any  number  typed? 
anything  typed?  if  a  space^  keep 

looking  for  an  araument,  if  not 

exit 


adjust  stack 
restore  mC's 
return 


SEQ  2122 


DFPTAU 
DFPTAU 

2287 
2288 
2289 
2290 
2291 
2292 
2293 
229A 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
230A 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
23U 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
232A 
2325 
2326 
2327 
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SEP  2135 


003324'  2o1  17  0  00  000000 
003327'  336  00  0  00  003277' 
003330'  254  00  0  00  003343' 


003331'  201  00  0  00  005704' 

003332'  202  00  0  00  030063 

003333'  332  00  0  00  003307* 

003334*  254  00  0  00  005707' 

003335'  037  05  0  00  000003 


003336'  007  00  0  00  005711" 
003337'  336  00  0  00  030510 


003340'  254  00  0  00  005720' 


003341' 
003342' 
003343' 
003344' 
003345' 
003350' 


037  01  0  00  005726' 

254  00  0  00  003345' 

350  00  0  17  717175 

350  00  0  17  77777'^ 

2t2   17  0  00  030063 

263  17  0  00  000000 

;*  LASAR6  -  Check  for  last  argument  when  there  shouldn't  be  any  more 

;  Return:      +1  -  Error  -  more  arguments 
•♦■2  -  Question  mark  typed 
+3  -  No  more  arguments  typed 

; /If  ******************************************************************** 


LASAR6:  RPUT 
SKIPN 
JRST 
MOVE  I 


MOVEM 
SKIPE 
JRST 

LASARO:  TTICNV 
ALTCHK 


SKIPN 
JRST 


LASAR1:  FMSGCD 
JRST 

LASARX:  AOS 
AOS 

LASARA:  RGET 
RTN 


(0J,ALTHGO) 
ARGFLG 
LASARX 
CSETOM  ALTF 

PCRL 

JRST   LASARA] 
ALTMGO 
F INPUT 
[60     FEOL 

JRST   LASARXJ 


C6ET 
SKIPN 
JRST 
MOVE 
CAIE 
JRST 
JRST 
TTNBRF 
[MOVE 
CAIN 
JRST 
CAIN 
JRST 
JRST 


XXT# 

5TWCNT 

LASAR1 

1,$TTChR 

1,77 

.+1 

LASARX+1] 

STTCHR 

40 

LASARO 

15 

LASARX 

LASAR1] 


<?  Too  many  arguments> 

-3(P) 
-3(P) 
(ALTMGO, 1,0) 


save  AC'S 

any  argument  at  all? 

no  -  exit  +3 

set  up  altmode  handling  to  exit 

+1  after  setting  altmode  flag 

and  skipping  a  line 

file  input  switch  set? 
yes  -  move  to  end  of  line 

get  a  number 

adjust  stack  properly 

did  a  timeout  occur? 

yes  -  error 

get  character  typed 

question  mark? 

yes  -  continue 

no  -  handle 

any  number  typed? 

anything  typed?  if  a  space,  keep 

looking  for  an  argument,  if  not 

exit 


adjust  stack 

restore  AC's 
return 


SEu^  2123 


DFPTAU 
DFPTAU 

2328 

50 

.Az 

i33A 
2335 
2336 
2337 
2338 
2339 
23A0 
23A1 
2342 
23A3 
23AA 
2345 
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SEQ  2136 


003351 • 
003352' 
003353' 
003354' 
003355' 
003356' 
003357' 
003360' 
003361 ' 
003362' 
003363' 
003364' 
003365' 


336  00 

263  17 

261  17 

037  01 

200  00 

037  01 

037  01 

200  00 

037  01 

037  01 

402  00 

262  17 

263  17 


0  00  003333* 
0  00  000000 
0  00  000000 
0  00  005733' 
0  00  000634* 
0  00  000002 
0  00  000056 
0  00  000000* 
0  00  000002 
0  00  005736' 
0  00  003351* 
0  00  000000 
0  00  000000 


;*  FIOFF  -  Routine  to  turn  off  the  'file  input'  switch 
FIOFF: 


SKIPN 

F INPUT 

;  switch  set? 

RTN 

;  no  -  return 

PUT 

0 

;  yes  -  save  ACO 

FMSGC 

<CInput  from  > 

;  print  message 

HOVE 

TAKFIL 

;  print  file  name 

PNTSXF 

PNTC IF 

1 1  •  1 

• 

MOVE 

TAKFIL+1 

PNTSXF 

FMSGD 

<  aborted]> 

SETZM 

F INPUT 

;  clear  'file  input' 

flag 

GET 

0 

;  restore  ACO 

RTN 

;  return 

>EQ  2124 


DFPTAU 
DFPTAU 

2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
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*  FINCMD  -  Input  a  sixbit  command  fron  a  file 

Return  +1  -  Error/EOF 

+2  -  Sixbit  word  in  AGO 


1 


SEQ  2137 


003366' 
003370' 
003371 ' 
003372' 

003373' 
003374* 
003375' 
003376' 
003377- 
003400' 
003401 ' 
003402' 
003403' 
003404' 
003405' 
003406' 
003407' 
003410' 
003411' 


261  17  0  00  000001 
402  00  0  00  006117' 
400  01  0  00  000000 
200  02  0  00  005741 ' 


260  17 
254  00 
306  00 
254  00 
306  00 
254  00 

306  00 
254  00 
350  00 
303  00 
275  00 
275  00 

307  01 
136  00 
254  00 


00  000621 ' 
00  003422' 
00  000040 
00  003412* 
00  000054 
00  003412' 
00  000015 
00  003412' 
00  000001 
00  000140 
00  000040 
00  000040 
00  000006 
00  000002 
00  003373' 


003412'  202  00  0  00  030231 
003413'  306  00  0  00  000015 


003414'  260  17  0  00  005742' 

003415'  200  00  0  00  006117' 

003416'  350  00  0  17  777776 

003417'  262  17  0  00  000002 

003421'  263  17  0  00  000000 


003422'  260  17  0  00  003351' 

003423'  400  00  0  00  000000 

003424'  262  17  0  00  000002 

003426"  263  17  0  00  000000 


FINCMD:  RPUT  (1,2) 

SETZM  FINSIX* 

SETZ  1, 

MOVE  2, [POINT  6,FINSIX] 

FINCMO:  GO  CHRINS 

JRST  FINCMX 
CAIN 

JRST  FINCMC 
CAIN 

JRST  FINCMC 

CAIN  15 

JRST  FINCMC 

AOS  1 

CAILE  140 

SUBI  40 

SU6I  40 

CAI6  1,6 

IDPB  2 

JRST  FINCMO 

;  Exit  with  command  in  ACO 


FINCMC:  MOVEM 
CAIN 
00 


MOVE 
AOS 
R6ET 
RTN 


STTCHR 
15 
C60 
JFCL 
RTN  J 
FINSIX 
'2(P) 
(2,1) 


CHRINS 


;  Exit  with  error  or  EOF  condition 

FINCMX:  60  FIOFF 

SETZ  0, 

RGET  (5,1) 
RTW 


save  AC'S 
initialize  word 
byte  count 
initial  byte  pointer 

get  a  character 

exit  -  error  or  EOF  occurred 

space  typed? 

yes  -  exit  valid  command  in  ACO 

comma  typed? 

yes  -  exit  valid  command  m  ACO 

carriage  return  typed? 

yes  -  exit  valid  command  in  ACO 

increment  byte  count 

lowercase? 

yes  -  make  into  upper  case 

convert  to  sixbit 

exceed  6  characters? 

no  -  save  sixbit  byte 

get  next  character 


save  last  character  typed 

carriage  return? 

yes  -  strip  off  the  line  feed  also 


get  sixbit  command 
set  up  return  +  1 
restore  AC's 
return 


clear  'file  input'  switch 
clear  command  typed 
restore  AC's 
return 


"1 


"1 


Q  2125 


DFPTAU 
DFPTAU 

2393 
2394 
2395 
2396 
2397 
2398 
2399 
2A00 
2A01 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
242h 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
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SEQ  2138 


;*  FSARG  -  Input  a  sixbit  argument  from  a  file 

;  Return  +1  -  Error/EOF 

+2  -  Sixbit  word  in  ACO 

save  AC'S 
initialize  word 
byte  count 
initial  byte  pointer 

get  a  character 

exit  -  error  or  EOF  occurred 

space  typed? 

yes  -  exit  valid  command  in  ACO 

comma  typed? 

yes  -  exit  valid  command  in  ACO 

carriage  return  typed? 

yes  -  exit  valid  command  in  ACO 

increment  byte  coun. 

lowercase? 

yes  -  make  into  upper  case 

convert  to  sixbit 

exceed  6  characters? 

no  -  save  sixbit  byte 

get  next  character 


save  last  character  typed 

carriage  return? 

yes  -  strip  off  the  line  feed  also 


003427' 

261  17  0  00  000001 

FSARG: 

RPUT 

(1,2) 

003431 ' 

402  00  0  00  006117' 

SETZM 

?iHsn 

003432' 

400  01  0  00  000000 

SETZ 

1, 

003433' 

200  02  0  00  005741 ' 

MOVE 

2. [POINT  6,FINSIXJ 

003434' 

260  17  0  00  000621' 

FSARGO: 

GO 

CHRINS 

003435' 

254  00  0  00  003463' 

JRST 

FSARGX 

003436' 

306  00  0  00  000040 

CAIN 

II  •  I 

003437' 

254  00  0  00  003453' 

JRST 

FSARGC 

003440' 

306  00  0  00  000054 

CAIN 

11  <i 

003441 ' 

254  00  0  00  003453' 

JRST 

FSARGC 

003442' 

306  00  0  00  000015 

CAIN 

15 

003443' 

254  00  0  00  003453' 

JRST 

FSARGC 

003444' 

350  00  0  00  000001 

AGS 

1 

003445' 

303  00  0  00  000140 

CAILE 

140 

003446' 

275  00  0  00  000040 

SU6I 

40 

003447' 

275  00  u  00  000040 

SUBI 

40 

003450' 

307  01  0  00  000006 

CAIG 

1.6 

003451 ' 

136  00  0  00  000002 

IDP6 

2 

003452' 

254  00  0  00  003434' 

JRST 

FSARGO 

;  Exit 

with  command  in  ACO 

003453' 

202  00  0  00  030231 

FSARGC: 

MOVEM 

STTCHR 

003454' 

306  00  0  00  000015 

CAIN 
GO 

15 

[GO     CHRINS 

JFCL 

RTN  J 

003455' 

260  17  0  00  005742' 

i 

003456' 

200  00  0  00  006117' 

MOVE 

FINSIX 

003457' 

350  GO  0  17  milt 

AOS 

-2{?) 

003460' 

2b2   17  0  00  000002 

RGET 

(2,1) 

003462' 

263  17  0  00  000000 

RTN 

;  Exit 

with  error  or  EOF  condition 

003463' 

260  17  0  00  003351' 

FSARGX: 

GO 

fm? 

003464' 

400  00  0  00  000000 

SETZ 

0. 

991^65' 

262  17  0  00  000002 

RGET 

(2,1) 

003467' 

263  17  0  00  000000 

RTN 

get  sixbit  command 
set  up  return  +  1 
restore  AC's 
return 


clear  'file  input'  switch 
clear  command  typed 
restore  AC's 
return 


1      r 


_ J 

n 


1  2126 
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SEQ  2139 


2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 


003470" 
003473' 
003474" 
003475" 
003476" 
003477" 
003500" 
003501 " 
003502" 
003503" 
003504" 
003505" 
003506" 
003507" 
003510" 
003511" 
003512" 
003513" 
003514" 
003515" 
003516' 
003517' 
003520" 
003521 " 
003522" 
003523" 
003524" 
003525" 
003526" 
003527" 


261  17 
400  01 
403  02 
476  00 
260  17 
254  00 
306  00 
254  00 
306  00 
254  00 
306  00 
254  00 
306  00 
402  00 
306  00 
254  00 
350  00 
303  01 
254  00 
275  00 
331  00 
303  00 
I'y  00 
221  02 
in  00 
242  03 
272  00 
303  00 
402  00 
254  00 


0  00  000001 
0  00  000000 
0  00  000003 
0  00  006120" 
0  00  000621 " 
0  00  003544" 
0  00  000040 
0  00  003530" 
0  00  000054 
0  00  003530" 
0  00  000015 
0  00  003530" 
0  00  000056 
0  00  006120" 
0  00  000056 
0  00  003476" 
0  00  000001 
0  00  000014 
0  00  003544" 
0  00  000060 
0  00  000000 
0  00  000011 
0  00  003544" 
0  00  000012 
0  00  000002 
0  00  000003 
0  00  000003 
0  00  000007 
0  00  006120" 
0  00  003476" 


;*  F0AR6  -  Input  a  octal  argument  from  a  file 

;  Return  +1  -  Error/EOF 

+2  -  Octal  data  in  AGO 


FOARG: 


FOAR60: 


RPUT 

(1,2,3) 

SETZ 

1, 

SETZB 

2,3 

SETOM 

F0FLA6* 

60 

CHRINS 

JRST 

FOARGX 

CAIN 

II  11 

JRST 

FOARG C 

CAIN 

It  11 

9 

JRST 

FOARG C 

CAIN 

15 

JRST 

FOARGC 

CAIN 

a 

SETZM 

FOFLAG 

CAIN 

• 

JRST 

FOARGO 

AOS 

1 

CAILE 

1,*D12 

JRST 

FOARGX 

SUBI 

60 

SKI  PL 

0 

CAILE 

*D9 

JRST 

FOARGX 

IMULI 

2,*D10 

AODM 

2 

LSH 

3,3 

AODM 

CAILE 

7 

SETZM 

FOFLAG 

JRST 

FOARGO 

save  AC"s 

initialize  byte  count 

initialize  octal  and  decimal  result 

set  "octal"  flag 

get  a  character 

exit  -  error  or  EOF  occurred 

space  typed? 

yes  -  exit  valid  command  in  ACO 

comma  typed? 

yes  -  exit  valid  command  in  ACO 

carriage  return  typed? 

yes  -  exit  valid  command  in  ACO 

decimal  point  typed? 

yes  -  clear  octal  flag 

decimal  point  typed? 

yes  -  keep  looking  for  delimiter 

increment  byte  count 

exceed  12  digits? 

yes  -  exit  -  error 

convert  to  octal  0..n 

decimal  or  octal? 

(between  0  and  9) 

no  -  exit  -  error 

update  decimal  number 

•  •  • 

update  octal  number 

decimal  number? 

yes  -  clear  octal  flag 

get  next  character 


2127 


Exit  with  command  in  ACO 


003530"  476  GO  0  00  030510 
003531 '  202  00  0  00  030231 
003532'  306  00  0  00  000015 


003533' 
003534' 
003535' 
003536' 
003537' 
003540' 
003543' 


260  17 
200  00 
332  00 


200  00  0 

350  00  0 

262  17  0 

263  17  0 


00  005742' 
00  000002 
00  006120' 
00  000003 
17  lini'i 
00  000003 
00  000000 


F0AR6C:  SETOM 
MOVEM 
CAIN 
60 


MOVE 

SKIPE 

MOVE 

AOS 

R6ET 

RTN 


TTNBRF 
$TTCHR 
15 
[60 

JFCL 

RTN3 
2 

F0FLA6 
3 

-3(P) 
(3,2,1) 
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2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 


SEQ  2140 


CHRINS 


also 


Exit  with  error  or  EOF  condition 


003544'  260  17  0  00  003351' 

003545'  400  00  0  00  000000 

003546'  262  17  0  00  000003 

003551*  263  17  0  00  000000 


F0AR6X:  60 
SETZ 
R6ET 
RTN 


FIOFF 
(5,2,1) 


indicate  that  a  number  was  typed 
save  last  character  typed 
carriage  return? 
yes  -  strip  off  the  line  feed 


get  decimal  number 

octal  number? 

yes  -  get  octal  number 

set  up  return  •••  1 

restore  AC's 

return 


clear  'file  input'  switch 
clear  command  typed 
restore  AC's 
return 


00355?' 

0035s: 

003554' 

003555' 

003556' 

003557' 

003560' 


261  17 
260  17 
23"  00 
302  00 
254  00 

262  17 

263  17 


;*  FEOL  -  Skip  characters  until  end  of  line  is  reached 

save  ACO 

get  a  character 

error/EOF  -  exit 

LF  yet? 

no  -  keep  looking 

restore  ACO 

return 


00  000000 

FEOL: 

PUT 

0 

00  000621 ' 

FEOLO: 

60 

CHRINS 

00  003557' 

JRST 

FEOLX 

00  000012 

CAIE 

12 

00  003553' 

JRST 

FEOLO 

00  000000 

FEOLX: 

6ET 

0 

00  000000 

RTN 

'~\ 


2128 


DFPTAU 
DFPTAU 

25U 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
252A 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
253A 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
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Scope  Looping  And  Error  Reporting  Routine 

SUBTTL  Scope  Looping  And  Frror  Reporting  Routine 

*  SC0PE1  -  Error  reporter  and  scope  loop  controller 

This  routine  is  responsible  for  error  reporting  and  scope  looping. 
Error  looping  and  print  options  are  controlled  by  switches. 

Switch  Options: 

DING  ~  0  No  bell  on  error 

1  Ring  belt  on  error  (forced) 

LOOPER  -  0  Proceed  on  error 

1  Loop  on  first  occurence  of  an  error 

ERSTOP  -  0  Don't  halt  on  error 

1  Halt  on  error  (exec  mode  only) 

PALERS  -  0  Print  error  data  on  first  occurance  of  error  only 
1  Print  error  data  for  all  repetitive  errors 

The  following  two  locations  should  be  :nitiali2ed  by  the  mainline  to  0 
at  the  start  of  each  test:    ERFLG   Error/no-error  flag 

ERCNT   A  local  error  counter 
ERRPC   PC  of  last  error 

The  scope/error  handler  is  called  by  executing  a  UUO  whose  E-field  is  a 
pointer  to  additional  error  information.  The  UOO  has  a  skip  and  non-skip 
return  to  provide  the  necessary  looping  capabilities.  The  non-skip 
return  is  the  loop  on  error  return  and  the  skip  return  is  the  continue 
test  (or  no  error)  return.  Pgm  branching  is  accomplished  by  placing 
appropriate  JRSTs  in  the  return  locations. 


SEQ  2141 


Example: 


CONSZ 

DEV.ARG 

SETOM 

ERFLG 

SCOPE 

TAG 

JRST 

ERADR 

JRST 

OKADR 

test  instruction 
detected  an  error 
call  the  routine  via 
loop  return 
continue  return 


UUO 


TAG: 


Cntrl  Bits,.ADDR 
Cntrl  Bits,.ADDR 


variable  #  of  error  descriptor 
entries 


129 


DFPTAU 
DFPTAU 

2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
257A 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
259A 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
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SEQ  2142 


ne 


Each  word  specifies  messages  or  print  routines.  Each  message  printed 
IS  followed  by  a  CRLF.  The  right  half  of  each  word  is  a  pointer  to  the 
start  of  the  ASCIZ  message  or  print  routine.  The  left  half  furnishes 
message  control  information  to  SCOPE,  decoded  as  follows: 

182  (MS6)  -  Right  half  of  word  is  address  of  an  ASCIZ  message. 

282  (CALL)  -  Right  half  of  word  is  address  of  a  special  print 
routine.  SCOPE  saves  AC's  0,1,2,3  so  this  routi 
does  not  have  to  preserve  these. 

382  (GOTO)  -  Right  half  of  word  is  address  where  to  resume  this 
error  descriptor  table. 

183  (TXNOT)  -  Print/call  entry  if  TXTINH  not  set 

184  (TXYES)  -  Print/call  entry  if  TXTINH  set 
384  (TXALL)  -  Print/call  entry  always 

185  (LAST)  -  Right  half  of  word  is  address  of  an  ASCIZ  message. 

These  bits  allows  short  and  normal  printout  modes,  branching,  and  two 
level  module  callout  priority. 

Example:  (TXTINH  is  not  set) 


ERROR:  TEST-XXX  (Ebus  test) 

SCOPE  PC  =  XXXXXX   TEST  PC  =  XXXXXX 

Error  description  ... 

Error  description  ... 


SWITCHES  =  XXXXXX  XXXXXX 


Example:  (TXTINH  is  set) 

■f-+-+— f-+-+-+ 

ERROR:   TST-XXX  SCOPE  PC-XXXXXX  SW-XXXXXX  XXXXXX 
Error  description  ... 
Error  description  ... 


NOTE:  If  the  diagnostic  is  in  debug  mode  (UDEBUG  switch  set),  no  error 
messages  are  normally  printed.  With  MDEBU6  switch  set,  the  error  flag 
IS  set  thereby  causing  each  error  message  to  be  printed. 
f*********************t«*****t********** ****************************** 


FSAR 
FSAF 
FSAR 
FSAF 
FSKI 
GENF 
GENF 
GEN1 
6ETL 
INDL 
INHf 
INIT 
ITRC 
KLFL 
LASA 
LASA 
LAS/I 
LASA 
LAS# 
LAST 
LCHA 
LOGF 
L(X)P 
LSTA 
LSTA 
LSTA 
HAXP 
HAXT 
HDEG 
NONT 
NONT 
NONT 
NONT 
NISE 
OLDR 
GPRS 
P 


PALE 

PARS 

PASC 

PAT 

PATA 

PATB 

PATC 

PATC 

PATC 

PATC 

PATC 

PATC 


r 


30 


DFPTAU 
DFPTAU 

2607 
2608 
2609 
2610 
2611 
2612 
2613 
26U 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
262A 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
264 1 
2642 
2643 
2644 
2645 
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SEQ  2143 


003561'  261 
003562'  261 
003563'  261 


17  0  00  030114 

SCOPE  1:  PUT 

$SVUPC 

17  0  00  0:0113 

PUT 

$SVUU0 

17  0  00  000000 

RPUT 

(0.1,2) 

003566'  260  17  0  00  001571' 
003567'  202  00  0  00  006133' 


003570'  332  00  0  00  000015 
00357'.  •  260  17  0  00  000000* 


003572'  332  00  0  00  000000* 

003573'  400  15  0  00  000000 

003574'  332  00  0  00  000000* 

003575'  474  15  0  00  000000 


003576'  550  00  0  17  imm 
003577'  202  00  0  00  006132" 


003600'  322  15  0  00  003635" 


save  the  UUO  PC 
save  the  actual  UUO 
save  some  AC's 


The  stack  now  Looks  like  this: 


-5(P)  The  return  addr  for  SCOPE  UUO 

-4(P)  The  address  from  which  the  SCOPE  UUO  was  called 

-3(P)  The  actual  UUO  that  was  executed  "SCOPE" 

-2(P)  ACO  from  before  the  UUO 

-1(P)  AC1  from  before  the  UUO 

0(P)  AC2  from  before  the  UUO 


Get  switches 

GO 
MOVEM 


SUITT 

scosy« 


Handle  SPEAR  error  report 


SKIPE 
GO 


ERFLG 
SPREP2 


Handle  debug  printout  /  error  handling 


SKIPE 
SETZ 
SKIPE 
SETO 


UDEBUG 
ERFLG. 
MDEBUG 
ERFLG. 


Update  scope  PC 


HRR2 
MOVEM 


-4(P) 
SCOPC* 


Error  occurred? 

JUMPE   ERFLG. SC0P4 


get  switches 
save  switches 


error  occurred? 
yes  -  report  it 


no-port  debug  mode? 
yes  -  clear  error  flag 
error  message  debug  mode? 
yes  -  set  error  flag 


get  PC  of  the  scope  call 
save  it  (scope  PC) 


an  error  occurred?  -  no  check  looping 


DFPTAU 
DFPTAU 

2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
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SEO  2144 


003601 • 
003602* 
003603' 
003604' 
003605' 
003606' 
003607' 


316  00 
254  00 
200  00 
202  00 
200  00 
202  00 
254  00 


00  030052 
00  003610' 
00  006132' 
00  030052 
00  000516* 
00  004062* 
00  003616' 


003610'  200  00  0  00  004062' 
003611'  312  00  0  00  003605* 
003612'  254  00  0  00  003616' 


003613'  20C  00  0  00  006133* 
003614*  607  00  0  00  001000 
003615*  254  00  0  00  003626* 


003616* 
003617* 
003620* 
003621  * 
003622* 
003623* 
003624* 
003625' 


003626' 
003627* 
003630' 
003631 • 
003632* 
003633* 
003634' 


200  00 
602  00 
254  00 
260  17 
53.'  01 
332  00 
260  17 
037  00 


200  00 
603  00 
037  01 
200  00 
607  00 
254  00 
476  00 


00  006133* 
00  100000 
00  003626* 
00  003723* 

17  mvi 

00  000001 
00  003776* 
00  005745* 


00  006133* 
00  010000 
00  000007 
00  006133* 
00  002000 
00  003635* 
00  000000* 


;  Error  did  occur  -  update  error  PC  /  print  error  message 

CAMN    ERRPC  ;  error  has  already  occurred  here? 

JRST    SCOPO  ;  yes  -  go  check  if  print 

MOVE    SCOPC  ;  get  scope  PC 

HOVEM   ERRPC  ;  save  as  error  PC 

MOVE    TSTSU8  ;  get  current  offset 

MOVEM   SCOOFF  ;  save  as  error  offset 

JRST    SC0P2  ;  go  print  error 

s  is  a  multiple  error  from  a  execute  table.  Check 

-  if  different  then  it  is  not  a  repeat  error. 

SCOOFF  ;  last  offset  presented  to  SCOPE 

TSTSye  ;  same  as  current  offset? 

SC0P2  ;  yes  -  go  check  if  print 


;  Must  also  check  if  thi 
;  TSTSUB  against  SCOOFF 


SCOPO:  MOVE 
CAME 
JRST 


;  This  is  a  repeat  error  here,  check  if  print  all  errors 


SC0P1 :  MOVE 
TLNN 
JRST 


SCOSU 

PALERS 

SC0P3 


;  Print  error  message 


SC0P2: 


MOVE 

TRNE 

JRST 

GO 

HRRZ 

SKIPE 

GO 

TMSGCD 


scosy 

INHMSG 
SC0P3 
ERHDR 
1,-3{P) 

ERPNT 
< . — 


Handle  bell  and  error  halt  functions. 


SC0P3: 


MOVE 

TLNE 

PBELL 

MOVE 

TLNN 

JRST 

SETOM 


scosy 

DING 

scosy 

ERSTOP 

SC0P4 

ALTF 


get  switches 

print  all  errors? 

no  -  go  ring  bell/error  halt 


get  switches 

inhibit  error  messages? 

yes  -  skip  this 

print  the  standard  error  heading 

get  the  e-field  of  the  UUO 

table  address  given? 

yes  -  go  handle  error  table 


get  switches 

ding  set? 

yes  -  do  it 

get  switches 

nalt  on  error? 

no  -  continue 

yes  -  set  abort  flag 


DFPTAU 
DFPTAU 

2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
270A 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
27U 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2112 
2723 
2121^ 
2725 
2726 
2121 
2128 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
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SEQ  2145 


003635'  200  00  0  00  006133' 

003636'  607  00  0  00  004000 

003637'  254  00  0  00  003666' 

003640'  326  15  0  00  003646' 


003641 '  200  00 
003642'  315  00 


003643' 
003644' 
003645' 


003646' 
003647' 
003650' 
003651 ' 
003652' 
003653' 
003654' 
003655' 
003656' 
003657' 
003660' 
003665' 


254  00 
336  00 
254  00 


037  07 
334  00 
254  00 
332  00 
254  00 
336  00 
202  00 
260  17 
200  00 
20?  00 
2oi  17 
263  17 


003666'  037  07 

U03667'  334  00 

003670'  254  00 

003671'  336  00 

003672'  254  00 


003673'  262  17  0 

003700'  350  00  0 

003701 •  476  00  0 

003702'  263  17  0 


00  006132' 
00  030052 
00  003666' 
00  030052 
00  003666' 


00  000003 
00  000000 
00  003673' 
00  003634* 
00  003673' 
00  006126' 
00  006126' 
00  000474' 
00  006132' 
00  030052 
00  000002 
00  000000 


00  000003 
00  000000 
00  003673' 
00  003651* 
00  003703' 


00  000002 
17  OOOOQO 
00  003671* 
00  000000 


Error  reporting  (if  any)  is  don«»   Now  check  loop  on  error  switch. 


SC0P4; 


MOVE 

SCOSW 

TLNN 

LOOPER 

JRST 

SCOrKX 

JUMPN 

ERFLG,SC0PX1 

?: 


et  switches 
OOP  on  error? 


no  -  exit  <2/5 
yes  -  error  -  yes 


-  exit  +1  (loop) 


Error  lopping  is  enabled,  but  error  flag  was  not  set.  First  check  if  we 
are  at  the  same  place  as  the  last  error  -  if  not,  exit  •••3  because  it  is 
not  yet  time  to  loop.  If  yes,  exit  ♦I,  loop  on  error. 


MOVE 

CAM6E 

JRST 

SKIPN 

JRST 


SCOPC 

ERRPC 

SCOPXX 

ERRPC 

SCOPXX 


Exit  +1  (loop  return) 


SC0PX1:  TTALTM 
SKIPA 
JRST 
SKIPE 
JRST 
SKIPN 
HOVEM 
GO 
MOVE 
MOVEM 
RGET 
RTN 


SC0PX2 

ALTF 

SC0PX2 

LCHAR 

LCHAR 

LSTAMP 

SCOPC 

ERRPC 

(2,1,0,$SVUU0,$SVUPC) 


get  scope  PC  and  see  if  this  is 

earlier  than  the  error  PC? 
earlier  -  exit  +3 
no  error  yet  at  all? 
no  -  exit  +3 


see  if  opr  wants  to  abort 

no  -  continue 

^es  -  altmode  exit 


set: 


altmode  typed'  flag 
yes  -  altmode  exit 
last  character  in  here  already? 
no  -  save  'last  char  typed' 
check  for  S  typed 
get  scope  PC 
update  error  PC 
restore  things 
exit 


Exit  +2/3  (altmode  return  /  normal  return) 


SCOPXX:  TTALTM 
SKIPA 
JRST 
SKIPN 
JRST 

;  Altmode  return 

SC0PX2:  RGET 
AOS 
SETOM 
RTN 


SC0PX2 

ALTF 

SC0PX3 


(2,1,0,$SVUU0,$SVUPC) 

(P) 

ALTF 


see  if  opr  wants  to  abort 
no  -  continue 
yes  -  altmode  exit 
'altmode  typed'  flag  set? 
no  -  exit  +5  (normal  return) 


restore  things 

set  up  return  +1 

set  'altmode  typed'  flag 

exit 


SEQ  2133 


DFPTAU 
DFPTAU 

2737 
2738 
2739 
2740 
27A1 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
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003703" 
003704' 
003705* 
003706* 
003707* 
003710* 
003711* 
003712* 
003713* 
003720* 
003721  * 
003722* 


336  00 
202  00 
260  17 
200  00 
602  00 
400  15 
602  00 
400  15 

262  17 
350  00 
350  00 

263  17 


00  006126* 
00  006126* 
00  000423* 
00  006133* 
00  010000 
00  000000 
00  001000 
00  000000 
00  000002 
17  000000 
17  000000 
00  000000 


;  Normal  return  -  also  check  for  S  typed 

SC0PX3:  SKIPN  LCHAR 

MOVEM  LCHAR 

GO  PS TAMP 

MOVE  SCOSW 

TRNE  RUNALL 

SETZ  ERFLG. 

TRNE  DE8UG2 

SETZ  ERFLG. 

RGET  (2,1,0.$SVUUO,$SVUPC) 

AOS  (PJ 

AQS  (P) 


SEQ  2146 


in 


*last  char 
S  typed 


last  character 

no  -  save 

check  for 

get  switches 

run  all  test  segments? 

yes  -  clear  error  flag 

error  message  debug? 

yes  -  clear  error  flag 

restore  things 

set  up  return  ^3 

set  up  return  +3 

exit 


here  already? 
typed' 


SEQ  2134 


OFPTAU 
DFPTAU 

2752 
2753 
275A 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
276A 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2771 
277A 
2775 
2776 
2777 
277S 
2779 
2780 
2781 
2782 
2783 
278A 
2785 
2786 
2787 
2788 
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SEQ  2U7 


00',  y 

00372A' 
003725' 
003726' 
003727' 
003730' 
003731 ' 
003732' 


003733' 
00373A' 
003735' 
003736' 
003737' 
0037A0' 
003741 ' 
003742' 
003743' 
003744' 
003745' 
003746' 
003747' 
003750' 
003751' 
003752' 
003753' 
003754' 
003755' 
003756* 


037  01  0  00  000026 


037  00 
260  17 
037  00 
260  17 
200  00 
603  00 
254  00 


037  00 
200  00 
274  00 
037  16 
037  00 
550  00 
274  00 
037  16 
037  00 
336  00 
254  00 
037  00 
200  00 
33.'  00 
037  15 
037  00 
037  00 
200  00 
037  13 
263  17 


00  005751' 
00  004045' 
00  005755' 
00  000000* 
00  006133' 
00  000200 
00  003757' 


00  005760' 
00  000000* 
00  OOOOOQ* 
00  000003 
00  005763' 
17  777772 
00  003735* 
00  000003 
00  005766' 
00  000461* 
00  003753' 
00  005767' 
00  003744* 
00  000000 
00  000000 
00  004077' 
00  005771 ' 
00  006133' 
"   000000 
000000 


;#****♦********♦*******♦♦♦♦****♦♦♦**♦******♦♦******♦♦*»***»«♦♦♦*♦*♦**♦ 
;  ERHDR  -  Print  the  standard  header  messages 


ERHDR:  PFORCE 

msec 


<♦-+-+-+-+-♦-♦ 


?  > 


60 

THSG 

60 

MOVE 

TLNE 

JRST 


PNTDEV 

<  Error: 

TSTPNT 

SCOSU 

TXTINH 

ERSHRT 


TEST  > 


;  Regular  format  error  header 


ERNRHL:  TMSGC 
MOVE 
SUB 
PNTOCS 
TMS6 
HRRZ 

sue 

PNTOCS 
THSG 
SKIPN 
JRST 
TMSG 
MOVE 
AOS 

PNTDEC 
TMSG 
ERNRMO:  TMSG 
MOVE 
PNTHU 
RTN 


<Test  PC  =  > 

TSTPC 

TSTOFF 

<'  Scope  PC  =  > 

-6(P) 

TSTOFF 

<'> 

TSTREP 
ERNRMO 
<  Pass  > 
TSTREP 


<  Switches  =  > 
SCOSU 


handle  Control-0 

print  device  type 

print  test  name 

get  switches 

short  printout  desired? 

yes  -  go  handle 


get  the  address  of  start  of  test 
normalize  to  relocatable  address 
print  it 

get  adr  where  SCOPE  was  called 
normalize  to  relocatable  address 
print  it 

pass  1  ? 

yes  -  don't  print  pass  # 

get  pass  count 

print  it  , 


get  switches 

print 

exit 


~~1 


SEP  2135 


DFPTAU 
DFPTAU 

2789 
2790 
2791 
2792 
2793 
279A 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
280A 
2805 
2806 
2807 
2Bf)B 
2809 
2810 
2811 
2812 
2813 
28U 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 

2825 
^826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
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SEO  2148 


003757' 
003760' 
003761 • 
003762' 
003763' 
003764' 
003765' 
003766' 
003767' 
003770' 
003771 ' 
003772' 
003773' 
003774' 
003775' 


037  00 
550  00 
274  00 
037  16 
037  00 
336  00 
254  00 
037  00 
200  00 
350  00 
037  15 
037  00 
200  00 
037  13 
263  17 


003776'  202  01  0  00  006116' 

003777'  336  01  1  00  006116' 

004000'  263  17  0  00  000000 

004001*  350  00  0  00  006116' 

004002'  135  02  0  00  006001' 


004003'  260  17  1  02  006002' 

004004'  607  01  0  00  010000 

004005'  254  00  0  00  003777' 

004006*  263  17  0  00  000000 


004007'  037  00  0  00  006012' 
004010*  263  17  0  00  000000 


;  Short  format  error  header 


00  005774' 

ERSHRT: 

TMS6 

<  Scope  PC  > 

17  777772 

HRR2 

-6(P) 

00  003741* 

SUB 

TSTOFF 

00  000003 

PNTOCS 

00  005766' 

THS6 

<'> 

00  003747* 

SKIPN 

TSTREP 

00  003772' 

JRST 

ERSHRO 

00  005767' 

TMSG 

<  Pass  > 

00  003764* 

MOVE 

TSTREP 

00  000000 

AOS 

00  000000 

PNTDEC 

00  005777' 

ERSHRO: 

TMSG 

<  SU  > 

00  006133' 

MOVE 

SCOSU 

00  000000 

PNTHU 

00  000000 

RTN 

;  pick  up  error  PC 

;  normalize  to  relocatable  address 

;  print  the  error  PC 

;  pass  1? 

;  yes  -  don't  print  pass  # 

;  get  pass  count 

;  print  it 

:  get  switches 

;  print 

;  exit 


;  ERPNT  -  Print  error  description  based  on  error  descriptor  table 

;#********♦******»******♦*♦*********♦****•*»*******♦»♦♦***♦*»♦«♦♦»♦»♦» 


ERPNT:     HOVEM 
ERPNO:     SKIPN 
RTN 

AOS 
LDB 
60 


TLNN 
..•'?ST 


I.ERDES* 
l.aERDES 


ERDES 

2.CP0INT  3,1.2J 

iCERPfJr 

ERPNC 
ERPNG 
ERPNE 
ERPNE 
ERPNE 

prpne:(2) 

),<!  AST) 
FRPNJ 


save  addr  of  error  descriptor  table 
get  entry  -  zero? 
yes  -  exit 

update  to  point  at  next  one 
get  entry  type 
yes  -  dispatch 
andle  message 
call 
goto 
range 
range 
range 
range 
entry? 
get  next  entry 


handle 

handle 

out  of 

out  of 

out  of 

out  of 

last 

no  - 

yes  -  return 


Error   ->try  type  out  of  range) 


ERPNE:  KiSGC   <?  Error  descriptor  entry  type  out  of  range> 
RTN  ;  return 


SEQ  2136 


DFPTAU 
DFPTAU 

2835 
2836 
2837 
2838 
2839 
28A0 
28A1 
28A2 
28A3 
28A4 
28A5 
28A6 
28A7 
28A8 
?%9 
tlSO 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
286A 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
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"1 


Handle  message 


004011*  200  00  0  00  006133* 
004012*  603  00  0  00  000200 


004013*  254  00  0  00  006023* 
004014*  607  00  0  00  000200 


004015*  254  00  0  00  006030* 
004016*  263  17  0  00  000000 


004017*  552  02  0  00  006116* 
004020'  263  17  0  00  000000 


00402  V  200  00  0  00  006133* 
004022*  603  00  0  00  000200 


004023*  254  00  0  00  006035" 
004024*  6u'  00  0  00  000200 


ERPNH: 


MOVE 
TLNE 
PJRST 


TLNN 
PJRST 


RTN 
Handle  goto 


ERPNG: 


HRRZM 
RTN 


Handle  call 


ERPNC; 


004025* 
004026' 
004027' 
004035* 
004036* 
004044* 


254 
263 
261 
260 
262 
263 


00 
17 
17 
17 
17 
17 


00  006040* 
00  000000 
00  OOOOQO 
00  000001 
"  000005 
000000 


ERPNCG: 


8? 


MOVE 
TLNE 
JRST 


TLNN 
PJRST 


RTN 

RPUT 

60 

R6ET 

RTN 


l.(TXYES) 
.*1 


scosu 

TXTINH 
[TLNN 

JRST 

PCRL 

PNTMSG  ai 

RTN  J 
TXTINH 
[TLNN   l.(TXNOT) 

RTN 

PCRL 

PNTMSG  ai 

RTNJ 


2.ERDES 


SCOSU 
TXTINH 
[TLNN 
JRST 
JRST 
TXTINH 
[TLNN 
RTN 
JRST 


1,(TXYES) 

.+1 

ERPNCG] 

1,(TXN0T) 

ERPNCG] 


(0,1,2,3.4,5) 

ai 

(5,4,3,2,1,0) 


SEC  2149 


?et  switches 
ext  inhibit  set? 
yes  -  print  it? 
no  -  exit 
yes  -  print  it 
and  return 

text  inhibit  set? 
no  -  print  it? 
no  -  return 
yes  -  print  it 
and  return 

return 


update  table  address 
exit 


fet  switches 
ext  inhibit  set? 
yes  -  call  routine? 
no  -  exit 

yes  -  call  routine 
text  inhibit  set? 
no  -  call  routine? 
no  -  return 
yes  -  call  routine 
return 

save  some  AC*s 
call  the  routine 
restore  AC's 
exit 


135  01  0  00  0060A3' 


0  01  006052' 
0  00  000000 
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287A 

2875 

2876 

2877 

2878 

2879  0040A5' 

2880 

2881 

2882 

2883 

288A 

2885 

2886 

2887  00A0A6' 

2888  00A0A7' 
2889 

2890  00A050' 

2891  00A051 ' 

2892  00A052' 

2893  00A053' 
289A  00A05A' 
2895 

2896  00A055' 

2897  00A056' 

2898  00A057' 

2899  00A060' 

2900  00A061 ' 
2901 
2902 
2903 

290A  00A062' 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 

NO  ERRORS  DETECTED 

PROGRAM  BREAK  IS  0061 A2 
CPU  TIME  USED  00:1 2. 6A6 

101P  CORE  USED 


256  00 
263  17 

332  00 
037  00 
336  00 
037  00 
263  17 

332  00 
037  00 
336  00 
037  00 
263  17 


0  00  000000* 
0  00  006062' 
0  00  00A050* 
0  00  006063' 
0  00  000000 


0  00  000000* 
0  00  00606A' 
0  00  00A055* 
0  00  006065' 
0  00  000000 


OuJOOO  000000 
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;#******♦*****»***♦*****•»*♦♦••**•♦*»•******♦**»******♦♦*♦♦»**♦*♦♦*♦*** 

;  PNTDEV  -  Print  device  name 

;#***********************************************4r«**** *************** 


SEQ  2150 


PNTDEV:  LDB 
XCT 


RTN 

PNTDNI:  SKIPE 
TMSG 
SKIPN 
TMSG 
RTN 

PNTDCI:  SKIPE 
TMSG 
SKIPN 
TMSG 
RTN 


1, [POINT  3,UUT,9J 

CTMSG  <RH0> 

TMSG  <RH1> 

TMSG  <RH2> 

TMSG  <RH3> 

TMSG  <RHA> 

GO  PNTDNI 

TMSG  <RH6> 

GO  PNTDCIJd) 


NISEl 
<NI> 
NISEL 
<RH5> 


;  get  channel  number 


CISEL 
<CI> 
CISEL 
<RH7> 


NI  exists? 

yes  -  print  such 

NI  exists? 

no  -  print  such 


CI  exists? 

yes  -  print  such 

CI  exists? 

no  -  print  such 


;  Miscellaneous  (used  for  tests  that  have  an  execute  table) 
SCOOFF:  0  ;  error  offset 

;#♦*********************♦♦♦*•*****♦***♦***•*•**♦*****»♦♦*********•♦*** 
;  End  Stmt  for  DFPTAU. MAC  module 

XLIST 


DFPTAU 
DFPTAU 

ABUFF 

ALTCHH 

ALTCHK 

ALTCHX 

ALTF 

ALTMGO 

AR6FLG 

ARGUM 

BUFCOM 

BUFCR1 

BUFCRU 

BUFF 

BUFGO 

BUFG1 

BUFG2 

BUFGEN 

BUFGX 

BUFGXY 

BUF6XZ 

CADDR 

CFIBF 

CHKARO 

CHKARA 

CHKARG 

CHKARX 

CHKARY 

CHRIN 

CHRINS 

CHRINX 

CISEL 

CLRBFI 

CLRBUF 

CLS10 

CLSX 

CLZFF 

CONSU 

CONSUW 

CONVSO 

C0NVS1 

CONVSE 

CONVSP 

CONVSS 

CONVSX 

CORECT 

CURTIM 

CUORDL 

CWORDN 

CUORDR 

CYCL60 

DATMO 

0ATM1 

DATMES 

DATNX 

OEBTIM 

0EBUG2 
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007000 


SEQ  2151 


DF 


104000 


051440 


104000 


006112' 

DECERR 

000031 ' 

ent 

DECLIS 

000000 

DECYN 

000042' 

DING 

005704' 

ext 

DROPDV 

030063 

ERCAL 

003277' 

int 

ERDES 

003276' 

int 

ERFLG 

000775' 

ent 

ERHDR 

001122' 

ERNRMO 

001104' 

ERNRML 

001331' 

ext 

ERPNO 

001037' 

ERPNC 

001046' 

ERPNCG 

001053' 

ERPNE 

001006' 

ent 

ERPNG 

001061' 

ERPNM 

001073' 

ERPNT 

001075' 

ERRPC 

000671 • 

ext 

ERSHRO 

000100 

ERSHRT 

003311' 

ERSTOP 

003320' 

EXT10 

003300' 

ent 

EXTX 

003317* 

FEOL 

003315' 

FEOLO 

000614' 

FEOLX 

000621 ' 

FFAIL 

000633' 

FFF 

004057' 

ext 

FGETA 

OuJOOO 

F6ETA0 

(00045' 

ent 

FGETAE 

(00555' 

F6ETD 

(00557' 

F6ETD0 

(00034 

int 

FGETD1 

( 30046 

FGETDE 

(06113* 

FGETW 

(00006* 

F GET WE 

(00022* 

FILLFP 

(00017* 

FILLVP 

(00027* 

FINCMO 

(06114* 

FINCMC 

(00000* 

ent 

FINCMD 

(02746* 

FINCMX 

(00417* 

int 

FINECH 

(04332' 

ext 

FINN 

(06115' 

F INPUT 

(04335' 

ext 

FINSIX 

(30505 

FIOFF 

(01140' 

FOARG 

(01146' 

FOARGO 

001132' 
001165* 

FOARGC 

FOARGX 

( 00421 • 

int 

FOFLAG 

001000 

spd 

FORPNT 

003214* 

FREAD 

037300 

003220* 

FSARG 

003202* 

ent 

FSAR60 

010000 
037240  000002 

spd 

FSARGC 

FSARGX 

320740  000000 

int 

FSELEC 

037240 

006116* 

FSKIPC 

000015 

6ENFLG 

003723* 

6ENREP 

003753* 

6ENTYP 

003733* 

GET 

262740 

003777* 

GETLOG 

004021  * 

GET TAB 

047000 

)04027* 

GO 

260740 

)04007* 

HALTF 

104000 

)04017* 

INDLIS 

004011* 

INHMSG 

)03776* 

INITM 

)30052 

ITRCH1 

Mill' 

JEN 

254500 

)03757* 

KLFLG 

)02000 

spd 

LASARO 

)00572* 

LASAR1 

)00574* 

LASARA 

)03552* 

LASARG 

)03553* 

LASARX 

)03557* 

LAST 

010000 

000645* 

LCHAR 

002745* 

ext 

LOGPNT 

000726* 

LOOPER 

000727* 

LSTAMO 

000740* 

L STAMP 

)00750* 

LSTAMX 

)00754* 

MAXPAT 

)00771 * 

MAXTIM 

)00772* 

MDEBUG 

,  000661* 

ent 

MONT 10 

000722* 

MONTH 

)00115 

spd 

MONTIM 

)001 27 

spd 

MONTYP 

)03373* 

NISEL 

)03412* 

OLDRAN 

)03366* 

ent 

OPRSEL 

)03422* 

P 

)0062" 

ext 

PALERS 

)00576' 

ent 

PARSER 

)03363' 

ext 

PASCNT 

)06117' 

PAT 

)03351 ' 

ent 

PATADR 

)03470' 

ent 

PATBUF 

i^wy 

PATCN2 

03530' 
)03544* 

PATCN3 

PATCN4 

)06120* 

PATCN6 

006121* 

int 

PATCN7 

000004 

003427* 

003434* 

003453* 

003463* 

000004 

000742* 

006122' 

006123' 

006124' 

000000 

002732' 

000041 

000000 

000170 

000512' 

100000 

006125' 

030104 

000000 

030041 

003335* 

003341  * 

003345* 

003324* 

003343* 

000000 

006126* 

002733* 

004000 

000510* 

000474* 

000525* 

000127 

000420* 

003574* 

000276* 

000301  * 

000262* 

030516 

004052* 

006127* 

000010 

000017 

001000 

002717* 

030047 

000014 

001331* 

001172* 

004372' 

004373* 

004374* 

001366* 

001351* 


ext 


int 
ext 
spd 


ent 

spd 
int 
ext 
spd 


spd 
int 
ext 


ent 

ext 

spd 

spd 
ent 


ent 
spd 
spd 
spd 


PATCN8 

PATFLG 

PATPNT 

PATRA1 

PATRAN 

PBELL 

PCRL 

PCRL2F 

PCRLF 

PDEC 

PDECO 

PDECFO 

PDECFS 

PDECSS 

PFORCE 

PJRST 

PNTCHF 

PNTCI 

PNTCIF 

PNTDCF 

PNTDCI 

PNTDEC 

PNTDEV 

PNTDNI 

PNTDS 

PNTDSF 

PNTHW 

PNTHWF 

PNTMSF 

PNTMSG 

PNTOCF 

PNTOCS 

PNTSIX 

PNTSXF 

PORSEL 

PORTCI 

PORTNI 

PPDEC 

PPDECF 

PSDN 

PSDNF 

PSTAMO 

PSTAMP 

PSTAMX 

PTIME 

PTIMEF 

PUT 

RADLSC 

RANDBS 

RDCSR 

RESET 

RTN 
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1564 
1587 

1581 

1600 

1604 

.SRG6 

\^ 

1591 

1596 

.SRG6A 

1590 

.SRG6B 

1586 

1593* 

\  *  " 

"      !            "                        '         ■'■■'' 

SEQ  2158 


2234 


2121 


2033 


n 


SEQ  2U6 


SRG7 

159A 

1601* 

SRGX 

1552 

1562 

SRIGT 

H23 

1542* 

SUCHO 

1317# 

1363 

SWCH1 

1318 

1361* 

SWCHP 

35 

1307* 

SUIN 

H85 

15A8 

SUINO 

1631* 

1641 

SWPNT 

1393 

HAA* 

SWTXT 

H48 

H51* 

158A 


1619* 


1606* 


SEQ  2159 


SEO  2147 


ALTCHK 

CFIBF 

CLRBF 1 

CLZFF 

DROPDV 

ERCAL 

F«SG 


FMSGC 

FMSGCD 

FMSGD 

FREAD 

FSELEC 

GET 


GET TAB 
GO 


HAL  IF 

JEN 

F»BELL 

PCRL 

PCRL2F 

PCRLF 

PDEC 

PFORCE 

PJRST 

PNTCHF 

PNTCI 

PNTCIF 

PNTDCF 

PNTDEC 

PNTDS 

PNTDSF 

PNTHW 


162 

144 

629 

624 

381 

160 

304 

1324 

1338 

1354 

1738 

1802 

1816 

531 

1854 

552 

699 

678 

95 

236 

407 

744 

1193 

1865 

2022 

2327 

2511 

371 

344 

786 

1138 

1548 

2006 

2452 

2885 

657 

1867 

2685 

1015 

1493 

1364 

1016 

1444 

1621 

716 

686 

197 

196 


1985        2072        2187        2266        2307 


SEQ  2160 


630 

193 

305 

1325 

1339 

1355 

1739 

1803 

1817 

573 

1857 

585 

710 

96 

237 

456 

793 

1205 

1866 

2105 

2344 

2720 

399 
789 
1139 
1579 
i065 
2484 
2887 


1966 
1555 
1402 

2757 
1628 


723 
470 
472 


1022 


292 

306 
1326 
1340 
1356 
1740 
1804 
1818 

720 
2032 

726 


101 

252 

503 

794 

1206 

1897 

2106 

2384 

2721 

406 
804 
1140 
1621 
2094 
2496 


2053 
1628 
1438 


740 
483 
485 


293 
307 

294 

295 

296 

297 

298 

299 

475 

487 

499 

541 

1:27 

1328 

1329 

1330 

1331 

1332 

133: 

1342 

1343 

1344 

1345 

1346 

1347 

1359 

1360 

1484 

1505 

1507 

1547 

1571 

1741 

1742 

1743 

1744 

1795 

1796 

1797 

1805 

1819 

757 

1806 

1807 

1808 

1809 

1810 

1811 

1308 

1321 

1400 

1436 

1445 

1732 

2120 

2139 

2233 

2282 

2322 

743 

1745 

1759 

1761 

2342 

102 

125 

m 

129 

145 

146 

173 

253 

283 

308 

309 

504 

555 

556 

588 

589 

634 

'i 

847 
1366 

848 

960 

961 

985 
1535 

1026 
1605 

1439 

1440 

1534 

1898 

1904 

1905 

1940 

1941 

1943 

1944 

2U9 

2  44 

2145 

2220 

2221 

2223 

2266 

2385 

2:91 

2392 

2431 

2438 

2439 

2733 

2734 

2748 

2749 

2872 

2873 

439 

532 

544 

546 

584 

680 

766 

807 

810 

816 

833 

912 

913 

938 

]^H 

1:15 

1393 

1397 

1409 

1418 

1423 

l^hl 

1750 

1756 

1835 

1838 

1844 

1845 
2379 

<^*i 

2180 

2209 

2263 

2359 

2507 

2623 

2629 

2675 

2678 

2717 

2742 

2168 
1482 


2339 
495 
497 


2787        2805 


2256 
1491 


551 
956 


2300 
1516 


2842 
1545 


2848 
1582 


1633        2840        2846        2866 


2783        2b02 


1625        1634 


300 
545 
1334 
1350 
1573 
1798 
1812 

1754 


174 
347 
681 
1027 
1607 
1945 
2285 
2491 


769 
939 
1431 
1847 
2389 
2760 


301 

302 

303 

581 

583 

1314 

1335 

1336 

1337 

1351 

1352 

1353 

1734 

1736 

1737 

1799 

1800 

1801 

1813 

1814 

1815 

1840        1841 


189 
348 
690 
1178 
1716 
1946 
2286 
2492 


773 
979 
1446 
1855 
2406 
2762 


198 
368 
717 
1179 
1762 
2017 
2307 
2498 


776 
1129 
1485 
1891 
2426 
2819 


2336 


211 
400 
728 
1192 
1763 
2018 
2326 
2499 


779 
1130 
1513 
1978 
2436 
2871 


i<ill>i^»il>i!»ii»Wii 


SEQ  2148 


PNTHWF 
PNTMSF 


PNTHS6 


PNTOCF 
PNTOCS 
PNTSIX 
PNTSXF 
PUT 


RESET 
RGET 


RPUT 
RTN 


SWITCH 

TIME 

THSG 


1401 

193 

305 

583 

1329 

1344 

1797 

1811 

2120 

188 

258 

477 

1215 

1229 

1243 

1257 

1271 

1285 

1299 

2785 

2891 

542 

2772 

688 

576 

79 

282 

676 

1169 

1711 

2136 

i506 


101 

847 

1943 

2720 

139 

1169 

2166 

103 

401 

692 

1027 

1626 

2221 

2512 

2867 


188 


1437 

292 

306 

585 

1330 

1345 

1436 

1738 

1798 

1812 

2139 

223 

259 

489 

1216 

1230 

1244 

1258 

1272 

1286 

1448 

2792 

2893 

578 

2776 

722 

118 

334 

709 

1170 

1723 

2166 

2608 

145 

960 

1945 

2733 

157 

1183 

2252 

138 

408 

700 

1154 

1629 

2286 

2721 

2869 


223 


1714 

293 

307 

720 

1331 

1346 

1445 

1739 

1799 

1813 

2233 

224 

260 

501 

1217 

1231 

1245 

1259 

1273 

1287 

1510 

2796 

2897 

582 

2795 

725 

139 

335 

736 

1183 

1724 

2167 

2609 

173 

1026 

2017 

2748 

205 

1197 

2296 

146 

457 

705 

1139 

1635 

2327 

2736 

2873 


224 


1843 

294 

475 

726 

1332 

1347 

1484 

1740 

1800 

1814 

2282 

225 

683 
1218 
1232 
1246 
1260 
1274 
1288 
1576 
2799 
2899 
1483 


739 

140 

367 

762 

1184 

1836 

2252 

2610 


225 


295 

487 

737 

1333 

1348 

1492 

1741 

1801 

1815 

2322 

226 

262 

689 

1219 

1233 

1247 

1261 

1275 

1289 

1712 

2803 

1546 


742 
157 


1197 
1837 
2253 
2611 

252 

1192 
2144 

281 

1392 

2401 

190 

556 

729 

1179 

1717 

2345 

2788 

2894 


226 


1509 

158 

403 

803 

1198 

1884 

2296 

2870 

272 
1205 
2220 


227 


297 
531 
1308 
1335 
1351 
1507 
1743 
1803 
1817 
2342 
228 
264 
957 
1221 
1235 
1249 
1263 
1277 
1291 
2679 
2843 


1575 

183 

431 

830 

1307 

1885 

2297 

2871 

288 
1365 
2285 

431 

1542 

2610 

237 

601 

794 

1206 

1898 

2385 

2815 


228 


299 

300 

301 

302 

303    SEC  2161 

53j 

541 

543 

545 

573 

1314 

1321 

1324 
1338 

1325 

1326 

1327 

1336 

1337 

1339 

1340 

1342 

1547 

1353 

1354 

13^5 

1356 

1359 

1554 

1571 

1573 

1732 

1734 

1744 

1745 

1754 

1759 

1761 

1795 

1804 

1805 

1806 

1807 

1808 

1809 

1818 

1819 

1840 

1841 

1854 

1857 

229 

230 

231 

232 

233 

256 

i65 

1010 

266 

i67 
1017 

268 
1020 

269 

270 

1011 

1212 

1213 

1222 
1236 

1223 

1224 

1225 

1226 

1227 

1237 

1238 

1239 

1240 

1241 

1250 

1251 

1252 

1253 

1254 

1255 

1264 
1278 

1265 

1266 

1267 

1268 

1269 

1279 

1280 

1281 

1283 

1292 
2759 

1293 
2761 

1294 
2769 

1295 

1296 

1297 

2773 

277/ 

2780 

2849 

2880 

2881 

2882 

2883 

2884 

2338 

2341 

192 

205 

206 

208 

245 

246 

432 

520 

521 

562 

563 

625 

831 
1308 

877 

878 

965 

966 

993 

1392 

1393 

1479 

1480 

1542 

12i5 

1926 

1964 

1965 

2051 

2052 

2335 

2354 

2355 

2401 

2402 

2448 

30| 

347 

456 

503 

555 

588 

1439 

1534 

1606 

1762 
2431 

1897 

1904 

2326 

2384 

2391 

2438 

2491 

520 
1723 
2870 

253 

562 
1836 

762 

830 

877 

965 

1884 

1925 

1964 

2051 

273 

289 

309 

348 

381 

606 

623 

630 

635 

650 

665 

814 
1366 

S^ 

848 

876 

914 

940 

1440 

1447 

1449 

1535 

Ifi 

1942 

1944 

1948 

2018 

2106 

2428 

2432 

2439 

2486 

2492 

2829 

2834 

2844 

2847 

2850 

2851 

229 


230 


231 


232 


233 


256 


SEC  2U9  i 


TMSGC 

THS6CD 

THSGD 

TTALTM 

TTICNV 

TTIOCT 

TTSIXB 

TTYINP 


257 

271 
1219 
1233 
1247 
1261 
1275 
1289 
2761 
288A 

683 
2679 

689 
2710 
2186 
2071 

161 
1511 


258 
477 
1220 
123A 
12A8 
1262 
1276 
1290 
2773 
2886 
954 


2725 
2265 

1984 
1577 


259 
489 
1221 
1235 
1249 
1263 
1277 
1291 
2777 
2891 
1010 


2306 
1619 


260 
501 
1222 
^236 
1250 
1264 
1278 
1292 
?78Q 
2893 
1011 


.0^^ 
1225 
1239 
1253 
1267 
1281 
1295 
2792 

2769   2833 


266 
1214 
1228 
1242 
1256 
1270 

1298 
2803 


268 
1216 
1230 
1244 
1258 
1272 

1510 
2881 


269 
1217 
1231 
1245 
1259 
1273 

mi 

2882 


SEO  2162 


1639 


SEQ  2150 


LINK  symbol  map  of     DFPTA   version  6(2364)       page  1 
Produced  by  LINK  version  6(2364)  on  1-Jul-85  at  10:17:17 


Low  segment  starts  at 


0  ends  at  240200  length   240201  =  161P 


383  words  free  in  Low  segment 

528  Global  symbols  loaded,  therefore  min.  hash  size  is  587 

Start  address  is  30000,  located  in  program  DFPTA1 


JOBDAT-INITIAL- 
XJOBDT 
.JBAPR 
.JBCHN 
.JBCOR 
.JBDA 
.JBEDV 
.JBFF 
.JBHCR 
.JBHGA 
.JBHNM 
.JBHRN 
.JBHSM 
.JBINT 
.JBOPS 
.JBPFH 
.JBREL 
.JBSA 
.JBTPC 
.JBUUO 


DFPTA 


************* 

-SYMBOLS 

43200000454  Globa 
125  Globa 
131  Globa 

133  Globa 
140  Globa 
112  Globa 
121  Globa 

2  Globa 
7  Globa 

5  Globa 

3  Globa 

6  Globa 

134  Globa 

135  Globa 
123  Globa 

44  Globa 

120  Globa 

127  Globa 

40  Globa 


Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 


Suppressed 

.JB41 

41  Global 

.JBBLT 

45  Global 

.J6CN 

126  Global 

.JBCST 

136  Global 

.JBDD 

74  Global 

.JBERR 

42  Global 

.JBH41 

1  Global 

Suppressed 

.JBHDA 

10  Global 

Suppressed 

.J6HGH 

400000  Global 

Suppressed 

.JBHRL 

115  Global 

Suppressed 

.JBHSA 

0  Global 

Suppressed 

.JBHVR 

4  Global 

.JBOPC 

130  Global 

.JBOVL 

131  Global 

! 

•JBPFI 

74  Global 

.JBREN 

124  Global 

.JBSYM 

116  Global 

.JBUSY 

117  Global 

.JBVER 

137  Global 

Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Aosolute 
Absolute 


************* 


from  DSK:u.-PTAT.REL 
Low  se^ent  starts  at 


created  by  MACRO  on  1-Jul-85  at  7:46:39 

140  ends  at   30740  length    :.0601  (octal),  12673.  (decimal) 


************* 


DFPTA1   from  DSK:DFPTA1.REL    created  by  MACRO  on  1-Jul-85  at  7:48:28 

Low  segment  starts  at   30741  ends  at  115621  length    64661  (octal),  27057.  (decimal) 


AAPNT 

44732 

AEXEC 

44617 

ALCOR 

44724 

ALEBF 

44722 

ALFLC 

44730 

ALFLS 

44726 

ALSRT 

44720 

ALTIM 

44717 

BEXEC 

44770 

CADDR 

37750 

CBUF 

52003 

CCSR 

46027 
45142 

CEBUF 

CEBUFC 

46031 

Entry 

tntry 

Global 

Global 

Global 

Global 

Global 

Global 

Entry 

Global 

Entry 

Global 

Global 

Global 


Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 
Absolute 


AEBUF 

ALACT 

ALCSR 

ALERR 

ALFLE 

ALFLT 

ALTF 

BBPNT 

BUFF 

CALPAR 

CCPNT 

CDERR 

CEBUF A 

CEXEC 


45141 
44725 
44721 
44723 
44727 
44731 
115531 
45144 
50000 
43625 
46044 
46034 

m 


Global 

Global 

Global 

Global 

Global 

Global 

Global 

Entry 

Global 

Entry 

Entry 

Global 

Global 

Entry 


Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Relocatable 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 


SEQ  2163 


Suppressed 
Suppressed 
Suppressed 

Suppressed 
Suppressed 


SEQ  2151 


0FPTA1 


LINK  symbol  map  of 


DFPTA   version  6(236A) 


page  2 


rit 


It 


DFPTA2 


CISEL 

47004 

CPAT 

46035 

CSRPNT 

43715 

CSTWRD 

CUORDR 

37752 

DRCRAM 

40430 

FINECH 

115543 

GET  J I 

104000000507 

lADDR 

46570 

I DEBUG 

115547 

I  FLAG 

46574 

IIPNT 

46610 

IPRINT 

42640 

NDEBUG 

115555 

HLOADY 

43211 

NSSTEP 

44550 

PARFLG 

35764 

PMODE 

47034 

PORTCI 

47002 

QADDR 

46025 

SAADDR 

44553 

SEADDR 

44552 

SPEAR2 

115605 

SSADDR 

44551 

START 

30610 

SYERR 

104000000527 

TADDRF 

45431 

TCSRF 

45432 

TEBUFC 

45434 

TLOAD 

43661 

TRACE 

42717 

TSL0D2 

115610 

TSTCLS 

47010 

TSTINH 

47023 

TSTMSK 

47017 

TSTNUM 

47011 

TSTPC 

47013 

TSTREP 

47020 

TTPNT 

45440 

UDEBU6 

115615 

*****•*♦*♦*♦* 

from  DSK 

:DFPTA2.REL 

Low  segment  starts  at 

TSTE1 

115622 

TSTE11 

116526 

TSTE13 

116615 

TSTE15 

117004 

TSTE17 

117220 

TSTE20 

117246 

TSTE22 

117330 

TSTE24 

117615 

Entry 

Global 

Entry 

Entry 

Global 

Entry 

Global 

Global 

Global 

Global 

Global 

Entry 

Entry 

Global 

Entry 

Global 

Global 

Global 

Entry 

Global 

Global 

Global 

Entry 

Global 

Entry 

Global 

Global 

Global 

Global 

Entry 

Ent-y 

Global 

Entry 

Global 

Entry 

Entry 

Entry 

Entry 

Entry 

Global 


Abso 
Abso 
Abso 
Abso 
Abso 
Abso 
Relo 
Abso 
Abso 
Relo 
Abso 
Abso 
Abso 
Relo 
Abso 
Abso 
Abso 
Abso 
Abso 
Abso 
Abso 
Abso 
Relo 
Abso 
Abso 
Abso 
Abso 
Abso 
Abso 
Abso 
Abso 
Relo 
Abso 
Abso 
Abso 
Abso 
Abso 
Abso 
Abso 


lute 

lute 

lute 

lute 

lute 

lute 

eatable 

lute 

lute 

eatable 

lute 

lute 

lute 

eatable 

lute 

lute 

lute 

lute 

lute 

lute 

lute 

lute 

eatable 

lute 

lute 

lute 

lute 

lute 

lute 

lute 

lute 

eatable 

lute 

lute 

lute 

lute 

lute 

lute 

lute 


Relocatable 


CLEN 

CSRENG 

CSTATF 

CUORDL 

DISMS 

OUCRAM 

F INPUT 

GTAD 

ICSR 

lEXEC 

IIOPF 

INDLIS 

LDEBUG 

MLOADN 

NISEL 

ODELAY 

PGMNAM 

PORSEL 

PORTNI 

QADDRF 

SDEBUG 

SEXEC 

SPREP2 

SSPNT 

STARTA 

TADDR 

TAKFIL 

TEBUFA 

TEXEC 

TPAT 

TSL0D1 

TSTADD 

TSTFL6 

TSTMIC 

TSTNAM 

TSTOFF 

TSTPNT 

TSTSU8 

TWORD 

UUT 


46036 
43737 
46040 
37751 
104000000167 
40376 

115544 
104000000227 
46572 
46146 
46575 
31275 

115551 
43207 
47003 
43121 
30600 
47005 
47001 
46026 

115602 
44416 
44234 
44554 
30710 
45430 
32747 
45435 
45227 
52002 

115607 
47015 
47014 
47016 
47007 
47026 
43076 
47012 
52000 
47006 


Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 


TSTE10 

TSTE12 

TSTE14 

TSTE16 

TSTE2 

TSTE21 

TSTE23 

TSTE25 


Global 

Entry 

Global 

Global 

Global 

Entry 

Global 

Global 

Global 

Entry 

Global 

Entry 

Global 

Entry 

Entry 

Entry 

Global 

Entry 

Entry 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Global 

Global 

Global 

Entry 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 

Global 

Entry 


Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Relocatable 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Relocatable 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Relocatable 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Aosolute 

Absolute 

Absolute 

Absolute 

Relocatable 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 

Absolute 


SEQ  2164 


created  by  MACRO  on  1-Jul-85  at  7:53:55 
115622  ends  at  131516  length    13675  (octal). 


6077.  (decimal) 


116440 
116557 
116730 
117042 
115647 
117275 
11740r 
11766 


Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 


3  2152 


DFPTA2 


DFPTA   version 

6(2364) 

Relocatable 

TSTE27 

Relocatable 

TSTE30 

Relocatable 

TSTE32 

Relocatable 

TSTE34 

Relocatable 

TSTE36 

Relocatable 

TSTE4 

Relocatable 

TSTE41 

Relocatable 

TSTEA3 

Relocatable 

TSTEA5 

Relocati>ble 

TSTE47 

Relocatable 

TSTE50 

Relocatable 

TSTE52 

Relocatable 

TSTE54 

Relocatable 

TSTE56 

Relocatable 

TSTE6 

Relocatable 

TSTE61 

Relocatable 

TSTE63 

Relocatable 

TSTE65 

Relocatable 

TSTE67 

Relocatable 

TSTE70 

Relocatable 

TSTE72 

Relocatable 

TSTE74 

Relocatable 

TSTE76 

page  3 


LINK  symbol  map  of 

TSTE26  117755  Entry 

TSTE3  1157A5  Entry 

TSTE31  120171  Entry 

TSTE33  120323  Entry 

TSTE35  120466  Entry 

TSTE37  121034  Entry 

TSTE40  121063  Entry 

TSTE42  121342  Entry 

TSTE44  121465  Entry 

TSTE46  121604  Entry 

TSTE5  116131  Entry 

TSTE51  122254  Entry 

TSTE53  122457  Entry 

TSTE55  122573  Entry 

TSTE57  122720  Entry 

TSTE60  122765  Entry 

TSTE62  123223  Entry 

TSTE64  123425  Entry 

TSTE66  124076  Entry 

TSTE7  116254  Entry 

TSTE71  124344  Entry 

TSTE73  125041  Entry 

TSTE75  125435  Entry 

DFPTA3  from  DSK:DFPTA3.REL     created  by  MACRO  on  l-Jul-85  at  8:05:42 

Low  segment  starts  at  131517  ends  at  143734  length    12216  (octal). 


TSTSl 

TSTSll 

TSTS13 

TSTS15 

TSTS17 

TSTS20 

TSTS22 

TSTS24 

TSTS26 

TSTS3 

TSTS31 

TSTS33 

TSTS35 

TSTS37 

TSTS40 

TSTS42 

TSTS44 

TSTS46 

TSTS5 

TSTS51 

TSTS53 

TSTS55 

TSTS57 

TSTS60 

TSTS62 


131517 
132504 
132632 
133006 
133372 
133566 
134152 
134310 
134456 
131745 
134641 
135033 
135163 
135517 
135615 
135775 
136166 
136335 
132147 
137105 
137372 
140116 
140516 
140570 
140742 


Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 


Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 


locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 


TSTS10 

TSTS12 

TSTS14 

TSTS16 

TSTS2 

TSTS21 

TSTS23 

TSTS25 

TSTS27 

TSTS30 

TSTS32 

TSTS34 

TSTS36 

TSTS4 

TSTS41 

TSTS43 

TSTS45 

TSTS47 

TSTS50 

TSTS52 

TSTS54 

TSTS56 

TSTS6 

TSTS61 

TSTS63 


120033 
120114 
120251 
120376 
120760 
116036 
121175 
121414 
121535 
121655 
122055 
122452 
122526 
122647 
116220 
123142 
123325 
123652 
124103 
124110 
124606 
125224 
125566 


Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 


Re 

Locatable 

Re 

ocatable 

Re 

ocatable 

Re 

ocatable 

Re 

ocatable 

Re 

.ocatable 

Re 

.ocatable 

Re 

.ocatable 

Re 

.ocatable 

Re 

.ocatable 

Rei 

.ocatable 

Rei 

.ocatable 

Rei 

.ocatable 

Rei 

.ocatable 

Rei 

ocatable 

Rei 

.ocatable 

Rei 

.ocatable 

Rei 

ocatable 

Rei 

ocatable 

Rei 

ocatable 

Rei 

ocatable 

Rei 

ocatable 

Re( 

ocatable 

SEQ  2165 


5262.  (decimal) 


132431 
132552 
132702 
133200 
131660 
133756 
134230 
134372 
134544 


X4551 
X4755 
55077 
J5425 
52046 
55715 
56074 
56246 
56431 
56521 
37175 
140014 
140426 
132303 
140646 
141042 


Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 


Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 
Re 


locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 
locatable 


2153 


DFPTA3 


DFPTA8 


LINK  symbol  map  of 


TSTS64 
TSTS66 
TSTS7 


U1112 
1A1A27 
132356 


Entry 
Entry 
Entry 


DFPTA   version  6(2364) 

Relocatable  TSTS65 

Relocatable  TSTS67 

Relocatable  TSTS70 


page  4 


************* 


DFPTAA  from  DSK:DFPTAA.REL     created  by  MACRO  on  1-Jul-85  at  8:24:43 

Low  segment  starts  at  143735  ends  at  153760  length    10024  (octal). 


TSTA1 

145735 

TSTA11 

145231 

TSTA13 

145375 

TSTA15 

146115 

TSTA17 

146610 

TSTA20 

147065 

TSTA22 

147721 

TSTA24 

150707 

TSTA26 

151507 

TSTA3 

144573 

TSTA4 

144655 

TSTA6 

145003 

************* 


DFPTA5  from  DSK:DFPTA5.REL 

Low  segment  starts  at 


Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 


created  by  MACRO  on  1-Jul-85 
153761  ends  at  157672  length 


TSTA10 

TSTA12 

TSTA14 

TSTA16 

TSTA2 

TSTA21 

TSTA23 

TSTA25 

TSTA27 

TSTA30 

TSTA5 

TSTA7 


at 


8:41: 
3712 


00 
(octal). 


TSTA31 


♦**♦*****♦*** 


153761  Entry   Relocatable 


DFPTA6  from  DSK:DFPTA6.REL     created  by  MACRO  on  1-Jul-85  at  9:04:27 

Low  segme-t  starts  at  157673  ends  at  164254  length    4362  (octal). 


TSTA32 


157673  Entry       Relocatable 


************* 


DFPTA7  from  DS<:DFPTA7.REL     created  by  MACRO  on  l-Jul-85  at 
Low  segment  starts  at  164255  ends  at  170152  length 


TSTA33 
TSTA35 
TSTA37 
TSTA41 


164255  Entry 

164554  Entry 

166273  Entry 

166744  Entry 


Relocatable 
Relocatable 
Relocatable 
Relocatable 


9:17:53 
3676  (octal), 

TSTA34 
TSTA36 
TSTA40 
TSTA42 


************* 


from  0SK:DFPTA8.REL 
Low  segment  starts  at 


created  by  MACRO  on  1-Jul-85  at  9:39:59 
170153  ends  at  203575  length    13423  (octal). 


TSTU1 
TSTU11 
TSTU13 
TSTU15 


170153  Entry 

171604  Entry 

172016  Entry 

172404  Entry 


Relocatable 
Relocatable 
Relocatable 
Relocatable 


TSTUIO 
TSTU12 

Tsruu 

TSTU16 


141262  Entry 
141633  Entry 
142012  Entry 


Relocatable 
Relocatable 
Relocatable 


4116.  (decimal) 

145147  Entry  Relocatable 

145313  Entry  Relocatable 

146034  Entry  Relocatable 

146331  Entry  Relocatable 

14421C'  Entry  Relocatable 

147356  Entry  Relocatable 

150402  Entry  Relocatable 

151216  Entry  Relocatable 

151752  Entry  Relocatable 

152243  Entry  Relocatable 

144730  Entry  Relocatable 

145065  Entry  Relocatable 


1994.  (dec'-^al) 


2290.  (decimal) 


1982.  (decimal) 

164412  Entry 

165610  Entry 

166521  Entry 

167164  Entry 


Relocatable 
Relocatable 
Relocatable 
Relocatable 


5907.  (decimal) 

171500  Entry 

171662  Entry 

172106  Entry 

172642  Entry 


Relocatable 
Relocatable 
Relocatable 
Relocatable 


SEQ  2166 


EQ  2154 


DFPTA8 


LINK  symbol  map  of 

TSTU17  173A70  Entry 

TSTU20  173700  Entry 

TSTU22  174243  Entry 

TSTU24  174625  Entry 

TSTU26  175210  Entry 

TSTU3  170403  Entry 

TSTU31  176122  Entry 

TSTU33  176756  Entry 

TSTU35  177312  Entry 

TSTU37  200674  Entry 

TSTU40  200762  Entry 

TSTU5  170557  Entry 

TSTU7  171172  Entry 
************* 


DFPTA   version  6(2364) 

Relocatable  TSTU2 

Relocatable  TSTU21 

Relocatable  TSTU23 

Relocatable  TSTU25 

Relocatable  TSTU27 

Relocatable  TSTU30 

Relocatable  TSTU32 

Relocatable  TSTU34 

Relocatable  TSTU36 

Relocatable  TSTU4 

Relocatable  TSTU41 

Relocatable  TSTU6 
Relocatable 


page  5 


DFPTA9  from  DSK:DFPTA9.REL     created  by  MACRO  on  1-Jul-85  at  10:01:43 

Low  segment  starts  at  203576  ends  at  217662  length    14065  (octal). 


TSTC1  203576  Entry 

TSTC10  206315  Entry 

TSTC12  206677  Entry 

TSTC14  207306  Entry 

TSTC16  210120  Entry 

TSTC2  204435  Entry 

TSTC21  211254  Entry 

TSTC23  212013  Entry 

TSTC2S  212552  Entry 

TSTC27  213170  Entry 

TSTC30  213506  Entry 

TSTC32  214340  Entry 

TSTC34  215142  Entry 

TSTC36  215707  Entry 

TSTC4  204750  Entry 

TSTC6  205410  Entry 


Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 
Relocatable 


TSTC11 

TSTC13 

TSTC15 

TSTC17 

TSTC20 

TSTC22 

TSTC24 

TSTC26 

TSTC3 

TSTC31 

TSTC33 

TSTC35 

TSTC37 

TSTC5 

TSTC7 


DFPTAA  from  OS»(:DFPTAA.REL     created  by  MACRO  on  1-Jul-85  at  10:14:07 

Low  segment  starts  at  217663  ends  at  225613  length    5731  (octal). 


TSTC40 
TSTC42 
TSTC44 
TSTC46 
TSTC50 
TSTC52 
TSTC54 
TSTC56 
TSTC60 


217663  Entry  Relocatable 

220276  Entry  Relocatable 

220455  Entry  Relocatable 

221055  Entry  Relocatable 

221436  Entry  Relocatable 

222024  Entry  Relocatable 

222463  Entry  Relocatable 

223354  Entry  Relocatable 

224235  Entry  Relocatable 


TSTC41 
TSTC43 
TSTC45 
TSTC47 
TSTC51 
TSTC53 
TSTC55 
TSTC57 


170327 
174052 
174434 
175020 
175371 
175665 
176462 
177200 
200501 
170460 
201044 
170663 


Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 


6197,  (decimal) 


206632 
207006 
207605 
210431 
210742 
211534 
2'^227^ 
212660 
204642 
214022 
214656 
215425 


0! 
?06013 


Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 


3033.  (decimal) 


220046 
220366 
220670 
221211 
?1553 


Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 

Entry  Relocatable 


SEQ  2167 


0  2155 


LINK  symbol  map  of     DFPTA   version  6(236A)       page  6 


SEQ  2168 


OFPTAI 


from  DSK 

:DFPTAI.REL 

Low  segment  starts  at 

AADDR 

226237 

CBASE 

CHDATA 

230205 

CHKCSR 

226132 

DEVREL 

2303U 

DSETUP 

230222 

EPCAPX 

10A000000151 

ERJMP 

320700000000 

FFF 

230754 

GETLOG 

227470 

HAVEN I 

230507 

INITPO 

226346 

I NT APR 

226777 

INTCSR 

227073 

INTNUn 

226702 

INTTIH 

227023 

INTUSE 

227047 

IPASRT 

226151 

IPASTP 

226203 

LDCRAM 

225651 

LDEBUF 

2256  4 

LOGBOF 

NIX 

1040000006:0 

PF501 

PFAIL 

22722(* 

PFCLR 

227225 

PISYOF 

226400 

RDCRAM 

225722 

RDEBUF 

225664 

REL 

230370 

REQ2 

230622 

SDATA 

226235 

SETLAR 

226101 
226234 

SLAST 

USRIOX 

104000000310 

USRION 

225743 

.CONO 

.DATAO 

225764 

.EIFCN 

,§ 

.EIRCI 

.EISOF 

11 

.FHSLF 

400<  00 

.INUDl 

227  71 

.PIOFF 

226:52 

.PRIOU 

1 

101 

created  by  MACRO  on  1-Jul-85  at  10:15:46 
225614  ends  at  232036  Length    4223  (octaU. 


2195.  (decimal) 


Global 

Global 

Entry 

Entry 

Entry 

Entry 

Global 

Global 

Entry 

Entry 

Global 

Entry 

Global 

Global 

Global 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Global 

Global 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 

Global 

Entry 

Global 

Global 

Entry 

Entry 

Entry 

Global 

Global. 

Global 

Globitl 

Global 

Entry 

Global 


Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Absolute 

Absolute 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Absolute 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Absolute 

Relocatable 

Relocatable 

Reiocatahie 

Aoscltt:* 

Absolute 

Absolute 

Absolute 

.Relocatable 

Relocat^ible 

Absolut^' 


Suppressed 
Suppressed 
Suppressed 
Suppressed 


Suppressed 


CCyPNT 

CHINir 

CLREBU 

OEVREO 

EADDR 

ERESET 

ERSTRX 

6ENCCU 

HAVE CI 

IDELAY 

INI rpi 

INTCON 

INTEND 

INTPC 

INTTYP 

IPACLR 

IPASST 

I  STOP 

LDCSR 

LDRAR 

LOGPNT 

PF500 

PF502 

PFAPR 

PFSET 

PIS YON 

RDCSR 

RDLAR 

REQ1 

RPCAPX 

SETEBU 

SETVEC 

SNEXT 

USRIOF 

.CONI 

.DATAI 

.EICHN 

.EIGET 

.EIREL 

.nSTA 

.INPNT 

.INWD2 

•  PIGN 


227671 
2272h2 
226 116 
230510 
226236 
225774 
10400000QQ11 
227320 
230506 
226701 
22tl22 
226753 
227143 

'6703 

6727 

6057 

,i6240 

26003 
525624 
>25635 

?7614 
,J7220 
\27222 
\272^7 
227175 
226403 


104000C 


Entry 

Entry 

Entry 

Entry 

Global 

Entry 

Global 

Entry 

Global 

Global 

Entry 

Global 

Global 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 

Global 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Entry 

Global 

Entry 

Entry 

Global 

Entry 

Entry 

Entry 

Global 

Global 

Global 

Global 

Entry 

Global 

Entry 


Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Absolute 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Absolute 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Absolute 

Absolute 

Absolute 

Absolute 

Relocatable 

Relocatable 

Relocatable 


Suppressed 
Suppressed 
Suppressed 
Suppressed 
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DFPTAU  from  DSK:DFPTAU.REL    created  by  MACRO  on  1-Jul-85  at  10:16:57 

Low  segment  starts  at  232037  ends  at  240200  length    61A2  (octal:,  3170,  (decimal) 


SEO  2169 


ALTCHH 

232070 
235336 

AR6FLG 

BUFCOM 

CHKARG 

235337 

CLZFF 

1OA0O0OOC03A 

CURTIM 

OECYN 

235241* 

F6ETU 

232720 

FINIT 

232635 

FOARG 

235527 

HALTF 

10A000000170 

LCHAR 

240165 

MONTIH 

232321 

PATBUF 

233231 

PNTDEV 

236104 

PPDECF 

232250 

PS  TAMP 

232462 

RESET 

104000000147 

SCOOFF 

236121 

SCOSU 

240172 

SUCHPT 

234626 

SWITT 

233630 

TIME 

104000000014 

UNAME 

URDERR 

240175 

.CLOSE 

232602 

.OAHG 

235262 

.ISWT 

233636 

.OARG 

235166 

.RESET 

232573 

.SARG 

235115 

Entry 

Global 

Entry 

Entry 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Entry 

Global 

Global 

Global 

Entry 

Entry 

Global 

Global 

Global 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 


Relocatable 

Relocatable 

Relocatable 

Relocatable 

Absolute 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Absolute 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

'^  Hocatable 

rtosolute 

Relocatable 

Relocatable 

Relocatable 

Relo'-atabie 

Absolute 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 


ARGUM 

BUF6EN 

CLRBUF 

CONVSX 

DEBTIM 

ERCAL 

FINCMD 

FIOFF 

FORPNT 

LASARG 

MAXTIM 

PARSER 

PATPNY 

PPOEC 

PSDN 

PTIME 

RUNTME 

SCOPE  1 

STCLOK 

SUCOM 

SURGT 

TTVYES 

USTIM 

.CGOT 

.COMM 

.EXIT 

.LSUIT 

.PNTOC 

.RSUIT 

.SUCHP 


320:'40t 


235335 
?33045 
2.52104 
21205? 

0000 
.5425 
35410 
40160 
"536J5 
2457 
4756 
5441 

.mi?. 

32144 
i350 
2364 
5620 
2276 
4635 
3635 
2120 
.2461 
35044 
5020 
2620 
4550 
2160 


Global 

Entry 

Entry 

Entry 

Global 

Global 

Entry 

Entry 

Global 

Eritry 

Global 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 

Entry 

Global 

Entry 

Global 

Global 

Entry 

Entry 

Global 

Entry 

Global 

Entry 


Relocatable 

Relocatable 

Reloc^^able 

Relocatable 

Relocatable 

Absolute 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocataiile 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 

Relocatable 
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Index  to  LINK  symbol  map  of 
Name    Page    Name    Page 


DFPTA 
DFPTA1 
DFPTA2 
DFPTA3 


1 
1 
2 
3 


DFPTAA 
DFPTA5 
DFPTA6 


4 
A 
A 


DFPTA 

Name 

0FPTA7 
0FPTA8 
DFPTA9 


version  6(236A) 
Page   Name   Page 


page  8 


SEO  2U0 


A 
A 
5 


DFPTAA  5 
DFPTAI  6 
DFPTAU   7 


[End  of  LINK  map  of    DFPTA3 
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